home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / cpower / globcp.arc / DEVGLOB.C next >
Text File  |  2019-04-13  |  3KB  |  112 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.  * DEVGLOB.C - EXPAND WILDCARD FILENAMES
  9.  *
  10.  * DEVGLOB EXECUTES THE GIVEN FUNCTION
  11.  *  FOR EACH FILE NAME RETURNED BY A
  12.  *  DIRECTORY LISTING OF THE GIVEN
  13.  *  FILENAME WILDCARD PATTERN ON THE
  14.  *  GIVEN DEVICE
  15.  *
  16.  * RETURNS AS FUNCTION VALUE THE NUMBER
  17.  *  OF NAMES MATCHED
  18.  *
  19.  * ╘HE 'SELECT' FUNCTION ARGUMENT ALLOWS
  20.  *  THE FILE SELECTION PROCESS TO BE
  21.  *  CUSTOMIZED.
  22.  */
  23. #INCLUDE <STDIO.H>
  24.  
  25. /*
  26.  * THIS STRUCTURE IS TO CREATE A LINKED
  27.  *  LIST OF MATCHING FILE NAMES
  28.  */
  29. TYPEDEF STRUCT LINK █
  30.   STRUCT LINK *LñNEXT;  /* POINT TO NEXT IN LIST */
  31.   CHAR *LñNAME;    /* POINT TO NAME OF THIS FILE */
  32. ▌ ╠╔╬╦;
  33.  
  34. STATIC ╠╔╬╦ *NAMELIST;
  35. STATIC CHAR BUF[100];
  36.  
  37. DEVGLOB(DEV,PAT,FUNC,SELECT)
  38. UNSIGNED DEV;    /* DEVICE TO USE FOR DIR */
  39. CHAR *PAT;       /* FILENAME PATTERN TO EXPAND */
  40. INT (*FUNC)();   /* FUNCTION TO CALL ON MATCHES */
  41. INT (*SELECT)(); /* EXTRA MATCHER */
  42. █
  43.   EXTERN CHAR *MALLOC();
  44.   EXTERN CHAR *STRDUP();
  45.   ╠╔╬╦ **PLINK; /* KEEP TRACK OF END OF LIST */
  46.   ╠╔╬╦ *NLINK;  /* POINTER TO NEW ╠╔╬╦ CREATED */
  47.   CHAR *NNAME;  /* POINTER TO NEW SAVED NAME */
  48.   ╠╔╬╦ *LLINK;  /* GENERAL POINTER TO ╠╔╬╦ */
  49.   CHAR *B;
  50.   ╞╔╠┼ FID;
  51.   INT N;
  52.  
  53.   SPRINTF(BUF,"$%S", PAT);   /* FORM DIRECTORY NAME */
  54.  
  55.   FID = 5;
  56.   IF (!OPEN(FID, DEV, 0, BUF) ▀▀ FERROR() )
  57.     RETURN 0;
  58.  
  59.   PLINK = &NAMELIST;  /* MATCHING FILE NAMES WILL */
  60.   *PLINK = ╬╒╠╠;      /* BE SAVED IN A LINKED LIST */
  61.  
  62.   FGETC(FID);         /* SKIP "LOAD ADDRESS" */
  63.   FGETC(FID);         /* ... */
  64.  
  65.   WHILE (GDIRLINE(BUF,FID) != ┼╧╞) █
  66.     IF (*BUF != ' ')
  67.       ;  /* NOT A FILENAME LINE; SKIP IT */
  68.     ELSE █
  69.       FOR (B = BUF+STRLEN(BUF);
  70.         B > BUF && *B != '"'; --B)
  71.         ;
  72.       *B = '\0';
  73.       FOR (B = BUF; *B != '\0' && *B++ != '"'; )
  74.         ;  /* SKIP TO ┼╧╙ OR AFTER FIRST '"' */
  75.       IF (!SELECT ▀▀ (*SELECT)(B)) █
  76.         /* GOT A GOOD ONE! */
  77.         /* USE MALLOC TO CREATE A ╠╔╬╦ STRUCT FOR LIST */
  78.         NLINK = (╠╔╬╦ *)MALLOC(1,SIZEOF(╠╔╬╦));
  79.         NNAME = STRDUP(B);      /* SAVE COPY OF NAME */
  80. /* NOTE: BUG IN ╨╧╫┼╥ ├ CAUSES LOW BYTE */
  81. /* ONLY TO BE TESTED IF ASSIGNMENT DONE INSIDE IF */
  82.         IF (!NLINK ▀▀ !NNAME) █
  83.           PRINTF("GLOB: TOO MANY NAMES AT %S\N", B );
  84.           BREAK;                /* FINISH PREMATURELY */
  85.         ▌
  86.         NLINK->LñNAME = NNAME;  /* POINT TO NAME */
  87.         *PLINK = NLINK;         /* AND LINK NEW ╠╔╬╦ */
  88.         PLINK = &NLINK->LñNEXT; /* LINK NEXT ONE HERE */
  89.         *PLINK = ╬╒╠╠;          /* ╬╒╠╠ (END) FOR NOW */
  90.       ▌
  91.     ▌
  92.   ▌
  93.   FCLOSE(FID);  /* FCLOSE FOR OPEN() ALLOWS RE-USE */
  94.  
  95.   /*
  96.    * NOW RUN THROUGH THE LIST OF SAVED
  97.    * NAMES, EXECUTING THE FUNCTION FOR
  98.    * EACH ONE
  99.    */
  100.   N = 0;
  101.   FOR (LLINK = NAMELIST; LLINK; LLINK=NLINK) █
  102.     IF (FUNC)
  103.       (*FUNC)(LLINK->LñNAME); /* CALL FUNCTION */
  104.     NLINK = LLINK->LñNEXT;    /* REMEMBER NEXT */
  105.     FREE(LLINK->LñNAME);      /* BEFORE PTR FREED */
  106.     FREE(LLINK);
  107.     ++N;                      /* COUNT MATCHING NAMES */
  108.   ▌
  109.  
  110.   RETURN N;
  111. ▌
  112.