home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource3 / 126_01 / martz_sz.c < prev    next >
Encoding:
Text File  |  1985-03-11  |  6.1 KB  |  204 lines
  1. /*********************************************************************\
  2. ** .---------------------------------------------------------------. **
  3. ** |                                                               | **
  4. ** |                                                               | **
  5. ** |         Copyright (c) 1981, 1982, 1983 by Eric Martz.         | **
  6. ** |                                                               | **
  7. ** |                                                               | **
  8. ** |       Permission is hereby granted to use this source         | **
  9. ** |       code only for non-profit purposes. Publication of       | **
  10. ** |       all or any part of this source code, as well as         | **
  11. ** |       use for business purposes is forbidden without          | **
  12. ** |       written permission of the author and copyright          | **
  13. ** |       holder:                                                 | **
  14. ** |                                                               | **
  15. ** |                          Eric Martz                           | **
  16. ** |                         POWER  TOOLS                          | **
  17. ** |                    48 Hunter's Hill Circle                    | **
  18. ** |                      Amherst MA 01002 USA                     | **
  19. ** |                                                               | **
  20. ** |                                                               | **
  21. ** `---------------------------------------------------------------' **
  22. \*********************************************************************/
  23.  
  24. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  25. /* MARTZLIB.C IS A LIBRARY OF FUNCTIONS OF GENERAL USE.
  26.  
  27.     MARTZ-SZ.C CONTAINS:
  28.  
  29.         setbaud(baud)
  30.         substitute(before, oldstring, newstring)
  31.         todelim(left,buf,delim)
  32.         trimwhite(side, first, tnull) DOES NOT WORK, USE CHOPWHITE
  33.         upper(s)
  34.         ynq(s)
  35. */
  36. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  37. setbaud(baud)
  38.  
  39. /* SETS BAUD FOR SERIAL PORT ON CALIFORNIA COMPUTER SYSTEMS MODEL
  40. 2810 Z80 S-100 CPU BOARD */
  41.  
  42.     int baud;
  43.     {
  44.     int hi, lo;
  45.     hi = 0;
  46.     /* LOOK UP DIVISOR LATCH VALUES */
  47.     switch (baud){
  48.         case 110:
  49.             hi = 4;
  50.             lo = 23; /* 1047 */
  51.             break;
  52.         case 300:
  53.             hi = 1;
  54.             lo = 128; /* 384 */
  55.             break;
  56.         case 1200:
  57.             lo = 96;
  58.             break;
  59.         case 2400:
  60.             lo = 48;
  61.             break;
  62.         case 4800:
  63.             lo = 24;
  64.             break;
  65.         case 9600:
  66.             lo = 12;
  67.             break;
  68.         case 19200:
  69.             lo = 6;
  70.             break;
  71.         default:
  72.             return(1);
  73.     }
  74.     outp(35,131);    /* SET DIVISOR LATCH ACCESS BIT */
  75.     outp(32,lo);    /* DIVISOR LATCH, LEAST SIGN. BYTE */
  76.     outp(33,hi);    /* DIVISOR LATCH, MOST SIGN. BYTE */
  77.     outp(35,3);    /* TURN OFF DIVISOR LATCH ACCESS */
  78.     fprintf(STDERR,"CCS PORT baud = %d\n",baud);
  79.     return(0);
  80. }
  81. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  82. substitute(before,oldstring,newstring)
  83.  
  84. /* Copyright (c) 1983 by Eric Martz, Amherst MA */
  85.  
  86. /* REPLACES ALL OCCURRENCES OF oldstring IN THE BUFFER before WITH newstring */
  87. /* newstring MAY INCLUDE OR BE IDENTICAL WITH oldstring */
  88.  
  89.     char *before, *oldstring, *newstring;
  90.     {
  91.     char after[1024], left[MAXLINE];
  92.     int done;
  93.     done = 0;
  94.     after[0] = NULL;
  95.     while ((todelim(left,before,oldstring)) != -1) {
  96.         strcat(after,left);
  97.         strcat(after,newstring);
  98.     }
  99.     strcat(after,before);
  100.     strcpy(before,after);
  101. }
  102. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  103. todelim(x,s,d)
  104.  
  105. /* Copyright (c) 1983 by Eric Martz, Amherst MA */
  106.  
  107. /* This function breaks string "s" into two pieces at the first occurrence
  108. of the delimiter "d". The left piece (up to but not including "d") is put in
  109. "x". The right piece is put into "s" (beginning after the end of "d").
  110.  
  111. The length of "x" is returned. If "d" is not found, -1 is returned.
  112.  
  113. Example:
  114.  
  115.     n = todelim(x,"crocodiles imply water"," imply ");
  116.  
  117.     Upon return,
  118.         n = 10
  119.         x contains "crocodiles"
  120.         s contains "water" */
  121.  
  122. char *x, *s, *d;
  123. {
  124.         int i, r, gone;
  125.         *x = '\0';
  126.         if ((i=jindex(s,d)) == -1) return(-1);
  127.         r = jsubstr(x,s,0,i);
  128.         gone = r + strlen(d);
  129.         i=0;
  130.         do {
  131.                 s[i] = s[i+gone];
  132.                 i++;
  133.         } 
  134.         while (s[i-1] != '\0');
  135.         return(r);
  136. }
  137. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  138. /*trimwhite(side, first, tnull)
  139.  
  140. /* Copyright (c) 1983 by Eric Martz, Amherst MA */
  141.  
  142. /* WARNING:
  143. DOES NOT WORK WITH BDS C -- UNTESTED WITH REAL C
  144. SEE chopwhite() */
  145.  
  146. /* TRIMS WHITESPACE (SPACES, TABS, NEWLINES) OFF SIDE ('r' RIGHT,
  147. 'l' LEFT, 'b' BOTH) BY MOVING POINTERS first AND tnull. IF THE
  148. CALLING VALUE OF *tnull IS 0, IT WILL BE SET TO POINT TO THE
  149. TERMINAL NULL USING STRLEN(). */
  150.  
  151.     char side, **first, **tnull;
  152.     {
  153.     char **extra;
  154.     *extra = 0;
  155.     if (side EQ 'r' OR side EQ 'b') {
  156.         if (tnull EQ 0) tnull = extra; /* for trimwhite(BOTH,buf,0)! */
  157.         if (*tnull EQ 0)
  158.             *tnull = *first + strlen(*first);
  159.         while (*tnull > *first AND isspace(*((*tnull)-1))) {
  160.             (*tnull)--;
  161.         }
  162.         **tnull = NULL;
  163.     }
  164.     if (side EQ 'l' OR side EQ 'b')
  165.         while (**first AND isspace(**first)) {
  166.             (*first)++;
  167.         }
  168. }*/
  169. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  170. upper(s)
  171.     char *s;
  172.     {
  173.     for (; *s; s++) *s = toupper(*s);
  174. }
  175. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  176. ynq(s)
  177.  
  178. /* Copyright (c) 1983 by Eric Martz, Amherst MA */
  179.  
  180. /* Yes/no question. The string "s" is printed suffixed with "? (y/n)?  ". The
  181. next line of input is examined for the first non-blank character. If it is
  182. "y", ynq returns 1; if it is "n", ynq returns 0; if neither, the question is
  183. reiterated. */
  184.  
  185.     char *s;
  186.     {
  187.     char c;
  188.     c = NULL;
  189.     while (c != 'n' && c != 'y') {
  190.         printf("%s? (y/n)?  ",s);
  191.         leftc1(&c);
  192.     }
  193.         if (c=='n') return (0);
  194.         else return(1);
  195. }
  196. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  197. /*    END OF MARTZ-SZ.C    */
  198. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  199. 
  200.         }
  201.         **tnull = NULL;
  202.     }
  203.     if (side EQ 'l' OR side EQ 'b')
  204.         while (**first AND isspace(**fir