Return to savebuf.c CVS log

Up to [MW Coherent from dump] / coherent / b / kernel / FWB

Annotation of coherent/b/kernel/FWB/savebuf.c, revision 1.1

1.1     ! root        1: /*-----------------------------------------------------------------------------
        !             2:        Talking BIOS device driver for the AT&T PC6300.
        !             3:        Copyright (C) Karl Dahlke 1987
        !             4:        This software may be freely used and distributed
        !             5:        for any non-profit purpose.
        !             6:  *-----------------------------------------------------------------------------
        !             7:  */
        !             8: 
        !             9: /* savebuf.c: save the accumulated text in a session file */
        !            10: 
        !            11: #include <stdio.h>
        !            12: 
        !            13: extern errno;
        !            14: 
        !            15: char *filename = "session.log";
        !            16: 
        !            17: setenv(){} /* no environment */
        !            18: 
        !            19: main(argc, argv)
        !            20: int argc;
        !            21: char **argv;
        !            22: {
        !            23:        FILE *f;
        !            24:        register char c;
        !            25: 
        !            26:        if(argc > 1) filename = argv[1];
        !            27:        if(argc > 2)    {
        !            28:                fprintf(stderr, "usage: savebuf [file]\n");
        !            29:                exit(1);
        !            30:        }
        !            31: 
        !            32:        f = fopen(filename, "w");
        !            33:        if(!f)  {
        !            34:                fprintf(stderr, "savebuf: cannot create file %s\n", filename);
        !            35:                exit(1);
        !            36:        }
        !            37: 
        !            38: while(1) {
        !            39: c = getch();
        !            40: if(c == '\32') break;
        !            41: if(c == '\r') c = '\n';
        !            42: putc(c, f);
        !            43: }
        !            44: 
        !            45: putc('\n', f);
        !            46: } /* main */
        !            47: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.