/*
* The purpose of this program is to build parameter lists
* for programs such as the SQ and USQ file compression
* utilities. This and those programs use the directed io
* package to allow redirection of console input and/or output.
* They are coded to accept parameters from the console input or
* from the command line. Each parameter is on a seperate line.
*
* Names beginning with '-' are passed through as options.
* Drive names (with ':') alone are also passed through.
*
* Other parameters are treated as ambiguous file names with
* optional drive specification. The disk directory is searched
* and every specific file name which matches the pattern is
* sent to the output list (with the optional drive specifier).
* If there are no matches a comment is sent to the console.
*
* Example test run (output to console):
* A>fls *.c c:*.com b: *.h
* Example to build list in "file":
* A>fls *.c c:*.com b: *.h >file
* Example to build list in file and send to console too:
* A>fls *.c c:*.com b: *.h +file
* Example to build list and run program SQ.COM with list
* substituting for keyboard input:
* A>fls b: *.c d:*.?Q? |sq
*/
#define SRCH 17 /*bdos search for file pattern*/
#define SRCHNXT 18
#define SETDMA 26
#define TBUFF (0x80+BASE) /*default disk buffer*/
struct fcb { /* File control block */
char xxx[36]; /* enough for CP/M 2 */
};
main(argc, argv)
int argc;
char *argv[];
{
int i,c;
int getchar(); /* Directed io version */
int putchar(); /* Directed io version */
char inparg[16]; /* parameter from input */
dioinit(&argc, argv); /* obey directed to args */
fprintf(STDERR, "Parameter list builder - Version %s by\n\tRichard Greenlaw\n\t251 Colony Ct.\n\tGahanna, Ohio 43230\n", VERSION);
fprintf(STDERR, "Accepts redirection and pipes.\nOmit other parameters for help and prompt\n\n");
/* Process the parameters in order */
for(i = 1; i < argc; ++i)
obey(argv[i]);
if(argc < 2) {
fprintf(STDERR, "\nParameters are from command line or (singly) from console input.\n");
fprintf(STDERR, "Drive names and -options are passed thru.\nAmbiguous file names are expanded. CR or EOF to stop.\n");
do {
fprintf(STDERR, "\n*");
for(i = 0; i < 16; ++i) {
if((c = getchar()) == EOF)
c = '\n'; /* fake empty (exit) command */
if((inparg[i] = c) == '\n') {
inparg[i] = '\0';
break;
}
}
if(inparg[0] != '\0')
obey(inparg);
} while(inparg[0] != '\0');
}
dioflush(); /* clean up any directed io */
}
/*
* Function to convert an input parameter to a list of
* output parameters. Drives (d:), options (-string) and
* specific file names (w/ optional drive) are passed through.
* Ambiguous file names are expanded (w/ optional drive)
* or, if not found, are ignored with comment.
*
* Any parameter beginning with a '-' and drive: alone
* are simply passed to the output.
*
* Results are sent to standard output (presumably redirected)
* with one output parameter per line.
*/
obey(afnp)
char *afnp; /* possible ambiguous file name*/
{
struct fcb sfcb;
char *p, *q, i, byteaddr;
int n;
char ufn[15]; /* unambiguous file name */
if(*afnp == '-' || (*(afnp + 1) == ':' && *(afnp + 2) == '\0'))
printf("%s\n", afnp); /* pass through option or drive */
/* Try to build CP/M FCB */
else if(setfcb(&sfcb, afnp) == ERROR)
fprintf(STDERR, "%s is bad afn\n", afnp);
else {
/* Search disk directory for all ufns which match afn*/
for(n = 0; ; ++n) {
bdos(SETDMA, TBUFF);
byteaddr = n ? bdos(SRCHNXT,&sfcb) : bdos(SRCH,&sfcb);
if(byteaddr == 255)
break;
p = ufn;
if(*(afnp+1) == ':') {
/* Drive spec.*/
*p++ = *afnp;
*p++ = ':';
}
