home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / vt100 / esc.c < prev    next >
C/C++ Source or Header  |  1995-09-11  |  8KB  |  399 lines
  1. #include "header.h"
  2.  
  3. println(s) char *s; {
  4.   printf("%s\n", s);
  5. }
  6.  
  7. esc(s) char *s; {
  8.   printf("%c%s", 27, s);
  9. }
  10.  
  11. esc2(s1, s2) char s1, s2; {
  12.   printf("%c%s%s", 27, s1, s2);
  13. }
  14.  
  15. brcstr(ps, c) char *ps, c; {
  16.   printf("%c[%s%c", 27, ps, c);
  17. }
  18.  
  19. brc(pn,c) int pn; char c; {
  20.   printf("%c[%d%c", 27, pn, c);
  21. }
  22.  
  23. brc2(pn1, pn2 ,c) int pn1, pn2; char c; {
  24.   printf("%c[%d;%d%c", 27, pn1, pn2, c);
  25. }
  26.  
  27. cub(pn) int pn; {  /* Cursor Backward */
  28.   brc(pn,'D');
  29. }
  30. cud(pn) int pn; {  /* Cursor Down */
  31.   brc(pn,'B');
  32. }
  33. cuf(pn) int pn; {  /* Cursor Forward */
  34.   brc(pn,'C');
  35. }
  36. cup(pn1, pn2) int pn1, pn2; {  /* Cursor Position */
  37.   brc2(pn1, pn2, 'H');
  38. }
  39. cuu(pn) int pn; {  /* Cursor Up */
  40.   brc(pn,'A');
  41. }
  42. da() {  /* Device Attributes */
  43.   brc(0,'c');
  44. }
  45. decaln() {  /* Screen Alignment Display */
  46.   esc("#8");
  47. }
  48. decdhl(lower) int lower; {  /* Double Height Line (also double width) */
  49.   if (lower) esc("#4");
  50.   else       esc("#3");
  51. }
  52. decdwl() {  /* Double Wide Line */
  53.   esc("#6");
  54. }
  55. deckpam() {  /* Keypad Application Mode */
  56.   esc("=");
  57. }
  58. deckpnm() {  /* Keypad Numeric Mode */
  59.   esc(">");
  60. }
  61. decll(ps) char *ps; {  /* Load LEDs */
  62.   brcstr(ps, 'q');
  63. }
  64. decrc() {  /* Restore Cursor */
  65.   esc("8");
  66. }
  67. decreqtparm(pn) int pn; {  /* Request Terminal Parameters */
  68.   brc(pn,'x');
  69. }
  70. decsc() {  /* Save Cursor */
  71.   esc("7");
  72. }
  73. decstbm(pn1, pn2) int pn1, pn2; {  /* Set Top and Bottom Margins */
  74.   if (pn1 || pn2) brc2(pn1, pn2, 'r');
  75.   else            esc("[r");
  76.   /* Good for >24-line terminals */
  77. }
  78. decswl() {  /* Single With Line */
  79.   esc("#5");
  80. }
  81. dectst(pn) int pn; {  /* Invoke Confidence Test */
  82.   brc2(2, pn, 'y');
  83. }
  84. dsr(pn) int pn; {  /* Device Status Report */
  85.   brc(pn, 'n');
  86. }
  87. ed(pn) int pn; {  /* Erase in Display */
  88.   brc(pn, 'J');
  89. }
  90. el(pn) int pn; {  /* Erase in Line */
  91.   brc(pn,'K');
  92. }
  93. hts() {  /* Horizontal Tabulation Set */
  94.   esc("H");
  95. }
  96. hvp(pn1, pn2) int pn1, pn2; {  /* Horizontal and Vertical Position */
  97.   brc2(pn1, pn2, 'f');
  98. }
  99. ind() {  /* Index */
  100.   esc("D");
  101. }
  102. nel() {  /* Next Line */
  103.   esc("E");
  104. }
  105. ri() {  /* Reverse Index */
  106.   esc("M");
  107. }
  108. ris() { /*  Reset to Initial State */
  109.   esc("c");
  110. }
  111. rm(ps) char *ps; {  /* Reset Mode */
  112.   brcstr(ps, 'l');
  113. }
  114. scs(g,c) int g; char c; {  /* Select character Set */
  115.   printf("%c%c%c%c%c%c%c", 27, g ? ')' : '(', c,
  116.                            27, g ? '(' : ')', 'B',
  117.                g ? 14 : 15);
  118. }
  119. sgr(ps) char *ps; {  /* Select Graphic Rendition */
  120.   brcstr(ps, 'm');
  121. }
  122. sm(ps) char *ps; {  /* Set Mode */
  123.   brcstr(ps, 'h');
  124. }
  125. tbc(pn) int pn; {  /* Tabulation Clear */
  126.   brc(pn, 'g');
  127. }
  128.  
  129. vt52cup(l,c) int l,c; {
  130.   printf("%cY%c%c", 27, l + 31, c + 31);
  131. }
  132.  
  133. char inchar() {
  134.  
  135.   /*
  136.    *   Wait until a character is typed on the terminal
  137.    *   then read it, without waiting for CR.
  138.    */
  139.  
  140. #ifdef UNIX
  141.   int lval, waittime, getpid(); static int val; char ch;
  142.  
  143.   fflush(stdout);
  144.   lval = val;
  145.   brkrd = 0;
  146.   reading = 1;
  147.   read(0,&ch,1);
  148.   reading = 0;
  149.   if (brkrd)
  150.     val = 0177;
  151.   else
  152.     val = ch;
  153.   if ((val==0177) && (val==lval))
  154.     kill(getpid(), (int) SIGTERM);
  155. #endif
  156. #ifdef SARG10
  157.   int val, waittime;
  158.  
  159.   waittime = 0;
  160.   while(!uuo(051,2,&val)) {        /* TTCALL 2, (INCHRS)    */
  161.     zleep(100);                /* Wait 0.1 seconds    */
  162.     if ((waittime += ttymode) > 600)    /* Time-out, in case    */
  163.       return('\177');            /* of hung in ttybin(1)    */
  164.   }
  165. #endif
  166. #ifdef SARG20    /* try to fix a time-out function */
  167.   int val, waittime;
  168.  
  169.   waittime = 0;
  170.   while(jsys(SIBE,2,_PRIIN) == 0) {    /* Is input empty? */
  171.     zleep(100);
  172.     if ((waittime += ttymode) > 600)
  173.       return('\177');
  174.   }
  175.   ejsys(BIN,_PRIIN);
  176.   val = jsac[2];
  177. #endif
  178.   return(val);
  179. }
  180.  
  181. char *instr() {
  182.  
  183.   /*
  184.    *   Get an unfinished string from the terminal:
  185.    *   wait until a character is typed on the terminal,
  186.    *   then read it, and all other available characters.
  187.    *   Return a pointer to that string.
  188.    */
  189.  
  190.  
  191.   int i, val, crflag; long l1; char ch;
  192.   static char result[80];
  193.  
  194.   i = 0;
  195.   result[i++] = inchar();
  196. /* Wait 0.1 seconds (1 second in vanilla UNIX) */
  197. #ifdef SARG10
  198.   if (trmop(01031,0) < 5) zleep(500); /* wait longer if low speed */
  199.   else                    zleep(100);
  200. #else
  201.   zleep(100);
  202. #endif
  203. #ifdef UNIX
  204.   fflush(stdout);
  205. #ifdef XENIX
  206.   while(rdchk(0)) {
  207.     read(0,result+i,1);
  208.     if (i++ == 78) break;
  209.   }
  210. #else
  211. #ifdef SIII
  212.   while(read(2,result+i,1) == 1)
  213.     if (i++ == 78) break;
  214. #else
  215.   while(ioctl(0,FIONREAD,&l1), l1 > 0L) {
  216.     while(l1-- > 0L) {
  217.       read(0,result+i,1);
  218.       if (i++ == 78) goto out1;
  219.     }
  220.   }
  221. out1:
  222. #endif
  223. #endif
  224. #endif
  225. #ifdef SARG10
  226.   while(uuo(051,2,&val)) {    /* TTCALL 2, (INCHRS)  */
  227.     if (!(val == '\012' && crflag))    /* TOPS-10 adds LF to CR */
  228.       result[i++] = val;
  229.     crflag = val == '\015';
  230.     if (i == 79) break;
  231.     zleep(50);          /* Wait 0.05 seconds */
  232.   }
  233. #endif
  234. #ifdef SARG20
  235.   while(jsys(SIBE,2,_PRIIN) != 0) {    /* read input until buffer is empty */
  236.     ejsys(BIN,_PRIIN);
  237.     result[i++] = jsac[2];
  238.     if (i == 79) break;
  239.     zleep(50);        /* Wait 0.05 seconds */
  240.   }
  241. #endif
  242.   result[i] = '\0';
  243.   return(result);
  244. }
  245.  
  246. ttybin(bin) int bin; {
  247. #ifdef SARG10
  248.   #define OPEN 050
  249.   #define IO_MOD 0000017
  250.   #define _IOPIM 2
  251.   #define _IOASC 0
  252.   #define _TOPAG 01021
  253.   #define _TOSET 01000
  254.  
  255.   int v;
  256.   static int arglst[] = {
  257.     _IOPIM,
  258.     `TTY`,
  259.     0    
  260.   };
  261.   arglst[0] = bin ? _IOPIM : _IOASC;
  262.   v = uuo(OPEN, 1, &arglst[0]);
  263.   if (!v) { printf("OPEN failed"); exit(); }
  264.   trmop(_TOPAG + _TOSET, bin ? 0 : 1);
  265.   ttymode = bin;
  266. #endif
  267. #ifdef SARG20
  268.   /*    TTYBIN will set the line in BINARY/ASCII mode
  269.    *    BINARY mode is needed to send control characters
  270.    *    Bit 28 must be 0 (we don't flip it).
  271.    *    Bit 29 is used for the mode change.
  272.    */
  273.  
  274.   #define _TTASC 0000100
  275.   #define _MOXOF 0000043
  276.  
  277.   int v;
  278.  
  279.   ejsys(RFMOD,_CTTRM);
  280.   v = ejsys(SFMOD,_CTTRM, bin ? (~_TTASC & jsac[2]) : (_TTASC | jsac[2]));
  281.   if (v) { printf("SFMOD failed"); exit(); }
  282.   v = ejsys(MTOPR,_CTTRM,_MOXOF,0);
  283.   if (v) { printf("MTOPR failed"); exit(); }
  284. #endif
  285. }
  286.  
  287. #ifdef SARG20
  288. /*
  289.  *    SUPERBIN turns off/on all input character interrupts
  290.  *    This affects ^C, ^O, ^T
  291.  *    Beware where and how you use it !!!!!!!
  292.  */
  293.  
  294. superbin(bin) int bin; {
  295.   int v;
  296.  
  297.   v = ejsys(STIW,(0//-5), bin ? 0 : -1);
  298.   if (v) { printf("STIW superbinary setting failed"); exit(); }
  299.   ttymode = bin;
  300. }
  301.  
  302. /*
  303.  *    PAGE affects the ^S/^Q handshake.
  304.  *    Set bit 34 to turn it on. Clear it for off.
  305.  */
  306.  
  307. page(bin) int bin; {
  308.   int v;
  309.  
  310.   #define TT_PGM 0000002
  311.  
  312.   ejsys(RFMOD,_CTTRM);    /* Get the current terminal status */
  313.   v = ejsys(STPAR,_CTTRM, bin ? (TT_PGM | jsac[2]) : (~TT_PGM & jsac[2]));
  314.   if (v) { printf("STPAR failed"); exit(); }
  315. }
  316. #endif
  317.  
  318. trmop(fc,arg) int fc, arg; {
  319. #ifdef SARG10
  320.   int retvalp;
  321.   int arglst[3];
  322.  
  323.   /* TRMOP is a TOPS-10 monitor call that does things to the terminal. */
  324.  
  325.   /* Find out TTY nbr (PA1050 barfs if TRMOP get -1 instead of udx)    */
  326.   /* A TRMNO monitor call returns the udx (Universal Device Index)     */
  327.  
  328.   arglst[0] = fc;        /* function code    */
  329.   arglst[1] = calli(0115, -1);    /* udx, TRMNO. UUO    */
  330.   arglst[2] = arg;        /* Optional argument    */
  331.  
  332.   if (calli(0116, 3 // &arglst[0], &retvalp))           /* TRMOP. UUO */
  333.   return (retvalp);
  334.   else {
  335.     printf("?Error return in TRMOP.");
  336.     exit();
  337.   }
  338. #endif
  339. }
  340.  
  341. inputline(s) char *s; {
  342.   scanf("%s",s);
  343. #ifdef SARG10
  344.   readnl();
  345. #endif
  346. #ifdef SARG20
  347.   readnl();
  348. #endif
  349. }
  350.  
  351. inflush() {
  352.  
  353.   /*
  354.    *   Flush input buffer, make sure no pending input character
  355.    */
  356.  
  357.   int val;
  358.  
  359. #ifdef UNIX
  360. #ifdef XENIX
  361.   while(rdchk(0)) read(0,&val,1);
  362. #else
  363. #ifdef SIII
  364.   while(read(2,&val,1));
  365. #else
  366.   long l1;
  367.   ioctl (0, FIONREAD, &l1);
  368.   while(l1-- > 0L) read(0,&val,1);
  369. #endif
  370. #endif
  371. #endif
  372. #ifdef SARG10
  373.   while(uuo(051,2,&val))    /* TTCALL 2, (INCHRS)  */
  374.     ;
  375. #endif
  376. #ifdef SARG20
  377.   ejsys(CFIBF,_PRIIN);        /* Clear input buffer */
  378. #endif
  379. }
  380.  
  381. zleep(t) int t; {
  382.  
  383. /*
  384.  *    Sleep and do nothing (don't waste CPU) for t milliseconds
  385.  */
  386.  
  387. #ifdef SARG10
  388.   calli(072,t);        /* (HIBER) t milliseconds */
  389. #endif
  390. #ifdef SARG20
  391.   ejsys(DISMS,t);    /* DISMISS for t milliseconds */
  392. #endif
  393. #ifdef UNIX
  394.   t = t / 1000;
  395.   if (t == 0) t = 1;
  396.   sleep(t);        /* UNIX can only sleep whole seconds */
  397. #endif
  398. }
  399.