home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / cpower / globcp.arc / WILDMATCH.C < prev   
Text File  |  2019-04-13  |  3KB  |  123 lines
  1. /*
  2.  * ├OPYRIGHT (├) ┴DRIAN ╨EPPER, 1989
  3.  *
  4.  *  ┬UT ╔ (┴DRIAN ╨EPPER) CONSIDER THIS
  5.  * MATERIAL TO BE IN THE ╨UBLIC ─OMAIN.
  6.  */
  7. /*
  8.  * WILDMATCH - DO MODERATELY PRIMITIVE
  9.  *   WILD CARD MATCH
  10.  *
  11.  * RETURNS NON-ZERO AS THE FUNCTION VALUE
  12.  *   IF GIVEN PATTERN MATCHES STRING
  13.  *
  14.  * PATTERN CAN CONTAIN THE FOLLOWING
  15.  *   SPECIAL CHARACTERS:
  16.  *
  17.  *   * - MATCH ANY NUMBER OF ANY CHARACTERS
  18.  *   ? - MATCH EXACTLY ONE OF ANY CHARACTER
  19.  *   [ABC...] - MATCH EXACTLY ONE OF ANY
  20.  *       CHARACTER IN THE BRACKETS;
  21.  *       '!' OR '^' NEGATES CLASS
  22.  *       '-' CAN DESIGNATE A RANGE
  23.  *              (E.G. [┴-┼])
  24.  *
  25.  *   ALL OTHER CHARACTERS ARE MATCHED
  26.  *   LITERALLY.  '*' AND '?' CAN BE
  27.  *   MATCHED LITERALLY BY PLACING INSIDE
  28.  *   '[' AND ']'.  ╨ATTERN MUST MATCH
  29.  *   ENTIRE STRING.
  30.  */
  31. #DEFINE ╬╧ 0
  32. #DEFINE ┘┼╙ 1
  33.  
  34. WILDMATCH(P,S)
  35. CHAR *P;  /* PATTERN, AS A LITERAL STRING */
  36. CHAR *S;  /* STRING TO TEST AS MATCHING ENTIRE PATTERN */
  37. █
  38.   CHAR *CLASSMATCH();
  39.   CHAR PC;
  40.   AUTO UNSIGNED MATCH;
  41.  
  42.   FOR ( ; ; ) █
  43.     /* UNTIL WE RETURN BY FAILURE OR SUCCESS */
  44.     /* SWITCH ON NEXT CHAR IN PATTERN */
  45.     SWITCH (PC = *P++)
  46.     █
  47.     CASE '[':
  48.       P = CLASSMATCH(P, *S, &MATCH);
  49.       IF (!MATCH)
  50.         RETURN ╬╧;
  51.       BREAK;
  52.  
  53.     CASE '*':   /* MATCH ANY NUMBER OF ANY CHAR */
  54.       DO █
  55.         /* CHECK ALL POSSIBLE SUFFICES */
  56.         IF (WILDMATCH(P, S))
  57.           RETURN ┘┼╙;  /* AT LEAST 1 SUFFIX WORKS */
  58.       ▌ WHILE (*S++);
  59.       RETURN ╬╧;  /* ALL SUFFICES INCONSISTENT */
  60.  
  61.     CASE '?':
  62.       IF (*S == '\0') /* MATCH ANY REAL CHAR */
  63.         RETURN ╬╧;
  64.       /* ELSE CHECK NEXT CHAR IN P AND S */
  65.       BREAK;
  66.  
  67.     CASE '\0':  /* PATTERN ENDED */
  68.       RETURN *S == '\0';  /* ┘┼╙ ONLY IF S ENDS TOO */
  69.           /* RETURNING ┘┼╙ UNCONDITIONALLY HERE WOULD */
  70.           /* CHECK IF INITIAL PORTION OF S MATCHED P */
  71.  
  72.     DEFAULT:    /* LITERAL MATCH OF CHAR IN PATTERN */
  73.       /* ┴╙╙┼╥╘: IF *S == '\0' WE RETURN (╬╧) */
  74.       IF (*S != PC)
  75.         RETURN ╬╧;
  76.  
  77.       /* ELSE CHECK NEXT CHAR IN P AND S */
  78.     ▌
  79.     ++S;  /* NEXT CHAR IN S */
  80.   ▌
  81. ▌
  82.  
  83. STATIC CHAR *
  84. CLASSMATCH(P, C, PMATCH)
  85. CHAR *P;   /* CLASS, LESS '[' */
  86. INT C;     /* CHAR WHICH SHOULD BELONG */
  87. UNSIGNED *PMATCH;  /* RETURN MATCH SUCCESS */
  88. █
  89.   UNSIGNED MATCH;
  90.   CHAR C1, C2;
  91.  
  92.   MATCH = ╬╧;  /* ASSUME FAILURE */
  93.   IF (*P == '!' ▀▀ *P == '^') █
  94.     MATCH = ┘┼╙;  /* A NEGATED CLASS */
  95.     ++P;
  96.   ▌
  97.   IF (*P != '\0') █
  98.     DO █ /* ALLOWS ']' OR '-' 1ST */
  99.       C2 = '\0';
  100.       C1 = *P++;
  101.       IF (*P == '-') █
  102.         C2 = *++P;  /* SKIP -, GET NEXT */
  103.         IF (C1 <= C && C <= C2) █
  104.           MATCH = !MATCH;
  105.           BREAK;
  106.         ▌
  107.       ▌
  108.       ELSE IF (C1 == C) █
  109.         MATCH = !MATCH;
  110.         BREAK;
  111.       ▌
  112.       IF (C2 && C2 != ']')  /* RANGE? */
  113.         ++P;  /* YES, SKIP LAST CHAR */
  114.     ▌ WHILE (*P && *P != ']');
  115.   ▌
  116.   WHILE (*P && *P++ != ']')
  117.     ;
  118.   IF (!C)        /* END OF STRING? */
  119.     MATCH = ╬╧;  /* NO CLASS MATCHES */
  120.   *PMATCH = MATCH;
  121.   RETURN P;
  122. ▌
  123.