Return to dirhdl.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / cpm / src

Annotation of 43BSD/contrib/cpm/src/dirhdl.c, revision 1.1.1.1

1.1       root        1: /*     dirhdl.c        1.7     83/05/13        */
                      2: 
                      3: #include <stdio.h>
                      4: #include "cpmio.h"
                      5: 
                      6: /* Display cp/m directory on stdout */
                      7: 
                      8: dispdir()
                      9: {
                     10: 
                     11:        int cnt;
                     12:        int filecnt = 0;
                     13:        int blkcnt ;
                     14: 
                     15:        for (cnt=0; cnt<maxdir; cnt++) {
                     16:                if ((dirbuf+cnt)->status != (char) 0xe5) {
                     17:                   if ((dirbuf+cnt)->extno == '\0' ) {
                     18:                        printf("%.8s %.3s",(dirbuf+cnt)->name,
                     19:                                (dirbuf+cnt)->ext);
                     20:                        if (++filecnt%4 == 0) 
                     21:                                printf("\n");
                     22:                        else
                     23:                                printf("   :   ");
                     24:                   }
                     25:                }
                     26:        }
                     27:        blkcnt = blks_used();
                     28:        if (filecnt%4 > 0) printf("\n");
                     29:        if (filecnt == 0) 
                     30:                printf("No files\n");
                     31:        else    
                     32:                printf(
                     33:                "Total of %d files. %d blocks used, %d blocks free.\n"
                     34:                ,filecnt, blkcnt,seclth*sectrk*(tracks-2)/blksiz - blkcnt);
                     35:        return;
                     36: }
                     37: 
                     38: getdir()
                     39: 
                     40: {
                     41: 
                     42:        int bl, blks;
                     43:        int offset = 0;
                     44: 
                     45:        blks = maxdir*32/blksiz;
                     46:        if ((maxdir*32)%blksiz > 0) 
                     47:                ++blks;
                     48:        for (bl = 0; blks > 0; bl++, blks--) {
                     49:                if (getblock(bl,dirbuf+offset,-1) == EOF) {
                     50:                        fprintf(stderr, "getdir: fatal error\n");
                     51:                        exit (0);
                     52:                }
                     53:                offset += blksiz/32;
                     54:        }
                     55: }
                     56: 
                     57: 
                     58: savedir()
                     59: 
                     60: {
                     61: 
                     62:        int bl, blks;
                     63:        int offset = 0;
                     64: 
                     65:        blks = maxdir*32/blksiz;
                     66:        if ((maxdir*32)%blksiz > 0) 
                     67:                ++blks;
                     68:        for (bl = 0; blks > 0; bl++, blks--) {
                     69:                if (putblock(bl,dirbuf+offset,-1) == EOF) {
                     70:                        fprintf(stderr, "savedir: fatal error\n");
                     71:                        exit (0);
                     72:                }
                     73:                offset += blksiz/32;
                     74:        }
                     75: }
                     76: 
                     77: /* Search the cp/m directory for the file given by the input
                     78:  * parameters, return -1 if not found,
                     79:  * directory index to the file's first extent is
                     80:  * returned if found.
                     81:  */
                     82: 
                     83: searchdir(name,ext)
                     84: char *name, *ext;
                     85: 
                     86: {
                     87:        int ind;
                     88: 
                     89:        for (ind = 0; ind < maxdir; ++ind) 
                     90:        {
                     91:                if ((dirbuf+ind)->status == (char) 0xe5) continue;
                     92:                if ((strncmp(name,(dirbuf+ind)->name,8) == 0) &&
                     93:                    (strncmp(ext, (dirbuf+ind)->ext, 3) == 0) &&
                     94:                    ((dirbuf+ind)->extno == '\0')) return(ind);
                     95:        }
                     96:        return(-1);
                     97: }

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