home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource3 / 199_01 / ged11.c < prev    next >
Text File  |  1987-12-17  |  12KB  |  403 lines
  1. /*
  2. Header:          CUG199;
  3. Title:           Terminal specific module for ged editor;
  4. Last Updated:    12/01/87;
  5.  
  6. Description:    "PURPOSE: terminal dependent screen control functions.
  7.                  Uses DeSmet's PCIO.A screen code w/additions"
  8.  
  9. Keywords:        e, editor, qed, ged, DeSmet, MSDOS;
  10. Filename:        ged11.c;
  11. Warnings:       "O file must be present during link for ged";
  12.  
  13. Authors:         G. Nigel Gilbert, James W. Haefner, and Mel Tearle;
  14. Compilers:       DeSmet 3.0;
  15.  
  16. References:
  17. Endref;
  18. */
  19.  
  20. /*
  21. e/qed/ged screen editor
  22.  
  23. (C) G. Nigel Gilbert, MICROLOGY, 1981 - August-December 1981
  24.  
  25. Modified:   Aug-Dec   1984:  BDS-C 'e'(vers 4.6a) to 'qe' (J.W. Haefner)
  26.             March     1985:  BDS-C 'qe' to DeSmet-C 'qed' (J.W. Haefner)
  27.  
  28.             May       1986:  qed converted to ged         (Mel Tearle)
  29.             August    1987:  ged converted to MSC 4.0     (Mel Tearle)
  30.  
  31. File:       ged11.c
  32.  
  33. Functions:  delpage,
  34.             norm, high, keytranslate, displayhelp
  35.  
  36. Note:       This file is very specific to IBM-PC like hardware.
  37.             Mostly interrupt routines for time, pathnames, keyboard
  38.             definitions, and help screen.
  39. */
  40.  
  41. #ifndef  TC
  42. #include "ged.h"
  43. #else
  44. #include "ged.t"
  45. #endif
  46.  
  47.  
  48. /* control key codes, here for convenience in defining terminal sequences
  49.  */
  50. #define CTRLA   0x01    /*  SOH */
  51. #define CTRLB   0x02    /*  STX */
  52. #define CTRLC   0x03    /*  ETX */
  53. #define CTRLD   0x04    /*  EOT */
  54. #define CTRLE   0x05    /*  ENQ */
  55. #define CTRLF   0x06    /*  ACK */
  56. #define CTRLG   0x07    /*  BEL */
  57. #define CTRLH   0x08    /*  BS  */
  58. #define CTRLI   0x09    /*  HT  */
  59. #define CTRLJ   0x0a    /*  LF  */
  60. #define CTRLK   0x0b    /*  VT  */
  61. #define CTRLL   0x0c    /*  FF  */
  62. #define CTRLM   0x0d    /*  CR  */
  63. #define CTRLN   0x0e    /*  SO  */
  64. #define CTRLO   0x0f    /*  SI  */
  65. #define CTRLP   0x10    /*  DLE */
  66. #define CTRLQ   0x11    /*  DC1 */
  67. #define CTRLR   0x12    /*  DC2 */
  68. #define CTRLS   0x13    /*  DC3 */
  69. #define CTRLT   0x14    /*  DC4 */
  70. #define CTRLU   0x15    /*  NAK */
  71. #define CTRLV   0x16    /*  SYN */
  72. #define CTRLW   0x17    /*  ETB */
  73. #define CTRLX   0x18    /*  CAN */
  74. #define CTRLY   0x19    /*  EM  */
  75. #define CTRLZ   0x1a    /*  SUB */
  76.  
  77.  
  78. /* defines the terminal key codes
  79.  * which perform the editor commands
  80.  */
  81. void keytranslate()
  82. {
  83. /* each tran[xxxx]= should be set to the code emitted by the terminal
  84. key which will perform the indicated action.  The recommended (control)
  85. key assignments are shown in round brackets.
  86.     Some terminals precede their codes by a lead-in character
  87. (eg the Hazeltine uses the tilde).  This char should be assigned to
  88. tran[LEADIN].  If there is no lead-in character, set tran[LEADIN] to zero.
  89.     'e' will ignore the leadin character if tran[LEADIN] is non-zero,
  90. but will set the parity bit on the next character. All other chars from the
  91. keyboard will already have any parity bits removed as they are read in.  Thus
  92. codes with lead-ins should be entered in the table below as code+0x80, or
  93. more clearly, as code+PARBIT.
  94.     For example, suppose that one is coding the Hazeltine 1420, which
  95. generates a tilde,^L (0x0d) sequence when the cursor up key is pressd.  To
  96. recognise this sequence, set tran[LEADIN] to tilde (0x7e) and set
  97. tran[UPKEY] to 0x0d+PARBIT.
  98. */
  99.     tran[LEADIN]    = 0;       /*  0 lead-in character, 0 if not used */
  100.     tran[DOWNKEY]   = CTRLX;   /*  1 cursor down */
  101.     tran[UPKEY]     = CTRLE;   /*  2 cursor up */
  102.     tran[LEFTKEY]   = CTRLS;   /*  3 cursor left */
  103.     tran[RIGHTKEY]  = CTRLD;   /*  4 cursor right */
  104.     tran[RIGHTWKEY] = CTRLF;   /*  5 cursor right one word (F) */
  105.     tran[LEFTWKEY]  = CTRLA;   /*  6 cursor left one word (A) */
  106.     tran[EOLKEY]    = CTRLP;   /*  7 cursor to end of line (P) */
  107.     tran[BOLKEY]    = CTRLO;   /*  8 cursor to beginning of line (P) */
  108.     tran[UPPAGE]    = CTRLR;   /*  9 scroll up a page (R) */
  109.     tran[DOWNPAGE]  = CTRLC;   /* 10 scroll down a page (C) */
  110.     tran[BOFKEY]    = CTRLU;   /* 11 cursor to beginning of file (U) */
  111.     tran[HOMEKEY]   = CTRLB;   /* 12 cursor to end of file (B) */
  112.     tran[DELLEFT]   = 0x7f;    /* 13 delete char to left of cursor (DEL) */
  113.     tran[DELRIGHT]  = CTRLG;   /* 14 delete char under cursor (G) */
  114.     tran[DELLNKEY]  = 0x1C;    /* 15 delete cursor line (^\) */
  115.     tran[DELWDKEY]  = CTRLT;   /* 16 delete word to right of cursor (T) */
  116.     tran[JUMPKEY]   = CTRLJ;   /* 17 jump to (J) */
  117.     tran[CRSTILL]   = CTRLN;   /* 18 insert newline after cursor (N) */
  118.     tran[QWIKKEY]   = CTRLQ;   /* 19 quit (Q) */
  119.     tran[SCRLUPKEY] = CTRLW;   /* 20 scroll up thru text (W) */
  120.     tran[TOPSCRKEY] = CTRLY;   /* 21 top of screen (Y) */
  121.     tran[BOTSCRKEY] = CTRLV;   /* 22 bottom of screen (V) */
  122.     tran[BLOCKKEY]  = CTRLK;   /* 23 block operations (K) */
  123.     tran[SCRLDNKEY] = CTRLZ;   /* 24 scroll down thru text (Z) */
  124.     tran[REPKEY]    = CTRLL;   /* 25 repeat last find/alter (L) */
  125.     tran[HELPKEY]   = 0x1e;    /* 26 display help menu (^^) */
  126.     tran[OOPSKEY]   = 0x1f;    /* 27 restore unedited line (^_) */
  127.     tran[TAB]       = CTRLI;   /* 28 tab (I) */
  128.     tran[RETRIEVE]  = CTRLL;   /* 29 retrieve (L) */
  129.     tran[CR]        = 0x0d;    /* 30 return */
  130.     tran[ESCKEY]    = 0x1b;    /* 31 escape, the magic key (ESC) */
  131. }
  132.  
  133.  
  134. /* interrupt routines follow */
  135.  
  136. #ifndef DS
  137.  
  138. union   REGS   r;
  139. struct  SREGS  seg;
  140.  
  141. /* get current cursor position
  142.  */
  143. int getcursor()
  144. {
  145. r.x.ax = 0x0300;
  146. r.x.bx = 0 << 8;
  147. int86( 0x10, &r, &r );
  148. return ( r.h.dl );
  149. }
  150.  
  151.  
  152. void curdrv(drv)
  153. char drv[];
  154. {
  155. r.x.ax = 0x1900;               /* DOS interrupt 19 */
  156. intdos( &r, &r );              /* gets current drive number */
  157.  
  158. drv[0] = ( char ) ( r.x.ax + 'a');  /* convert to symbolic drive name */
  159. drv[1] = ':';
  160. drv[2] = '\0';
  161. }
  162.  
  163.  
  164. /* getpath - get path to directory on default drive
  165.  */
  166. void getpath(path)
  167. char path[];
  168. {
  169. strcat( path, "\\" );
  170.  
  171. r.x.ax = 0x4700;             /*   DOS interrupt 47 gets path string  */
  172. r.x.dx = path[0] - '`';      /*   convert to index */
  173. r.x.si = (unsigned)&path[3];
  174. intdos( &r, &r );
  175. }
  176.  
  177.  
  178. /* this function originally used sprintf to format timestr, however
  179.  * that added 4K of overhead to ged and was only used by this routine
  180.  */
  181. void xgettime()
  182. {
  183. unsigned  hour, min;
  184. char str[4];
  185.  
  186. r.x.ax = 0x2C00;
  187. intdos( &r, &r );
  188.  
  189. min  = r.x.cx  &  0x00ff;
  190. hour = r.x.cx  >>  8;
  191.  
  192. zf_time( hour, str );   strcpy( timestr, str );   strcat( timestr, ":" );
  193. zf_time( min, str );    strcat( timestr, str );
  194. }
  195.  
  196.  
  197. /* get status of parallel printer port - is the printer turned on?
  198.  * report if error
  199.  */
  200. int prnstat()
  201. {
  202. r.x.ax = ( 0x02 << 8 );
  203. r.x.dx = 0;                /* 0 = prn */
  204. intdos( &r, &r );
  205.  
  206. if ( ( ( r.x.ax >> 8 ) & 0x80 ) ||
  207.      ( ( r.x.ax >> 8 ) & 0x40 ) ||
  208.      ( ( r.x.ax >> 8 ) & 0x10 ) )
  209.       return( 1 );
  210. else  {
  211.      scr_co( '\07' );
  212.      error( "error on printer " );
  213.      return( 0 );
  214.   }
  215. }
  216.  
  217. #else
  218.  
  219. /* DeSmet C variables for 8086 registers and flags
  220.  */
  221. unsigned  _rax, _rbx, _rcx, _rdx, _rsi, _rdi, _res, _rds;
  222.     char  _carryf, _zerof;
  223.  
  224.  
  225. /* get current cursor position
  226.  */
  227. int getcursor()
  228. {
  229. _rax = 0x0300;
  230. _rbx = 0 << 8;
  231. _doint( 0x10 );
  232. return ( _rdx & 0xff );
  233. }
  234.  
  235.  
  236. /* curdrv - get current default drive
  237.  * from ed nather's ls.c
  238.  */
  239. void curdrv(drv)
  240. char *drv;
  241. {
  242. int i;
  243.  
  244. i = _os( 0x19, 0 );       /* gets current drive number */
  245.  
  246. *drv++ = i + 'a';         /* convert to symbolic drive name */
  247. *drv++ = ':';
  248. return;
  249. }
  250.  
  251.  
  252. /* get path to directory on indicated drive
  253.  * from ed nather's ls.c
  254.  */
  255. void getpath(path)
  256. char *path;
  257. {
  258. extern int _showds();
  259.  
  260. strcat( path, "\\" );     /* append root file symbol to drive name */
  261.  
  262. _rax = 0x4700;            /* DOS interrupt 47 gets path string */
  263. _rdx = *path - '`';       /* convert drive name to index */
  264. _rsi = path + 3;          /* paste string after root symbol */
  265. _rds = _showds();
  266. _doint( DOSINT );
  267. return;
  268. }
  269.  
  270.  
  271. /* this function originally used sprintf to format timestr, however
  272.  * that added 4K of overhead to ged and was on