![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to funcdefs.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / jove|
Return to funcdefs.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / jove |
1.1 ! root 1: /*************************************************************************** ! 2: * This program is Copyright (C) 1986, 1987, 1988 by Jonathan Payne. JOVE * ! 3: * is provided to you without charge, and with no warranty. You may give * ! 4: * away copies of JOVE, including sources, provided that this notice is * ! 5: * included in all the files. * ! 6: ***************************************************************************/ ! 7: ! 8: #include "jove.h" ! 9: #include "ctype.h" ! 10: ! 11: #if !defined(MSDOS) && !defined(SYSV) && !defined(MAC) ! 12: # include <sgtty.h> ! 13: #endif ! 14: ! 15: #if !defined(TXT_TO_C) ! 16: ! 17: #if defined(MAC) ! 18: # define WIRED_CMD(c) (c),'\0','\0' /* for About Jove... */ ! 19: #else ! 20: # define WIRED_CMD(c) (c) ! 21: #endif /* MAC */ ! 22: ! 23: #else /* TXT_TO_C */ ! 24: ! 25: #if defined(MAC) ! 26: # define WIRED_CMD(c) 0,'\0','\0' ! 27: #else ! 28: # define WIRED_CMD(c) 0 ! 29: #endif ! 30: #endif /* TXT_TO_C */ ! 31: ! 32: const struct cmd commands[] = { ! 33: #if defined(LISP) ! 34: FUNCTION, "add-lisp-special", WIRED_CMD(AddSpecial), ! 35: #endif ! 36: FUNCTION, "append-region", WIRED_CMD(AppReg), ! 37: FUNCTION, "apropos", WIRED_CMD(Apropos), ! 38: FUNCTION, "auto-execute-command", WIRED_CMD(CAutoExec), ! 39: FUNCTION, "auto-execute-macro", WIRED_CMD(MAutoExec), ! 40: DefMinor(Fill), "auto-fill-mode", WIRED_CMD(0), ! 41: DefMinor(Indent), "auto-indent-mode", WIRED_CMD(0), ! 42: FUNCTION, "backward-character", WIRED_CMD(BackChar), ! 43: FUNCTION, "backward-list", WIRED_CMD(BList), ! 44: FUNCTION, "backward-paragraph", WIRED_CMD(BackPara), ! 45: FUNCTION, "backward-s-expression", WIRED_CMD(BSexpr), ! 46: FUNCTION, "backward-sentence", WIRED_CMD(Bos), ! 47: FUNCTION, "backward-up-list", WIRED_CMD(BUpList), ! 48: FUNCTION, "backward-word", WIRED_CMD(BackWord), ! 49: FUNCTION, "begin-kbd-macro", WIRED_CMD(Remember), ! 50: FUNCTION, "beginning-of-file", WIRED_CMD(Bof), ! 51: FUNCTION, "beginning-of-line", WIRED_CMD(Bol), ! 52: FUNCTION, "beginning-of-window", WIRED_CMD(Bow), ! 53: FUNCTION, "bind-to-key", WIRED_CMD(BindAKey), ! 54: FUNCTION, "bind-keymap-to-key", WIRED_CMD(KmBind), ! 55: FUNCTION, "bind-macro-to-key", WIRED_CMD(BindMac), ! 56: #if defined(ABBREV) ! 57: FUNCTION, "bind-macro-to-word-abbrev", WIRED_CMD(BindMtoW), ! 58: #endif ! 59: FUNCTION, "buffer-position", WIRED_CMD(BufPos), ! 60: DefMajor(CMODE), "c-mode", WIRED_CMD(0), ! 61: MODFUNC, "case-character-capitalize", WIRED_CMD(CapChar), ! 62: MODFUNC, "case-region-lower", WIRED_CMD(CasRegLower), ! 63: MODFUNC, "case-region-upper", WIRED_CMD(CasRegUpper), ! 64: MODFUNC, "case-word-capitalize", WIRED_CMD(CapWord), ! 65: MODFUNC, "case-word-lower", WIRED_CMD(LowWord), ! 66: MODFUNC, "case-word-upper", WIRED_CMD(UppWord), ! 67: MODFUNC, "character-to-octal-insert", WIRED_CMD(ChrToOct), ! 68: FUNCTION, "cd", WIRED_CMD(Chdir), ! 69: FUNCTION, "clear-and-redraw", WIRED_CMD(ClAndRedraw), ! 70: #if !defined(MAC) ! 71: FUNCTION, "compile-it", WIRED_CMD(MakeErrors), ! 72: #endif ! 73: #if defined(IPROCS) && !defined(PIPEPROCS) && defined(TIOCSLTC) ! 74: FUNCTION, "continue-process", WIRED_CMD(ProcCont), ! 75: #endif ! 76: FUNCTION, "copy-region", WIRED_CMD(CopyRegion), ! 77: #if !defined(MAC) ! 78: FUNCTION, "current-error", WIRED_CMD(ShowErr), ! 79: #endif ! 80: FUNCTION, "date", WIRED_CMD(prCTIME), ! 81: #if defined(IPROCS) ! 82: FUNCTION, "process-dbx-output", WIRED_CMD(DBXpoutput), ! 83: #endif ! 84: #if defined(ABBREV) ! 85: FUNCTION, "define-global-word-abbrev", WIRED_CMD(DefGAbbrev), ! 86: FUNCTION, "define-mode-word-abbrev", WIRED_CMD(DefMAbbrev), ! 87: #endif ! 88: FUNCTION, "define-macro", WIRED_CMD(DefKBDMac), ! 89: MODFUNC, "delete-blank-lines", WIRED_CMD(DelBlnkLines), ! 90: FUNCTION, "delete-buffer", WIRED_CMD(BufKill), ! 91: FUNCTION, "delete-macro", WIRED_CMD(DelMacro), ! 92: MODFUNC, "delete-next-character", WIRED_CMD(DelNChar), ! 93: FUNCTION, "delete-other-windows", WIRED_CMD(OneWindow), ! 94: MODFUNC, "delete-previous-character", WIRED_CMD(DelPChar), ! 95: MODFUNC, "delete-white-space", WIRED_CMD(DelWtSpace), ! 96: FUNCTION, "delete-current-window", WIRED_CMD(DelCurWindow), ! 97: FUNCTION, "describe-bindings", WIRED_CMD(DescBindings), ! 98: FUNCTION, "describe-command", WIRED_CMD(DescCom), ! 99: FUNCTION, "describe-key", WIRED_CMD(KeyDesc), ! 100: FUNCTION, "describe-variable", WIRED_CMD(DescCom), ! 101: FUNCTION, "digit", WIRED_CMD(Digit), ! 102: FUNCTION, "digit-1", WIRED_CMD(Digit1), ! 103: FUNCTION, "digit-2", WIRED_CMD(Digit2), ! 104: FUNCTION, "digit-3", WIRED_CMD(Digit3), ! 105: FUNCTION, "digit-4", WIRED_CMD(Digit4), ! 106: FUNCTION, "digit-5", WIRED_CMD(Digit5), ! 107: FUNCTION, "digit-6", WIRED_CMD(Digit6), ! 108: FUNCTION, "digit-7", WIRED_CMD(Digit7), ! 109: FUNCTION, "digit-8", WIRED_CMD(Digit8), ! 110: FUNCTION, "digit-9", WIRED_CMD(Digit9), ! 111: FUNCTION, "digit-0", WIRED_CMD(Digit0), ! 112: FUNCTION, "dirs", WIRED_CMD(prDIRS), ! 113: FUNCTION, "down-list", WIRED_CMD(FDownList), ! 114: #if defined(IPROCS) && !defined(PIPEPROCS) && defined(TIOCSLTC) ! 115: FUNCTION, "dstop-process", WIRED_CMD(ProcDStop), ! 116: #endif ! 117: #if defined(ABBREV) ! 118: FUNCTION, "edit-word-abbrevs", WIRED_CMD(EditAbbrevs), ! 119: #endif ! 120: FUNCTION, "end-kbd-macro", WIRED_CMD(Forget), ! 121: FUNCTION, "end-of-file", WIRED_CMD(Eof), ! 122: FUNCTION, "end-of-line", WIRED_CMD(Eol), ! 123: FUNCTION, "end-of-window", WIRED_CMD(Eow), ! 124: #if defined(IPROCS) && !defined(PIPEPROCS) ! 125: FUNCTION, "eof-process", WIRED_CMD(ProcEof), ! 126: #endif ! 127: FUNCTION, "erase-buffer", WIRED_CMD(BufErase), ! 128: FUNCTION, "exchange-point-and-mark", WIRED_CMD(PtToMark), ! 129: FUNCTION, "execute-named-command", WIRED_CMD(Extend), ! 130: FUNCTION, "execute-kbd-macro", WIRED_CMD(ExecMacro), ! 131: FUNCTION, "execute-macro", WIRED_CMD(RunMacro), ! 132: FUNCTION, "exit-jove", WIRED_CMD(Leave), ! 133: #if defined(CMT_FMT) ! 134: MODFUNC, "fill-comment", WIRED_CMD(Comment), ! 135: #endif /* CMT_FMT */ ! 136: MODFUNC, "fill-paragraph", WIRED_CMD(Justify), ! 137: MODFUNC, "fill-region", WIRED_CMD(RegJustify), ! 138: #if !defined(MAC) ! 139: MODFUNC, "filter-region", WIRED_CMD(FilterRegion), ! 140: #endif ! 141: FUNCTION, "find-file", WIRED_CMD(FindFile), ! 142: FUNCTION, "find-tag", WIRED_CMD(FindTag), ! 143: FUNCTION, "find-tag-at-point", WIRED_CMD(FDotTag), ! 144: FUNCTION, "first-non-blank", WIRED_CMD(ToIndent), ! 145: FUNCTION, "forward-character", WIRED_CMD(ForChar), ! 146: FUNCTION, "forward-list", WIRED_CMD(FList), ! 147: FUNCTION, "forward-paragraph", WIRED_CMD(ForPara), ! 148: FUNCTION, "forward-s-expression", WIRED_CMD(FSexpr), ! 149: FUNCTION, "forward-sentence", WIRED_CMD(Eos), ! 150: FUNCTION, "forward-word", WIRED_CMD(ForWord), ! 151: DefMajor(FUNDAMENTAL), "fundamental-mode", WIRED_CMD(0), ! 152: FUNCTION, "gather-numeric-argument", WIRED_CMD(TimesFour), ! 153: #if defined(LISP) ! 154: MODFUNC, "grind-s-expr", WIRED_CMD(GSexpr), ! 155: #endif ! 156: FUNCTION, "goto-line", WIRED_CMD(GoLine), ! 157: FUNCTION, "goto-window-with-buffer", WIRED_CMD(GotoWind), ! 158: FUNCTION, "grow-window", WIRED_CMD(GrowWindow), ! 159: MODFUNC, "handle-tab", WIRED_CMD(Tab), ! 160: FUNCTION, "i-search-forward", WIRED_CMD(IncFSearch), ! 161: FUNCTION, "i-search-reverse", WIRED_CMD(IncRSearch), ! 162: MODFUNC, "insert-file", WIRED_CMD(InsFile), ! 163: #if defined(IPROCS) ! 164: FUNCTION, "interrupt-process", WIRED_CMD(ProcInt), ! 165: FUNCTION, "i-shell-command", WIRED_CMD(Iprocess), ! 166: #endif ! 167: MODFUNC, "kill-next-word", WIRED_CMD(DelNWord), ! 168: MODFUNC, "kill-previous-word", WIRED_CMD(DelPWord), ! 169: #if defined(IPROCS) ! 170: FUNCTION, "kill-process", WIRED_CMD(ProcKill), ! 171: #endif ! 172: MODFUNC, "kill-region", WIRED_CMD(DelReg), ! 173: MODFUNC, "kill-s-expression", WIRED_CMD(KillExpr), ! 174: FUNCTION, "kill-some-buffers", WIRED_CMD(KillSome), ! 175: MODFUNC, "kill-to-beginning-of-sentence", WIRED_CMD(KillBos), ! 176: MODFUNC, "kill-to-end-of-line", WIRED_CMD(KillEOL), ! 177: MODFUNC, "kill-to-end-of-sentence", WIRED_CMD(KillEos), ! 178: FUNCTION, "left-margin-here", WIRED_CMD(SetLMargin), ! 179: #if defined(LISP) ! 180: DefMajor(LISPMODE), "lisp-mode", WIRED_CMD(0), ! 181: #endif ! 182: FUNCTION, "list-buffers", WIRED_CMD(BufList), ! 183: #if defined(IPROCS) ! 184: FUNCTION, "list-processes", WIRED_CMD(ProcList), ! 185: #endif ! 186: FUNCTION, "make-buffer-unmodified", WIRED_CMD(NotModified), ! 187: FUNCTION, "make-keymap", WIRED_CMD(MakeKMap), ! 188: FUNCTION, "make-macro-interactive", WIRED_CMD(MacInter), ! 189: FUNCTION, "name-kbd-macro", WIRED_CMD(NameMac), ! 190: MODFUNC, "newline", WIRED_CMD(Newline), ! 191: MODFUNC, "newline-and-backup", WIRED_CMD(OpenLine), ! 192: MODFUNC, "newline-and-indent", WIRED_CMD(LineAI), ! 193: #if !defined(MAC) ! 194: FUNCTION, "next-error", WIRED_CMD(NextError), ! 195: #endif ! 196: FUNCTION, "next-line", WIRED_CMD(NextLine), ! 197: FUNCTION, "next-page", WIRED_CMD(NextPage), ! 198: FUNCTION, "next-window", WIRED_CMD(NextWindow), ! 199: FUNCTION, "number-lines-in-window", WIRED_CMD(WNumLines), ! 200: DefMinor(OverWrite), "over-write-mode", WIRED_CMD(0), ! 201: FUNCTION, "page-next-window", WIRED_CMD(PageNWind), ! 202: MODFUNC, "paren-flash", WIRED_CMD(DoParen), ! 203: #if !defined(MAC) ! 204: FUNCTION, "parse-errors", WIRED_CMD(ErrParse), ! 205: #endif ! 206: #if defined(SPELL) ! 207: FUNCTION, "parse-spelling-errors-in-buffer", WIRED_CMD(SpelWords), ! 208: #endif ! 209: #if defined(JOB_CONTROL) ! 210: FUNCTION, "pause-jove", WIRED_CMD(PauseJove), ! 211: #else ! 212: # ifndef MAC ! 213: FUNCTION, "pause-jove", WIRED_CMD(Push), ! 214: # endif ! 215: #endif ! 216: FUNCTION, "pop-mark", WIRED_CMD(PopMark), ! 217: FUNCTION, "popd", WIRED_CMD(Popd), ! 218: #if !defined(MAC) ! 219: FUNCTION, "previous-error", WIRED_CMD(PrevError), ! 220: #endif ! 221: FUNCTION, "previous-line", WIRED_CMD(PrevLine), ! 222: FUNCTION, "previous-page", WIRED_CMD(PrevPage), ! 223: FUNCTION, "previous-window", WIRED_CMD(PrevWindow), ! 224: FUNCTION, "print", WIRED_CMD(PrVar), ! 225: #if defined(IPROCS) ! 226: FUNCTION, "process-bind-keymap-to-key", WIRED_CMD(ProcKmBind), ! 227: FUNCTION, "process-bind-to-key", WIRED_CMD(ProcBind), ! 228: MODFUNC, "process-newline", WIRED_CMD(ProcNewline), ! 229: FUNCTION, "process-send-data-no-return", WIRED_CMD(ProcSendData), ! 230: #endif ! 231: #if !defined(MAC) ! 232: FUNCTION, "push-shell", WIRED_CMD(Push), ! 233: #endif ! 234: FUNCTION, "pushd", WIRED_CMD(Pushd), ! 235: FUNCTION, "pwd", WIRED_CMD(prCWD), ! 236: MODFUNC, "query-replace-string", WIRED_CMD(QRepSearch), ! 237: #if defined(IPROCS) ! 238: FUNCTION, "quit-process", WIRED_CMD(ProcQuit), ! 239: #endif ! 240: MODFUNC, "quoted-insert", WIRED_CMD(QuotChar), ! 241: DefMinor(ReadOnly), "read-only-mode", WIRED_CMD(0), ! 242: #if defined(ABBREV) ! 243: FUNCTION, "read-word-abbrev-file", WIRED_CMD(RestAbbrevs), ! 244: #endif ! 245: FUNCTION, "redraw-display", WIRED_CMD(RedrawDisplay), ! 246: FUNCTION, "recursive-edit", WIRED_CMD(Recur), ! 247: FUNCTION, "rename-buffer", WIRED_CMD(ReNamBuf), ! 248: MODFUNC, "replace-in-region", WIRED_CMD(RegReplace), ! 249: MODFUNC, "replace-string", WIRED_CMD(RepSearch), ! 250: FUNCTION, "right-margin-here", WIRED_CMD(SetRMargin), ! 251: FUNCTION, "save-file", WIRED_CMD(SaveFile), ! 252: FUNCTION, "scroll-down", WIRED_CMD(DownScroll), ! 253: FUNCTION, "scroll-left", WIRED_CMD(ScrollLeft), ! 254: #if defined(MSDOS) ! 255: FUNCTION, "scroll-next-page", WIRED_CMD(PageScrollUp), ! 256: FUNCTION, "scroll-previous-page", WIRED_CMD(PageScrollDown), ! 257: #endif /* MSDOS */ ! 258: FUNCTION, "scroll-right", WIRED_CMD(ScrollRight), ! 259: FUNCTION, "scroll-up", WIRED_CMD(UpScroll), ! 260: FUNCTION, "search-forward", WIRED_CMD(ForSearch), ! 261: FUNCTION, "search-forward-nd", WIRED_CMD(FSrchND), ! 262: FUNCTION, "search-reverse", WIRED_CMD(RevSearch), ! 263: FUNCTION, "search-reverse-nd", WIRED_CMD(RSrchND), ! 264: FUNCTION, "select-buffer", WIRED_CMD(BufSelect), ! 265: #if defined(MSDOS) ! 266: FUNCTION, "select-buffer-1", WIRED_CMD(Buf1Select), ! 267: FUNCTION, "select-buffer-2", WIRED_CMD(Buf2Select), ! 268: FUNCTION, "select-buffer-3", WIRED_CMD(Buf3Select), ! 269: FUNCTION, "select-buffer-4", WIRED_CMD(Buf4Select), ! 270: FUNCTION, "select-buffer-5", WIRED_CMD(Buf5Select), ! 271: FUNCTION, "select-buffer-6", WIRED_CMD(Buf6Select), ! 272: FUNCTION, "select-buffer-7", WIRED_CMD(Buf7Select), ! 273: FUNCTION, "select-buffer-8", WIRED_CMD(Buf8Select), ! 274: FUNCTION, "select-buffer-9", WIRED_CMD(Buf9Select), ! 275: FUNCTION, "select-buffer-10", WIRED_CMD(Buf10Select), ! 276: #endif /* MSDOS */ ! 277: MODFUNC, "self-insert", WIRED_CMD(SelfInsert), ! 278: FUNCTION, "set", WIRED_CMD(SetVar), ! 279: FUNCTION, "set-mark", WIRED_CMD(SetMark), ! 280: #if defined(IPROCS) /* for GNU compatibility */ ! 281: FUNCTION, "shell", WIRED_CMD(ShellProc), ! 282: #endif ! 283: #if !defined(MAC) ! 284: FUNCTION, "shell-command", WIRED_CMD(ShellCom), ! 285: FUNCTION, "shell-command-no-buffer", WIRED_CMD(ShNoBuf), ! 286: FUNCTION, "shell-command-to-buffer", WIRED_CMD(ShToBuf), ! 287: FUNCTION, "shell-command-with-typeout", WIRED_CMD(Shtypeout), ! 288: #endif ! 289: MODFUNC, "shift-region-left", WIRED_CMD(LRShift), ! 290: MODFUNC, "shift-region-right", WIRED_CMD(RRShift), ! 291: DefMinor(ShowMatch), "show-match-mode", WIRED_CMD(0), ! 292: FUNCTION, "shrink-window", WIRED_CMD(ShrWindow), ! 293: FUNCTION, "source", WIRED_CMD(Source), ! 294: #if defined(SPELL) ! 295: FUNCTION, "spell-buffer", WIRED_CMD(SpelBuffer), ! 296: #endif ! 297: FUNCTION, "split-current-window", WIRED_CMD(SplitWind), ! 298: FUNCTION, "start-remembering", WIRED_CMD(Remember), ! 299: #if defined(IPROCS) && !defined(PIPEPROCS) ! 300: FUNCTION, "stop-process", WIRED_CMD(ProcStop), ! 301: #endif ! 302: FUNCTION, "stop-remembering", WIRED_CMD(Forget), ! 303: FUNCTION, "string-length", WIRED_CMD(StrLength), ! 304: #if defined(JOB_CONTROL) ! 305: FUNCTION, "suspend-jove", WIRED_CMD(PauseJove), ! 306: #endif ! 307: DefMajor(TEXT), "text-mode", WIRED_CMD(0), ! 308: MODFUNC, "transpose-characters", WIRED_CMD(TransChar), ! 309: MODFUNC, "transpose-lines", WIRED_CMD(TransLines), ! 310: FUNCTION, "unbind-key", WIRED_CMD(UnbindC), ! 311: FUNCTION, "version", WIRED_CMD(ShowVersion), ! 312: FUNCTION, "visible-spaces-in-window", WIRED_CMD(WVisSpace), ! 313: FUNCTION, "visit-file", WIRED_CMD(ReadFile), ! 314: FUNCTION, "window-find", WIRED_CMD(WindFind), ! 315: #if defined(ABBREV) ! 316: DefMinor(Abbrev), "word-abbrev-mode", WIRED_CMD(0), ! 317: FUNCTION, "write-word-abbrev-file", WIRED_CMD(SaveAbbrevs), ! 318: #endif ! 319: FUNCTION, "write-file", WIRED_CMD(WriteFile), ! 320: FUNCTION, "write-macros-to-file", WIRED_CMD(WriteMacs), ! 321: FUNCTION, "write-modified-files", WIRED_CMD(WtModBuf), ! 322: FUNCTION, "write-region", WIRED_CMD(WrtReg), ! 323: MODFUNC, "yank", WIRED_CMD(Yank), ! 324: MODFUNC, "yank-pop", WIRED_CMD(YankPop), ! 325: FUNCTION, 0, 0 ! 326: }; ! 327: ! 328: #if !defined(TXT_TO_C) ! 329: data_obj * ! 330: findcom(prompt) ! 331: char *prompt; ! 332: { ! 333: /* This is for faster startup. This just reads until a space or a ! 334: tab or a newline character is reached, and then does a ! 335: semi-hashed lookup on that string. This should be much faster ! 336: than initializing the minibuffer for each line. */ ! 337: if (InJoverc) { ! 338: char cmdbuf[128]; ! 339: register const struct cmd *cmd; ! 340: register char *cp = cmdbuf; ! 341: #if !(defined(IBMPC) || defined(MAC)) ! 342: register int c; ! 343: #else ! 344: int c; ! 345: #endif ! 346: const struct cmd *which; ! 347: size_t cmdlen; ! 348: int found = 0; ! 349: static const struct cmd *cmdhash[26]; ! 350: static int beenhere = NO; ! 351: ! 352: /* special case for prefix commands--only upper case ones */ ! 353: #define hash(c) ((c) - 'a') ! 354: ! 355: /* initialize the hash table */ ! 356: if (beenhere == NO) { ! 357: int lastc = 0; ! 358: ! 359: for (cmd = commands; cmd->Name != 0; cmd++) ! 360: if (lastc != cmd->Name[0]) { ! 361: lastc = cmd->Name[0]; ! 362: cmdhash[hash(lastc)] = cmd; ! 363: } ! 364: beenhere = YES; ! 365: } ! 366: #ifdef MAC ! 367: menus_off(); /* Block menu choices during input */ ! 368: #endif ! 369: /* gather the cmd name */ ! 370: while (((c = getch()) != EOF) && !strchr(" \t\r\n", c)) { ! 371: #if (defined(IBMPC) || defined(MAC)) ! 372: lower((char *) &c); ! 373: #else ! 374: if (isupper(c)) ! 375: c = tolower(c); ! 376: #endif ! 377: *cp++ = c; ! 378: } ! 379: if (c == EOF) ! 380: return 0; ! 381: *cp = '\0'; ! 382: cmdlen = cp - cmdbuf; ! 383: if (cmdlen == 0) ! 384: return 0; ! 385: ! 386: /* look it up (in the reduced search space) */ ! 387: if (islower(cmdbuf[0])) ! 388: for (cmd = cmdhash[hash(cmdbuf[0])]; cmd != 0 && cmd->Name[0] == cmdbuf[0]; cmd++) { ! 389: if (strncmp(cmd->Name, cmdbuf, cmdlen) == 0) { ! 390: if (strcmp(cmd->Name, cmdbuf) == 0) ! 391: return (data_obj *) cmd; ! 392: found += 1; ! 393: which = cmd; ! 394: } ! 395: } ! 396: if (found > 1) { ! 397: complain("[\"%s\" ambiguous]", cmdbuf); ! 398: /* NOTREACHED */ ! 399: } else if (found == 0) { ! 400: complain("[\"%s\" unknown]", cmdbuf); ! 401: /* NOTREACHED */ ! 402: }else ! 403: return (data_obj *) which; ! 404: } else { ! 405: static char *strings[(sizeof commands) / sizeof (commands[0])]; ! 406: static int beenhere = NO; ! 407: register int com; ! 408: ! 409: if (beenhere == NO) { ! 410: register char **strs = strings; ! 411: register const struct cmd *c; ! 412: ! 413: for (c = commands; c->Name != 0; c++) ! 414: *strs++ = c->Name; ! 415: *strs = 0; ! 416: beenhere = YES; ! 417: } ! 418: ! 419: if ((com = complete(strings, prompt, CASEIND)) < 0) ! 420: return 0; ! 421: return (data_obj *) &commands[com]; ! 422: } ! 423: #undef hash ! 424: } ! 425: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.