Return to start.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / learn

Annotation of 43BSDTahoe/usr.bin/learn/start.c, revision 1.1.1.1

1.1       root        1: #ifndef lint
                      2: static char sccsid[] = "@(#)start.c    4.5     (Berkeley)      5/15/86";
                      3: #endif not lint
                      4: 
                      5: #include "stdio.h"
                      6: #include "lrnref.h"
                      7: #include <sys/types.h>
                      8: #ifndef DIR
                      9: #include <sys/dir.h>
                     10: #endif
                     11: 
                     12: start(lesson)
                     13: char *lesson;
                     14: {
                     15:        struct direct dbuf;
                     16:        register struct direct *ep = &dbuf;     /* directory entry pointer */
                     17:        int c, n;
                     18:        char where [100];
                     19: 
                     20: #ifdef BSD4_2
                     21:        DIR *dp;
                     22: #define OPENDIR(s)     ((dp = opendir(s)) != NULL)
                     23: #define DIRLOOP(s)     for (s = readdir(dp); s != NULL; s = readdir(dp))
                     24: #define EPSTRLEN       ep->d_namlen
                     25: #define CLOSEDIR       closedir(dp)
                     26: #else
                     27:        int f;
                     28: #define OPENDIR(s)     ((f = open(s, 0)) >= 0)
                     29: #define DIRLOOP(s)     while (read(f, s, sizeof *s) == sizeof *s)
                     30: #define EPSTRLEN       strlen(ep->d_name)
                     31: #define CLOSEDIR       close(f)
                     32: #endif
                     33: 
                     34:        if (!OPENDIR(".")) {            /* clean up play directory */
                     35:                perror("Start:  play directory");
                     36:                wrapup(1);
                     37:        }
                     38:        DIRLOOP(ep) {
                     39:                if (ep->d_ino == 0)
                     40:                        continue;
                     41:                n = EPSTRLEN;
                     42:                if (ep->d_name[n-2] == '.' && ep->d_name[n-1] == 'c')
                     43:                        continue;
                     44:                c = ep->d_name[0];
                     45:                if (c>='a' && c<= 'z')
                     46:                        unlink(ep->d_name);
                     47:        }
                     48:        CLOSEDIR;
                     49:        if (ask)
                     50:                return;
                     51:        sprintf(where, "%s/%s/L%s", direct, sname, lesson);
                     52:        if (access(where, 04)==0)       /* there is a file */
                     53:                return;
                     54:        perror(where);
                     55:        fprintf(stderr, "Start:  no lesson %s\n",lesson);
                     56:        wrapup(1);
                     57: }
                     58: 
                     59: fcopy(new,old)
                     60: char *new, *old;
                     61: {
                     62:        char b[BUFSIZ];
                     63:        int n, fn, fo;
                     64:        fn = creat(new, 0666);
                     65:        fo = open(old,0);
                     66:        if (fo<0) return;
                     67:        if (fn<0) return;
                     68:        while ( (n=read(fo, b, BUFSIZ)) > 0)
                     69:                write(fn, b, n);
                     70:        close(fn);
                     71:        close(fo);
                     72: }

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