home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource3 / 126_01 / martz_ei.c < prev    next >
Text File  |  1985-03-11  |  13KB  |  423 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-EI.C CONTAINS:
  28.  
  29.         equal(s1,s2)
  30.         fbrkout(width, buf, tnull, force_nl, fpout)
  31.         findwords(s,p)
  32.         firstone(buf,tofind)
  33.     char *fnnlgetl(s,fp,max)
  34.     char *fnnlgets(s,fp)
  35.         freq(buf,item)
  36.     char *ftgets(buf,fp,maxcount)
  37.         getint(string,ptr)
  38.         getwrds(message,wordbuf,pp)
  39.         goodfile(message,name)
  40.         icata(n,stout)
  41.         instr(i,s,t)
  42. */
  43. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  44. equal(s1, s2)
  45.  
  46. /* Copyright (c) 1983 by Eric Martz, Amherst MA */
  47.  
  48. /* RETURNS YES IF THE STRINGS IN s1 AND s2 ARE EQUAL, ELSE NO */
  49.  
  50.     char *s1, *s2;
  51.     {
  52.     if (strcmp(s1, s2) EQ 0) return(YES);
  53.     else return(NO);
  54. }
  55. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  56. fbrkout(width, buf, tnull, force_nl, fpout, displayall, indent)
  57.  
  58. /* Copyright (c) 1983 by Eric Martz, Amherst MA */
  59.  
  60. /* PUTS INTO fpout CONTENTS OF buf, BROKEN AT SPACES, TABS, OR
  61. NEWLINES INTO LINES OF LENGTH <= width.
  62.  
  63. --->  WARNING!!! FBRKOUT() MODIFIES THE CONTENTS OF buf!!! <---
  64.  
  65. BREAK IS FORCED AT THE STRING force_nl (WHICH IS DELETED FROM
  66. OUTPUT). IF YOU DO NOT WISH TO FORCE BREAKS, CALL WITH 0.
  67.  
  68. IF displayall IS YES, UNPRINTABLE CHARACTERS ARE EXPANDED TO
  69. PRINTABLE FORM.
  70.  
  71. IF indent IS YES, THE 2ND-NTH LINES PUT OUT BY FBRKOUT ARE
  72. INDENTED 5 SPACES.
  73.  
  74. IF TNULL (POINTER TO TERMINAL NULL OF buf) IS NOT AVAILABLE, CALL
  75. WITH ZERO. TNULL IS NOT NECESSARY BUT IMPROVES EFFICIENCY(?). */
  76.  
  77.     char *buf, *tnull, *force_nl;
  78.     int width, displayall, indent;
  79.     FILE *fpout;
  80.     {
  81.     char *brk, out[4];
  82.     int len, force, firstline, lesswidth;
  83.  
  84.     if (force_nl EQ 0) force_nl = "";
  85.     force = ERROR;
  86.     if (tnull EQ 0) tnull = buf + strlen(buf);
  87.     if ((tnull - buf) EQ 0) { /* GUARANTEE NEWLINE FOR EMPTY BUFFER */
  88.         fputs("\n", fpout);
  89.         return(0);
  90.     }
  91.     firstline = YES;
  92.     while ((len = (tnull - buf)) > 0) {
  93.  
  94.         /* INDENT IF NEEDED AND SET lesswidth */
  95.         if (indent AND !firstline) {
  96.             lesswidth = width - 5;
  97.             fputs("     ", fpout); /* 5 spaces */
  98.         }
  99.         else lesswidth = width;
  100.  
  101.         if (len > lesswidth) { /* IF THE LINE IS TOO LONG */
  102.             /* WE'LL ASSUME THERE IS A SPACE BEFORE lesswidth! */
  103.             /* FIND A BREAKPOINT AT A SPACE */
  104.             brk = buf + rindex(buf, " ", lesswidth);
  105.         }
  106.         else brk = tnull;
  107.  
  108.         /* LOOK FOR force_nl */
  109.         if (force_nl[0]) force = instr(0, buf, force_nl);
  110.  
  111.         /* SET BREAK AT WHICHEVER OCCURS FIRST */
  112.         if (force NE ERROR AND (brk > buf + force)) brk = buf + force;
  113.  
  114.         /* BREAK THE BUFFER */
  115.         *brk = NULL;
  116.  
  117.         /* WRITE OUT THE LINE SEGMENT */
  118.         while (*buf) {
  119.             if (displayall) {
  120.                 dispexp(*buf, out);
  121.                 fputs(out, fpout);
  122.             }
  123.             else putc(*buf, fpout);
  124.             buf++;
  125.         }
  126.         fputs("\n", fpout); /* putc() does not expand \n */
  127.  
  128.  
  129.         /* SET THE POINTER PAST END OF STRING */
  130.         buf = brk + strlen(force_nl);
  131.         if(!*force_nl) buf++;
  132.  
  133.         firstline = NO;
  134.     }
  135. }
  136. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  137. findwords(s,p)
  138.  
  139. /* Copyright (c) 1983 by Eric Martz, Amherst MA */
  140.  
  141. /* FINDS THE WHITESPACE-DELIMITED WORDS IN STRING "s" (WHERE WHITESPACE
  142. INCLUDES SPACES, TABS AND NEWLINES). RETURNS COUNT OF WORDS FOUND. EACH WORD
  143. IS POINTED TO BY A MEMBER OF THE ARRAY "p". THE STRING POINTED TO BY "s" IS
  144. COMPRESSED INTO WORDS DELIMITED ONLY BY NULLS. THE FIRST WORD IS POINTED TO BY
  145. p[1], NOT p[0]. (p[0] IS WASTED.) */
  146.  
  147.     char *s, **p;
  148.     {
  149.     int wcnt, atend;
  150.     char *beginw, *endw, *nextat;
  151.     blankout(s,"\t\n");
  152.     atend = FALSE;
  153.     wcnt = 0;
  154.     beginw = nextat = s;
  155.     while(1){
  156.         for(;*beginw; beginw++)
  157.             if(*beginw != ' ') break;
  158.         if (!*beginw) return(wcnt);
  159.         for(endw=beginw; *endw; endw++)
  160.             if (*endw == ' ') break;
  161.         if (!*endw) atend = TRUE;
  162.         *endw = '\0';
  163.         wcnt += 1;
  164.         p[wcnt] = nextat;
  165.         if (nextat != beginw) strcpy(nextat,beginw);
  166.         if (atend) return(wcnt);
  167.         nextat += (endw + 1) - beginw;
  168.         beginw = endw + 1;
  169.     }
  170. }
  171. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  172. char *firstone(buf, tofind)
  173.  
  174. /* Copyright (c) 1983 by Eric Martz, Amherst MA */
  175.  
  176. /* RETURNS POINTER [NOT AN INDEX!] TO FIRST OCCURRENCE IN buf OF
  177. A CHARACTER INCLUDED IN THE STRING tofind, OR NULL IF NOT FOUND.
  178.  
  179. */
  180.     char *buf, *tofind;
  181.     {
  182.     char *p, *f;
  183.     for (p=buf; *p; p++) {
  184.         f = tofind;
  185.         while (*f)
  186.             if (*p == *(f++))
  187.                 return (p);
  188.     }
  189.     return(0);
  190. }
  191. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  192. char *fnnlgetl(s,fp,max)
  193.  
  194. /* Copyright (c) 1983 by Eric Martz, Amherst MA */
  195.  
  196. /* FNNLGET = File-No-NewLine-GET-Longstring
  197.  
  198. SAME AS FTGETS BUT STRING LEFT IN S IS STRIPPED OF THE TERMINAL NEWLINE
  199. AND BUFFER LENGTH IS AN ARGUMENT FOR LONG INPUT LINES */
  200.  
  201.     char *s;
  202.     FILE *fp;
  203.     {
  204.     char *tnull;
  205.     if (!(tnull = ftgets(s,fp,max))) return(0);
  206.     if (*(--tnull) EQ '\n') *tnull = NULL;
  207.     return (tnull);
  208. }
  209. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  210. char *fnnlgets(s,fp)
  211.  
  212. /* Copyright (c) 1983 by Eric Martz, Amherst MA */
  213.  
  214. /* FNNLGETS = File-No-NewLine-GET-String
  215.  
  216. SAME AS FTGETS BUT STRING LEFT IN S IS STRIPPED OF THE TERMINAL NEWLINE */
  217.  
  218.     char *s;
  219.     FILE *fp;
  220.     {
  221.     char *tnull;
  222.     if (!(tnull = ftgets(s,fp,MAXLINE))) return(0);
  223.     if (*(--tnull) EQ '\n') *tnull = NULL;
  224.     return (tnull);
  225. }
  226. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  227. freq(buf, item)
  228.  
  229. /* Copyright (c) 1983 by Eric Martz, Amherst MA */
  230.  
  231. /* RETURNS THE FREQUENCY OF item IN buf. FREQ IS FOR
  232. NONOVERLAPPING OCCURRENCES. THUS IF buf CONTAINS "...." AND item
  233. CONTAINS  "..", FREQ IS 2 NOT 3. */
  234.  
  235.     char *buf, *item;
  236.     {
  237.     int i, count, start, itemlen;
  238.     count = start = 0;
  239.     itemlen = strlen(item);
  240.     while ((i=instr(start,buf,item)) NE ERROR) {
  241.         count++;
  242.         start = i + itemlen;
  243.     }
  244.     return(count);
  245. }
  246. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  247. char *ftgets(buf,fp,maxcount)
  248.  
  249. /* Copyright (c) 1983 by Eric Martz, Amherst MA */
  250.  
  251. /* This is BDSC fgets (from stdlib2.c) with the following modifications:
  252.     Returns pointer to terminal null in buf;
  253.     The buffer length restriction (formerly MAXLINE) has been added as
  254.         an argument.
  255.         
  256. ftgets() retains inclusion of newline in buf (like fgets).
  257.  
  258. */
  259.     char *buf;
  260.     FILE *fp;
  261.     int maxcount;
  262.     {
  263.     int c;
  264.     char *cptr;
  265.     cptr = buf;
  266.     if ( (c = rawgetc(fp)) == CPMEOF || c == EOF) return NULL;
  267.  
  268.     do {
  269.         if ((*cptr++ = c) == '\n') {
  270.             if (cptr