home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / program / lynxlib / wild.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-10-23  |  3.1 KB  |  116 lines
  1. /* This source file is part of the LynxLib miscellaneous library by
  2. Robert Fischer, and is Copyright 1990 by Robert Fischer.  It costs no
  3. money, and you may not make money off of it, but you may redistribute
  4. it.  It comes with ABSOLUTELY NO WARRANTY.  See the file LYNXLIB.DOC
  5. for more details.
  6. To contact the author:
  7.     Robert Fischer \\80 Killdeer Rd \\Hamden, CT   06517   USA
  8.     (203) 288-9599     fischer-robert@cs.yale.edu                 */
  9.  
  10. #include <stddef.h>
  11.  
  12. /* ----------------------------------------------------------- */
  13. BOOLEAN match_wild(wild, stringg)    /* Sees if stringg matches with wild */
  14. char *stringg;
  15. char *wild;
  16. {
  17. register char *s, *w;
  18. char *last_star;        /* Position just after last star */
  19.     last_star = wild;
  20.     for (s = stringg, w = wild; *s != '\0'; ) {
  21.         /* Try to match the * to zero characters */
  22.         if (*w == '*') {
  23.             w++;
  24.             last_star = w;
  25.         } else if (*w == '?' || *w == *s) {
  26.             w++;
  27.             s++;
  28.         } else if (last_star == wild) return FALSE;    /* Fail */
  29.         else {            /* Backup */
  30.             s = s + 1 - (w - last_star);
  31.             w = last_star;
  32.         }
  33.     }
  34.  
  35.     while (*w == '*') w++;
  36.     return (*w == NIL);        /* Check that wildcard doesn't have too many chars */
  37. }
  38. /* ----------------------------------------------------------- */
  39. BOOLEAN match_fwild(wild, fname)
  40. /* Matches a file wildcard to a file -- takes care of '*.*' */
  41. char *wild;
  42. char *fname;
  43. {
  44. file_root sroot, wroot;
  45. file_extender sext, wext;
  46.     pleaf(wild, wroot, wext);
  47.     pleaf(fname, sroot, sext);
  48.     if (wext[0] == NIL) {
  49.         wext[0] = '*';
  50.         wext[1] = NIL;
  51.     }
  52.     return match_wild(wroot, sroot) && match_wild(wext, sext);
  53. }
  54. /* ----------------------------------------------------------- */
  55. BOOLEAN match_fwilds(wild, fname)
  56. /* Matches a whole sequence of wildcards to a file */
  57. char *wild;            /* The string of wildcards */
  58. char *fname;        /* Leaf_name to match to the wildcards */
  59. {
  60. int i;
  61. char s[80];
  62. int start;
  63. BOOLEAN ret;
  64. file_root froot, wroot;
  65. file_extender fext, wext;
  66. BOOLEAN bang;        /* Does current wildcard have a '!' before it? */
  67. BOOLEAN match;        /* Return from match_fname() */
  68. char ch;
  69.     /* Take care of *.* matching wunk */
  70.     pleaf(fname, froot, fext);
  71.  
  72.     ret = FALSE;
  73.     i = 0;
  74.     while (wild[i] != NIL) {
  75.         /* Get a wildcard string */
  76.         for(start = i; wild[start] == ' '; start++) ;
  77.         if (wild[start] == NIL) return ret;
  78.  
  79.         if (wild[start] == '!') {
  80.             bang = TRUE;
  81.             start++;
  82.             while (wild[start] == ' ') start++;
  83.             if (wild[start] == NIL) return ret;        /* Ignore extraneous '!' */
  84.         } else bang = FALSE;
  85.  
  86.         /* Copy wildcard to s */
  87.         for (i = start; wild[i] != ' ' && wild[i] != NIL; i++);
  88.         ch = wild[i];
  89.         wild[i] = NIL;
  90.         strcpy(s, wild + start);
  91.         wild[i] = ch;
  92.  
  93.         /* Try to match the wildcard */
  94.         pleaf(s, wroot, wext);
  95.         match = match_wild(wroot, froot) && match_wild(wext, fext);
  96.         if (bang) ret &= !match;
  97.         else ret |= match;
  98.     }
  99.     return ret;
  100. }
  101. /* ----------------------------------------------------------- */
  102. #if 0
  103. main()
  104. {
  105. char s[100];
  106. char w[100];
  107.     do {
  108.         printf("Wild: ");
  109.         gets(w);
  110.         printf("String: ");
  111.         gets(s);
  112.         printf("Returned: %d\n", match_fwilds(w, s));
  113.     } while (w[0] != NIL);
  114. }
  115. #endif
  116.