Return to multi.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / sam

Annotation of researchv9/jtools/src/sam/multi.c, revision 1.1.1.1

1.1       root        1: #include "sam.h"
                      2: 
                      3: struct Filelist        file;
                      4: ushort tag;
                      5: 
                      6: File *
                      7: newfile()
                      8: {
                      9:        register File *f;
                     10:        inslist((List *)&file, 0, (long)(f=Fopen()));
                     11:        f->tag=tag++;
                     12:        if(downloaded)
                     13:                outTs(Hnewname, f->tag);
                     14:        /* already sorted; file name is "" */
                     15:        return f;
                     16: }
                     17: delfile(f)
                     18:        register File *f;
                     19: {
                     20:        register w=whichmenu(f);
                     21:        if(downloaded)
                     22:                outTs(Hdelname, f->tag);
                     23:        dellist((List *)&file, w);
                     24:        Fclose(f);
                     25: }
                     26: sortname(f)
                     27:        register File *f;
                     28: {
                     29:        register i, cmp;
                     30:        register w=whichmenu(f);
                     31:        register dupwarned=FALSE;
                     32:        dellist((List *)&file, w);
                     33:        if(f==cmd)
                     34:                i=0;
                     35:        else for(i=0; i<file.nused; i++){
                     36:                cmp=strcmp(f->name.s, file.ptr[i]->name.s);
                     37:                if(cmp==0 && !dupwarned){
                     38:                        dupwarned=TRUE;
                     39:                        warn_s(Wdupname, (char *)f->name.s);
                     40:                }else if(cmp<0 && (i>0 || cmd==0))
                     41:                        break;
                     42:        }
                     43:        inslist((List *)&file, i, (long)f);
                     44:        if(downloaded)
                     45:                outTsS(Hmovname, f->tag, f->name.s);
                     46: }
                     47: whichmenu(f)
                     48:        File *f;
                     49: {
                     50:        register i;
                     51:        for(i=0; i<file.nused; i++)
                     52:                if(file.ptr[i]==f)
                     53:                        return i;
                     54:        return -1;
                     55: }
                     56: state(f, cleandirty)
                     57:        register File *f;
                     58:        enum State cleandirty;
                     59: {
                     60:        if(f==cmd)
                     61:                return;
                     62:        if(downloaded && whichmenu(f)>=0){      /* else flist or menu */
                     63:                if(f->state==Dirty && cleandirty!=Dirty)
                     64:                        outTs(Hclean, f->tag);
                     65:                else if(f->state!=Dirty && cleandirty==Dirty)
                     66:                        outTs(Hdirty, f->tag);
                     67:        }
                     68:        f->state=cleandirty;
                     69: }
                     70: File *
                     71: lookfile()
                     72: {
                     73:        register i;
                     74:        for(i=0; i<file.nused; i++)
                     75:                if(strcmp(file.ptr[i]->name.s, genstr.s)==0)
                     76:                        return file.ptr[i];
                     77:        return 0;
                     78: }

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