home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume1 / 8711 / microemacs-3.9 / 15 < prev    next >
Text File  |  1987-11-20  |  41KB  |  1,153 lines
  1. Article 92 of comp.sources.misc:
  2. Path: tut!osu-cis!cbosgd!mandrill!hal!ncoast!allbery
  3. From: nwd@j.cc.purdue.edu (Daniel Lawrence)
  4. Newsgroups: comp.sources.misc
  5. Subject: MicroEmacs 3.9 (Part 15 of 16)
  6. Message-ID: <5691@ncoast.UUCP>
  7. Date: 17 Nov 87 02:37:00 GMT
  8. Sender: allbery@ncoast.UUCP
  9. Lines: 1138
  10. Approved: allbery@ncoast.UUCP
  11. X-Archive: comp.sources.misc/microemacs-3.9/14
  12.  
  13. # This is a shar archive.
  14. # Remove everything above this line.
  15. # Run the file through sh, not csh.
  16. # (type `sh mes.15')
  17. # If you do not see the message
  18. #    `mes.15 completed!'
  19. # then the file was incomplete.
  20. echo extracting - ebind.h
  21. sed 's/^X//' > ebind.h << 'FRIDAY_NIGHT'
  22. X/*    EBIND:        Initial default key to function bindings for
  23. X            MicroEMACS 3.7
  24. X*/
  25. X
  26. X/*
  27. X * Command table.
  28. X * This table  is *roughly* in ASCII order, left to right across the
  29. X * characters of the command. This explains the funny location of the
  30. X * control-X commands.
  31. X */
  32. XKEYTAB  keytab[NBINDS] = {
  33. X    {CTRL|'A',        gotobol},
  34. X    {CTRL|'B',        backchar},
  35. X    {CTRL|'C',        insspace},
  36. X    {CTRL|'D',        forwdel},
  37. X    {CTRL|'E',        gotoeol},
  38. X    {CTRL|'F',        forwchar},
  39. X    {CTRL|'G',        ctrlg},
  40. X    {CTRL|'H',        backdel},
  41. X    {CTRL|'I',        tab},
  42. X    {CTRL|'J',        indent},
  43. X    {CTRL|'K',        killtext},
  44. X    {CTRL|'L',        refresh},
  45. X    {CTRL|'M',        newline},
  46. X    {CTRL|'N',        forwline},
  47. X    {CTRL|'O',        openline},
  48. X    {CTRL|'P',        backline},
  49. X    {CTRL|'Q',        quote},
  50. X    {CTRL|'R',        backsearch},
  51. X    {CTRL|'S',        forwsearch},
  52. X    {CTRL|'T',        twiddle},
  53. X    {CTRL|'U',        unarg},
  54. X    {CTRL|'V',        forwpage},
  55. X    {CTRL|'W',        killregion},
  56. X    {CTRL|'X',        cex},
  57. X    {CTRL|'Y',        yank},
  58. X    {CTRL|'Z',        backpage},
  59. X    {CTRL|']',        meta},
  60. X    {CTLX|CTRL|'B',        listbuffers},
  61. X    {CTLX|CTRL|'C',        quit},          /* Hard quit.           */
  62. X#if    AEDIT
  63. X    {CTLX|CTRL|'D',        detab},
  64. X    {CTLX|CTRL|'E',        entab},
  65. X#endif
  66. X    {CTLX|CTRL|'F',        filefind},
  67. X    {CTLX|CTRL|'I',        insfile},
  68. X    {CTLX|CTRL|'L',        lowerregion},
  69. X    {CTLX|CTRL|'M',        delmode},
  70. X    {CTLX|CTRL|'N',        mvdnwind},
  71. X    {CTLX|CTRL|'O',        deblank},
  72. X    {CTLX|CTRL|'P',        mvupwind},
  73. X    {CTLX|CTRL|'R',        fileread},
  74. X    {CTLX|CTRL|'S',        filesave},
  75. X#if    AEDIT
  76. X    {CTLX|CTRL|'T',        trim},
  77. X#endif
  78. X    {CTLX|CTRL|'U',        upperregion},
  79. X    {CTLX|CTRL|'V',        viewfile},
  80. X    {CTLX|CTRL|'W',        filewrite},
  81. X    {CTLX|CTRL|'X',        swapmark},
  82. X    {CTLX|CTRL|'Z',        shrinkwind},
  83. X    {CTLX|'?',        deskey},
  84. X    {CTLX|'!',        spawn},
  85. X    {CTLX|'@',        pipecmd},
  86. X    {CTLX|'#',        filter},
  87. X    {CTLX|'$',        execprg},
  88. X    {CTLX|'=',        showcpos},
  89. X    {CTLX|'(',        ctlxlp},
  90. X    {CTLX|')',        ctlxrp},
  91. X    {CTLX|'^',        enlargewind},
  92. X    {CTLX|'0',        delwind},
  93. X    {CTLX|'1',        onlywind},
  94. X    {CTLX|'2',        splitwind},
  95. X    {CTLX|'A',        setvar},
  96. X    {CTLX|'B',        usebuffer},
  97. X    {CTLX|'C',        spawncli},
  98. X#if    BSD
  99. X    {CTLX|'D',        bktoshell},
  100. X#endif
  101. X    {CTLX|'E',        ctlxe},
  102. X    {CTLX|'F',        setfillcol},
  103. X    {CTLX|'K',        killbuffer},
  104. X    {CTLX|'M',        setmode},
  105. X    {CTLX|'N',        filename},
  106. X    {CTLX|'O',        nextwind},
  107. X    {CTLX|'P',        prevwind},
  108. X#if    ISRCH
  109. X    {CTLX|'R',        risearch},
  110. X    {CTLX|'S',        fisearch},
  111. X#endif
  112. X    {CTLX|'W',        resize},
  113. X    {CTLX|'X',        nextbuffer},
  114. X    {CTLX|'Z',        enlargewind},
  115. X#if    WORDPRO
  116. X    {META|CTRL|'C',        wordcount},
  117. X#endif
  118. X#if    PROC
  119. X    {META|CTRL|'E',        execproc},
  120. X#endif
  121. X#if    CFENCE
  122. X    {META|CTRL|'F',        getfence},
  123. X#endif
  124. X    {META|CTRL|'H',        delbword},
  125. X    {META|CTRL|'K',        unbindkey},
  126. X    {META|CTRL|'L',        reposition},
  127. X    {META|CTRL|'M',        delgmode},
  128. X    {META|CTRL|'N',        namebuffer},
  129. X    {META|CTRL|'R',        qreplace},
  130. X    {META|CTRL|'S',        newsize},
  131. X    {META|CTRL|'T',        newwidth},
  132. X    {META|CTRL|'V',        scrnextdw},
  133. X#if    WORDPRO
  134. X    {META|CTRL|'W',        killpara},
  135. X#endif
  136. X    {META|CTRL|'Z',        scrnextup},
  137. X    {META|' ',        setmark},
  138. X    {META|'?',        help},
  139. X    {META|'!',        reposition},
  140. X    {META|'.',        setmark},
  141. X    {META|'>',        gotoeob},
  142. X    {META|'<',        gotobob},
  143. X    {META|'~',        unmark},
  144. X#if    APROP
  145. X    {META|'A',        apro},
  146. X#endif
  147. X    {META|'B',        backword},
  148. X    {META|'C',        capword},
  149. X    {META|'D',        delfword},
  150. X#if    CRYPT
  151. X    {META|'E',        setkey},
  152. X#endif
  153. X    {META|'F',        forwword},
  154. X    {META|'G',        gotoline},
  155. X    {META|'K',        bindtokey},
  156. X    {META|'L',        lowerword},
  157. X    {META|'M',        setgmode},
  158. X#if    WORDPRO
  159. X    {META|'N',        gotoeop},
  160. X    {META|'P',        gotobop},
  161. X    {META|'Q',        fillpara},
  162. X#endif
  163. X    {META|'R',        sreplace},
  164. X#if    BSD
  165. X    {META|'S',        bktoshell},
  166. X#endif
  167. X    {META|'U',        upperword},
  168. X    {META|'V',        backpage},
  169. X    {META|'W',        copyregion},
  170. X    {META|'X',        namedcmd},
  171. X    {META|'Z',        quickexit},
  172. X    {META|0x7F,              delbword},
  173. X
  174. X#if    MSDOS & (HP150 == 0) & (WANGPC == 0) & (HP110 == 0)
  175. X    {SPEC|CTRL|'_',        forwhunt},
  176. X    {SPEC|CTRL|'S',        backhunt},
  177. X    {SPEC|71,        gotobob},
  178. X    {SPEC|72,        backline},
  179. X    {SPEC|73,        backpage},
  180. X    {SPEC|75,        backchar},
  181. X    {SPEC|77,        forwchar},
  182. X    {SPEC|79,        gotoeob},
  183. X    {SPEC|80,        forwline},
  184. X    {SPEC|81,        forwpage},
  185. X    {SPEC|82,        insspace},
  186. X    {SPEC|83,        forwdel},
  187. X    {SPEC|115,        backword},
  188. X    {SPEC|116,        forwword},
  189. X#if    WORDPRO
  190. X    {SPEC|132,        gotobop},
  191. X    {SPEC|118,        gotoeop},
  192. X#endif
  193. X    {SPEC|84,        cbuf1},
  194. X    {SPEC|85,        cbuf2},
  195. X    {SPEC|86,        cbuf3},
  196. X    {SPEC|87,        cbuf4},
  197. X    {SPEC|88,        cbuf5},
  198. X    {SPEC|89,        cbuf6},
  199. X    {SPEC|90,        cbuf7},
  200. X    {SPEC|91,        cbuf8},
  201. X    {SPEC|92,        cbuf9},
  202. X    {SPEC|93,        cbuf10},
  203. X#endif
  204. X
  205. X#if    HP150
  206. X    {SPEC|32,        backline},
  207. X    {SPEC|33,        forwline},
  208. X    {SPEC|35,        backchar},
  209. X    {SPEC|34,        forwchar},
  210. X    {SPEC|44,        gotobob},
  211. X    {SPEC|46,        forwpage},
  212. X    {SPEC|47,        backpage},
  213. X    {SPEC|82,        nextwind},
  214. X    {SPEC|68,        openline},
  215. X    {SPEC|69,        killtext},
  216. X    {SPEC|65,        forwdel},
  217. X    {SPEC|64,        ctlxe},
  218. X    {SPEC|67,        refresh},
  219. X    {SPEC|66,        reposition},
  220. X    {SPEC|83,        help},
  221. X    {SPEC|81,        deskey},
  222. X#endif
  223. X
  224. X#if    HP110
  225. X    {SPEC|0x4b,        backchar},
  226. X    {SPEC|0x4d,        forwchar},
  227. X    {SPEC|0x48,        backline},
  228. X    {SPEC|0x50,        forwline},
  229. X    {SPEC|0x43,        help},
  230. X    {SPEC|0x73,        backword},
  231. X    {SPEC|0x74,        forwword},
  232. X    {SPEC|0x49,        backpage},
  233. X    {SPEC|0x51,        forwpage},
  234. X    {SPEC|84,        cbuf1},
  235. X    {SPEC|85,        cbuf2},
  236. X    {SPEC|86,        cbuf3},
  237. X    {SPEC|87,        cbuf4},
  238. X    {SPEC|88,        cbuf5},
  239. X    {SPEC|89,        cbuf6},
  240. X    {SPEC|90,        cbuf7},
  241. X    {SPEC|91,        cbuf8},
  242. X#endif
  243. X
  244. X#if    AMIGA
  245. X    {SPEC|'?',        help},
  246. X    {SPEC|'A',        backline},
  247. X    {SPEC|'B',        forwline},
  248. X    {SPEC|'C',        forwchar},
  249. X    {SPEC|'D',        backchar},
  250. X    {SPEC|'T',        backpage},
  251. X    {SPEC|'S',        forwpage},
  252. X    {SPEC|'a',        backword},
  253. X    {SPEC|'`',        forwword},
  254. X    {SPEC|'P',        cbuf1},
  255. X    {SPEC|'Q',        cbuf2},
  256. X    {SPEC|'R',        cbuf3},
  257. X    {SPEC|'S',        cbuf4},
  258. X    {SPEC|'T',        cbuf5},
  259. X    {SPEC|'U',        cbuf6},
  260. X    {SPEC|'V',        cbuf7},
  261. X    {SPEC|'W',        cbuf8},
  262. X    {SPEC|'X',        cbuf9},
  263. X    {SPEC|'Y',        cbuf10},
  264. X    {127,            forwdel},
  265. X#endif
  266. X
  267. X#if    ST520
  268. X    {SPEC|'b',        help},
  269. X    {SPEC|'H',        backline},
  270. X    {SPEC|'P',        forwline},
  271. X    {SPEC|'M',        forwchar},
  272. X    {SPEC|'K',        backchar},
  273. X    {SPEC|'t',        setmark},
  274. X    {SPEC|'a',        yank},
  275. X    {SPEC|'R',        insspace},
  276. X    {SPEC|'G',        gotobob},
  277. X    {127,            forwdel},
  278. X    {SPEC|84,        cbuf1},
  279. X    {SPEC|85,        cbuf2},
  280. X    {SPEC|86,        cbuf3},
  281. X    {SPEC|87,        cbuf4},
  282. X    {SPEC|88,        cbuf5},
  283. X    {SPEC|89,        cbuf6},
  284. X    {SPEC|90,        cbuf7},
  285. X    {SPEC|91,        cbuf8},
  286. X    {SPEC|92,        cbuf9},
  287. X    {SPEC|93,        cbuf10},
  288. X#endif
  289. X
  290. X#if  WANGPC
  291. X    SPEC|0xE0,              quit,           /* Cancel */
  292. X    SPEC|0xE1,              help,           /* Help */
  293. X    SPEC|0xF1,              help,           /* ^Help */
  294. X    SPEC|0xE3,              ctrlg,          /* Print */
  295. X    SPEC|0xF3,              ctrlg,          /* ^Print */
  296. X    SPEC|0xC0,              backline,       /* North */
  297. X    SPEC|0xD0,              gotobob,        /* ^North */
  298. X    SPEC|0xC1,              forwchar,       /* East */
  299. X    SPEC|0xD1,              gotoeol,        /* ^East */
  300. X    SPEC|0xC2,              forwline,       /* South */
  301. X    SPEC|0xD2,              gotobop,        /* ^South */
  302. X    SPEC|0xC3,              backchar,       /* West */
  303. X    SPEC|0xD3,              gotobol,        /* ^West */
  304. X    SPEC|0xC4,              ctrlg,          /* Home */
  305. X    SPEC|0xD4,              gotobob,        /* ^Home */
  306. X    SPEC|0xC5,              filesave,       /* Execute */
  307. X    SPEC|0xD5,              ctrlg,          /* ^Execute */
  308. X    SPEC|0xC6,              insfile,        /* Insert */
  309. X    SPEC|0xD6,              ctrlg,          /* ^Insert */
  310. X    SPEC|0xC7,              forwdel,        /* Delete */
  311. X    SPEC|0xD7,              killregion,     /* ^Delete */
  312. X    SPEC|0xC8,              backpage,       /* Previous */
  313. X    SPEC|0xD8,              prevwind,       /* ^Previous */
  314. X    SPEC|0xC9,              forwpage,       /* Next */
  315. X    SPEC|0xD9,              nextwind,       /* ^Next */
  316. X    SPEC|0xCB,              ctrlg,          /* Erase */
  317. X    SPEC|0xDB,              ctrlg,          /* ^Erase */
  318. X    SPEC|0xDC,              ctrlg,          /* ^Tab */
  319. X    SPEC|0xCD,              ctrlg,          /* BackTab */
  320. X    SPEC|0xDD,              ctrlg,          /* ^BackTab */
  321. X    SPEC|0x80,              ctrlg,          /* Indent */
  322. X    SPEC|0x90,              ctrlg,          /* ^Indent */
  323. X    SPEC|0x81,              ctrlg,          /* Page */
  324. X    SPEC|0x91,              ctrlg,          /* ^Page */
  325. X    SPEC|0x82,              ctrlg,          /* Center */
  326. X    SPEC|0x92,              ctrlg,          /* ^Center */
  327. X    SPEC|0x83,              ctrlg,          /* DecTab */
  328. X    SPEC|0x93,              ctrlg,          /* ^DecTab */
  329. X    SPEC|0x84,              ctrlg,          /* Format */
  330. X    SPEC|0x94,              ctrlg,          /* ^Format */
  331. X    SPEC|0x85,              ctrlg,          /* Merge */
  332. X    SPEC|0x95,              ctrlg,          /* ^Merge */
  333. X    SPEC|0x86,              setmark,        /* Note */
  334. X    SPEC|0x96,              ctrlg,          /* ^Note */
  335. X    SPEC|0x87,              ctrlg,          /* Stop */
  336. X    SPEC|0x97,              ctrlg,          /* ^Stop */
  337. X    SPEC|0x88,              forwsearch,     /* Srch */
  338. X    SPEC|0x98,              backsearch,     /* ^Srch */
  339. X    SPEC|0x89,              sreplace,       /* Replac */
  340. X    SPEC|0x99,              qreplace,       /* ^Replac */
  341. X    SPEC|0x8A,              ctrlg,          /* Copy */
  342. X    SPEC|0x9A,              ctrlg,          /* ^Copy */
  343. X    SPEC|0x8B,              ctrlg,          /* Move */
  344. X    SPEC|0x9B,              ctrlg,          /* ^Move */
  345. X    SPEC|0x8C,              namedcmd,       /* Command */
  346. X    SPEC|0x9C,              spawn,          /* ^Command */
  347. X    SPEC|0x8D,              ctrlg,          /* ^ */
  348. X    SPEC|0x9D,              ctrlg,          /* ^^ */
  349. X    SPEC|0x8E,              ctrlg,          /* Blank */
  350. X    SPEC|0x9E,              ctrlg,          /* ^Blank */
  351. X    SPEC|0x8F,              gotoline,       /* GoTo */
  352. X    SPEC|0x9F,              usebuffer,      /* ^GoTo */
  353. X#endif
  354. X 
  355. X    {0x7F,            backdel},
  356. X
  357. X    /* special internal bindings */
  358. X    SPEC|META|'W',        wrapword,    /* called on word wrap */
  359. X    SPEC|META|'C',        nullproc,    /*  every command input */
  360. X    SPEC|META|'R',        nullproc,    /*  on file read */
  361. X    {0,            NULL}
  362. X};
  363. X
  364. X#if RAINBOW
  365. X
  366. X#include "rainbow.h"
  367. X
  368. X/*
  369. X * Mapping table from the LK201 function keys to the internal EMACS character.
  370. X */
  371. X
  372. Xshort lk_map[][2] = {
  373. X    Up_Key,                         CTRL+'P',
  374. X    Down_Key,                       CTRL+'N',
  375. X    Left_Key,                       CTRL+'B',
  376. X    Right_Key,                      CTRL+'F',
  377. X    Shift+Left_Key,                 META+'B',
  378. X    Shift+Right_Key,                META+'F',
  379. X    Control+Left_Key,               CTRL+'A',
  380. X    Control+Right_Key,              CTRL+'E',
  381. X    Prev_Scr_Key,                   META+'V',
  382. X    Next_Scr_Key,                   CTRL+'V',
  383. X    Shift+Up_Key,                   META+'<',
  384. X    Shift+Down_Key,                 META+'>',
  385. X    Cancel_Key,                     CTRL+'G',
  386. X    Find_Key,                       CTRL+'S',
  387. X    Shift+Find_Key,                 CTRL+'R',
  388. X    Insert_Key,                     CTRL+'Y',
  389. X    Options_Key,                    CTRL+'D',
  390. X    Shift+Options_Key,              META+'D',
  391. X    Remove_Key,                     CTRL+'W',
  392. X    Shift+Remove_Key,               META+'W',
  393. X    Select_Key,                     CTRL+'@',
  394. X    Shift+Select_Key,               CTLX+CTRL+'X',
  395. X    Interrupt_Key,                  CTRL+'U',
  396. X    Keypad_PF2,                     META+'L',
  397. X    Keypad_PF3,                     META+'C',
  398. X    Keypad_PF4,                     META+'U',
  399. X    Shift+Keypad_PF2,               CTLX+CTRL+'L',
  400. X    Shift+Keypad_PF4,               CTLX+CTRL+'U',
  401. X    Keypad_1,                       CTLX+'1',
  402. X    Keypad_2,                       CTLX+'2',
  403. X    Do_Key,                         CTLX+'E',
  404. X    Keypad_4,                       CTLX+CTRL+'B',
  405. X    Keypad_5,                       CTLX+'B',
  406. X    Keypad_6,                       CTLX+'K',
  407. X    Resume_Key,                     META+'!',
  408. X    Control+Next_Scr_Key,           CTLX+'N',
  409. X    Control+Prev_Scr_Key,           CTLX+'P',
  410. X    Control+Up_Key,                 CTLX+CTRL+'P',
  411. X    Control+Down_Key,               CTLX+CTRL+'N',
  412. X    Help_Key,                       CTLX+'=',
  413. X    Shift+Do_Key,                   CTLX+'(',
  414. X    Control+Do_Key,                 CTLX+')',
  415. X    Keypad_0,                       CTLX+'Z',
  416. X    Shift+Keypad_0,                 CTLX+CTRL+'Z',
  417. X    Main_Scr_Key,                   CTRL+'C',
  418. X    Keypad_Enter,                   CTLX+'!',
  419. X    Exit_Key,                       CTLX+CTRL+'C',
  420. X    Shift+Exit_Key,                 CTRL+'Z'
  421. X};
  422. X
  423. X#define lk_map_size     (sizeof(lk_map)/2)
  424. X#endif
  425. X
  426. FRIDAY_NIGHT
  427. echo extracting - edef.h
  428. sed 's/^X//' > edef.h << 'FRIDAY_NIGHT'
  429. X/*    EDEF:        Global variable definitions for
  430. X            MicroEMACS 3.9
  431. X
  432. X            written by Dave G. Conroy
  433. X            modified by Steve Wilhite, George Jones
  434. X            greatly modified by Daniel Lawrence
  435. X*/
  436. X
  437. X/* some global fuction declarations */
  438. X
  439. Xchar *flook();
  440. Xchar *getctext();
  441. Xchar *getfname();
  442. Xchar *getval();
  443. Xchar *gtenv();
  444. Xchar *gtfun();
  445. Xchar *gtusr();
  446. Xchar *itoa();
  447. Xchar *ltos();
  448. Xchar *malloc();
  449. Xchar *mklower();
  450. Xchar *mkupper();
  451. Xchar *strcat();
  452. Xchar *strcpy();
  453. Xchar *strncpy();
  454. Xchar *token();
  455. Xchar *transbind();
  456. Xunsigned int getckey();
  457. Xunsigned int stock();
  458. X
  459. X#ifdef    maindef
  460. X
  461. X/* for MAIN.C */
  462. X
  463. X/* initialized global definitions */
  464. X
  465. Xint     fillcol = 72;                   /* Current fill column          */
  466. Xshort   kbdm[NKBDM];            /* Macro                        */
  467. Xchar    *execstr = NULL;        /* pointer to string to execute    */
  468. Xchar    golabel[NPAT] = "";        /* current line to go to    */
  469. Xint    execlevel = 0;            /* execution IF level        */
  470. Xint    eolexist = TRUE;        /* does clear to EOL exist    */
  471. Xint    revexist = FALSE;        /* does reverse video exist?    */
  472. Xint    flickcode = FALSE;        /* do flicker supression?    */
  473. Xchar    *modename[] = {            /* name of modes        */
  474. X    "WRAP", "CMODE", "SPELL", "EXACT", "VIEW", "OVER",
  475. X    "MAGIC", "CRYPT", "ASAVE"};
  476. Xchar    modecode[] = "WCSEVOMYA";    /* letters to represent modes    */
  477. Xint    gmode = 0;            /* global editor mode        */
  478. Xint    gflags = GFREAD;        /* global control flag        */
  479. Xint    gfcolor = 7;            /* global forgrnd color (white)    */
  480. Xint    gbcolor    = 0;            /* global backgrnd color (black)*/
  481. Xint    gasave = 256;            /* global ASAVE size        */
  482. Xint    gacount = 256;            /* count until next ASAVE    */
  483. Xint     sgarbf  = TRUE;                 /* TRUE if screen is garbage    */
  484. Xint     mpresf  = FALSE;                /* TRUE if message in last line */
  485. Xint    clexec    = FALSE;        /* command line execution flag    */
  486. Xint    mstore    = FALSE;        /* storing text to macro flag    */
  487. Xint    discmd    = TRUE;            /* display command flag        */
  488. Xint    disinp    = TRUE;            /* display input characters    */
  489. Xstruct    BUFFER *bstore = NULL;        /* buffer to store macro text to*/
  490. Xint     vtrow   = 0;                    /* Row location of SW cursor */
  491. Xint     vtcol   = 0;                    /* Column location of SW cursor */
  492. Xint     ttrow   = HUGE;                 /* Row location of HW cursor */
  493. Xint     ttcol   = HUGE;                 /* Column location of HW cursor */
  494. Xint    lbound    = 0;            /* leftmost column of current line
  495. X                       being displayed */
  496. Xint    taboff    = 0;            /* tab offset for display    */
  497. Xint    metac = CTRL | '[';        /* current meta character */
  498. Xint    ctlxc = CTRL | 'X';        /* current control X prefix char */
  499. Xint    reptc = CTRL | 'U';        /* current universal repeat char */
  500. Xint    abortc = CTRL | 'G';        /* current abort command char    */
  501. X
  502. Xint    quotec = 0x11;            /* quote char during mlreply() */
  503. Xchar    *cname[] = {            /* names of colors        */
  504. X    "BLACK", "RED", "GREEN", "YELLOW", "BLUE",
  505. X    "MAGENTA", "CYAN", "WHITE"};
  506. XKILL *kbufp  = NULL;        /* current kill buffer chunk pointer    */
  507. XKILL *kbufh  = NULL;        /* kill buffer header pointer        */
  508. Xint kused = KBLOCK;        /* # of bytes used in kill buffer    */
  509. XWINDOW *swindow = NULL;        /* saved window pointer            */
  510. Xint cryptflag = FALSE;        /* currently encrypting?        */
  511. Xshort    *kbdptr;        /* current position in keyboard buf */
  512. Xshort    *kbdend = &kbdm[0];    /* ptr to end of the keyboard */
  513. Xint    kbdmode = STOP;        /* current keyboard macro mode    */
  514. Xint    kbdrep = 0;        /* number of repetitions    */
  515. Xint    restflag = FALSE;    /* restricted use?        */
  516. Xint    lastkey = 0;        /* last keystoke        */
  517. Xint    seed = 0;        /* random number seed        */
  518. Xlong    envram = 0l;    /* # of bytes current in use by malloc */
  519. Xint    macbug = FALSE;        /* macro debuging flag        */
  520. Xchar    errorm[] = "ERROR";    /* error literal        */
  521. Xchar    truem[] = "TRUE";    /* true literal            */
  522. Xchar    falsem[] = "FALSE";    /* false litereal        */
  523. Xint    cmdstatus = TRUE;    /* last command status        */
  524. Xchar    palstr[49] = "";    /* palette string        */
  525. Xint    saveflag = 0;        /* Flags, saved with the $target var */
  526. Xchar    *fline = NULL;        /* dynamic return line */
  527. Xint    flen = 0;        /* current length of fline */
  528. Xint    rval = 0;        /* return value of a subprocess */
  529. X#if    CALLED
  530. Xint    eexitflag = FALSE;    /* EMACS exit flag */
  531. Xint    eexitval = 0;        /* and the exit return value */
  532. X#endif
  533. X
  534. X/* uninitialized global definitions */
  535. X
  536. Xint     currow;                 /* Cursor row                   */
  537. Xint     curcol;                 /* Cursor column                */
  538. Xint     thisflag;               /* Flags, this command          */
  539. Xint     lastflag;               /* Flags, last command          */
  540. Xint     curgoal;                /* Goal for C-P, C-N            */
  541. XWINDOW  *curwp;                 /* Current window               */
  542. XBUFFER  *curbp;                 /* Current buffer               */
  543. XWINDOW  *wheadp;                /* Head of list of windows      */
  544. XBUFFER  *bheadp;                /* Head of list of buffers      */
  545. XBUFFER  *blistp;                /* Buffer for C-X C-B           */
  546. X
  547. XBUFFER  *bfind();               /* Lookup a buffer by name      */
  548. XWINDOW  *wpopup();              /* Pop up window creation       */
  549. XLINE    *lalloc();              /* Allocate a line              */
  550. Xchar    sres[NBUFN];        /* current screen resolution    */
  551. X
  552. Xchar    pat[NPAT];                      /* Search pattern        */
  553. Xchar    tap[NPAT];            /* Reversed pattern array.    */
  554. Xchar    rpat[NPAT];            /* replacement pattern        */
  555. X
  556. X/* The variable matchlen holds the length of the matched
  557. X * string - used by the replace functions.
  558. X * The variable patmatch holds the string that satisfies
  559. X * the search command.
  560. X * The variables matchline and matchoff hold the line and
  561. X * offset position of the *start* of match.
  562. X */
  563. Xunsigned int    matchlen = 0;
  564. Xunsigned int    mlenold  = 0;
  565. Xchar        *patmatch = NULL;
  566. XLINE        *matchline = NULL;
  567. Xint        matchoff = 0;
  568. X
  569. X#if    MAGIC
  570. X/*
  571. X * The variables magical and rmagical determine if there
  572. X * were actual metacharacters in the search and replace strings -
  573. X * if not, then we don't have to use the slower MAGIC mode
  574. X * search functions.
  575. X */
  576. Xshort int    magical = FALSE;
  577. Xshort int    rmagical = FALSE;
  578. XMC        mcpat[NPAT];        /* the magic pattern        */
  579. XMC        tapcm[NPAT];        /* the reversed magic pattern    */
  580. XRMC        rmcpat[NPAT];        /* the replacement magic array    */
  581. X
  582. X#endif
  583. X
  584. X/* directive name table:
  585. X    This holds the names of all the directives....    */
  586. X
  587. Xchar *dname[] = {
  588. X    "if", "else", "endif",
  589. X    "goto", "return", "endm",
  590. X    "while", "endwhile", "break",
  591. X    "force"
  592. X};
  593. X
  594. X#if    DEBUGM
  595. X/*    vars needed for macro debugging output    */
  596. Xchar outline[NSTRING];        /* global string to hold debug line text */
  597. X#endif
  598. X
  599. X#else
  600. X
  601. X/* for all the other .C files */
  602. X
  603. X/* initialized global external declarations */
  604. X
  605. Xextern  int     fillcol;                /* Fill column                  */
  606. Xextern  short   kbdm[];                 /* Holds kayboard macro data    */
  607. Xextern  char    pat[];                  /* Search pattern               */
  608. Xextern    char    rpat[];            /* Replacement pattern        */
  609. Xextern    char    *execstr;        /* pointer to string to execute    */
  610. Xextern    char    golabel[];        /* current line to go to    */
  611. Xextern    int    execlevel;        /* execution IF level        */
  612. Xextern    int    eolexist;        /* does clear to EOL exist?    */
  613. Xextern    int    revexist;        /* does reverse video exist?    */
  614. Xextern    int    flickcode;        /* do flicker supression?    */
  615. Xextern    char *modename[];        /* text names of modes        */
  616. Xextern    char    modecode[];        /* letters to represent modes    */
  617. Xextern    KEYTAB keytab[];        /* key bind to functions table    */
  618. Xextern    NBIND names[];            /* name to function table    */
  619. Xextern    int    gmode;            /* global editor mode        */
  620. Xextern    int    gflags;            /* global control flag        */
  621. Xextern    int    gfcolor;        /* global forgrnd color (white)    */
  622. Xextern    int    gbcolor;        /* global backgrnd color (black)*/
  623. Xextern    int    gasave;            /* global ASAVE size        */
  624. Xextern    int    gacount;        /* count until next ASAVE    */
  625. Xextern  int     sgarbf;                 /* State of screen unknown      */
  626. Xextern  int     mpresf;                 /* Stuff in message line        */
  627. Xextern    int    clexec;            /* command line execution flag    */
  628. Xextern    int    mstore;            /* storing text to macro flag    */
  629. Xextern    int    discmd;            /* display command flag        */
  630. Xextern    int    disinp;            /* display input characters    */
  631. Xextern    struct    BUFFER *bstore;        /* buffer to store macro text to*/
  632. Xextern    int     vtrow;                  /* Row location of SW cursor */
  633. Xextern    int     vtcol;                  /* Column location of SW cursor */
  634. Xextern    int     ttrow;                  /* Row location of HW cursor */
  635. Xextern    int     ttcol;                  /* Column location of HW cursor */
  636. Xextern    int    lbound;            /* leftmost column of current line
  637. X                       being displayed */
  638. Xextern    int    taboff;            /* tab offset for display    */
  639. Xextern    int    metac;            /* current meta character */
  640. Xextern    int    ctlxc;            /* current control X prefix char */
  641. Xextern    int    reptc;            /* current universal repeat char */
  642. Xextern    int    abortc;            /* current abort command char    */
  643. X
  644. Xextern    int    quotec;            /* quote char during mlreply() */
  645. Xextern    char    *cname[];        /* names of colors        */
  646. Xextern KILL *kbufp;            /* current kill buffer chunk pointer */
  647. Xextern KILL *kbufh;            /* kill buffer header pointer    */
  648. Xextern int kused;            /* # of bytes used in KB        */
  649. Xextern WINDOW *swindow;            /* saved window pointer        */
  650. Xextern int cryptflag;            /* currently encrypting?    */
  651. Xextern    short    *kbdptr;        /* current position in keyboard buf */
  652. Xextern    short    *kbdend;        /* ptr to end of the keyboard */
  653. Xextern    int kbdmode;            /* current keyboard macro mode    */
  654. Xextern    int kbdrep;            /* number of repetitions    */
  655. Xextern    int restflag;            /* restricted use?        */
  656. Xextern    int lastkey;            /* last keystoke        */
  657. Xextern    int seed;            /* random number seed        */
  658. Xextern    long envram;        /* # of bytes current in use by malloc */
  659. Xextern    int    macbug;            /* macro debuging flag        */
  660. Xextern    char    errorm[];        /* error literal        */
  661. Xextern    char    truem[];        /* true literal            */
  662. Xextern    char    falsem[];        /* false litereal        */
  663. Xextern    int    cmdstatus;        /* last command status        */
  664. Xextern    char    palstr[];        /* palette string        */
  665. Xextern    int    saveflag;        /* Flags, saved with the $target var */
  666. Xextern    char    *fline;            /* dynamic return line */
  667. Xextern    int    flen;            /* current length of fline */
  668. Xextern    int    rval;            /* return value of a subprocess */
  669. X#if    CALLED
  670. Xextern    int    eexitflag;        /* EMACS exit flag */
  671. Xextern    int    eexitval;        /* and the exit return value */
  672. X#endif
  673. X
  674. X/* uninitialized global external declarations */
  675. X
  676. Xextern  int     currow;                 /* Cursor row                   */
  677. Xextern  int     curcol;                 /* Cursor column                */
  678. Xextern  int     thisflag;               /* Flags, this command          */
  679. Xextern  int     lastflag;               /* Flags, last command          */
  680. Xextern  int     curgoal;                /* Goal for C-P, C-N            */
  681. Xextern  WINDOW  *curwp;                 /* Current window               */
  682. Xextern  BUFFER  *curbp;                 /* Current buffer               */
  683. Xextern  WINDOW  *wheadp;                /* Head of list of windows      */
  684. Xextern  BUFFER  *bheadp;                /* Head of list of buffers      */
  685. Xextern  BUFFER  *blistp;                /* Buffer for C-X C-B           */
  686. X
  687. Xextern  BUFFER  *bfind();               /* Lookup a buffer by name      */
  688. Xextern  WINDOW  *wpopup();              /* Pop up window creation       */
  689. Xextern  LINE    *lalloc();              /* Allocate a line              */
  690. Xextern    char    sres[NBUFN];        /* current screen resolution    */
  691. Xextern    char    pat[];                  /* Search pattern        */
  692. Xextern    char    tap[];            /* Reversed pattern array.    */
  693. Xextern    char    rpat[];            /* replacement pattern        */
  694. X
  695. Xextern unsigned int matchlen;
  696. Xextern unsigned int mlenold;
  697. Xextern char *patmatch;
  698. Xextern LINE *matchline;
  699. Xextern int matchoff;
  700. X
  701. X#if    MAGIC
  702. Xextern short int magical;
  703. Xextern short int rmagical;
  704. Xextern MC mcpat[NPAT];        /* the magic pattern        */
  705. Xextern MC tapcm[NPAT];        /* the reversed magic pattern    */
  706. Xextern RMC rmcpat[NPAT];    /* the replacement magic array    */
  707. X#endif
  708. X
  709. Xextern char *dname[];        /* directive name table        */
  710. X
  711. X#if    DEBUGM
  712. X/*    vars needed for macro debugging output    */
  713. Xextern char outline[];        /* global string to hold debug line text */
  714. X#endif
  715. X
  716. X#endif
  717. X
  718. X/* terminal table defined only in TERM.C */
  719. X
  720. X#ifndef    termdef
  721. Xextern  TERM    term;                   /* Terminal information.        */
  722. X#endif
  723. X
  724. X
  725. FRIDAY_NIGHT
  726. echo extracting - efunc.h
  727. sed 's/^X//' > efunc.h << 'FRIDAY_NIGHT'
  728. X/*    EFUNC.H:    MicroEMACS function declarations and names
  729. X
  730. X        This file list all the C code functions used by MicroEMACS
  731. X    and the names to use to bind keys to them. To add functions,
  732. X    declare it here in both the extern function list and the name
  733. X    binding table.
  734. X
  735. X*/
  736. X
  737. X/*    External function declarations        */
  738. X
  739. Xextern  int     ctrlg();                /* Abort out of things          */
  740. Xextern  int     quit();                 /* Quit                         */
  741. Xextern  int     ctlxlp();               /* Begin macro                  */
  742. Xextern  int     ctlxrp();               /* End macro                    */
  743. Xextern  int     ctlxe();                /* Execute macro                */
  744. Xextern  int     fileread();             /* Get a file, read only        */
  745. Xextern  int     filefind();        /* Get a file, read write       */
  746. Xextern  int     filewrite();            /* Write a file                 */
  747. Xextern  int     filesave();             /* Save current file            */
  748. Xextern  int     filename();             /* Adjust file name             */
  749. Xextern  int     getccol();              /* Get current column           */
  750. Xextern  int     gotobol();              /* Move to start of line        */
  751. Xextern  int     forwchar();             /* Move forward by characters   */
  752. Xextern  int     gotoeol();              /* Move to end of line          */
  753. Xextern  int     backchar();             /* Move backward by characters  */
  754. Xextern  int     forwline();             /* Move forward by lines        */
  755. Xextern  int     backline();             /* Move backward by lines       */
  756. Xextern  int     forwpage();             /* Move forward by pages        */
  757. Xextern  int     backpage();             /* Move backward by pages       */
  758. Xextern  int     gotobob();              /* Move to start of buffer      */
  759. Xextern  int     gotoeob();              /* Move to end of buffer        */
  760. Xextern  int     setfillcol();           /* Set fill column.             */
  761. Xextern  int     setmark();              /* Set mark                     */
  762. Xextern  int     swapmark();             /* Swap "." and mark            */
  763. Xextern  int     forwsearch();           /* Search forward               */
  764. Xextern  int     backsearch();           /* Search backwards             */
  765. Xextern    int    sreplace();        /* search and replace        */
  766. Xextern    int    qreplace();        /* search and replace w/query    */
  767. Xextern  int     showcpos();             /* Show the cursor position     */
  768. Xextern  int     nextwind();             /* Move to the next window      */
  769. Xextern  int     prevwind();             /* Move to the previous window  */
  770. Xextern  int     onlywind();             /* Make current window only one */
  771. Xextern  int     splitwind();            /* Split current window         */
  772. Xextern  int     mvdnwind();             /* Move window down             */
  773. Xextern  int     mvupwind();             /* Move window up               */
  774. Xextern  int     enlargewind();          /* Enlarge display window.      */
  775. Xextern  int     shrinkwind();           /* Shrink window.               */
  776. Xextern  int     listbuffers();          /* Display list of buffers      */
  777. Xextern  int     usebuffer();            /* Switch a window to a buffer  */
  778. Xextern  int     killbuffer();           /* Make a buffer go away.       */
  779. Xextern  int     reposition();           /* Reposition window            */
  780. Xextern  int     refresh();              /* Refresh the screen           */
  781. Xextern  int     twiddle();              /* Twiddle characters           */
  782. Xextern  int     tab();                  /* Insert tab                   */
  783. Xextern  int     newline();              /* Insert CR-LF                 */
  784. Xextern  int     indent();               /* Insert CR-LF, then indent    */
  785. Xextern  int     openline();             /* Open up a blank line         */
  786. Xextern  int     deblank();              /* Delete blank lines           */
  787. Xextern  int     quote();                /* Insert literal               */
  788. Xextern  int     backword();             /* Backup by words              */
  789. Xextern  int     forwword();             /* Advance by words             */
  790. Xextern  int     forwdel();              /* Forward delete               */
  791. Xextern  int     backdel();              /* Backward delete              */
  792. Xextern  int     killtext();             /* Kill forward                 */
  793. Xextern  int     yank();                 /* Yank back from killbuffer.   */
  794. Xextern  int     upperword();            /* Upper case word.             */
  795. Xextern  int     lowerword();            /* Lower case word.             */
  796. Xextern  int     upperregion();          /* Upper case region.           */
  797. Xextern  int     lowerregion();          /* Lower case region.           */
  798. Xextern  int     capword();              /* Initial capitalize word.     */
  799. Xextern  int     delfword();             /* Delete forward word.         */
  800. Xextern  int     delbword();             /* Delete backward word.        */
  801. Xextern  int     killregion();           /* Kill region.                 */
  802. Xextern  int     copyregion();           /* Copy region to kill buffer.  */
  803. Xextern  int     spawncli();             /* Run CLI in a subjob.         */
  804. Xextern  int     spawn();                /* Run a command in a subjob.   */
  805. X#if    BSD
  806. Xextern    int    bktoshell();        /* suspend emacs to parent shell*/
  807. Xextern    int    rtfrmshell();        /* return from a suspended state*/
  808. X#endif
  809. Xextern  int     quickexit();            /* low keystroke style exit.    */
  810. Xextern    int    setmode();        /* set an editor mode        */
  811. Xextern    int    delmode();        /* delete a mode        */
  812. Xextern    int    gotoline();        /* go to a numbered line    */
  813. Xextern    int    namebuffer();        /* rename the current buffer    */
  814. X#if    WORDPRO
  815. Xextern    int    gotobop();        /* go to beginning/paragraph    */
  816. Xextern    int    gotoeop();        /* go to end/paragraph        */
  817. Xextern    int    fillpara();        /* fill current paragraph    */
  818. X#endif
  819. Xextern    int    help();            /* get the help file here    */
  820. Xextern    int    deskey();        /* describe a key's binding    */
  821. Xextern    int    viewfile();        /* find a file in view mode    */
  822. Xextern    int    insfile();        /* insert a file        */
  823. Xextern    int    scrnextup();        /* scroll next window back    */
  824. Xextern    int    scrnextdw();        /* scroll next window down    */
  825. Xextern    int    bindtokey();        /* bind a function to a key    */
  826. Xextern    int    unbindkey();        /* unbind a key's function    */
  827. Xextern    int    namedcmd();        /* execute named command    */
  828. Xextern    int    desbind();        /* describe bindings        */
  829. Xextern    int    execcmd();        /* execute a command line    */
  830. Xextern    int    execbuf();        /* exec commands from a buffer    */
  831. Xextern    int    execfile();        /* exec commands from a file    */
  832. Xextern    int    nextbuffer();        /* switch to the next buffer    */
  833. X#if    WORDPRO
  834. Xextern    int    killpara();        /* kill the current paragraph    */
  835. X#endif
  836. Xextern    int    setgmode();        /* set a global mode        */
  837. Xextern    int    delgmode();        /* delete a global mode        */
  838. Xextern    int    insspace();        /* insert a space forword    */
  839. Xextern    int    forwhunt();        /* hunt forward for next match    */
  840. Xextern    int    backhunt();        /* hunt backwards for next match*/
  841. Xextern    int    pipecmd();        /* pipe command into buffer    */
  842. Xextern    int    filter();        /* filter buffer through dos    */
  843. Xextern    int    delwind();        /* delete the current window    */
  844. Xextern    int    cbuf1();        /* execute numbered comd buffer */
  845. Xextern    int    cbuf2();
  846. Xextern    int    cbuf3();
  847. Xextern    int    cbuf4();
  848. Xextern    int    cbuf5();
  849. Xextern    int    cbuf6();
  850. Xextern    int    cbuf7();
  851. Xextern    int    cbuf8();
  852. Xextern    int    cbuf9();
  853. Xextern    int    cbuf10();
  854. Xextern    int    cbuf11();
  855. Xextern    int    cbuf12();
  856. Xextern    int    cbuf13();
  857. Xextern    int    cbuf14();
  858. Xextern    int    cbuf15();
  859. Xextern    int    cbuf16();
  860. Xextern    int    cbuf17();
  861. Xextern    int    cbuf18();
  862. Xextern    int    cbuf19();
  863. Xextern    int    cbuf20();
  864. Xextern    int    cbuf21();
  865. Xextern    int    cbuf22();
  866. Xextern    int    cbuf23();
  867. Xextern    int    cbuf24();
  868. Xextern    int    cbuf25();
  869. Xextern    int    cbuf26();
  870. Xextern    int    cbuf27();
  871. Xextern    int    cbuf28();
  872. Xextern    int    cbuf29();
  873. Xextern    int    cbuf30();
  874. Xextern    int    cbuf31();
  875. Xextern    int    cbuf32();
  876. Xextern    int    cbuf33();
  877. Xextern    int    cbuf34();
  878. Xextern    int    cbuf35();
  879. Xextern    int    cbuf36();
  880. Xextern    int    cbuf37();
  881. Xextern    int    cbuf38();
  882. Xextern    int    cbuf39();
  883. Xextern    int    cbuf40();
  884. Xextern    int    storemac();        /* store text for macro        */
  885. Xextern    int    resize();        /* resize current window    */
  886. Xextern    int    clrmes();        /* clear the message line    */
  887. Xextern    int    meta();            /* meta prefix dummy function    */
  888. Xextern    int    cex();            /* ^X prefix dummy function    */
  889. Xextern    int    unarg();        /* ^U repeat arg dummy function    */
  890. Xextern    int    istring();        /* insert string in text    */
  891. Xextern    int    unmark();        /* unmark current buffer    */
  892. X#if    ISRCH
  893. Xextern    int    fisearch();        /* forward incremental search    */
  894. Xextern    int    risearch();        /* reverse incremental search    */
  895. X#endif
  896. X#if    WORDPRO
  897. Xextern    int    wordcount();        /* count words in region    */
  898. X#endif
  899. Xextern    int    savewnd();        /* save current window        */
  900. Xextern    int    restwnd();        /* restore current window    */
  901. Xextern    int    upscreen();        /* force screen update        */
  902. Xextern    int    writemsg();        /* write text on message line    */
  903. X#if    FLABEL
  904. Xextern    int    fnclabel();        /* set function key label    */
  905. X#endif
  906. X#if    APROP
  907. Xextern    int    apro();            /* apropos fuction        */
  908. X#endif
  909. X#if    CRYPT
  910. Xextern    int    setkey();        /* set encryption key        */
  911. X#endif
  912. Xextern    int    wrapword();        /* wordwrap function        */
  913. X#if    CFENCE
  914. Xextern    int    getfence();        /* move cursor to a matching fence */
  915. X#endif
  916. Xextern    int    newsize();        /* change the current screen size */
  917. Xextern    int    setvar();        /* set a variables value */
  918. Xextern    int    newwidth();        /* change the current screen width */
  919. X#if    AEDIT
  920. Xextern    int    trim();            /* trim whitespace from end of line */
  921. Xextern    int    detab();        /* detab rest of line */
  922. Xextern    int    entab();        /* entab rest of line */
  923. X#endif
  924. X#if    PROC
  925. Xextern    int    storeproc();        /* store names procedure */
  926. Xextern    int    execproc();        /* execute procedure */
  927. X#endif
  928. Xextern    int    nullproc();        /* does nothing... */
  929. Xextern    int    ovstring();        /* overwrite a string */
  930. Xextern    int    execprg();        /* execute a program */
  931. X
  932. X/*    Name to function binding table
  933. X
  934. X        This table gives the names of all the bindable functions
  935. X    end their C function address. These are used for the bind-to-key
  936. X    function.
  937. X*/
  938. X
  939. XNBIND    names[] = {
  940. X    {"abort-command",        ctrlg},
  941. X    {"add-mode",            setmode},
  942. X    {"add-global-mode",        setgmode},
  943. X#if    APROP
  944. X    {"apropos",            apro},
  945. X#endif
  946. X    {"backward-character",        backchar},
  947. X    {"begin-macro",            ctlxlp},
  948. X    {"beginning-of-file",        gotobob},
  949. X    {"beginning-of-line",        gotobol},
  950. X    {"bind-to-key",            bindtokey},
  951. X    {"buffer-position",        showcpos},
  952. X    {"case-region-lower",        lowerregion},
  953. X    {"case-region-upper",        upperregion},
  954. X    {"case-word-capitalize",    capword},
  955. X    {"case-word-lower",        lowerword},
  956. X    {"case-word-upper",        upperword},
  957. X    {"change-file-name",        filename},
  958. X    {"change-screen-size",        newsize},
  959. X    {"change-screen-width",        newwidth},
  960. X    {"clear-and-redraw",        refresh},
  961. X    {"clear-message-line",        clrmes},
  962. X    {"copy-region",            copyregion},
  963. X#if    WORDPRO
  964. X    {"count-words",            wordcount},
  965. X#endif
  966. X    {"ctlx-prefix",            cex},
  967. X    {"delete-blank-lines",        deblank},
  968. X    {"delete-buffer",        killbuffer},
  969. X    {"delete-mode",            delmode},
  970. X    {"delete-global-mode",        delgmode},
  971. X    {"delete-next-character",    forwdel},
  972. X    {"delete-next-word",        delfword},
  973. X    {"delete-other-windows",    onlywind},
  974. X    {"delete-previous-character",    backdel},
  975. X    {"delete-previous-word",    delbword},
  976. X    {"delete-window",        delwind},
  977. X    {"describe-bindings",        desbind},
  978. X    {"describe-key",        deskey},
  979. X#if    AEDIT
  980. X    {"detab-line",            detab},
  981. X#endif
  982. X    {"end-macro",            ctlxrp},
  983. X    {"end-of-file",            gotoeob},
  984. X    {"end-of-line",            gotoeol},
  985. X#if    AEDIT
  986. X    {"entab-line",            entab},
  987. X#endif
  988. X    {"exchange-point-and-mark",    swapmark},
  989. X    {"execute-buffer",        execbuf},
  990. X    {"execute-command-line",    execcmd},
  991. X    {"execute-file",        execfile},
  992. X    {"execute-macro",        ctlxe},
  993. X    {"execute-macro-1",        cbuf1},
  994. X    {"execute-macro-2",        cbuf2},
  995. X    {"execute-macro-3",        cbuf3},
  996. X    {"execute-macro-4",        cbuf4},
  997. X    {"execute-macro-5",        cbuf5},
  998. X    {"execute-macro-6",        cbuf6},
  999. X    {"execute-macro-7",        cbuf7},
  1000. X    {"execute-macro-8",        cbuf8},
  1001. X    {"execute-macro-9",        cbuf9},
  1002. X    {"execute-macro-10",        cbuf10},
  1003. X    {"execute-macro-11",        cbuf11},
  1004. X    {"execute-macro-12",        cbuf12},
  1005. X    {"execute-macro-13",        cbuf13},
  1006. X    {"execute-macro-14",        cbuf14},
  1007. X    {"execute-macro-15",        cbuf15},
  1008. X    {"execute-macro-16",        cbuf16},
  1009. X    {"execute-macro-17",        cbuf17},
  1010. X    {"execute-macro-18",        cbuf18},
  1011. X    {"execute-macro-19",        cbuf19},
  1012. X    {"execute-macro-20",        cbuf20},
  1013. X    {"execute-macro-21",        cbuf21},
  1014. X    {"execute-macro-22",        cbuf22},
  1015. X    {"execute-macro-23",        cbuf23},
  1016. X    {"execute-macro-24",        cbuf24},
  1017. X    {"execute-macro-25",        cbuf25},
  1018. X    {"execute-macro-26",        cbuf26},
  1019. X    {"execute-macro-27",        cbuf27},
  1020. X    {"execute-macro-28",        cbuf28},
  1021. X    {"execute-macro-29",        cbuf29},
  1022. X    {"execute-macro-30",        cbuf30},
  1023. X    {"execute-macro-31",        cbuf31},
  1024. X    {"execute-macro-32",        cbuf32},
  1025. X    {"execute-macro-33",        cbuf33},
  1026. X    {"execute-macro-34",        cbuf34},
  1027. X    {"execute-macro-35",        cbuf35},
  1028. X    {"execute-macro-36",        cbuf36},
  1029. X    {"execute-macro-37",        cbuf37},
  1030. X    {"execute-macro-38",        cbuf38},
  1031. X    {"execute-macro-39",        cbuf39},
  1032. X    {"execute-macro-40",        cbuf40},
  1033. X    {"execute-named-command",    namedcmd},
  1034. X#if    PROC
  1035. X    {"execute-procedure",        execproc},
  1036. X#endif
  1037. X    {"execute-program",        execprg},
  1038. X    {"exit-emacs",            quit},
  1039. X#if    WORDPRO
  1040. X    {"fill-paragraph",        fillpara},
  1041. X#endif
  1042. X    {"filter-buffer",        filter},
  1043. X    {"find-file",            filefind},
  1044. X    {"forward-character",        forwchar},
  1045. X    {"goto-line",            gotoline},
  1046. X#if    CFENCE
  1047. X    {"goto-matching-fence",        getfence},
  1048. X#endif
  1049. X    {"grow-window",            enlargewind},
  1050. X    {"handle-tab",            tab},
  1051. X    {"hunt-forward",        forwhunt},
  1052. X    {"hunt-backward",        backhunt},
  1053. X    {"help",            help},
  1054. X    {"i-shell",            spawncli},
  1055. X#if    ISRCH
  1056. X    {"incremental-search",        fisearch},
  1057. X#endif
  1058. X    {"insert-file",            insfile},
  1059. X    {"insert-space",        insspace},
  1060. X    {"insert-string",        istring},
  1061. X#if    WORDPRO
  1062. X    {"kill-paragraph",        killpara},
  1063. X#endif
  1064. X    {"kill-region",            killregion},
  1065. X    {"kill-to-end-of-line",        killtext},
  1066. X#if    FLABEL
  1067. X    {"label-function-key",        fnclabel},
  1068. X#endif
  1069. X    {"list-buffers",        listbuffers},
  1070. X    {"meta-prefix",            meta},
  1071. X    {"move-window-down",        mvdnwind},
  1072. X    {"move-window-up",        mvupwind},
  1073. X    {"name-buffer",            namebuffer},
  1074. X    {"newline",            newline},
  1075. X    {"newline-and-indent",        indent},
  1076. X    {"next-buffer",            nextbuffer},
  1077. X    {"next-line",            forwline},
  1078. X    {"next-page",            forwpage},
  1079. X#if    WORDPRO
  1080. X    {"next-paragraph",        gotoeop},
  1081. X#endif
  1082. X    {"next-window",            nextwind},
  1083. X    {"next-word",            forwword},
  1084. X    {"nop",                nullproc},
  1085. X    {"open-line",            openline},
  1086. X    {"overwrite-string",        ovstring},
  1087. X    {"pipe-command",        pipecmd},
  1088. X    {"previous-line",        backline},
  1089. X    {"previous-page",        backpage},
  1090. X#if    WORDPRO
  1091. X    {"previous-paragraph",        gotobop},
  1092. X#endif
  1093. X    {"previous-window",        prevwind},
  1094. X    {"previous-word",        backword},
  1095. X    {"query-replace-string",    qreplace},
  1096. X    {"quick-exit",            quickexit},
  1097. X    {"quote-character",        quote},
  1098. X    {"read-file",            fileread},
  1099. X    {"redraw-display",        reposition},
  1100. X    {"resize-window",        resize},
  1101. X    {"restore-window",        restwnd},
  1102. X    {"replace-string",        sreplace},
  1103. X#if    ISRCH
  1104. X    {"reverse-incremental-search",    risearch},
  1105. X#endif
  1106. X#if    PROC
  1107. X    {"run",                execproc},
  1108. X#endif
  1109. X    {"save-file",            filesave},
  1110. X    {"save-window",            savewnd},
  1111. X    {"scroll-next-up",        scrnextup},
  1112. X    {"scroll-next-down",        scrnextdw},
  1113. X    {"search-forward",        forwsearch},
  1114. X    {"search-reverse",        backsearch},
  1115. X    {"select-buffer",        usebuffer},
  1116. X    {"set",                setvar},
  1117. X#if    CRYPT
  1118. X    {"set-encryption-key",        setkey},
  1119. X#endif
  1120. X    {"set-fill-column",        setfillcol},
  1121. X    {"set-mark",            setmark},
  1122. X    {"shell-command",        spawn},
  1123. X    {"shrink-window",        shrinkwind},
  1124. X    {"split-current-window",    splitwind},
  1125. X    {"store-macro",            storemac},
  1126. X#if    PROC
  1127. X    {"store-procedure",        storeproc},
  1128. X#endif
  1129. X#if    BSD
  1130. X    {"suspend-emacs",        bktoshell},
  1131. X#endif
  1132. X    {"transpose-characters",    twiddle},
  1133. X#if    AEDIT
  1134. X    {"trim-line",            trim},
  1135. X#endif
  1136. X    {"unbind-key",            unbindkey},
  1137. X    {"universal-argument",        unarg},
  1138. X    {"unmark-buffer",        unmark},
  1139. X    {"update-screen",        upscreen},
  1140. X    {"view-file",            viewfile},
  1141. X    {"wrap-word",            wrapword},
  1142. X    {"write-file",            filewrite},
  1143. X    {"write-message",        writemsg},
  1144. X    {"yank",            yank},
  1145. X
  1146. X    {"",            NULL}
  1147. X};
  1148. FRIDAY_NIGHT
  1149. echo mes.15 completed!
  1150. # That's all folks!
  1151.  
  1152.  
  1153.