home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 355.lha / echo_v1.07 / echo.c < prev    next >
C/C++ Source or Header  |  1990-03-12  |  12KB  |  332 lines
  1. /*-------------------------------------------------------------------------*/
  2. /*      Program:  echo                                                     */
  3. /*   Programmer:  George Kerber                                            */
  4. /*      Written:  08/26/89                                                 */
  5. /*     Compiler:  Lattice 5.04                                             */
  6. /*-------------------------------------------------------------------------*/
  7.  
  8. #include <stdio.h>
  9. #include <dos.h>
  10. #include <stdlib.h>
  11. #include <string.h>
  12. #include <exec/types.h>
  13.  
  14. #define WRITTEN "08/26/89 - 01/01/90"
  15. #define VERSION "v1.08c"
  16.  
  17. void addchar();            /*  Adds characters to outputstring        */
  18. void addstr();             /*  Adds string to outputstring            */
  19. void helpscreen();         /*  Helpscreen                             */
  20. void main();               /*  Main                                   */
  21. void makeline();           /*  Makes a black line                     */
  22. void mistake();            /*  Handles errors                         */
  23. void putcode();            /*  By Garry Glendown (modified by GK)     */
  24. void setattr();            /*  Switch to set attributes               */
  25. int  verifyopt();          /*  Verifies options for numeric content   */
  26.  
  27. char node[32] , outputstring[256] = "";
  28. char opts[] = "mudhrpsa" , option , *option1;
  29.  
  30. void main(int argc, char *argv[])
  31. { 
  32. int escape_char = '*' ;
  33. char *tempy;
  34. char spacer[80];
  35. char *token;          /*  used for strtok                                  */
  36. int i , c_count , counter = -1 , next , z[2] ;
  37. int kflag = 0, nflag = 0, xflag = 0, xyflag = 0, cflag = 0;
  38.  
  39. /*----- Sets escape value -------------------------------------------------*/
  40.  
  41. tempy = getenv("ESCAPE");
  42. if(tempy != NULL) escape_char = *tempy;
  43.    
  44. /*----- Calls helpscreen if argv[1] = ? -----------------------------------*/
  45.  
  46. stcgfn(node,argv[0]);
  47. if(argc == 2 && argv[1][0] == '?') helpscreen(escape_char);
  48.  
  49. /*----- Gets options ------------------------------------------------------*/
  50.  
  51. c_count = 0;
  52. for( next = 1 ; (option1 = argopt(argc,argv,opts,&next,&option)) != NULL ; ) { 
  53.    switch(toupper(option)) {
  54.       case 'A':  token = strtok(option1,",");
  55.                  i = 0;
  56.                  while(token != NULL) {
  57.                  if(strlen(token) > 1) mistake("Invalid -a option");
  58.                     setattr(token[0]);
  59.                     token = strtok(NULL,",");
  60.                     }
  61.                  break;
  62.       case 'X':  xflag++; break;           /*  center line                */
  63.       case 'N':  nflag++; break;          /*  supress newline            */
  64.       case 'K':  kflag++; break;          /*  don't reset attributes     */
  65.       case 'Z':  cflag++; nflag = 1; break;  /*  remove cursor             */
  66.       case 'E':  putcode(1); break;         /*  clear to bottom of screen  */
  67.       case 'C':  putcode(0); break;         /*  clear screen               */
  68.       case 'H':  putcode(2,(verifyopt(option1))); break;  /*   scroll up   */
  69.       case 'R':  putcode(3,(verifyopt(option1))); break;  /*   scroll down */
  70.       case 'U':  putcode(4,(verifyopt(option1))); break;  /*   move up     */
  71.       case 'D':  putcode(5,(verifyopt(option1))); break;  /*   move down   */
  72.       case 'P':  token = strtok(option1,",");
  73.                  i = 0;
  74.                  while(token != NULL) {
  75.                     z[i] = verifyopt(token);
  76.                     if(++i > 2) mistake("Excess Options for -p");
  77.                     token = strtok(NULL,",");
  78.                     }
  79.                  if(i != 2) mistake("Missing Option for -p");
  80.                  if(z[1] > 23) mistake("Lines > 23");
  81.                  if(z[0] > 77) mistake("Character Position > 77");
  82.                  if(z[0] != 0) xyflag = 1;
  83.                  putcode(6,z[0],z[1]);
  84.                  break;
  85.      case 'M':   xyflag = 1;
  86.                  i = verifyopt(option1);
  87.                  if(!i || i > 69) mistake("Entry must be 1 - 69");
  88.                  for( ; i > 0 ;strcat(spacer," "), i--) ;
  89.                  break;
  90.       default:   mistake("Invalid Option"); break;
  91.       }
  92.    }
  93.  
  94.  
  95. /*  -----  More error checking  -------------------------------------------*/
  96.  
  97. if(argc > (next + 1)) {
  98.    if(stricmp(argv[next + 1],"NOLINE"))
  99.       mistake("Final option can only be NOLINE");
  100.    if(argc > (next + 2)) mistake("Invalid Option Count");
  101.    }
  102.  
  103. /*----- Checks input string for escape characters -------------------------*/
  104.  
  105. if(argc != next) {
  106.    while(argv[next][++counter] != (char *)NULL) {
  107.       if(argv[next][counter] == escape_char) {
  108.          if(argv[next][++counter] == escape_char) {
  109.             c_count++;
  110.             addchar(escape_char);
  111.             continue;
  112.             }
  113.          switch(argv[next][counter]) {
  114.             case 'n' :   addchar('\n'); xyflag = 1; break ;  /*  newline   */
  115.             case 't' :   addchar('\t'); break ;              /*  tab       */
  116.             case 'b' :   addchar('\b'); break ;              /*  backspace */
  117.             case 'q' :   addchar('"') ; c_count++ ; break ;  /*  quote "   */
  118.             case '$' :   break;
  119.             case '\\':   addchar('\\'); c_count++ ; break ;  /*  backslash */
  120.             default  :   /*  check for attribute escape options            */
  121.                          setattr(argv[next][counter]); break ;
  122.             }
  123.          }
  124.          else {
  125.          if(xflag) c_count++;
  126.          addchar(argv[next][counter]);
  127.          }
  128.       continue;
  129.       }
  130.    }
  131.  
  132. /*----- Actually prints outputstring if one was entered -------------------*/
  133.  
  134. if(xflag && xyflag) mistake("Invalid option combined with -x");
  135. if(xflag) {
  136.    if(c_count > 74) mistake("Input string too long to center");
  137.    c_count = (80 - c_count) / 2;
  138.    for( ; c_count > 0 ;strcat(spacer," "), c_count--) ;
  139.    }
  140.  
  141. if(cflag) {
  142.    sprintf(node," \b");
  143.    strcat(outputstring,node);
  144.    }
  145.  
  146. printf("%s%s",spacer,outputstring);
  147. if(!kflag) printf("");           /*  retains attribute options if -k  */
  148. if(!stricmp(argv[argc - 1],"NOLINE")) nflag = 1; if(!nflag) printf("\n");
  149. exit(0); 
  150.  
  151. } 
  152.  
  153. /*-------------------------------------------------------------------------*/
  154.  
  155. /*  addstr FUNCTION  (copies passed string to outputstring)  */
  156.  
  157. void addstr(char string1[])
  158. {
  159. strcat(outputstring,string1);
  160. }
  161.  
  162. /*-------------------------------------------------------------------------*/
  163.  
  164. /*  ADDCHAR FUNCTION  (copies passed character to outputstring  */
  165.  
  166. void addchar(int char1)
  167. {
  168. int i;
  169. i = strlen(outputstring);
  170. outputstring[i] = char1;
  171. outputstring[i + 1] = '\0';
  172. }
  173.  
  174. /*-------------------------------------------------------------------------*/
  175.  
  176. /*  HELPSCREEN FUNCTION  */
  177.  
  178. void helpscreen(int escape_char)
  179. {
  180. int i;
  181. i = 0;
  182. putcode(0);
  183. makeline();
  184. printf("\n%6c%s%13cGeorge Kerber%11s%26s\n\n",i,node,i,VERSION,WRITTEN); 
  185. printf("%6cSYNTAX:  %s [-options] [\"string\"] [NOLINE]\n\n",i,node);
  186. printf("%22cEscape Character is currently set to \"%c\"\n\n",i,escape_char);
  187. printf("%11c-a n,n...  Text/screen attributes.  (see docs)\n",i);
  188. printf("%11c-c%10cClear the screen.\n",i,i);
  189. printf("%11c-e%10cDelete from cursor to bottom of screen.\n",i,i);
  190. printf("%11c-n%10cSame as NOLINE, supress newline after printing string.\n",i,i);
  191. printf("%11c-k%10cRetain attributes.\n",i,i);
  192. printf("%11c-x%10cCenter string \(Incompatible with -m\)\n",i,i);
  193. printf("%11c-h|r n%6cScroll up(h) or down(r) \"n\" lines.\n",i,i);
  194. printf("%11c-u|d n%6cMove cursor up or down \"n\" lines.\n",i,i);
  195. printf("%11c-m n%8cBegin string at char position \"n\" (0-77).\n",i,i);
  196. printf("%11c-p x,y%6cSet cursor to position x,y.\n",i,i);
  197. printf("%22cwhere x = char position (0-77) & y = line (0-23).",i);
  198. makeline();
  199. printf("\n");
  200. exit(0);
  201. }
  202.  
  203. /*-------------------------------------------------------------------------*/
  204.  
  205. /*  MAKELINE FUNCTION  (prints a black line when called)  */
  206.  
  207. void makeline()
  208. {
  209. printf("\n  ___________________________________________________________________________\n");
  210. }
  211.  
  212. /*-------------------------------------------------------------------------*/
  213.  
  214. /*  MISTAKE FUNCTION  (prints a passwd error message, then exits 5)  */
  215.  
  216. void mistake(char description[])
  217. {
  218. makeline();
  219. fprintf(stderr,"\n\07      ERROR: %s  %s.",node,description);
  220. makeline();
  221. printf("\n");
  222. exit(5);
  223. }
  224.  
  225. /*-------------------------------------------------------------------------*/
  226.  
  227. /*  PUTCODE FUNCTION  */
  228.  
  229. /*  putcode directions
  230.  
  231. 0   putcode(0)                clear screen
  232. 1   putcode(1)                clear to end of screen
  233. 2   putcode(2,x)              scroll up 'x' lines
  234. 3   putcode(3,x)              scroll down 'x' lines
  235. 4   putcode(4,x)              move cursor up 'x' lines
  236. 5   putcode(5,x)              move cursor down 'x' lines
  237. 6   putcode(6,x,y)            position cursor, x = char # and y = line #
  238.  
  239. */
  240.  
  241.  
  242. UBYTE code[][9]={
  243.     {12,0},                /*  0  Clear screen            */
  244.     {0x9b,0x4a,0},            /*  1  Clear to end of screen  */
  245.     {0x9b,1,0x53,0},                /*  2  Scroll up               */
  246.     {0x9b,1,0x54,0},        /*  3  Scroll down             */
  247.     {0x9b,1,0x41,0},                /*  4  Move cursor up          */
  248.     {0x9b,1,0x42,0},        /*  5  Move cursor down        */
  249.     {0x9b,1,';',1,0x48,0},        /*  6  Position cursor x,y     */
  250.     };
  251.  
  252. void putcode(int n, int a0, int a1)
  253. {
  254. int a[3],g,zz = 0;
  255.  
  256. if(n == 6) {                  /*  reverse a0 and a1 for normal x & y  */
  257.    g = a0;
  258.    a0 = a1;
  259.    a1 = g;
  260.    }
  261.  
  262. a[0] = a0 ; a[1] = a1 ; a[2] = -1 ;
  263.  
  264. if(n != 6) a[1] = -1;
  265. if(n == 0 || n == 1) a[0] = -1;
  266.  
  267. for(g = 0 ; g < 7 ; g++ ) {
  268.    if(!code[n][g]) {
  269.       g = 10; 
  270.       }
  271.       else {
  272.       if(code[n][g] == 1) { 
  273.          if (a[zz] != -1) printf("%d",a[zz]);
  274.          zz++; 
  275.          }
  276.          else {
  277.          putchar(code[n][g]);
  278.          }
  279.       }   
  280.    }
  281. }
  282.  
  283. /*-------------------------------------------------------------------------*/
  284.  
  285. /*  SETATTR FUNCTION  (switch statement to handle escape options)  */
  286.  
  287. void setattr(int char2)
  288. {
  289.  
  290. switch(char2) {
  291.    case '0':  addstr(""); break; /* color 0 char    */
  292.    case '1':  addstr(""); break; /* color 1 char    */
  293.    case '2':  addstr(""); break; /* color 2 char    */
  294.    case '3':  addstr(""); break; /* color 3 char    */
  295.    case 'D':
  296.    case '4':  addstr("");  break; /* default attr    */
  297.    case 'B':
  298.    case '5':  addstr("");  break; /* bold char                   */
  299.    case 'U':
  300.    case '6':  addstr("");  break; /* underline char              */
  301.    case 'I':
  302.    case '7':  addstr("");  break; /* italics char                */
  303.    case ')':  addstr(""); break; /* color 0 bkgnd                    */
  304.    case '!':  addstr(""); break; /* color 1 bkgnd                    */
  305.    case '@':  addstr(""); break; /* color 2 bkgnd                    */
  306.    case '#':  addstr(""); break; /* color 3 bkgnd               */
  307.    default :  mistake("Invalid ATTRIBUTE argument"); break;
  308.    }
  309.  
  310. }
  311.  
  312. /*-------------------------------------------------------------------------*/
  313.  
  314. /*  VERIFYOPT FUNCTION  (verifies numeric value and sets j[passed])  */
  315.  
  316. int verifyopt(char xxx[], int j_value)
  317. {
  318. int i;
  319. if(!strcmp(xxx,"")) mistake("Requires numeric argument for option");
  320. for(i = strlen(xxx) ; i >= 1 ; i-- ) {
  321.    if(!isdigit(xxx[i - 1])) mistake("Missing, negative or non-numeric entry");
  322.    }
  323. return(atoi(xxx));
  324.  
  325. }
  326.  
  327. /*-------------------------------------------------------------------------*\
  328.  
  329. 11/01/89 v1.08b:  Re-compiled with Lattice 5.04
  330.  
  331. \*-------------------------------------------------------------------------*/
  332.