home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume11 / tcsh / part02 < prev    next >
Encoding:
Internet Message Format  |  1987-08-10  |  40.7 KB
  1. Path: uunet!rs
  2. From: rs@uunet.UU.NET (Rich Salz)
  3. Newsgroups: comp.sources.unix
  4. Subject: v10i002:  New version of T-shell, Part02/06
  5. Message-ID: <860@uunet.UU.NET>
  6. Date: 11 Aug 87 23:51:32 GMT
  7. Organization: UUNET Communications Services, Arlington, VA
  8. Lines: 1507
  9. Approved: rs@uunet.UU.NET
  10.  
  11. Submitted-by: Paul Placeway <pyramid!osu-eddie!paul>
  12. Posting-number: Volume 10, Issue 2
  13. Archive-name: tcsh/Part02
  14.  
  15. # This is a shell archive.  Remove anything before this line
  16. # then unpack it by saving it in a file and typing "sh file"
  17. # (Files unpacked will be owned by you and have default permissions).
  18. # This archive contains the following files:
  19. #    ./ed.init.c
  20. #    ./ed.inputl.c
  21. #    ./ed.defns.c
  22. #
  23. if `test ! -s ./ed.init.c`
  24. then
  25. echo "writing ./ed.init.c"
  26. sed 's/^x//' > ./ed.init.c << '\Rogue\Monster\'
  27. x#ifndef lint
  28. xstatic char *RCSid = "$Header: ed.init.c,v 1.2 86/01/06 21:39:48 paul Exp $";
  29. x#endif
  30. x
  31. x#include "sh.h"
  32. x#define EXTERN /*intern*/
  33. x#include "ed.h"
  34. x#include "ed.fcns.h"
  35. x
  36. x#define InputMode    CBREAK
  37. x
  38. x/* ed.init.c -- init routines for the line editor */
  39. x
  40. xwindow_change()            /* set a flag to say that the window changed */
  41. x{
  42. x    if (GettingInput) {
  43. x    ClearLines();
  44. x    ClearDisp();
  45. x    MoveToLine(0);        /* to the real beggining */
  46. x    MoveToChar(0);
  47. x    ChangeSize();        /* then get the new size */
  48. x    Refresh();
  49. x    } else {
  50. x    ChangeSize();
  51. x    }
  52. x}
  53. x
  54. x/* LPASS8 is new in 4.3, and makes cbreak mode provide all 8 bits.  */
  55. x#ifndef LPASS8
  56. x#define LPASS8 0        /* we don't have it.  Too bad!! */
  57. x#endif
  58. x
  59. x#ifndef CTRL
  60. x#define    CTRL(c)    ('c'&037)
  61. x#endif
  62. x
  63. xed_Init()
  64. x{
  65. x    static int havesetup = 0;
  66. x    ResetInLine();        /* reset the input pointers */
  67. x    LastKill = KillBuf;        /* no kill buffer */
  68. x
  69. x    CheckMaps();        /* do a little error checking on key maps */
  70. x
  71. x    if (!havesetup) {        /* if we have never been called */
  72. x    ed_InitMaps();
  73. x    Hist_num = 0;
  74. x
  75. x#ifdef SVID
  76. x    ioctl (SHIN, TCGETA, &nio);
  77. x    xio = nio;
  78. x
  79. x    if ((nio.c_oflag & TAB3) == TAB3) { /* then no tabs */
  80. x        T_Tabs = 0;
  81. x    } else {
  82. x        T_Tabs = 1;
  83. x    }
  84. x
  85. x    nio.c_iflag &= ~(INLCR | IGNCR);
  86. x    nio.c_iflag |= (ISTRIP | ICRNL);
  87. x    /* nio.c_oflag &= NOTHING TO TURN OFF */
  88. x    nio.c_oflag |= (OPOST | ONLCR | ONLRET);
  89. x    /* don't muck with c_cflag */
  90. x    nio.c_lflag &= ~(NOFLSH);
  91. x    nio.c_lflag |= (ISIG | ICANON | ECHO | ECHOE | ECHOK | ECHONL);
  92. x    nio.c_cc[VINTR] = CTRL(c);
  93. x    nio.c_cc[VQUIT] = CTRL(\\);
  94. x    nio.c_cc[VERASE] = '\177';
  95. x    nio.c_cc[VKILL] = CTRL(u);
  96. x    nio.c_cc[VEOF] = CTRL(d);
  97. x    nio.c_cc[VEOL] = 0;
  98. x    nio.c_cc[VEOL2] = 0;
  99. x# ifndef OREO
  100. x    nio.c_cc[VSWTCH] = CTRL(z);
  101. x# else OREO
  102. x    nio.c_cc[VSWTCH] = 0;
  103. x
  104. x    ioctl(SHIN, TIOCGLTC, &nlc);
  105. x    xlc = nlc;
  106. x
  107. x    nlc.t_suspc = CTRL(z);    /* stop process signal    */
  108. x    nlc.t_dsuspc = CTRL(y);    /* delayed stop process signal    */
  109. x    nlc.t_rprntc = CTRL(r);    /* reprint line */
  110. x    nlc.t_flushc = CTRL(o);    /* flush output (toggles) */
  111. x    nlc.t_werasc = CTRL(w);    /* word erase */
  112. x    nlc.t_lnextc = CTRL(v);    /* literal next character */
  113. x
  114. x#  ifdef SIGWINCH
  115. x    sigset(SIGWINCH, window_change); /* for window systems */
  116. x#  endif
  117. x# endif OREO
  118. x#else SVID
  119. x    ioctl(SHIN, TIOCGETP, &nb);    /* normal setup */
  120. x    xb = nb;            /* new setup */
  121. x    ioctl(SHIN, TIOCGETC, &ntc);
  122. x    xtc = ntc;
  123. x    ioctl(SHIN, TIOCGETD, &nli);
  124. x    xl = nli;
  125. x    ioctl(SHIN, TIOCGLTC, &nlc);
  126. x    xlc = nlc;
  127. x    ioctl(SHIN, TIOCLGET, &nlb);
  128. x    xlb = nlb;
  129. x
  130. x    if ((xb.sg_flags & XTABS) == XTABS) { /* check for no tabs mode */
  131. x        T_Tabs = 0;
  132. x    } else {
  133. x        T_Tabs = 1;
  134. x    }
  135. x
  136. x    if (T_Tabs) {        /* order of &= and |= is important to XTABS */
  137. x        nb.sg_flags &= ~(CBREAK | RAW | LCASE | XTABS | VTDELAY | ALLDELAY);
  138. x        nb.sg_flags |= (ECHO | CRMOD | ANYP);
  139. x    } else {
  140. x        nb.sg_flags &= ~(CBREAK | RAW | LCASE | VTDELAY | ALLDELAY);
  141. x        nb.sg_flags |= (ECHO | CRMOD | XTABS | ANYP);
  142. x    }
  143. x    nlb &= ~(LPRTERA | LLITOUT | LPASS8); /* never pass meta to cmds */
  144. x    nlb |= (LCRTBS | LCRTERA | LCRTKIL);
  145. x
  146. x    nb.sg_erase = '\177';    /* del prev. char == DEL */
  147. x    nb.sg_kill = CTRL(u);    /* special case of del region */
  148. x
  149. x    ntc.t_intrc = CTRL(c);    /* SIGINTR */
  150. x    ntc.t_quitc = CTRL(\\);    /* SIGQUIT */
  151. x    ntc.t_startc = CTRL(q);    /* start output */
  152. x    ntc.t_stopc = CTRL(s);    /* stop output    */
  153. x    ntc.t_eofc = CTRL(d);    /* no eof char during input... */
  154. x    ntc.t_brkc = -1;    /* input delimiter (like nl) */
  155. x
  156. x    nlc.t_suspc = CTRL(z);    /* stop process signal    */
  157. x    nlc.t_dsuspc = CTRL(y);    /* delayed stop process signal    */
  158. x    nlc.t_rprntc = CTRL(r);    /* reprint line */
  159. x    nlc.t_flushc = CTRL(o);    /* flush output (toggles) */
  160. x    nlc.t_werasc = CTRL(w);    /* word erase */
  161. x    nlc.t_lnextc = CTRL(v);    /* literal next character */
  162. x
  163. x# ifdef SIGWINCH
  164. x    sigset(SIGWINCH, window_change); /* for window systems */
  165. x# endif
  166. x#endif SVID
  167. x    }
  168. x
  169. x    /* if we have been called before, our TERM has changed, so get new
  170. x       termcaps and try again */
  171. x
  172. x    GetTermCaps();    /* does the obvious, but gets term type each time */
  173. x
  174. x#ifdef SVID
  175. x    if (T_HasMeta) {        /* if I have a meta key */
  176. x    xio.c_iflag &= ~(IGNCR | ISTRIP);
  177. x    xio.c_iflag |= (INLCR | ICRNL);
  178. x    } else {
  179. x    xio.c_iflag &= ~(IGNCR);
  180. x    xio.c_iflag |= (INLCR | ISTRIP | ICRNL);
  181. x    }
  182. x    /* xio.c_oflag &= ~(); */
  183. x    xio.c_oflag |= (OPOST | ONLCR | ONLRET);
  184. x    xio.c_lflag &= ~(NOFLSH | ICANON | ECHO | ECHOE | ECHOK | ECHONL);
  185. x    xio.c_lflag |= (ISIG);
  186. x    xio.c_cc[VINTR] = CTRL(c);
  187. x    xio.c_cc[VQUIT] = CTRL(\\);
  188. x    xio.c_cc[VERASE] = '\177';
  189. x    xio.c_cc[VKILL] = CTRL(u);
  190. x    xio.c_cc[VEOL2] = 0;
  191. x
  192. x    xio.c_cc[VMIN] = 1;    /* one char at a time input */
  193. x    xio.c_cc[VTIME] = 0;    /* don't time out */
  194. x
  195. x# ifdef OREO
  196. x    xlc.t_suspc = CTRL(z);    /* stop process signal    */
  197. x    xlc.t_dsuspc = -1;        /* delayed stop process signal    */
  198. x    xlc.t_rprntc = -1;        /* reprint line */
  199. x    xlc.t_flushc = CTRL(o);    /* flush output */
  200. x    xlc.t_werasc = -1;        /* word erase */
  201. x    xlc.t_lnextc = -1;        /* literal next character */
  202. x# endif OREO
  203. x#else SVID
  204. x    if (xl != NTTYDISC) {    /* this will flush type-ahead, so don't if */
  205. x                /* it can be avoided. */
  206. x    xl = NTTYDISC;        /* new tty driver */
  207. x    ioctl(SHIN, TIOCSETD, &xl); /* set line DISC. FIRST */
  208. x    }
  209. x
  210. x    if (T_Tabs) {        /* order of &= and |= is important to XTABS */
  211. x    xb.sg_flags &= ~(RAW | ECHO | LCASE | XTABS | VTDELAY | ALLDELAY);
  212. x    xb.sg_flags |= (CBREAK | CRMOD | ANYP);
  213. x    } else {
  214. x    xb.sg_flags &= ~(RAW | ECHO | LCASE | VTDELAY | ALLDELAY);
  215. x    xb.sg_flags |= (CBREAK | CRMOD | ANYP | XTABS);
  216. x    }
  217. x
  218. x    xb.sg_erase = '\177';    /* del prev. char == DEL */
  219. x    xb.sg_kill = CTRL(w);    /* special case of del region */
  220. x
  221. x    xtc.t_intrc = CTRL(c);    /* SIGINTR */
  222. x    xtc.t_quitc = CTRL(\\);    /* SIGQUIT */
  223. x    xtc.t_startc = CTRL(q);    /* start output */
  224. x    xtc.t_stopc = CTRL(s);    /* stop output    */
  225. x    xtc.t_eofc = -1;        /* no eof char during input... */
  226. x    xtc.t_brkc = -1;        /* input delimiter (like nl) */
  227. x    
  228. x    xlc.t_suspc = CTRL(z);    /* stop process signal    */
  229. x    xlc.t_dsuspc = -1;        /* delayed stop process signal    */
  230. x    xlc.t_rprntc = -1;        /* reprint line */
  231. x    xlc.t_flushc = CTRL(o);    /* flush output */
  232. x    xlc.t_werasc = -1;        /* word erase */
  233. x    xlc.t_lnextc = -1;        /* literal next character */
  234. x
  235. x    if (T_HasMeta) {        /* if I have a meta key */
  236. x    xlb &= ~(LPRTERA | LLITOUT);
  237. x    xlb |= (LCRTBS | LCRTERA | LCRTKIL | LPASS8);
  238. x    } else {            /* if I may be running parity */
  239. x    xlb &= ~(LPRTERA | LLITOUT | LPASS8);
  240. x    xlb |= (LCRTBS | LCRTERA | LCRTKIL);
  241. x    }
  242. x#endif SVID
  243. x    havesetup = 1;
  244. x}
  245. x
  246. xstatic int
  247. xsetkey(tcp, ncp)
  248. xchar *tcp, *ncp;
  249. x{
  250. x    if ((*tcp & 0377) > 0 && (*tcp & 0377) < 0377) {
  251. x    if (*ncp != *tcp) {
  252. x        *ncp = *tcp;
  253. x        return 1;
  254. x    }
  255. x    } else {
  256. x    return 0;
  257. x    }
  258. x}
  259. x
  260. xint
  261. xRawmode()            /* used to check and re-init the line. */
  262. x{                /* set the terminal into 1charatatime mode. */
  263. x#ifdef SVID
  264. x    if (ioctl (SHIN, TCGETA, &testio) < 0)
  265. x    return (-1);        /* SHIN has been closed */
  266. x    if (testio.c_cflag != nio.c_cflag) { /* prob. changed speeds */
  267. x    nio.c_cflag = testio.c_cflag;
  268. x    xio.c_cflag = testio.c_cflag;
  269. x    }
  270. x    if ((testio.c_lflag != nio.c_lflag) &&
  271. x    (testio.c_lflag != xio.c_lflag)) {
  272. x
  273. x    nio.c_lflag = testio.c_lflag;
  274. x    nio.c_lflag &= ~(NOFLSH);
  275. x    nio.c_lflag |= (ISIG | ICANON | ECHO | ECHOE | ECHOK | ECHONL);
  276. x    xio.c_lflag = testio.c_lflag;
  277. x    xio.c_lflag &= ~(NOFLSH | ICANON | ECHO | ECHOE | ECHOK | ECHONL);
  278. x    xio.c_lflag |= (ISIG);
  279. x    }
  280. x    if (setkey(&testio.c_cc[VINTR], &nio.c_cc[VINTR]))
  281. x    setkey(&testio.c_cc[VINTR], &xio.c_cc[VINTR]);
  282. x    if (setkey(&testio.c_cc[VQUIT], &nio.c_cc[VQUIT]))
  283. x    setkey(&testio.c_cc[VQUIT], &xio.c_cc[VQUIT]);
  284. x    setkey(&testio.c_cc[VERASE], &nio.c_cc[VERASE]);
  285. x    setkey(&testio.c_cc[VKILL], &nio.c_cc[VKILL]);
  286. x    if (testio.c_cc[VEOF] != 1)    { /* 'cause VEOL == VNUM, and 1 is raw mode */
  287. x    setkey(&testio.c_cc[VEOF], &nio.c_cc[VEOF]);
  288. x    setkey(&testio.c_cc[VEOL], &nio.c_cc[VEOL]);
  289. x    }
  290. x    if (setkey (&testio.c_cc[VSWTCH], &nio.c_cc[VSWTCH]))
  291. x    setkey (&testio.c_cc[VSWTCH], &xio.c_cc[VSWTCH]);
  292. x
  293. x# ifdef OREO
  294. x
  295. x    /* get and set the new local chars */
  296. x    ioctl (SHIN, TIOCGLTC, &testlc);
  297. x    if (setkey(&testlc.t_suspc, &nlc.t_suspc))
  298. x    xlc.t_suspc = nlc.t_suspc;
  299. x    setkey (&testlc.t_dsuspc, &nlc.t_dsuspc);
  300. x    setkey (&testlc.t_rprntc, &nlc.t_rprntc);
  301. x    if (setkey(&testlc.t_flushc, &nlc.t_flushc))
  302. x    xlc.t_flushc = nlc.t_flushc;
  303. x    setkey (&testlc.t_werasc, &nlc.t_werasc);
  304. x    setkey (&testlc.t_rprntc, &nlc.t_rprntc);
  305. x
  306. x    ioctl(SHIN, TIOCSLTC, &xlc);
  307. x# endif OREO
  308. x    ioctl(SHIN, TCSETAW, &xio);
  309. x
  310. x#else SVID            /* for BSD... */
  311. x
  312. x    if (ioctl(SHIN, TIOCGETP, &testsgb) < 0)    /* test the normal flags */
  313. x    return -1;        /* if the SHIN has been closed */
  314. x    if (testsgb.sg_ispeed != nb.sg_ispeed) {
  315. x    nb.sg_ispeed = testsgb.sg_ispeed;
  316. x    xb.sg_ispeed = testsgb.sg_ispeed;
  317. x    }
  318. x    if (testsgb.sg_ospeed != nb.sg_ospeed) {
  319. x    nb.sg_ospeed = testsgb.sg_ospeed;
  320. x    xb.sg_ospeed = testsgb.sg_ospeed;
  321. x    }
  322. x    if ((testsgb.sg_flags != nb.sg_flags) && 
  323. x    (testsgb.sg_flags != xb.sg_flags)) {
  324. x
  325. x    nb.sg_flags = testsgb.sg_flags;
  326. x    if (T_Tabs) {        /* order of &= and |= is important to XTABS */
  327. x        nb.sg_flags &= ~(CBREAK | RAW | LCASE | XTABS | VTDELAY | ALLDELAY);
  328. x        nb.sg_flags |= (ECHO | CRMOD | ANYP);
  329. x    } else {
  330. x        nb.sg_flags &= ~(CBREAK | RAW | LCASE | VTDELAY | ALLDELAY);
  331. x        nb.sg_flags |= (ECHO | CRMOD | XTABS | ANYP);
  332. x    }
  333. x 
  334. x    xb.sg_flags = testsgb.sg_flags;
  335. x    if (T_Tabs) {
  336. x        xb.sg_flags &= ~(RAW| ECHO | LCASE | XTABS | VTDELAY | ALLDELAY);
  337. x        xb.sg_flags |= (CBREAK | CRMOD | ANYP);
  338. x    } else {
  339. x        xb.sg_flags &= ~(RAW | ECHO | LCASE | VTDELAY | ALLDELAY);
  340. x        xb.sg_flags |= (CBREAK | CRMOD | ANYP | XTABS);
  341. x    }
  342. x    }
  343. x    setkey(&testsgb.sg_erase, &nb.sg_erase);
  344. x    setkey(&testsgb.sg_kill, &nb.sg_kill);
  345. x
  346. x    /* get and set the terminal characters */
  347. x    ioctl(SHIN, TIOCGETC, &testtc);
  348. x    if (setkey(&testtc.t_intrc, &ntc.t_intrc))
  349. x    xtc.t_intrc = ntc.t_intrc;
  350. x    if (setkey(&testtc.t_quitc, &ntc.t_quitc))
  351. x    xtc.t_quitc = ntc.t_quitc;
  352. x    if (setkey(&testtc.t_startc, &ntc.t_startc))
  353. x    xtc.t_startc = ntc.t_startc;
  354. x    if (setkey(&testtc.t_stopc, &ntc.t_stopc))
  355. x    xtc.t_stopc = ntc.t_stopc;
  356. x    setkey(&testtc.t_eofc, &ntc.t_eofc);
  357. x    setkey(&testtc.t_brkc, &ntc.t_brkc);
  358. x
  359. x    ioctl(SHIN, TIOCLGET, &testnlb);
  360. x    if ((testnlb != nlb) && (testnlb != xlb)) {
  361. x    nlb = testnlb;
  362. x    nlb &= ~(LPRTERA | LLITOUT | LPASS8);
  363. x    nlb |= (LCRTBS | LCRTERA | LCRTKIL);
  364. x
  365. x    xlb = testnlb;
  366. x
  367. x    xlb &= ~(LPRTERA | LLITOUT);
  368. x    xlb |= (LCRTBS | LCRTERA | LCRTKIL | LPASS8);
  369. x    }
  370. x
  371. x    /* get and set the new local chars */
  372. x    ioctl (SHIN, TIOCGLTC, &testlc);
  373. x    if (setkey(&testlc.t_suspc, &nlc.t_suspc))
  374. x    xlc.t_suspc = nlc.t_suspc;
  375. x    setkey (&testlc.t_dsuspc, &nlc.t_dsuspc);
  376. x    setkey (&testlc.t_rprntc, &nlc.t_rprntc);
  377. x    if (setkey(&testlc.t_flushc, &nlc.t_flushc))
  378. x    xlc.t_flushc = nlc.t_flushc;
  379. x    setkey (&testlc.t_werasc, &nlc.t_werasc);
  380. x    setkey (&testlc.t_rprntc, &nlc.t_rprntc);
  381. x
  382. x    ioctl(SHIN, TIOCSETN, &xb);
  383. x    ioctl(SHIN, TIOCSETC, &xtc);
  384. x    ioctl(SHIN, TIOCSLTC, &xlc);
  385. x    ioctl(SHIN, TIOCLSET, &xlb);
  386. x#endif SVID
  387. x    return 0;
  388. x}
  389. x
  390. xCookedmode()            /* set tty in normal setup */
  391. x{
  392. x    int orig_intr;
  393. x
  394. x/*NOSTRICT*/
  395. x    orig_intr = (int) signal(SIGINT, SIG_IGN);  /* hold this for reseting tty */
  396. x#ifdef SVID
  397. x    ioctl(SHIN, TCSETAW, &nio);
  398. x# ifdef OREO
  399. x    ioctl(SHIN, TIOCSLTC, &nlc);
  400. x# endif OREO
  401. x#else SVID            /* for BSD... */
  402. x    ioctl(SHIN, TIOCSETN, &nb);
  403. x    ioctl(SHIN, TIOCSETC, &ntc);
  404. x    ioctl(SHIN, TIOCSLTC, &nlc);
  405. x    ioctl(SHIN, TIOCLSET, &nlb);
  406. x
  407. x/*NOSTRICT*/
  408. x    signal(SIGINT, orig_intr);        /* take these again */
  409. x#endif SVID
  410. x}
  411. x
  412. xResetInLine()
  413. x{
  414. x    Cursor = InputBuf;    /* reset cursor */
  415. x    LastChar = InputBuf;
  416. x    InputLim = &InputBuf[INBUFSIZ-2];
  417. x    Mark = InputBuf;
  418. x    QuoteNext = 0;
  419. x    MetaNext = 0;
  420. x    StickyMeta = 0;
  421. x    Hist_num = 0;
  422. x    DoingArg = 0;
  423. x    Argument = 1;
  424. x    /* LastKill = KillBuf;        /* no kill buffer */
  425. x    LastCmd = F_UNASSIGNED;    /* previous command executed */
  426. x}
  427. \Rogue\Monster\
  428. else
  429.   echo "will not over write ./ed.init.c"
  430. fi
  431. if [ `wc -c ./ed.init.c | awk '{printf $1}'` -ne 11772 ]
  432. then
  433. echo `wc -c ./ed.init.c | awk '{print "Got " $1 ", Expected " 11772}'`
  434. fi
  435. if `test ! -s ./ed.inputl.c`
  436. then
  437. echo "writing ./ed.inputl.c"
  438. sed 's/^x//' > ./ed.inputl.c << '\Rogue\Monster\'
  439. x#ifndef lint
  440. xstatic char *RCSid = "$Header: ed.inputl.c,v 1.2 86/01/06 21:39:54 paul Exp $";
  441. x#endif
  442. x
  443. x#include "sh.h"
  444. x#include "ed.h"
  445. x#define MAKE_TWENEX        /* to get extra defines, etc. */
  446. x#define NO_INCL
  447. x#include "tw.h"            /* for twenex stuff */
  448. x
  449. x#define CHECK_ERRS
  450. x
  451. x/* ed.inputl -- routines to get a single line from the input. */
  452. x
  453. xchar *index();
  454. xextern bool tellwhat;
  455. x
  456. x/* CCRETVAL */
  457. xint
  458. xInputl()
  459. x{
  460. x    register int c;
  461. x    register char *cp;
  462. x    CCRETVAL retval, e_insert();
  463. x    KEYCMD cmdnum;
  464. x    extern KEYCMD NumFuns;
  465. x    unsigned char ch;        /* the place where read() goes */
  466. x    int num;            /* how many chars we have read at NL */
  467. x
  468. x    ClearDisp();        /* reset the display stuff */
  469. x    ResetInLine();        /* reset the input pointers */
  470. x    if (Rawmode() < 0)        /* make sure the tty is set up correctly */
  471. x    return 0;        /* oops: SHIN was closed */
  472. x
  473. x    GettingInput = 1;
  474. x    NeedsRedraw = 0;
  475. x    if (tellwhat) {
  476. x     copyn(InputBuf, WhichBuf, INBUFSIZ);
  477. x    LastChar = InputBuf + (LastWhich - WhichBuf);
  478. x    Cursor = InputBuf + (CursWhich - WhichBuf);
  479. x    tellwhat = 0;
  480. x    }
  481. x    Refresh();            /* print the prompt */
  482. x
  483. x    for(;;) {            /* while still editing this line */
  484. x    if (read(SHIN, &ch, 1) != 1) {        /* if EOF or error */
  485. x        Cookedmode();    /* make sure the tty is set up correctly */
  486. x        GettingInput = 0;
  487. x        return 0;
  488. x    }
  489. x
  490. x    c = ch & 0377;
  491. x
  492. x#ifdef CHECK_ERRS
  493. x    if (Cursor > LastChar)
  494. x        printf("Cursor > LastChar\r\n");
  495. x    if (Cursor < InputBuf)
  496. x        printf("Cursor < InputBuf\r\n");
  497. x    if (Cursor > InputLim)
  498. x        printf ("Cursor > InputLim\r\n");
  499. x    if (LastChar > InputLim)
  500. x        printf ("LastChar > InputLim\r\n");
  501. x    if (InputLim != &InputBuf[INBUFSIZ-2])
  502. x        printf  ("InputLim != &InputBuf[INBUFSIZ-2]\r\n");
  503. x    if ((!DoingArg) && (Argument != 1))
  504. x        printf ("(!DoingArg) && (Argument != 1)\r\n");
  505. x#endif
  506. x
  507. x    if (QuoteNext) {
  508. x        QuoteNext = 0;
  509. x        retval = e_insert(c);
  510. x    } else {        /* not quoteing next */
  511. x        if (MetaNext) {
  512. x            MetaNext = 0;
  513. x        c |= 0200;        /* set the meta bit */
  514. x        }
  515. x        if (StickyMeta) {    /* for vi mode */
  516. x        c |= 0200;
  517. x        }
  518. x
  519. x        /* first indirection -- look in keymap */
  520. x        cmdnum = CcKeyMap[c];
  521. x        if (cmdnum < 0 || cmdnum >= NumFuns) { /* BUG CHECK command */
  522. x        printf ("ERROR: illegal command from key 0%o\r\n", c);
  523. x        continue;        /* try again */
  524. x        }
  525. x        /* now do the real command */
  526. x        retval = (*CcFuncTbl[cmdnum])(c);
  527. x    }
  528. x    /* save the last command here */
  529. x    LastCmd = cmdnum;
  530. x
  531. x    /* use any return value */
  532. x    switch (retval) {
  533. x
  534. x      case CC_NORM:        /* normal char */
  535. x        break;        /* keep going... */
  536. x        
  537. x      case CC_EOF:        /* end of file typed */
  538. x        Cookedmode();    /* make sure the tty is set up correctly */
  539. x        GettingInput = 0;
  540. x        PromptBuf[0] = '\0';
  541. x        return 0;
  542. x
  543. x      case CC_WHICH:    /* tell what this command does */
  544. x        tellwhat = 1;
  545. x        copyn(WhichBuf, InputBuf, INBUFSIZ);
  546. x        LastWhich = WhichBuf + (LastChar - InputBuf);
  547. x        CursWhich = WhichBuf + (Cursor - InputBuf);
  548. x        *LastChar++ = '\n';    /* for the benifit of CSH */
  549. x        Cookedmode();    /* make sure the tty is set up correctly */
  550. x        Hist_num = 0;    /* for the history commands */
  551. x        num = LastChar - InputBuf;
  552. x        ResetInLine();    /* reset the input pointers */
  553. x        GettingInput = 0;
  554. x        return (num); /* return the number of chars read */
  555. x
  556. x      case CC_NEWLINE:    /* normal end of line */
  557. x        tellwhat = 0;    /* just in case */
  558. x        Cookedmode();    /* make sure the tty is set up correctly */
  559. x        Hist_num = 0;    /* for the history commands */
  560. x        num = LastChar - InputBuf;
  561. x        ResetInLine();    /* reset the input pointers */
  562. x        GettingInput = 0;
  563. x        PromptBuf[0] = '\0';
  564. x        return (num); /* return the number of chars read */
  565. x
  566. x      case CC_CORRECT:
  567. x        if (tenematch (InputBuf, INBUFSIZ, Cursor-InputBuf,
  568. x               SPELL) != 1)
  569. x        Beep ();    /* Beep = No match/ambiguous */
  570. x        if (NeedsRedraw) {
  571. x        ClearLines();
  572. x        ClearDisp();
  573. x        NeedsRedraw = 0;
  574. x        }
  575. x        Refresh();
  576. x        break;
  577. x
  578. x      case CC_COMPLETE:
  579. x        if (tenematch (InputBuf, INBUFSIZ, Cursor-InputBuf,
  580. x               RECOGNIZE) != 1)
  581. x        Beep ();    /* Beep = No match/ambiguous */
  582. x        if (NeedsRedraw) {
  583. x        ClearLines();
  584. x        ClearDisp();
  585. x        NeedsRedraw = 0;
  586. x        }
  587. x        Refresh();
  588. x        break;
  589. x
  590. x      case CC_LIST_CHOICES:
  591. x        Cookedmode();    /* make sure the tty is set up correctly */
  592. x        /* should catch ^C here... */
  593. x        tenematch (InputBuf, INBUFSIZ, Cursor-InputBuf, LIST);
  594. x        Rawmode();
  595. x        Refresh();
  596. x        break;
  597. x
  598. x      case CC_UP_HIST:
  599. x        gouphist();
  600. x        Refresh();
  601. x        break;
  602. x
  603. x      case CC_DOWN_HIST:
  604. x        godownhist();
  605. x        Refresh();
  606. x        break;
  607. x
  608. x      case CC_UP_SEARCH_HIST:
  609. x      case CC_DOWN_SEARCH_HIST:
  610. x        break;
  611. x
  612. x      case CC_HELPME:
  613. x        Cookedmode();    /* make sure the tty is set up correctly */
  614. x        putchar ('\n');
  615. x        /* should catch ^C here... */
  616. x        tenematch (InputBuf, INBUFSIZ, LastChar-InputBuf, PRINT_HELP);
  617. x        Rawmode();
  618. x        Refresh();
  619. x        break;
  620. x
  621. x      case CC_FATAL:    /* fatal error, reset to known state */
  622. x        printf ("*** editor fatal ERROR ***\r\n\n");
  623. x                    /* put (real) cursor in a known place */
  624. x        ClearDisp();        /* reset the display stuff */
  625. x        ResetInLine();        /* reset the input pointers */
  626. x        Refresh();            /* print the prompt again */
  627. x        break;
  628. x
  629. x      case CC_ERROR:
  630. x      default:        /* functions we don't know about */
  631. x        DoingArg = 0;
  632. x        Argument = 1;
  633. x        Beep();
  634. x        flush();
  635. x        break;
  636. x    }
  637. x    }
  638. x/*NOTREACHED*/
  639. x}
  640. x
  641. xgouphist()
  642. x{
  643. x    struct Hist *hp;
  644. x    int hnumcntr;
  645. x
  646. x    if (Hist_num == 0) {
  647. x    copyn(HistBuf, InputBuf, INBUFSIZ);
  648. x    LastHist = HistBuf + (LastChar - InputBuf);
  649. x    }
  650. x
  651. x    hp = Histlist.Hnext;
  652. x    if (hp == (struct Hist *)0) {
  653. x    printf ("no hp\n");
  654. x    Beep();
  655. x    return;
  656. x    }
  657. x
  658. x    Hist_num++;
  659. x    for (hnumcntr = 1; hnumcntr < Hist_num; hnumcntr++) {
  660. x    if ((hp->Hnext) == (struct Hist *)0) {
  661. x        Beep();
  662. x        Hist_num--;
  663. x        break;
  664. x    }
  665. x    hp = hp -> Hnext;
  666. x    }
  667. x
  668. x    sprlex (InputBuf, &hp->Hlex);
  669. x    LastChar = InputBuf + strlen(InputBuf);
  670. x    if (LastChar > InputBuf) {
  671. x    if (LastChar[-1] == '\n') LastChar--;
  672. x    if (LastChar[-1] == ' ') LastChar--;
  673. x    if (LastChar < InputBuf) LastChar = InputBuf;
  674. x    }
  675. x    Cursor = LastChar;
  676. x}
  677. x
  678. xgodownhist()
  679. x{
  680. x    struct Hist *hp;
  681. x    int hnumcntr;
  682. x
  683. x    if (Hist_num == 0) {
  684. x    Beep();
  685. x    return;
  686. x    }
  687. x
  688. x    if (Hist_num == 1) {
  689. x    copyn(InputBuf, HistBuf, INBUFSIZ);
  690. x    LastChar = InputBuf + (LastHist - HistBuf);
  691. x    Hist_num--;
  692. x    Cursor = LastChar;
  693. x    return;
  694. x    }
  695. x
  696. x    hp = Histlist.Hnext;
  697. x    if (hp == 0) {
  698. x    Beep();
  699. x    return;
  700. x    }
  701. x    Hist_num--;
  702. x    for (hnumcntr = 1; hnumcntr < Hist_num; hnumcntr++) {
  703. x    if ((hp->Hnext) == 0) break;
  704. x    hp = hp -> Hnext;
  705. x    }
  706. x
  707. x    sprlex (InputBuf, &hp->Hlex);
  708. x    LastChar = InputBuf + strlen(InputBuf);
  709. x    if (LastChar > InputBuf) {
  710. x    if (LastChar[-1] == '\n') LastChar--;
  711. x    if (LastChar[-1] == ' ') LastChar--;
  712. x    if (LastChar < InputBuf) LastChar = InputBuf;
  713. x    }
  714. x    Cursor = LastChar;
  715. x}
  716. \Rogue\Monster\
  717. else
  718.   echo "will not over write ./ed.inputl.c"
  719. fi
  720. if [ `wc -c ./ed.inputl.c | awk '{printf $1}'` -ne 6748 ]
  721. then
  722. echo `wc -c ./ed.inputl.c | awk '{print "Got " $1 ", Expected " 6748}'`
  723. fi
  724. if `test ! -s ./ed.defns.c`
  725. then
  726. echo "writing ./ed.defns.c"
  727. sed 's/^x//' > ./ed.defns.c << '\Rogue\Monster\'
  728. x#ifndef lint
  729. xstatic char *RCSid = "$Header: ed.defns.c,v 1.2 86/01/06 21:40:02 paul Exp $";
  730. x#endif
  731. x
  732. x#include "sh.h"
  733. x#define ED_DEFNS        /* hack to avoid problems with externs */
  734. x#include "ed.h"
  735. x
  736. x/* ed.defns -- CcFuncTbl and CcKeyMap defined */
  737. x
  738. xextern CCRETVAL
  739. x    e_unassigned(),
  740. x    e_insert(),
  741. x    e_newline(),
  742. x    e_delprev(),
  743. x    e_delnext(),
  744. x    e_list_delnext(),        /* for ^D */
  745. x    e_toend(),
  746. x    e_tobeg(),
  747. x    e_charback(),
  748. x    e_charfwd(),
  749. x    e_quote(),
  750. x    e_startover(),
  751. x    e_redisp(),
  752. x    e_wordback(),
  753. x    e_wordfwd(),
  754. x    e_cleardisp(),
  755. x    e_complete(),
  756. x    e_correct(),
  757. x    e_up_hist(),
  758. x    e_down_hist(),
  759. x    e_up_search_hist(),
  760. x    e_down_search_hist(),
  761. x    e_helpme(),
  762. x    e_list_choices(),
  763. x    e_delwordprev(),
  764. x    e_delwordnext(),
  765. x    e_digit(),
  766. x    e_argdigit(),
  767. x    e_killend(),
  768. x    e_killbeg(),
  769. x    e_metanext(),
  770. x    e_send_eof(),
  771. x    e_charswitch(),
  772. x    e_which(),
  773. x    e_yank_kill(),
  774. x    e_tty_dsusp(),
  775. x    e_tty_flusho(),
  776. x    e_tty_quit(),
  777. x    e_tty_tsusp(),
  778. x    e_tty_stopo(),
  779. x    e_tty_starto(),
  780. x    e_argfour(),
  781. x    e_set_mark(),
  782. x    e_exchange_mark(),
  783. x    e_last_item(),
  784. x    e_vi_cmd_mode(),
  785. x    e_vi_insert(),
  786. x    e_killregion(),
  787. x    e_copyregion(),
  788. x    e_tty_int();
  789. x
  790. xPFCmd CcFuncTbl[] = {    /* table of available commands */
  791. x    e_unassigned,
  792. x#define        F_UNASSIGNED    0
  793. x    e_insert,
  794. x#define        F_INSERT    1
  795. x    e_newline,
  796. x#define        F_NEWLINE    2
  797. x    e_delprev,
  798. x#define        F_DELPREV    3
  799. x    e_delnext,
  800. x#define        F_DELNEXT    4
  801. x    e_toend,
  802. x#define        F_TOEND        5
  803. x    e_tobeg,
  804. x#define        F_TOBEG        6
  805. x    e_charback,
  806. x#define        F_CHARBACK    7
  807. x    e_charfwd,
  808. x#define        F_CHARFWD    8
  809. x    e_quote,
  810. x#define        F_QUOTE        9
  811. x    e_startover,
  812. x#define        F_STARTOVER    10
  813. x    e_redisp,
  814. x#define        F_REDISP    11
  815. x    e_tty_int,
  816. x#define        F_TTY_INT    12
  817. x    e_wordback,
  818. x#define        F_WORDBACK    13
  819. x    e_wordfwd,
  820. x#define        F_WORDFWD    14
  821. x    e_cleardisp,
  822. x#define        F_CLEARDISP    15
  823. x    e_complete,
  824. x#define        F_COMPLETE    16
  825. x    e_correct,
  826. x#define        F_CORRECT    17
  827. x    e_up_hist,
  828. x#define        F_UP_HIST    18
  829. x    e_down_hist,
  830. x#define        F_DOWN_HIST    19
  831. x    e_up_search_hist,
  832. x#define        F_UP_SEARCH_HIST    20
  833. x    e_down_search_hist,
  834. x#define        F_DOWN_SEARCH_HIST    21
  835. x    e_helpme,
  836. x#define        F_HELPME    22
  837. x    e_list_choices,
  838. x#define        F_LIST_CHOICES    23
  839. x    e_delwordprev,
  840. x#define        F_DELWORDPREV    24
  841. x    e_delwordnext,
  842. x#define        F_DELWORDNEXT    25
  843. x    e_digit,
  844. x#define        F_DIGIT        26
  845. x    e_killend,
  846. x#define        F_KILLEND    27
  847. x    e_killbeg,
  848. x#define        F_KILLBEG    28
  849. x    e_metanext,
  850. x#define        F_METANEXT    29
  851. x    e_send_eof,
  852. x#define        F_SEND_EOF    30
  853. x    e_charswitch,
  854. x#define        F_CHARSWITCH    31
  855. x    e_which,
  856. x#define        F_WHICH        32
  857. x    e_yank_kill,
  858. x#define        F_YANK_KILL    33
  859. x    e_tty_dsusp,
  860. x#define        F_TTY_DSUSP    34
  861. x    e_tty_flusho,
  862. x#define        F_TTY_FLUSHO    35
  863. x    e_tty_quit,
  864. x#define        F_TTY_QUIT    36
  865. x    e_tty_tsusp,
  866. x#define        F_TTY_TSUSP    37
  867. x    e_tty_stopo,
  868. x#define        F_TTY_STOPO    38
  869. x    e_tty_starto,
  870. x#define        F_TTY_STARTO    39
  871. x    e_argfour,
  872. x#define        F_ARGFOUR    40
  873. x    e_set_mark,
  874. x#define        F_SET_MARK    41
  875. x    e_exchange_mark,
  876. x#define        F_EXCHANGE_MARK    42
  877. x    e_last_item,
  878. x#define        F_LAST_ITEM    43
  879. x    e_list_delnext,
  880. x#define        F_LIST_DELNEXT    44
  881. x    e_vi_cmd_mode,
  882. x#define        F_VI_CMD_MODE    45
  883. x    e_vi_insert,
  884. x#define        F_VI_INSERT    46
  885. x    e_argdigit,
  886. x#define        F_ARGDIGIT    47
  887. x    e_killregion,
  888. x#define        F_KILLREGION    48
  889. x    e_copyregion,
  890. x#define        F_COPYREGION    49
  891. x    0                /* DUMMY VALUE */
  892. x#define        F_NUM_FNS    50
  893. x};
  894. x
  895. xKEYCMD    NumFuns = F_NUM_FNS;
  896. x
  897. xKEYCMD CcKeyMap[256];        /* the real key map */
  898. x
  899. xKEYCMD CcEmacsMap[] = {
  900. x/* keymap table, each index into above tbl; should be 256*sizeof(KEYCMD)
  901. x   bytes long */
  902. x
  903. x    F_SET_MARK,            /* ^@ */
  904. x    F_TOBEG,            /* ^A */
  905. x    F_CHARBACK,            /* ^B */
  906. x    F_TTY_INT,            /* ^C */
  907. x    F_LIST_DELNEXT,        /* ^D */
  908. x    F_TOEND,            /* ^E */
  909. x    F_CHARFWD,            /* ^F */
  910. x    F_STARTOVER,        /* ^G */
  911. x    F_DELPREV,            /* ^H */
  912. x    F_COMPLETE,            /* ^I */
  913. x    F_NEWLINE,            /* ^J */
  914. x    F_KILLEND,            /* ^K */
  915. x    F_CLEARDISP,        /* ^L */
  916. x    F_NEWLINE,            /* ^M */
  917. x    F_DOWN_HIST,        /* ^N */
  918. x    F_TTY_FLUSHO,        /* ^O */
  919. x    F_UP_HIST,            /* ^P */
  920. x    F_TTY_STARTO,        /* ^Q */
  921. x    F_REDISP,            /* ^R */
  922. x    F_TTY_STOPO,        /* ^S */
  923. x    F_CHARSWITCH,        /* ^T */
  924. x    F_ARGFOUR,            /* ^U */
  925. x    F_QUOTE,            /* ^V */
  926. x    F_KILLREGION,        /* ^W */
  927. x    F_EXCHANGE_MARK,        /* ^X */
  928. x    F_YANK_KILL,        /* ^Y */
  929. x    F_TTY_TSUSP,        /* ^Z */
  930. x    F_METANEXT,            /* ^[ */
  931. x    F_TTY_QUIT,            /* ^\ */
  932. x    F_TTY_DSUSP,        /* ^] */
  933. x    F_UNASSIGNED,        /* ^^ */
  934. x    F_UNASSIGNED,        /* ^_ */
  935. x    F_INSERT,            /* SPACE */
  936. x    F_INSERT,            /* ! */
  937. x    F_INSERT,            /* " */
  938. x    F_INSERT,            /* # */
  939. x    F_INSERT,            /* $ */
  940. x    F_INSERT,            /* % */
  941. x    F_INSERT,            /* & */
  942. x    F_INSERT,            /* ' */
  943. x    F_INSERT,            /* ( */
  944. x    F_INSERT,            /* ) */
  945. x    F_INSERT,            /* * */
  946. x    F_INSERT,            /* + */
  947. x    F_INSERT,            /* , */
  948. x    F_INSERT,            /* - */
  949. x    F_INSERT,            /* . */
  950. x    F_INSERT,            /* / */
  951. x    F_DIGIT,            /* 0 */
  952. x    F_DIGIT,            /* 1 */
  953. x    F_DIGIT,            /* 2 */
  954. x    F_DIGIT,            /* 3 */
  955. x    F_DIGIT,            /* 4 */
  956. x    F_DIGIT,            /* 5 */
  957. x    F_DIGIT,            /* 6 */
  958. x    F_DIGIT,            /* 7 */
  959. x    F_DIGIT,            /* 8 */
  960. x    F_DIGIT,            /* 9 */
  961. x    F_INSERT,            /* : */
  962. x    F_INSERT,            /* ; */
  963. x    F_INSERT,            /* < */
  964. x    F_INSERT,            /* = */
  965. x    F_INSERT,            /* > */
  966. x    F_INSERT,            /* ? */
  967. x    F_INSERT,            /* @ */
  968. x    F_INSERT,            /* A */
  969. x    F_INSERT,            /* B */
  970. x    F_INSERT,            /* C */
  971. x    F_INSERT,            /* D */
  972. x    F_INSERT,            /* E */
  973. x    F_INSERT,            /* F */
  974. x    F_INSERT,            /* G */
  975. x    F_INSERT,            /* H */
  976. x    F_INSERT,            /* I */
  977. x    F_INSERT,            /* J */
  978. x    F_INSERT,            /* K */
  979. x    F_INSERT,            /* L */
  980. x    F_INSERT,            /* M */
  981. x    F_INSERT,            /* N */
  982. x    F_INSERT,            /* O */
  983. x    F_INSERT,            /* P */
  984. x    F_INSERT,            /* Q */
  985. x    F_INSERT,            /* R */
  986. x    F_INSERT,            /* S */
  987. x    F_INSERT,            /* T */
  988. x    F_INSERT,            /* U */
  989. x    F_INSERT,            /* V */
  990. x    F_INSERT,            /* W */
  991. x    F_INSERT,            /* X */
  992. x    F_INSERT,            /* Y */
  993. x    F_INSERT,            /* Z */
  994. x    F_INSERT,            /* [ */
  995. x    F_INSERT,            /* \ */
  996. x    F_INSERT,            /* ] */
  997. x    F_INSERT,            /* ^ */
  998. x    F_INSERT,            /* _ */
  999. x    F_INSERT,            /* ` */
  1000. x    F_INSERT,            /* a */
  1001. x    F_INSERT,            /* b */
  1002. x    F_INSERT,            /* c */
  1003. x    F_INSERT,            /* d */
  1004. x    F_INSERT,            /* e */
  1005. x    F_INSERT,            /* f */
  1006. x    F_INSERT,            /* g */
  1007. x    F_INSERT,            /* h */
  1008. x    F_INSERT,            /* i */
  1009. x    F_INSERT,            /* j */
  1010. x    F_INSERT,            /* k */
  1011. x    F_INSERT,            /* l */
  1012. x    F_INSERT,            /* m */
  1013. x    F_INSERT,            /* n */
  1014. x    F_INSERT,            /* o */
  1015. x    F_INSERT,            /* p */
  1016. x    F_INSERT,            /* q */
  1017. x    F_INSERT,            /* r */
  1018. x    F_INSERT,            /* s */
  1019. x    F_INSERT,            /* t */
  1020. x    F_INSERT,            /* u */
  1021. x    F_INSERT,            /* v */
  1022. x    F_INSERT,            /* w */
  1023. x    F_INSERT,            /* x */
  1024. x    F_INSERT,            /* y */
  1025. x    F_INSERT,            /* z */
  1026. x    F_INSERT,            /* { */
  1027. x    F_INSERT,            /* | */
  1028. x    F_INSERT,            /* } */
  1029. x    F_INSERT,            /* ~ */
  1030. x    F_DELPREV,            /* ^? */
  1031. x    F_UNASSIGNED,        /* M-^@ */
  1032. x    F_UNASSIGNED,        /* M-^A */
  1033. x    F_UNASSIGNED,        /* M-^B */
  1034. x    F_UNASSIGNED,        /* M-^C */
  1035. x    F_LIST_CHOICES,        /* M-^D */
  1036. x    F_UNASSIGNED,        /* M-^E */
  1037. x    F_UNASSIGNED,        /* M-^F */
  1038. x    F_UNASSIGNED,        /* M-^G */
  1039. x    F_DELWORDPREV,        /* M-^H */
  1040. x    F_COMPLETE,            /* M-^I */
  1041. x    F_UNASSIGNED,        /* M-^J */
  1042. x    F_UNASSIGNED,        /* M-^K */
  1043. x    F_CLEARDISP,        /* M-^L */
  1044. x    F_UNASSIGNED,        /* M-^M */
  1045. x    F_UNASSIGNED,        /* M-^N */
  1046. x    F_UNASSIGNED,        /* M-^O */
  1047. x    F_UNASSIGNED,        /* M-^P */
  1048. x    F_UNASSIGNED,        /* M-^Q */
  1049. x    F_UNASSIGNED,        /* M-^R */
  1050. x    F_UNASSIGNED,        /* M-^S */
  1051. x    F_UNASSIGNED,        /* M-^T */
  1052. x    F_UNASSIGNED,        /* M-^U */
  1053. x    F_UNASSIGNED,        /* M-^V */
  1054. x    F_UNASSIGNED,        /* M-^W */
  1055. x    F_UNASSIGNED,        /* M-^X */
  1056. x    F_UNASSIGNED,        /* M-^Y */
  1057. x    F_UNASSIGNED,        /* M-^Z */
  1058. x    F_COMPLETE,            /* M-^[ */
  1059. x    F_UNASSIGNED,        /* M-^\ */
  1060. x    F_UNASSIGNED,        /* M-^] */
  1061. x    F_UNASSIGNED,        /* M-^^ */
  1062. x    F_UNASSIGNED,        /* M-^_ */
  1063. x    F_UNASSIGNED,        /* M-SPACE */
  1064. x    F_UNASSIGNED,        /* M-! */
  1065. x    F_UNASSIGNED,        /* M-" */
  1066. x    F_UNASSIGNED,        /* M-# */
  1067. x    F_CORRECT,            /* M-$ */
  1068. x    F_UNASSIGNED,        /* M-% */
  1069. x    F_UNASSIGNED,        /* M-& */
  1070. x    F_UNASSIGNED,        /* M-' */
  1071. x    F_UNASSIGNED,        /* M-( */
  1072. x    F_UNASSIGNED,        /* M-) */
  1073. x    F_UNASSIGNED,        /* M-* */
  1074. x    F_UNASSIGNED,        /* M-+ */
  1075. x    F_UNASSIGNED,        /* M-, */
  1076. x    F_UNASSIGNED,        /* M-- */
  1077. x    F_UNASSIGNED,        /* M-. */
  1078. x    F_UNASSIGNED,        /* M-/ */
  1079. x    F_ARGDIGIT,            /* M-0 */
  1080. x    F_ARGDIGIT,            /* M-1 */
  1081. x    F_ARGDIGIT,            /* M-2 */
  1082. x    F_ARGDIGIT,            /* M-3 */
  1083. x    F_ARGDIGIT,            /* M-4 */
  1084. x    F_ARGDIGIT,            /* M-5 */
  1085. x    F_ARGDIGIT,            /* M-6 */
  1086. x    F_ARGDIGIT,            /* M-7 */
  1087. x    F_ARGDIGIT,            /* M-8 */
  1088. x    F_ARGDIGIT,            /* M-9 */
  1089. x    F_UNASSIGNED,        /* M-: */
  1090. x    F_UNASSIGNED,        /* M-; */
  1091. x    F_UNASSIGNED,        /* M-< */
  1092. x    F_UNASSIGNED,        /* M-= */
  1093. x    F_UNASSIGNED,        /* M-> */
  1094. x    F_WHICH,            /* M-? */
  1095. x    F_UNASSIGNED,        /* M-@ */
  1096. x    F_UNASSIGNED,        /* M-A */
  1097. x    F_WORDBACK,            /* M-B */
  1098. x    F_UNASSIGNED,        /* M-C */
  1099. x    F_DELWORDNEXT,        /* M-D */
  1100. x    F_UNASSIGNED,        /* M-E */
  1101. x    F_WORDFWD,            /* M-F */
  1102. x    F_UNASSIGNED,        /* M-G */
  1103. x    F_HELPME,            /* M-H */
  1104. x    F_UNASSIGNED,        /* M-I */
  1105. x    F_UNASSIGNED,        /* M-J */
  1106. x    F_UNASSIGNED,        /* M-K */
  1107. x    F_UNASSIGNED,        /* M-L */
  1108. x    F_UNASSIGNED,        /* M-M */
  1109. x    F_UNASSIGNED,        /* M-N */
  1110. x    F_UNASSIGNED,        /* M-O */
  1111. x    F_UNASSIGNED,        /* M-P */
  1112. x    F_UNASSIGNED,        /* M-Q */
  1113. x    F_UNASSIGNED,        /* M-R */
  1114. x    F_CORRECT,            /* M-S */
  1115. x    F_UNASSIGNED,        /* M-T */
  1116. x    F_UNASSIGNED,        /* M-U */
  1117. x    F_UNASSIGNED,        /* M-V */
  1118. x    F_COPYREGION,        /* M-W */
  1119. x    F_UNASSIGNED,        /* M-X */
  1120. x    F_UNASSIGNED,        /* M-Y */
  1121. x    F_UNASSIGNED,        /* M-Z */
  1122. x    F_UNASSIGNED,        /* M-[ */
  1123. x    F_UNASSIGNED,        /* M-\ */
  1124. x    F_UNASSIGNED,        /* M-] */
  1125. x    F_UNASSIGNED,        /* M-^ */
  1126. x    F_UNASSIGNED,        /* M-_ */
  1127. x    F_UNASSIGNED,        /* M-` */
  1128. x    F_UNASSIGNED,        /* M-a */
  1129. x    F_WORDBACK,            /* M-b */
  1130. x    F_UNASSIGNED,        /* M-c */
  1131. x    F_DELWORDNEXT,        /* M-d */
  1132. x    F_UNASSIGNED,        /* M-e */
  1133. x    F_WORDFWD,            /* M-f */
  1134. x    F_UNASSIGNED,        /* M-g */
  1135. x    F_HELPME,            /* M-h */
  1136. x    F_UNASSIGNED,        /* M-i */
  1137. x    F_UNASSIGNED,        /* M-j */
  1138. x    F_UNASSIGNED,        /* M-k */
  1139. x    F_UNASSIGNED,        /* M-l */
  1140. x    F_UNASSIGNED,        /* M-m */
  1141. x    F_UNASSIGNED,        /* M-n */
  1142. x    F_UNASSIGNED,        /* M-o */
  1143. x    F_UNASSIGNED,        /* M-p */
  1144. x    F_UNASSIGNED,        /* M-q */
  1145. x    F_UNASSIGNED,        /* M-r */
  1146. x    F_CORRECT,            /* M-s */
  1147. x    F_UNASSIGNED,        /* M-t */
  1148. x    F_UNASSIGNED,        /* M-u */
  1149. x    F_UNASSIGNED,        /* M-v */
  1150. x    F_COPYREGION,        /* M-w */
  1151. x    F_UNASSIGNED,        /* M-x */
  1152. x    F_UNASSIGNED,        /* M-y */
  1153. x    F_UNASSIGNED,        /* M-z */
  1154. x    F_UNASSIGNED,        /* M-{ */
  1155. x    F_UNASSIGNED,        /* M-| */
  1156. x    F_UNASSIGNED,        /* M-} */
  1157. x    F_UNASSIGNED,        /* M-~ */
  1158. x    F_DELWORDPREV,        /* M-^? */
  1159. x};
  1160. x
  1161. x#ifdef VI_MODE
  1162. xKEYCMD CcViMap[] = {
  1163. x/* keymap table, each index into above tbl; should be 256*sizeof(KEYCMD)
  1164. x   bytes long */
  1165. x
  1166. x    F_SET_MARK,            /* ^@ */
  1167. x    F_TOBEG,            /* ^A */
  1168. x    F_UNASSIGNED,        /* ^B */
  1169. x    F_TTY_INT,            /* ^C */
  1170. x    F_LIST_DELNEXT,        /* ^D */
  1171. x    F_TOEND,            /* ^E */
  1172. x    F_UNASSIGNED,        /* ^F */
  1173. x    F_STARTOVER,        /* ^G */
  1174. x    F_DELPREV,            /* ^H */
  1175. x    F_COMPLETE,            /* ^I */
  1176. x    F_NEWLINE,            /* ^J */
  1177. x    F_KILLEND,            /* ^K */
  1178. x    F_REDISP,            /* ^L */
  1179. x    F_NEWLINE,            /* ^M */
  1180. x    F_UNASSIGNED,        /* ^N */
  1181. x    F_TTY_FLUSHO,        /* ^O */
  1182. x    F_UNASSIGNED,        /* ^P */
  1183. x    F_TTY_STARTO,        /* ^Q */
  1184. x    F_UP_SEARCH_HIST,        /* ^R */
  1185. x    F_TTY_STOPO,        /* ^S */
  1186. x    F_CHARSWITCH,        /* ^T */
  1187. x    F_ARGFOUR,            /* ^U */
  1188. x    F_QUOTE,            /* ^V */
  1189. x    F_DELWORDPREV,        /* ^W */
  1190. x    F_UNASSIGNED,        /* ^X */
  1191. x    F_YANK_KILL,        /* ^Y */
  1192. x    F_TTY_TSUSP,        /* ^Z */
  1193. x    F_VI_CMD_MODE,        /* ^[ */
  1194. x    F_TTY_QUIT,            /* ^\ */
  1195. x    F_TTY_DSUSP,        /* ^] */
  1196. x    F_UNASSIGNED,        /* ^^ */    /* empty for now, maybe ^P? */
  1197. x    F_UNASSIGNED,        /* ^_ */    /* will become UNDO */
  1198. x    F_INSERT,            /* SPACE */
  1199. x    F_INSERT,            /* ! */
  1200. x    F_INSERT,            /* " */
  1201. x    F_INSERT,            /* # */
  1202. x    F_INSERT,            /* $ */
  1203. x    F_INSERT,            /* % */
  1204. x    F_INSERT,            /* & */
  1205. x    F_INSERT,            /* ' */
  1206. x    F_INSERT,            /* ( */
  1207. x    F_INSERT,            /* ) */
  1208. x    F_INSERT,            /* * */
  1209. x    F_INSERT,            /* + */
  1210. x    F_INSERT,            /* , */
  1211. x    F_INSERT,            /* - */
  1212. x    F_INSERT,            /* . */
  1213. x    F_INSERT,            /* / */
  1214. x    F_INSERT,            /* 0 */
  1215. x    F_INSERT,            /* 1 */
  1216. x    F_INSERT,            /* 2 */
  1217. x    F_INSERT,            /* 3 */
  1218. x    F_INSERT,            /* 4 */
  1219. x    F_INSERT,            /* 5 */
  1220. x    F_INSERT,            /* 6 */
  1221. x    F_INSERT,            /* 7 */
  1222. x    F_INSERT,            /* 8 */
  1223. x    F_INSERT,            /* 9 */
  1224. x    F_INSERT,            /* : */
  1225. x    F_INSERT,            /* ; */
  1226. x    F_INSERT,            /* < */
  1227. x    F_INSERT,            /* = */
  1228. x    F_INSERT,            /* > */
  1229. x    F_INSERT,            /* ? */
  1230. x    F_INSERT,            /* @ */
  1231. x    F_INSERT,            /* A */
  1232. x    F_INSERT,            /* B */
  1233. x    F_INSERT,            /* C */
  1234. x    F_INSERT,            /* D */
  1235. x    F_INSERT,            /* E */
  1236. x    F_INSERT,            /* F */
  1237. x    F_INSERT,            /* G */
  1238. x    F_INSERT,            /* H */
  1239. x    F_INSERT,            /* I */
  1240. x    F_INSERT,            /* J */
  1241. x    F_INSERT,            /* K */
  1242. x    F_INSERT,            /* L */
  1243. x    F_INSERT,            /* M */
  1244. x    F_INSERT,            /* N */
  1245. x    F_INSERT,            /* O */
  1246. x    F_INSERT,            /* P */
  1247. x    F_INSERT,            /* Q */
  1248. x    F_INSERT,            /* R */
  1249. x    F_INSERT,            /* S */
  1250. x    F_INSERT,            /* T */
  1251. x    F_INSERT,            /* U */
  1252. x    F_INSERT,            /* V */
  1253. x    F_INSERT,            /* W */
  1254. x    F_INSERT,            /* X */
  1255. x    F_INSERT,            /* Y */
  1256. x    F_INSERT,            /* Z */
  1257. x    F_INSERT,            /* [ */
  1258. x    F_INSERT,            /* \ */
  1259. x    F_INSERT,            /* ] */
  1260. x    F_INSERT,            /* ^ */
  1261. x    F_INSERT,            /* _ */
  1262. x    F_INSERT,            /* ` */
  1263. x    F_INSERT,            /* a */
  1264. x    F_INSERT,            /* b */
  1265. x    F_INSERT,            /* c */
  1266. x    F_INSERT,            /* d */
  1267. x    F_INSERT,            /* e */
  1268. x    F_INSERT,            /* f */
  1269. x    F_INSERT,            /* g */
  1270. x    F_INSERT,            /* h */
  1271. x    F_INSERT,            /* i */
  1272. x    F_INSERT,            /* j */
  1273. x    F_INSERT,            /* k */
  1274. x    F_INSERT,            /* l */
  1275. x    F_INSERT,            /* m */
  1276. x    F_INSERT,            /* n */
  1277. x    F_INSERT,            /* o */
  1278. x    F_INSERT,            /* p */
  1279. x    F_INSERT,            /* q */
  1280. x    F_INSERT,            /* r */
  1281. x    F_INSERT,            /* s */
  1282. x    F_INSERT,            /* t */
  1283. x    F_INSERT,            /* u */
  1284. x    F_INSERT,            /* v */
  1285. x    F_INSERT,            /* w */
  1286. x    F_INSERT,            /* x */
  1287. x    F_INSERT,            /* y */
  1288. x    F_INSERT,            /* z */
  1289. x    F_INSERT,            /* { */
  1290. x    F_INSERT,            /* | */
  1291. x    F_INSERT,            /* } */
  1292. x    F_INSERT,            /* ~ */
  1293. x    F_DELPREV,            /* ^? */
  1294. x    F_UNASSIGNED,        /* M-^@ */
  1295. x    F_UNASSIGNED,        /* M-^A */
  1296. x    F_UNASSIGNED,        /* M-^B */
  1297. x    F_UNASSIGNED,        /* M-^C */
  1298. x    F_LIST_CHOICES,        /* M-^D */
  1299. x    F_UNASSIGNED,        /* M-^E */
  1300. x    F_UNASSIGNED,        /* M-^F */
  1301. x    F_UNASSIGNED,        /* M-^G */
  1302. x    F_DELWORDPREV,        /* M-^H */
  1303. x    F_COMPLETE,            /* M-^I */
  1304. x    F_UNASSIGNED,        /* M-^J */
  1305. x    F_UNASSIGNED,        /* M-^K */
  1306. x    F_CLEARDISP,        /* M-^L */
  1307. x    F_UNASSIGNED,        /* M-^M */
  1308. x    F_UNASSIGNED,        /* M-^N */
  1309. x    F_UNASSIGNED,        /* M-^O */
  1310. x    F_UNASSIGNED,        /* M-^P */
  1311. x    F_UNASSIGNED,        /* M-^Q */
  1312. x    F_UNASSIGNED,        /* M-^R */
  1313. x    F_UNASSIGNED,        /* M-^S */
  1314. x    F_UNASSIGNED,        /* M-^T */
  1315. x    F_UNASSIGNED,        /* M-^U */
  1316. x    F_UNASSIGNED,        /* M-^V */
  1317. x    F_UNASSIGNED,        /* M-^W */
  1318. x    F_EXCHANGE_MARK,        /* M-^X */
  1319. x    F_UNASSIGNED,        /* M-^Y */
  1320. x    F_UNASSIGNED,        /* M-^Z */
  1321. x    F_UNASSIGNED,        /* M-^[ */
  1322. x    F_UNASSIGNED,        /* M-^\ */
  1323. x    F_UNASSIGNED,        /* M-^] */
  1324. x    F_UNASSIGNED,        /* M-^^ */
  1325. x    F_UNASSIGNED,        /* M-^_ */
  1326. x    F_UNASSIGNED,        /* M-SPACE */
  1327. x    F_UNASSIGNED,        /* M-! */
  1328. x    F_UNASSIGNED,        /* M-" */
  1329. x    F_UNASSIGNED,        /* M-# */
  1330. x    F_UNASSIGNED,        /* M-$ */
  1331. x    F_UNASSIGNED,        /* M-% */
  1332. x    F_UNASSIGNED,        /* M-& */
  1333. x    F_UNASSIGNED,        /* M-' */
  1334. x    F_UNASSIGNED,        /* M-( */
  1335. x    F_UNASSIGNED,        /* M-) */
  1336. x    F_COMPLETE,            /* M-* */
  1337. x    F_UNASSIGNED,        /* M-+ */
  1338. x    F_UNASSIGNED,        /* M-, */
  1339. x    F_UNASSIGNED,        /* M-- */
  1340. x    F_UNASSIGNED,        /* M-. */
  1341. x    F_UNASSIGNED,        /* M-/ */
  1342. x    F_ARGDIGIT,            /* M-0 */
  1343. x    F_ARGDIGIT,            /* M-1 */
  1344. x    F_ARGDIGIT,            /* M-2 */
  1345. x    F_ARGDIGIT,            /* M-3 */
  1346. x    F_ARGDIGIT,            /* M-4 */
  1347. x    F_ARGDIGIT,            /* M-5 */
  1348. x    F_ARGDIGIT,            /* M-6 */
  1349. x    F_ARGDIGIT,            /* M-7 */
  1350. x    F_ARGDIGIT,            /* M-8 */
  1351. x    F_ARGDIGIT,            /* M-9 */
  1352. x    F_UNASSIGNED,        /* M-: */
  1353. x    F_UNASSIGNED,        /* M-; */
  1354. x    F_UNASSIGNED,        /* M-< */
  1355. x    F_UNASSIGNED,        /* M-= */
  1356. x    F_UNASSIGNED,        /* M-> */
  1357. x    F_HELPME,            /* M-? */
  1358. x    F_UNASSIGNED,        /* M-@ */
  1359. x    F_UNASSIGNED,        /* M-A */
  1360. x    F_WORDBACK,            /* M-B */
  1361. x    F_UNASSIGNED,        /* M-C */
  1362. x    F_DELWORDNEXT,        /* M-D */
  1363. x    F_UNASSIGNED,        /* M-E */
  1364. x    F_WORDFWD,            /* M-F */
  1365. x    F_UNASSIGNED,        /* M-G */
  1366. x    F_HELPME,            /* M-H */
  1367. x    F_UNASSIGNED,        /* M-I */
  1368. x    F_UNASSIGNED,        /* M-J */
  1369. x    F_UNASSIGNED,        /* M-K */
  1370. x    F_UNASSIGNED,        /* M-L */
  1371. x    F_UNASSIGNED,        /* M-M */
  1372. x    F_UNASSIGNED,        /* M-N */
  1373. x    F_UNASSIGNED,        /* M-O */
  1374. x    F_UNASSIGNED,        /* M-P */
  1375. x    F_UNASSIGNED,        /* M-Q */
  1376. x    F_UNASSIGNED,        /* M-R */
  1377. x    F_UNASSIGNED,        /* M-S */
  1378. x    F_UNASSIGNED,        /* M-T */
  1379. x    F_UNASSIGNED,        /* M-U */
  1380. x    F_UNASSIGNED,        /* M-V */
  1381. x    F_UNASSIGNED,        /* M-W */
  1382. x    F_UNASSIGNED,        /* M-X */
  1383. x    F_UNASSIGNED,        /* M-Y */
  1384. x    F_UNASSIGNED,        /* M-Z */
  1385. x    F_UNASSIGNED,        /* M-[ */
  1386. x    F_UNASSIGNED,        /* M-\ */
  1387. x    F_UNASSIGNED,        /* M-] */
  1388. x    F_UNASSIGNED,        /* M-^ */
  1389. x    F_UNASSIGNED,        /* M-_ */
  1390. x    F_UNASSIGNED,        /* M-` */
  1391. x    F_UNASSIGNED,        /* M-a */
  1392. x    F_WORDBACK,            /* M-b */
  1393. x    F_UNASSIGNED,        /* M-c */
  1394. x    F_DELWORDNEXT,        /* M-d */
  1395. x    F_UNASSIGNED,        /* M-e */
  1396. x    F_WORDFWD,            /* M-f */
  1397. x    F_UNASSIGNED,        /* M-g */
  1398. x    F_CHARBACK,            /* M-h */
  1399. x    F_VI_INSERT,        /* M-i */
  1400. x    F_DOWN_HIST,        /* M-j */
  1401. x    F_UP_HIST,            /* M-k */
  1402. x    F_CHARFWD,            /* M-l */
  1403. x    F_UNASSIGNED,        /* M-m */
  1404. x    F_UNASSIGNED,        /* M-n */
  1405. x    F_UNASSIGNED,        /* M-o */
  1406. x    F_UNASSIGNED,        /* M-p */
  1407. x    F_UNASSIGNED,        /* M-q */
  1408. x    F_UNASSIGNED,        /* M-r */
  1409. x    F_UNASSIGNED,        /* M-s */
  1410. x    F_UNASSIGNED,        /* M-t */
  1411. x    F_UNASSIGNED,        /* M-u */
  1412. x    F_UNASSIGNED,        /* M-v */
  1413. x    F_UNASSIGNED,        /* M-w */
  1414. x    F_UNASSIGNED,        /* M-x */
  1415. x    F_UNASSIGNED,        /* M-y */
  1416. x    F_UNASSIGNED,        /* M-z */
  1417. x    F_UNASSIGNED,        /* M-{ */
  1418. x    F_UNASSIGNED,        /* M-| */
  1419. x    F_UNASSIGNED,        /* M-} */
  1420. x    F_UNASSIGNED,        /* M-~ */
  1421. x    F_DELWORDPREV,        /* M-^? */
  1422. x};
  1423. x#endif
  1424. x
  1425. xstruct KeyFuncs FuncNames[] = {
  1426. x    "backward-char",        F_CHARBACK,
  1427. x    "backward-delete-char",    F_DELPREV,
  1428. x    "backward-delete-word",    F_DELWORDPREV,
  1429. x    "backward-kill-line",    F_KILLBEG,
  1430. x    "backward-word",        F_WORDBACK,
  1431. x    "beginning-of-line",    F_TOBEG,
  1432. x    "clear-screen",        F_CLEARDISP,
  1433. x    "complete-word",        F_COMPLETE,
  1434. x    "copy-region-as-kill",    F_COPYREGION,
  1435. x    "delete-char",        F_DELNEXT,
  1436. x    "delete-char-or-list",    F_LIST_DELNEXT,
  1437. x    "delete-word",        F_DELWORDNEXT,
  1438. x    "digit",            F_DIGIT,
  1439. x    "digit-argument",        F_ARGDIGIT,
  1440. x    "down-history",        F_DOWN_HIST,
  1441. x    "end-of-file",        F_SEND_EOF,
  1442. x    "end-of-line",        F_TOEND,
  1443. x    "exchange-point-and-mark",    F_EXCHANGE_MARK,
  1444. x    "forward-char",        F_CHARFWD,
  1445. x    "forward-word",        F_WORDFWD,
  1446. x    "history-search-backward",    F_UP_SEARCH_HIST,
  1447. x    "history-search-forward",    F_DOWN_SEARCH_HIST,
  1448. x    "insert-last-word",        F_LAST_ITEM,
  1449. x    "keyboard-quit",        F_STARTOVER,
  1450. x    "kill-line",        F_KILLEND,
  1451. x    "kill-region",        F_KILLREGION,
  1452. x    "list-choices",        F_LIST_CHOICES,
  1453. x    "newline",            F_NEWLINE,
  1454. x    "prefix-meta",        F_METANEXT,
  1455. x    "quoted-insert",        F_QUOTE,
  1456. x    "redisplay",        F_REDISP,
  1457. x    "run-help",            F_HELPME,
  1458. x    "self-insert-command",    F_INSERT,
  1459. x    "set-mark-command",        F_SET_MARK,
  1460. x    "spell-word",        F_CORRECT,
  1461. x    "transpose-chars",        F_CHARSWITCH,
  1462. x    "tty-dsusp",        F_TTY_DSUSP,
  1463. x    "tty-flush-output",        F_TTY_FLUSHO,
  1464. x    "tty-sigintr",        F_TTY_INT,
  1465. x    "tty-sigquit",        F_TTY_QUIT,
  1466. x    "tty-sigtsusp",        F_TTY_TSUSP,
  1467. x    "tty-start-output",        F_TTY_STOPO,
  1468. x    "tty-stop-output",        F_TTY_STARTO,
  1469. x    "undefined-key",        F_UNASSIGNED,
  1470. x    "universal-argument",    F_ARGFOUR,
  1471. x    "up-history",        F_UP_HIST,
  1472. x    "vi-cmd-mode",        F_VI_CMD_MODE,
  1473. x    "vi-insert",        F_VI_INSERT,
  1474. x    "which-command",        F_WHICH,            
  1475. x    "yank",            F_YANK_KILL,
  1476. x    0,                0
  1477. x};
  1478. x
  1479. xCheckMaps()            /* check the size of the key maps */
  1480. x{
  1481. x    if ((sizeof(CcKeyMap)) != (256 * sizeof(KEYCMD)))
  1482. x    printf ("CcKeyMap should be 256 entries, but is %d.\r\n",
  1483. x         (sizeof(CcKeyMap) / sizeof(KEYCMD)));
  1484. x    if ((sizeof(CcEmacsMap)) != (256 * sizeof(KEYCMD)))
  1485. x    printf ("CcKeyMap should be 256 entries, but is %d.\r\n",
  1486. x         (sizeof(CcKeyMap) / sizeof(KEYCMD)));
  1487. x#ifdef VI_MODE
  1488. x    if ((sizeof(CcViMap)) != (256 * sizeof(KEYCMD)))
  1489. x    printf ("CcKeyMap should be 256 entries, but is %d.\r\n",
  1490. x         (sizeof(CcKeyMap) / sizeof(KEYCMD)));
  1491. x#endif
  1492. x}
  1493. x
  1494. xed_InitMaps()
  1495. x{
  1496. x    register int i;
  1497. x
  1498. x    for (i = 0; i < 256; i++)
  1499. x    CcKeyMap[i] = CcEmacsMap[i];
  1500. x}
  1501. \Rogue\Monster\
  1502. else
  1503.   echo "will not over write ./ed.defns.c"
  1504. fi
  1505. if [ `wc -c ./ed.defns.c | awk '{printf $1}'` -ne 19900 ]
  1506. then
  1507. echo `wc -c ./ed.defns.c | awk '{print "Got " $1 ", Expected " 19900}'`
  1508. fi
  1509. echo "Finished archive 2 of 6"
  1510. # if you want to concatenate archives, remove anything after this line
  1511. exit
  1512.  
  1513. -- 
  1514.  
  1515. Rich $alz
  1516. Cronus Project, BBN Labs            rsalz@bbn.com
  1517. Moderator, comp.sources.unix            sources@uunet.uu.net
  1518.