Oakland CPM Archive/oakcpm.iso/sigm/vol181/addlf.cq/addlf.c

C/C++ Source or Header | 1985-02-10 | 4.8 KB | 214 lines

/*
    Program to insert a line feed after carriage return
    in text files with no line feeds in them (i.e. FLEX
    text files)

VERSION LIST, most recent version first

25/Apr/84
    ADDLF created from SCRUB. Bill Bolton

26/Sep/82
    Forces MSB of all characters to 0, then scans for control
    codes. TAB, CR and LF are passed unchanged to the output
    file. US (soft hyphen) is replaced by a hard hyphen.
    Checking for legal CP/M filename on destination file
    added. Expanded "usage" message. Added "working" messages.
    Bill Bolton.

    This program was developed from a program called SCRUB
    on BDS "C" User Group disk "Utilities 2" (Volume 2 in
    the Software Tools RCPM BDSCAT.ALL).
*/

/*
    Macros for constant definitions
*/

#include BDSCIO.H

#define VERSION 1    /* main version number */
#define REVISION 0    /* sub version number */
#define DEL 0x7F    /* ASCII delete character */
#define WORKING 1024    /* number of chars between progress markers */
#define NEXTLINE (WORKING * 32) /* number of progess chars on a screen line */

/*
    Argument vector indices
*/

#define FROM_FILE 1
#define TO_FILE   2

/*
    main to open the files for addlf()
    and handle invocation errors.
*/

main(argc,argv)
int argc;
char *argv[];

{
    int fdin,fdout;
    char inbuf[BUFSIZ],outbuf[BUFSIZ];
    char buf[12];

    printf("\nChanges CR to CR + LF, Version %d.%d\n",VERSION,REVISION);
    printf("Bill Bolton, Software Tools\n");
    if( argc != 3 )
            usage();
    else {
        if( (fdin = fopen(argv[FROM_FILE],inbuf)) == ERROR){
            printf("\nCannot find file %s\n",argv[FROM_FILE]);
            usage();
        }
        else {
            if(bad_name(argv[TO_FILE])) {
                printf("\nBad file name %s\n",argv[2]);
                usage();
            }
            else {
                if( (fdout  = fcreat(argv[TO_FILE],outbuf)) == ERROR )
                    printf("\nCan't open %s\n",argv[TO_FILE]);
                else {
                    printf("\nWorking ");
                    addlf(inbuf,outbuf);
                }
            }
        }
    }
    exit();
}

/*
    procedure addlf -- copy file to file adding line feed after each
               carriage return
*/

addlf(filein,fileout)
char filein[];    /* the input file buffer */
char fileout[];    /* the output file buffer */

{
    int c;            /* 1 char buffer */
    unsigned count;        /* count of characters processed */
    unsigned inserted;    /* numbers of bytes inserted */

    count  = 0;
    inserted = 0;

    while( (c = getc(filein) & 0x7F) != EOF  && c != CPMEOF ){
        count++;
        if (count % WORKING == 0)
            printf("*");        /* still alive */
        if (count % NEXTLINE == 0)
            printf("\n\t");        /* new line every so often */
        if( c >= ' ' && c < '\177' )    /* visable character ? */
            putc(c,fileout);
        else
            switch(c) {
                case '\r':
                    putc(c,fileout); /* ok control chars */
                    putc('\n',fileout);
                    inserted++;
                    break;

                default:
                    putc(c,fileout);
                    break;
              }
    }
    putc(CPMEOF,fileout);             /* sent textual end of file */
    printf("\n");
    if( fflush(fileout) == ERROR)
        exit(puts("\nOutput file flush error\n"));
    printf("\n%u characters were processed\n",count);
    printf("%u line feeds were inserted\n",inserted);
}

int bad_name(buf)

char    *buf;

{
    char    fcb[36];

    setfcb(fcb,buf);
    if (fcb[0] < 0 || fcb[0] > 15)    /* check for valid drive */
        return(ERROR);
    return(valid_check(fcb));
}

int valid_check(buf)

char    *buf;

{
    int    index;

    for (index = 1; index < 12; ++index){
        if (bad_char(index,buf))
            return(-1);
    }
    return(0);
}

/* Checks if a character is legal in a CP/M directory entry or file control
   block */

int bad_char(index,buf)

int    index;
char    *buf;

{
    char    temp[0];        /* Transient storage for > del test */
    int    space;

    if (index == 1 || index == 9)    /* Reset at start of filename & typ */
        space = 0;
    switch (buf[index]){
    case  '*':
    case  ',':
    case  '.':
    case  ':':
    case  ';':
    case  '<':
    case  '=':
    case  '>':
    case  '?':
    case  '[':
    case  ']':
    case  DEL:
        return(-1);
    case  ' ':            /* Space is conditionally illegal */
        if (space == 7)        /* Filename is all spaces is a */
            return(-1);    /* definite error */
        space++;        /* Else just keep track of how many */
        return(0);
    }
    if (buf[index] < ' ' || (buf[index] >= 'a' && buf[index] <= 'z'))
        return(-1);
    if (buf[index] > DEL){        /* Bit 7 set may be legal attribute */
        *temp = buf[index] & DEL; /* so force it to 0 and try again */
        return (bad_char(0,temp));
    }
    else
        return(space);         /* Space preceeding char IS illegal */
}

usage()

{
        printf("\nUsage:\n\n");
        printf("\tADDLF d:file1 d:file2\n\n");
        printf("Where:\n");
        printf("\tfile1 = source file, (* and ? not allowed)\n");
        printf("\tfile2 = destination file, (* and ? not allowed)\n");
        printf("\td:    = optional drive identifier\n\n");
        printf("i.e.\tADDLF A:FOOBAR.TXT B:FUBAR.DOC\n");
}

/* end of addlf */