home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / cpower / globcp.arc / GLOB.C < prev    next >
Text File  |  2019-04-13  |  2KB  |  84 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.  * GLOB.C - EXPAND WILDCARD FILENAMES
  9.  */
  10. #INCLUDE <STDIO.H>
  11. /*
  12.  * SELECT - DOUBLE CHECK NAMES MATCHED
  13.  *   BY 1541(ETC.) DOS
  14.  */
  15. CHAR *GLOBAFTER = ╬╒╠╠;
  16. CHAR *SAVEPAT = ╬╒╠╠;
  17. STATIC SELECT(NAME)
  18. CHAR *NAME;
  19. █
  20.   IF (GLOBAFTER)
  21.     IF (WILDMATCH(GLOBAFTER, NAME))
  22.       GLOBAFTER = ╬╒╠╠;
  23.     ELSE
  24.       RETURN 0;
  25.   RETURN WILDMATCH(SAVEPAT, NAME);
  26. ▌
  27.  
  28. /*
  29.  * GLOB - EXECUTE GIVEN FUNCTION FOR EACH
  30.  *   FILE ON THE WORK DEVICE MATCHING
  31.  *   THE GIVEN PATTERN
  32.  */
  33. GLOB(PAT,FUNC)  /* RETURN QUIT/CONTINUE STATUS */
  34. CHAR *PAT;       /* FILENAME PATTERN TO EXPAND */
  35. INT (*FUNC)();   /* FUNCTION TO CALL ON MATCHES */
  36. █
  37.   INT SELECT();
  38.   EXTERN INT SPRINTF();
  39.   EXTERN CHAR *MALLOC();
  40.   CHAR *DISKPAT;
  41.   CHAR *P;
  42.   CHAR *CLASS;       /* FLAG IF CHAR CLASS ([XYZ]) */
  43.   UNSIGNED INBASIC;  /* FLAG IF WE ARE LINKED AS BASIC PROGRAM */
  44.   UNSIGNED DEV;
  45.  
  46.   DISKPAT = STRDUP(PAT);
  47.   IF (GLOBAFTER)  /* MUST CHECK ALL PATTERNS */
  48.     DISKPAT = STRDUP("*");
  49.   /* FIRST TURN ANY CLASS AND SUFFIX TO '*' */
  50.   CLASS = INDEX(DISKPAT, '[');
  51.   IF (CLASS)
  52.     STRCPY(CLASS,"*");
  53.   /* ALSO TURN EVERYTHING AFTER '*' TO STAR */
  54.   /* WILL ALWAYS SUCCEED IF WE HAD '[' ABOVE */
  55.   CLASS = INDEX(DISKPAT, '*');
  56.   IF (CLASS)
  57.     STRCPY(CLASS,"*");
  58. #DEFINE WRKDEV (*(CHAR *)0X17FC)
  59.                    /* DEVICE SET BY SHELL WORK COMMAND */
  60. #DEFINE KRNDEV (*(CHAR *)0XBA)
  61.                    /* DEVICE LAST USED FOR KERNAL ╧╨┼╬ */
  62.   DEV = WRKDEV;
  63.   /* ┴╙╙┼╥╘: SPRINTF NEEDED BY DEVGLOB */
  64.   INBASIC = &SPRINTF > 0X880;
  65.   IF (INBASIC) DEV = KRNDEV;
  66.   /* MAKE PAT ACCESSIBLE TO SELECT */
  67.   IF (PAT[0] == ':')  /* FILE NAMES WON'T CONTAIN DRIVE */
  68.     P = PAT+1;
  69.   ELSE IF (PAT[1] == ':')
  70.     P = PAT+2;
  71.   ELSE
  72.     P = PAT;
  73.   SAVEPAT = STRDUP(P);
  74.   /* REMOVE =TYP FROM END OF PATTERN */
  75.   /* SINCE IT WON'T APPEAR EITHER */
  76.   P = RINDEX(SAVEPAT, '=');
  77.   IF (P >= SAVEPAT+STRLEN(SAVEPAT)-4 ) █
  78.     IF (CLASS)  /* MUST ADD BACK TO DISK PATTERN */
  79.       STRCAT(DISKPAT,P);
  80.     *P = '\0';
  81.   ▌
  82.   RETURN DEVGLOB(DEV, DISKPAT, FUNC, &SELECT);
  83. ▌
  84.