home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d0xx / d056 / mcad.lha / mCAD / tdp / source / util.c < prev   
Encoding:
C/C++ Source or Header  |  1987-03-02  |  657 b   |  46 lines
  1. #include <ctype.h>
  2. #define TRUE 1
  3. #define FALSE 0
  4.  
  5. char *getwrd(bp)
  6. char **bp;
  7. {
  8.    char *retval;
  9.    
  10.    while (**bp == ' ') (*bp)++;
  11.    retval = *bp;
  12.    while (**bp && (**bp != ' ') ) (*bp)++;
  13.    return(retval);
  14. }
  15.  
  16.  
  17. numeric(cp)
  18. char *cp;
  19. {
  20.    int rv = FALSE;
  21.    char c;
  22.    
  23.    while(*(cp) == ' ') cp++;
  24.  
  25.    while (c = *(cp++)) {
  26.       if (isdigit(c)||(toupper(c)=='E')||(c=='-')||(c=='+')||(c=='.'))
  27.          rv = TRUE;
  28.       else if ( c==' ')
  29.          return(rv);
  30.       else
  31.          return(FALSE);
  32.    }
  33.    return(rv);
  34. }
  35.  
  36.  
  37. void trch(oldch,newch,buf)
  38. char oldch, newch, *buf;
  39. {
  40.    while (*buf) {
  41.       if (*buf == oldch) *buf = newch;
  42.       buf++;
  43.    }
  44. }
  45.  
  46.