home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 100 / 96 / lej_lib.c < prev    next >
Text File  |  1983-10-27  |  8KB  |  302 lines
  1. /* Larry Jordan's sample c program functions */
  2.  
  3. #include <stdio.h>                              /* std I/O library on c disk */
  4.  
  5. #define EOF -1                                  /* logical ^Z EOF ends copy */
  6. #define YES 1
  7. #define NO 0
  8. #define YES 1
  9. #define NO 0
  10. #define NL '\n'
  11. #define EOS '\0'
  12. #define MAXLINE 1024
  13. #define FF '\012'                               /* ASCII Form feed */
  14. #define DIGMAX 10
  15.  
  16. int inword;
  17. int nl;
  18. int nw;
  19. int nc;
  20. int ndigits[DIGMAX];
  21. int c;
  22.  
  23.  
  24.  
  25.  
  26. /* ---------------------------------------------------------------------- */
  27.  
  28.  
  29. main()                                /*                                    */
  30. {
  31.  
  32.         int len;                        /* current line length */
  33.         int max;                        /* max length so far */
  34.         char line[MAXLINE];
  35.         char save[MAXLINE];
  36.         char lineupper[MAXLINE];
  37.         char linelower[MAXLINE];
  38.  
  39.         max = 0;
  40.  
  41.         printf("\n");
  42.         printf("\n");
  43.         printf("Jordan's function test ...\n");
  44.         printf("\n");
  45.         printf("Input text for test.\n");
  46.         printf("\n");
  47.  
  48.  
  49.         while ((len = getline(line, MAXLINE)) > 0)   /* getline defined below */
  50.                 printf("\nLine = %s\n", line);
  51.  
  52.  
  53.  
  54. }
  55.  
  56.  
  57.  
  58. /* ---------------------------------------------------------------------- */
  59.  
  60.  
  61. redirect()                                     /* redirect keybd to CRT */
  62. {
  63.         int c;
  64.  
  65.         printf("\n");
  66.         printf("\n");
  67.         printf("Jordan's redirect function...\n");
  68.         printf("\n");
  69.         printf("Input numbers, space characters, etc...\n");
  70.         printf("?");
  71.  
  72.  
  73.         while ((c = getchar()) != EOF)         /* get char until EOF found */
  74.                 putchar(c);                    /* send char to scrn: */
  75. }
  76.  
  77.  
  78. /* ---------------------------------------------------------------------- */
  79.  
  80.  
  81.  
  82. wordcnt()                             /* count lines, words, chars in input */
  83. {
  84.  
  85.         double c, nc, nl, nw;                         /* counters are float */
  86.         int inword;                                   /* logical is interger */
  87.  
  88.         inword = NO;
  89.         nl = nw = nc = 0.0;                           /* initialize variables */
  90.  
  91.         printf("\n");
  92.         printf("\n");
  93.         printf("Jordan's word count function ...\n");
  94.         printf("\n");
  95.         printf("Input text for character, word and line count search.\n");
  96.         printf("\n");
  97.  
  98.  
  99.         while ((c = getchar()) != EOF) {
  100.                 nc = nc + 1;
  101.  
  102.                 if (c == '\n')                         /* if c=LF then inc nl */
  103.                      nl = nl + 1;
  104.  
  105.                 if (c == ' ' || c == '\n' || c == '\t')  /* if char is space, */
  106.                      inword = NO;                       /* LF or TAB then it */
  107.                                                         /* cannot be a word */
  108.  
  109.                 else if (inword == NO) {                /* otherwise it is a */
  110.                      inword = YES;                      /* word */
  111.                      nw = nw + 1;
  112.                 }
  113.         }
  114.         printf("\n");
  115.         printf("\n");
  116.         printf("Number of characters = ");
  117.         printf("%.0f\n",nc);                       /* prt float # with no dec */
  118.         printf("Number of words = ");
  119.         printf("%.0f\n",nw);
  120.         printf("Number of lines = ");
  121.         printf("%.0f\n",nl);
  122.  
  123.         printf("\n");
  124. }
  125.  
  126.  
  127. /* ---------------------------------------------------------------------- */
  128.  
  129.  
  130. maxline()                       /* gets maximum length line in file */
  131. {
  132.         int len;                        /* current line length */
  133.         int max;                        /* max length so far */
  134.         char line[MAXLINE];
  135.         char save[MAXLINE];
  136.  
  137.         max = 0;
  138.  
  139.         printf("\n");
  140.         printf("\n");
  141.         printf("Jordan's get maximum length line function ...\n");
  142.         printf("\n");
  143.         printf("Input text for maximum line length search.\n");
  144.         printf("\n");
  145.  
  146.  
  147.         while ((len = getline(line, MAXLINE)) > 0)   /* getline defined below */
  148.                 if (len > max){
  149.                         max = len;
  150.                         copy(line, save);              /* function from below */
  151.                 }
  152.         if (max > 0)
  153.             printf("%s", save);
  154. }
  155.  
  156.  
  157. /* ---------------------------------------------------------------------- */
  158.  
  159.  
  160. getline(s, lim)                 /* getline into s, return length of s */
  161. char s[];
  162. int lim;
  163. {
  164.         int c,i;
  165.  
  166.         for (i = 0; i < lim-1 && (c = getchar()) != EOF && c != '\n'; ++i)
  167.                 s[i] = c;
  168.         if (c == '\n'){
  169.                 s[i] = c;
  170.                 ++i;
  171.         }
  172.         s[i] = '\0';
  173.         return(i);
  174. }
  175.  
  176.  
  177.  
  178. /* ---------------------------------------------------------------------- */
  179.  
  180.  
  181. copy(s1, s2)                    /* copy s1 to s2; assume s2 big enough */
  182. char s1[], s2[];
  183. {
  184.         int i;
  185.  
  186.         i = 0;
  187.         while (s2[i] = s1[i] != EOS)
  188.                 ++i;
  189. }
  190.  
  191.  
  192.  
  193.  
  194. /* ---------------------------------------------------------------------- */
  195.  
  196.  
  197. power(x, n)                         /* raise x to n-th power; n > 0 */
  198. int x, n;
  199. {
  200.         int i, p;
  201.  
  202.         p = 1;
  203.         for (i=1; i<=n; ++i)
  204.             p=p*x;
  205.         return(p);
  206. }
  207.  
  208.  
  209.  
  210. /* ---------------------------------------------------------------------- */
  211.  
  212.  
  213. digicnt()                                /* count digits, spaces, others */
  214. {
  215.         int c, i, nspaces, nother;       /* integers */
  216.         int ndigits[DIGMAX];             /* integer array */
  217.  
  218.         nspaces = nother = 0;
  219.         for (i= 0; i < 10; ++i)
  220.                 ndigits[i] = 0;          /* initialize arry to 0 */
  221.  
  222.  
  223.         printf("\n");
  224.         printf("\n");
  225.         printf("Jordan's number counter...\n");
  226.         printf("\n");
  227.         printf("Input numbers, space characters, etc...\n");
  228.         printf("?");
  229.  
  230.         while ((c = getchar()) != EOF)
  231.                 if (c >= '0' && c <= '9')
  232.                       ++ndigits[c];
  233.                 else if (c == ' ' || c == '\n' || c == '\t')
  234.                         ++nspaces;
  235.                 else
  236.                         ++nother;
  237.  
  238.  
  239.  
  240.         printf("\n");
  241.         printf("\n");
  242.         printf("Jordan's number counter results...\n");
  243.         printf("\n");
  244.         printf("Number of digits = ");
  245.         for (i=0; i < 10; ++i)
  246.                printf(" %d", ndigits[i]);
  247.         printf("\nNumber of spaces = %d,  Other = %d\n",
  248.                nspaces, nother);
  249.         printf("\n");
  250. }
  251.  
  252.  
  253.  
  254. /* ---------------------------------------------------------------------- */
  255.  
  256. strlen(s)                               /*  return length of string s */
  257. char s[];
  258. {
  259.         int i;
  260.  
  261.         i = 0;
  262.         while (s[i] != '\0')
  263.                 ++i;
  264.         return(i);
  265. }
  266.  
  267.  
  268. /* ---------------------------------------------------------------------- */
  269.  
  270. atoi(s)                         /* convert numeric string into numeric equiv */
  271. char s[];
  272. {
  273.  
  274.         int i;
  275.         int n;                /* need double precision for no > 32K */
  276.  
  277.         n = 0;
  278.         for (i = 0; s[i] >= '0' && s[i] <= '9'; ++i)
  279.               n = 10 * n + s[i] - '0';
  280.  
  281.         return(n);
  282. }
  283.  
  284.  
  285. /* ---------------------------------------------------------------------- */
  286.  
  287.  
  288.  
  289.  
  290. isdigit(c)                      /* test character to see if it is a digit */
  291. int c;
  292. {
  293.         int isdigit;
  294.  
  295.         return(isdigit = c >= '0' && c<= '9');  /* isdigit true = 1 */
  296.                                                 /* isdigit false = 0 */
  297.  
  298. }
  299.  
  300.  
  301. /* ---------------------------------------------------------------------- */
  302.