home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume9 / browse_pds / browse.c next >
C/C++ Source or Header  |  1989-12-14  |  36KB  |  2,154 lines
  1. /*             -- Just what the hell am I ??? ---                            */
  2.  
  3. #include <stdio.h>
  4. #ifdef M_XENIX
  5. #define USG
  6. #define rindex strrchr
  7. #define GETCWD
  8. #else
  9. #ifdef L_ctermid
  10. #define USG
  11. #define rindex strrchr
  12. #define minor(i) ((i)&0xFF)
  13. #define major(i) minor((i)>>8)
  14. #else
  15. #include <whoami.h>
  16. #endif
  17. #endif
  18.  
  19. /*         -- Miscellaneous include files --                     */
  20.  
  21. #include <sys/param.h>            /* NCARGS, and others */
  22. #ifndef M_XENIX
  23. #include <sys/types.h>                       /* data types for various files */
  24. #endif
  25. #include <sys/stat.h>         /* stat data structure for getdir(), statout() */
  26. #include <sys/dir.h>                      /* dir data structure for getdir() */
  27. #include <pwd.h>                       /* passwd data structure for u_name() */
  28. #include <grp.h>                        /* group data structure for g_name() */
  29. #ifdef BSD
  30. #include <sys/time.h>                  /* time data structure for printime() */
  31. #else
  32. #include <time.h>                       /* time data structure for printime() */
  33. #endif
  34. #ifdef USG
  35. #ifdef M_XENIX
  36. #include <sys/ioctl.h>
  37. #endif
  38. #include <termio.h>
  39. #else
  40. #include <sgtty.h>                     /* terminal modes for tinit(), tend() */
  41. #endif
  42. #include <signal.h>
  43.  
  44. /*        -- make information --
  45. BUILD
  46. browse: browse.c
  47.     cc browse.c -O -o browse -ltermlib
  48. END
  49. */
  50.  
  51. /*        -- Miscellaneous defines --                     */
  52. #define FALSE 0
  53. #define TRUE 1
  54.  
  55. #define MAXENTS 320
  56. #define MAXID 16
  57. #define MAXLINE 81
  58. #define NCOL 64
  59. #define MAXNAME 14
  60. #define FILENAME 256
  61. #define MAXARGC (NCARGS/16)    /* Estimate max ARGC */
  62. #define CHARSET 256        /* Number of macros == size of byte */
  63. #define NOMAC (0)        /* Null macro (last) */
  64. #define TERMBUF 1024        /* Size of term buf for termcap */
  65. #define SMALLBUF 256
  66.  
  67. /*        -- Extended directory entry format --                 */
  68. struct entry {
  69.     char *e_name;
  70.     int e_flags;
  71. #define FTAGGED (1<<0)
  72. #define FPERMANENT (1<<1)
  73.     struct stat e_stat;                             /* file status field */
  74.     char e_uname[9];                                        /* user name */
  75.     char e_gname[9];                                /* user's group name */
  76. } 
  77. *xentries[MAXENTS], **entries=xentries;
  78. int nentries;
  79.  
  80. /*        -- Look-up cache for user names --                 */
  81. struct idtab {
  82.     int  id_id;                                    /* user (or group) id */
  83.     char id_name[9];                                 /* name[8] + filler */
  84. } 
  85. u_list[MAXID],                                       /* Matched user id's. */
  86. g_list[MAXID];                                              /* ditto group */
  87. int u_ptr=0, g_ptr=0;                                     /* current entries */
  88.  
  89. /*        -- Global variables --                         */
  90. FILE *efp;                                               /* Environment file */
  91. char efname[MAXLINE];                                              /* " name */
  92. char *tent;                                               /* Pointer to tbuf */
  93. char PC;                                                    /* Pad character */
  94. char *UP, *BC;                                /* Upline, backsapce character */
  95. short ospeed;                                       /* Terminal output speed */
  96. char termbuf[TERMBUF];                   /* Place to put term info */
  97.  
  98. char *macbuf[CHARSET], ungetbuf[SMALLBUF];         /* Buffers for pushback and macros */
  99. char c_macro=NOMAC;                                           /* current macro */
  100. char *macptr = "";                   /* Pointer to currently executing macro */
  101. char *ungetptr = ungetbuf;              /* Pointer to pushed-back characters */
  102.  
  103. char *errname;                                /* Name of file error found in */
  104. extern int errno;                                     /* system error number */
  105. int xerrno;                                         /* extended error number */
  106. int ccol=NCOL;                /* Width of used display, current column */
  107. int quickmode;              /* short display mode (files only) */
  108.  
  109. #ifdef USG
  110. struct termio rawbuf;
  111. struct termio cookedbuf;
  112. #else
  113. struct sgttyb sgbuf;                        /* buffer for terminal mode info */
  114. int rawflags, cookflags;          /* flags for raw & cooked tty mode */
  115. #endif
  116.  
  117. char *cm,                                                   /* Cursor motion */
  118.      *cs,                                         /* Change scrolling region */
  119.      *sf,                                         /*  - scroll forward       */
  120.      *sr,                                         /*  - scroll backwards     */
  121.      *ce,                                            /* Clear to end of line */
  122.      *cl,                                                    /* Clear screen */
  123.      *al,                                                     /* Insert line */
  124.      *dl,                                                    /* delete ditto */
  125.      *so,                                                        /* standout */
  126.      *se,                                                    /* standout end */
  127.      *us,                                                       /* underline */
  128.      *ue,                                                   /* underline end */
  129.      *ti,                            /* Init terminal */
  130.      *te;                           /* Reset terminal */
  131. int  li,                                                  /* lines on screen */
  132.      co;                                                    /* columns ditto */
  133. char xn;        /* Magic cookie kludge */
  134.  
  135. /*        -- Global error messages --                     */
  136. char *emesg[4]={
  137.     "??",
  138. #define TOO_MANY 1
  139.     "Too many directory entries",
  140. #define NOMATCH 2
  141.     "No match",
  142.     0
  143. };
  144.  
  145. int    top, curr;               /* Positions of screen in directory */
  146. #define bottom ((top+nlines>nentries)?nentries:(top+nlines))
  147. char    *dot;                                   /* name of current directory */
  148. int    nlines;                         /* number of lines displayed on page */
  149. char    display_up;                               /* Does the display exist? */
  150. int    todump=1;                 /* Do we want to dump data? */
  151. int    ended;                                    /* Have we quite finished? */
  152. int    intrup;                    /* Have we been interrupted? */
  153. char    *HOME;                      /* Where did I start from? */
  154. char    *SHELL;                       /* How do I run programs? */
  155.  
  156. /*        -- types of functions !!!                     */
  157. char *getenv(), *tgetstr();
  158. char *malloc();
  159.  
  160. #define NEW(t) (t *)malloc(sizeof (t))
  161. #define NIL(t) ((t) 0)
  162.  
  163. /*        -- Code starts here: dummy main --                    */
  164. main(ac, av, ep)
  165. int ac;
  166. char **av;
  167. char **ep;
  168. {
  169.     if(ac>1) chdir(av[1]);
  170.  
  171.     sprintf(efname, "/tmp/br.env.%d", getpid());
  172.     HOME=getenv("HOME");
  173.     SHELL=getenv("SHELL");
  174.     dumpenv(ep);
  175.  
  176.     intrup=0;
  177.     tinit(getenv("TERM"));
  178.     clear_all();
  179.     browse();
  180.     tend();
  181.     unlink(efname);
  182. }
  183.  
  184. clear_all()
  185. {
  186.     int i;
  187.  
  188.     for(i = 0; i < MAXENTS; i++)
  189.         entries[i] = 0;
  190. }
  191.  
  192. char *clone(name)
  193. char *name;
  194. {
  195.     char *hold;
  196.     
  197.     hold = (char *)malloc(strlen(name)+1);
  198.  
  199.     if(hold==0)
  200.         return 0;
  201.     strcpy(hold, name);
  202.     return hold;
  203. }
  204.  
  205. newname(e, name)
  206. struct entry *e;
  207. char *name;
  208. {
  209.     if(e->e_name)
  210.         free(e->e_name);
  211.     e->e_name = clone(name);
  212. }
  213.  
  214. #if BSD
  215. readent(dp, db)
  216. DIR *dp;
  217. struct direct *db;
  218. {
  219.     struct direct *ptr;
  220.  
  221.     ptr = readdir(dp);
  222.     if(!ptr) return 0;
  223.  
  224.     *db = *ptr;    /* V7 'C' and above... safe, since UCB=V7+ */
  225.     free(ptr);
  226.     return 1;
  227. }
  228. #else
  229. #define opendir(n) fopen(n, "r")
  230. #define DIR FILE
  231. readent(dp, db)
  232. DIR *dp;
  233. struct direct *db;
  234. {
  235.     if(fread(db, sizeof(struct direct), 1, dp))
  236.         return 1;
  237.     /* else */
  238.         return 0;
  239. }
  240. #define closedir fclose
  241. #endif
  242.  
  243. getdir()
  244. {
  245.     char *u_name(), *g_name();
  246.     DIR *dp;
  247.     int  valid;
  248.     struct direct *hold = NEW(struct direct);
  249.     int i, p;
  250.  
  251.     if(!(dp = opendir("."))) {
  252.         errname=".";
  253.         return FALSE;
  254.     }
  255.  
  256.     p = 0;
  257.     for(i = 0; i < nentries; i++) {
  258.         if(entries[i]->e_flags & FPERMANENT) {
  259.             if(p != i) {
  260.                 struct entry *hold;
  261.                 hold = entries[p];
  262.                 entries[p] = entries[i];
  263.                 entries[i] = hold;
  264.             }
  265.             p++;
  266.         }
  267.     }
  268.  
  269.     for(nentries = p; !intrup && nentries < MAXENTS; nentries += valid) {
  270.  
  271.         if(!entries[nentries]) {
  272.             entries[nentries] = NEW(struct entry);
  273.             if(!entries[nentries])
  274.                 break;
  275.             entries[nentries]->e_name = NIL(char *);
  276.         }
  277.  
  278.         if(!readent(dp, hold))
  279.             break;
  280.  
  281.         valid = (hold->d_ino != 0);
  282.         if(valid) {
  283.             if(stat(hold->d_name, &entries[nentries]->e_stat)==-1) {
  284.                 closedir(dp);
  285.                 errname=hold->d_name;
  286.                 free(hold);
  287.                 return FALSE;
  288.             }
  289.  
  290.             newname(entries[nentries], hold->d_name);
  291.  
  292. #ifndef BSD /* truncate name to 14 characters in non-BSD systems */
  293.             if(strlen(entries[nentries]->e_name)>14)
  294.                 entries[nentries]->e_name[14] = 0;
  295. #endif
  296.  
  297.             entries[nentries]->e_flags = 0;
  298.  
  299.             strcpy(entries[nentries]->e_uname,
  300.                 u_name(entries[nentries]->e_stat.st_uid));
  301.  
  302.             strcpy(entries[nentries]->e_gname,
  303.                 g_name(entries[nentries]->e_stat.st_gid));
  304.         }
  305.     }
  306.  
  307.     closedir(dp);
  308.  
  309.     free(hold);
  310.  
  311.     if(intrup)
  312.         return FALSE;
  313.  
  314.     if(nentries>=MAXENTS || entries[nentries]==NIL(struct entry *)) {
  315.         errno=0;
  316.         xerrno=TOO_MANY;
  317.         errname=".";
  318.         return FALSE;
  319.     }
  320.  
  321.     sortdir();
  322.  
  323.     if(intrup)
  324.         return FALSE;
  325.     return TRUE;
  326. }
  327.  
  328. at_current()
  329. {
  330.     at_file(curr);
  331. }
  332.  
  333. at_file(file)
  334. int file;
  335. {
  336.     if(display_up) {
  337.         if(file < top || file >= top+nlines)
  338.             return 0;
  339.         at(0, curr-top+2);
  340.     } else {
  341.         if(file != curr)
  342.             return 0;
  343.         cmdline();
  344.     }
  345.     return 1;
  346. }
  347.  
  348. display_flags(flags)
  349. {
  350.     outc((flags&FTAGGED)?'+':((flags&FPERMANENT)?'!':' '));
  351. }
  352.  
  353. repaint_flags()
  354. {
  355.     if(!display_up) return;
  356.     at(NCOL-1, curr-top+2);
  357.     display_flags(entries[curr]->e_flags);
  358. }
  359.  
  360. repaint_current()
  361. {
  362.     if(!display_up) return;
  363.     at_current();
  364.     dump(curr, curr+1);
  365. }
  366.  
  367. tag()
  368. {
  369.     entries[curr]->e_flags ^= FTAGGED;
  370.     repaint_flags();
  371. }
  372.  
  373. tag_all(flag)
  374. int flag;
  375. {
  376.     int i;
  377.  
  378.     for(i = 0; i < nentries; i++)
  379.         if(flag)
  380.             entries[i]->e_flags |= FTAGGED;
  381.         else
  382.             entries[i]->e_flags &= ~FTAGGED;
  383.     if(display_up)
  384.         todump = TRUE;
  385. }
  386.  
  387. delete_from_display(file)
  388. int file;
  389. {
  390.     if(!display_up) return;
  391.  
  392.     if(file>=top+nlines) return;
  393.  
  394.     if(file < top) file = top;
  395.  
  396.     scroll(2+file-top, 2+nlines, 1);
  397.     at(0, 2+nlines-1);
  398.     if(top+nlines >= nentries)
  399.         outc('~');
  400.     else
  401.         dump(bottom, bottom+1);
  402. }
  403.         
  404. delete_file_entry(file)
  405. int file;
  406. {
  407.     struct entry *hold;
  408.     int    i;
  409.  
  410.     delete_from_display(file);
  411.  
  412.     hold = entries[file];
  413.     for(i=file; i<nentries-1; i++)
  414.         entries[i]=entries[i+1];
  415.     entries[nentries-1]=hold;
  416.     nentries--;
  417.  
  418.     if(file < curr || curr >= nentries) {
  419.         curr--;
  420.         if(top >= nentries) {
  421.             top--;
  422.             display_up = 0;
  423.             todump = 1;
  424.         }
  425.     }
  426. } 
  427.  
  428. remove_one(file, doit)
  429. int file;
  430. int doit;
  431. {
  432.     if(!doit) {
  433.         cmdline();
  434.         outs("Delete ");
  435.         ctlouts(entries[file]->e_name);
  436.         outs(" [n]?");
  437.         doit = getchar() == 'y';
  438.         outs(doit?"Yes.":"No.");
  439.     }
  440.     if(doit) {
  441.         if(unlink(entries[file]->e_name) == 0) {
  442.             cmdline();
  443.             outs("Deleted ");
  444.             ctlouts(entries[file]->e_name);
  445.             outs(".");
  446.             delete_file_entry(file);
  447.             return 1;
  448.         } else {
  449.             wperror(entries[file]->e_name);
  450.             return 0;
  451.         }
  452.     }
  453.     return 0;
  454. } 
  455.  
  456. remove(doit)
  457. int doit;
  458. {
  459.     int i;
  460.     int found_tags;
  461.  
  462.     found_tags = 0;
  463.     i = 0;
  464.     while(i < nentries) {
  465.         if(entries[i]->e_flags & FTAGGED) {
  466.             found_tags = 1;
  467.             if(!remove_one(i, doit)) /* decrements nentries */
  468.                 break;
  469.         } else
  470.             i++;
  471.     }
  472.     if(!found_tags)
  473.         remove_one(curr, doit);
  474. }
  475.  
  476. insert_entry_at(ent, i)
  477. struct entry *ent;
  478. int i;
  479. {
  480.     struct entry *hold;
  481.     int j;
  482.  
  483.     /* Allocate slot at end */
  484.     if(!entries[nentries]) {
  485.         entries[nentries] = NEW(struct entry);
  486.         if(!entries[nentries])
  487.             return 0;
  488.         entries[nentries]->e_name = NIL(char *);
  489.     } else if(entries[nentries]->e_name) {
  490.         free(entries[nentries]->e_name);
  491.         entries[nentries]->e_name = NIL(char *);
  492.     }
  493.  
  494.     /* Copy data into slot */
  495.     *entries[nentries] = *ent;
  496.     entries[nentries]->e_name = clone(ent->e_name);
  497.     if(!entries[nentries]->e_name)
  498.         return 0;
  499.  
  500.     if(i != nentries) {
  501.         /* Rotate slot to middle */
  502.         hold = entries[nentries];
  503.         for(j = nentries; j > i; j--)
  504.             entries[j] = entries[j-1];
  505.         entries[i] = hold;
  506.     }
  507.     nentries++;
  508.  
  509.     if(display_up) {
  510.         if(i < top)
  511.             i = top;
  512.         if(i >= bottom)
  513.             return;
  514.         scroll(2+i-top, 2+nlines, -1);
  515.         at(0, 2+i-top);
  516.         dump(i, i+1);
  517.     }
  518. }
  519.  
  520. insert_entry(ent)
  521. struct entry *ent;
  522. {
  523.     int i;
  524.  
  525.     if(nentries >= MAXENTS)
  526.         return 0;
  527.  
  528.     for(i = 0; i < nentries; i++)
  529.         if(entcmp(&ent, &entries[i]) < 0)
  530.             break;
  531.  
  532.     return insert_entry_at(ent, i);
  533. }
  534.  
  535. move()
  536. {
  537.     char scratch[FILENAME];
  538.     struct entry hold;
  539.     char inps();
  540.  
  541.     hold = *entries[curr];
  542.  
  543.     cmdline();
  544.     outs("Rename ");
  545.     ctlouts(entries[curr]->e_name);
  546.     outc(' ');
  547.     if(inps(scratch, entries[curr]->e_name, 0)=='\033') {
  548.         killcmd();
  549.         return;
  550.     }
  551.     if(link(entries[curr]->e_name, scratch)!=0) {
  552.         char tmbuf[42];
  553.         sprintf(tmbuf, "(rename %s %s)", entries[curr]->e_name, scratch);
  554.         wperror(tmbuf);
  555.         return;
  556.     }
  557.     if(unlink(entries[curr]->e_name)!=0) {
  558.         wperror(entries[curr]->e_name);
  559.         return;
  560.     }
  561.  
  562.     hold.e_name = scratch;
  563.     hold.e_flags &= ~FTAGGED;
  564.  
  565.     delete_file_entry(curr);
  566.     insert_entry(&hold);
  567. }
  568.  
  569. pname(name, mode)
  570. char *name;
  571. int mode;
  572. {
  573.     int i;
  574.     char *slash, *rindex();
  575.     int max=quickmode?MAXLINE:(MAXNAME+1);
  576.  
  577.     if((mode&S_IFMT)==S_IFDIR)
  578.         max--;
  579.     else if((mode&S_IFMT)==S_IFREG && (mode&0111))
  580.         max--;
  581.     else if((mode&S_IFMT)!=S_IFREG)
  582.         max--;
  583.  
  584.     if(!quickmode && (slash=rindex(name, '/'))) {
  585.         name=slash;
  586.         outc('<');
  587.         max--;
  588.     }
  589.     for(i=0; i<max && *name; name++)
  590.         i += ctlout(*name);
  591.     standend();
  592.     if(i==max && *name)
  593.         outs("\b>");
  594.     if((mode&S_IFMT)==S_IFDIR) {
  595.         outc('/');
  596.     }
  597.     else if((mode&S_IFMT)==S_IFREG && (mode&0111)) {
  598.         outc('*');
  599.     }
  600.     else if((mode&S_IFMT)!=S_IFREG) {
  601.         outc('?');
  602.     }
  603. }
  604.  
  605. sortdir()
  606. {
  607.     int   entcmp();
  608.     qsort(entries, nentries, sizeof(struct entry *), entcmp);
  609. }
  610.  
  611. addname(flag)
  612. char flag;
  613. {
  614.     char buf[FILENAME], *ptr, *tmp;
  615.     char scratch[FILENAME];
  616.     struct entry hold;
  617.     char inps();
  618.  
  619.     cmdline();
  620.     outs("Add ");
  621.     if(inps(scratch, entries[curr]->e_name, 0)=='\033') {
  622.         killcmd();
  623.         return;
  624.     }
  625.     
  626.     if(stat(scratch, &hold.e_stat)==-1) {
  627.         wperror(scratch);
  628.         return;
  629.     }
  630.     if(flag!='+' && *scratch != '/') {
  631.         strcpy(buf, dot);
  632.         ptr = scratch;
  633.         for(;;) {    /* eat '../' and './' */
  634.             if(ptr[0]=='.' && ptr[1]=='.' &&
  635.                (ptr[2]=='/' || !ptr[2])) {
  636.                 tmp = rindex(buf, '/');
  637.                 if(!tmp) break;
  638.                 *tmp=0;
  639.                 ptr += 2+(ptr[2]=='/');
  640.                 continue;
  641.             }
  642.             if(ptr[0]=='.' && 
  643.                (ptr[1]=='/' || !ptr[1])) {
  644.                 ptr += 1+(ptr[1]=='/');
  645.                 continue;
  646.             }
  647.             break;
  648.         }
  649.         if(*ptr) {
  650.             strcat(buf, "/");
  651.             strcat(buf, ptr);
  652.         }
  653.         hold.e_name = buf;
  654.     } else
  655.         hold.e_name = scratch;
  656.     strcpy(hold.e_uname,
  657.         u_name(hold.e_stat.st_uid));
  658.     strcpy(hold.e_gname,
  659.         g_name(hold.e_stat.st_gid));
  660.     hold.e_flags = 0;
  661.     if(flag!='+')
  662.         hold.e_flags |= FPERMANENT;
  663.     insert_entry(&hold);
  664. }
  665.  
  666. addperm()
  667. {
  668.     char buf[FILENAME], *ptr, *tmp;
  669.     struct entry hold;
  670.     int   entcmp(), i;
  671.  
  672.     if(entries[curr]->e_flags & FPERMANENT)
  673.         return;
  674.  
  675.     if(entries[curr]->e_name[0]!='/') {
  676.         strcpy(buf, dot);
  677.         ptr = entries[curr]->e_name;
  678.         for(;;) {    /* eat '../' and './' */
  679.             if(ptr[0]=='.' && ptr[1]=='.' &&
  680.                (ptr[2]=='/' || !ptr[2])) {
  681.                 tmp = rindex(buf, '/');
  682.                 if(!tmp) break;
  683.                 *tmp=0;
  684.                 ptr += 2+(ptr[2]=='/');
  685.                 continue;
  686.             }
  687.             if(ptr[0]=='.' && 
  688.                (ptr[1]=='/' || !ptr[1])) {
  689.                 ptr += 1+(ptr[1]=='/');
  690.                 continue;
  691.             }
  692.             break;
  693.         }
  694.         if(*ptr) {
  695.             strcat(buf, "/");
  696.             strcat(buf, ptr);
  697.         }
  698.         hold = *entries[curr];
  699.  
  700.         hold.e_name = buf;
  701.         hold.e_flags &= ~FTAGGED;
  702.         hold.e_flags |= FPERMANENT;
  703.         insert_entry(&hold);
  704.     } else {
  705.         entries[curr]->e_flags |= FPERMANENT;
  706.         entries[curr]->e_flags &= ~FTAGGED;
  707.         repaint_flags();
  708.     }
  709. }
  710.  
  711. delperm()
  712. {
  713.     entries[curr]->e_flags &= ~(FPERMANENT|FTAGGED);
  714.     repaint_flags();
  715. }
  716.  
  717. entcmp(e1, e2)
  718. struct entry **e1, **e2;
  719. {
  720.     if((*e1)->e_name[0] == '/') {
  721.         if((*e2)->e_name[0] != '/')
  722.             return 1;
  723.     } else if((*e2)->e_name[0] == '/')
  724.         return -1;
  725.  
  726.     return strcmp((*e1)->e_name, (*e2)->e_name);
  727. }
  728.  
  729. dump(start, end)
  730. int start;
  731. int end;
  732. {
  733.     int  i;
  734.     int  lo = (start<nentries)?start:nentries;
  735.     int  hi = (end<nentries)?end:nentries;
  736.  
  737.     for(i=lo; i<hi; i++) {
  738.         statout(entries[i]->e_name,
  739.         &entries[i]->e_stat,
  740.         entries[i]->e_uname,
  741.         entries[i]->e_gname,
  742.         entries[i]->e_flags);
  743.         nl();
  744.     }
  745.     return TRUE;
  746. }
  747.  
  748. statout(name, sbuf, user, group, flags)
  749. char *name;
  750. struct stat *sbuf;
  751. char *user, *group;
  752. int flags;
  753. {
  754.     int mode = sbuf->st_mode;
  755.  
  756.     if(!quickmode) {
  757.         printf("%5u ", sbuf->st_ino);
  758.  
  759.         if((mode&S_IFMT)==S_IFCHR) outc('c');
  760.         else if((mode&S_IFMT)==S_IFBLK) outc('b');
  761.         else if((mode&S_IFMT)==S_IFDIR) outc('d');
  762.         else if((mode&S_IFMT)==S_IFREG) outc('-');
  763.         else outc('?');
  764.         triad((mode>>6)&7, mode&S_ISUID, 's');
  765.         triad((mode>>3)&7, mode&S_ISGID, 's');
  766.         triad(mode&7, mode&S_ISVTX, 't');
  767.         outc(' ');
  768.  
  769.         printf("%3u ", sbuf->st_nlink);
  770.         printf("%-8s ", user);
  771.         printf("%-8s ", group);
  772.  
  773.         if((mode&S_IFMT)==S_IFREG || (mode&S_IFMT)==S_IFDIR)
  774.             printf("%7ld ", sbuf->st_size);
  775.         else
  776.             printf("%3d,%3d ",
  777.             major(sbuf->st_rdev),
  778.             minor(sbuf->st_rdev));
  779.  
  780.         outc(' ');
  781.         printime(&sbuf->st_mtime);
  782.     }
  783.  
  784.     display_flags(flags);
  785.     pname(name, sbuf->st_mode);
  786. }
  787.  
  788. char *
  789. u_name(uid)
  790. int uid;
  791. {
  792.     int  i;
  793.     struct passwd *pwptr, *getpwuid();
  794.  
  795.     for(i=0; i<u_ptr; i++)
  796.         if(u_list[i].id_id==uid)
  797.             return u_list[i].id_name;
  798.  
  799.     if(u_ptr>=MAXID)                                       /* cache full */
  800.         u_ptr = 0;        /* simplistic algorithm, wrap to beginning */
  801.     /* with MAXID >> # common id's it's good enough */
  802.  
  803.     u_list[u_ptr].id_id=uid;
  804.  
  805.     if(pwptr=getpwuid(uid)) { /* Copy name */
  806.         for(i=0; pwptr->pw_name[i]>' '; i++)
  807.             u_list[u_ptr].id_name[i]=pwptr->pw_name[i];
  808.         u_list[u_ptr].id_name[i]=0;
  809.     } 
  810.     else /* Default to UID */
  811.         sprintf(u_list[u_ptr].id_name, "%d", uid);
  812.  
  813.     return u_list[u_ptr++].id_name;
  814. }
  815.  
  816. char *
  817. g_name(gid)
  818. int gid;
  819. {
  820.     int  i;
  821.     struct group *grptr, *getgrgid();
  822.  
  823.     for(i=0; i<g_ptr; i++)
  824.         if(g_list[i].id_id==gid)
  825.             return g_list[i].id_name;
  826.  
  827.     if(g_ptr>=MAXID)                                       /* cache full */
  828.         g_ptr = 0;        /* simplistic algorithm, wrap to beginning */
  829.     /* with MAXID >> # common id's it's good enough */
  830.  
  831.     g_list[g_ptr].id_id=gid;
  832.  
  833.     if(grptr=getgrgid(gid)) { /* Copy name */
  834.         for(i=0; grptr->gr_name[i]>' '; i++)
  835.             g_list[g_ptr].id_name[i]=grptr->gr_name[i];
  836.         g_list[g_ptr].id_name[i]=0;
  837.     } 
  838.     else /* Default to UID */
  839.         sprintf(g_list[g_ptr].id_name, "%d", gid);
  840.  
  841.     return g_list[g_ptr++].id_name;
  842. }
  843.  
  844. printime(clock)
  845. long *clock;
  846. {
  847.     struct tm *tmbuf, *localtime();
  848.     static char *months[12]= {
  849.         "Jan","Feb","Mar","Apr","May","Jun",
  850.         "Jul","Aug","Sep","Oct","Nov","Dec"
  851.     };
  852.  
  853.     tmbuf=localtime(clock);
  854.     printf("%2d %3s %02d %2d:%02d",
  855.     tmbuf->tm_mday,
  856.     months[tmbuf->tm_mon],
  857.     tmbuf->tm_year,
  858.     tmbuf->tm_hour,
  859.     tmbuf->tm_min);
  860. }
  861.  
  862. header()
  863. {
  864.     int    i;
  865.     if(quickmode)
  866.         printf(" File Name");
  867.     else
  868.         printf(
  869. "Inode Long mode  LNX User     Group   Size/Dev  Modify Time     File name"
  870.             );
  871.     nl();
  872. }
  873.  
  874. triad(bits, special, code)
  875. int bits, special;
  876. char code;
  877. {
  878.     if(bits&4) outc('r');
  879.     else outc('-');
  880.  
  881.     if(bits&2) outc('w');
  882.     else outc('-');
  883.  
  884.     if(special) outc(code);
  885.     else if(bits&1) outc('x');
  886.     else outc('-');
  887. }
  888.  
  889. outs(s)
  890. char *s;
  891. {
  892.     int  outc();
  893.  
  894.     if(s)
  895.         tputs(s, 0, outc);
  896. }
  897.  
  898. outc(c)
  899. char c;
  900. {
  901.     putchar(c);
  902. }
  903.  
  904. /* Screen manipulation primitives: dumb set for smart terminals */
  905. at(x, y)
  906. int x, y;
  907. {
  908.     outs(tgoto(cm, x, y));
  909. }
  910.  
  911. nl()
  912. {
  913.     outs(ce);
  914.     outc('\n');
  915. }
  916.  
  917.  
  918. /* Scroll lines in window (from:to) n lines */
  919. scroll(from, to, n)
  920. int from, to, n;
  921. {
  922.     if(cs && sf && sr) {
  923.         outs(tgoto(cs, from, to-1));
  924.         if(n<0)
  925.             while(n++)
  926.                 outs(sr);
  927.         else
  928.             while(n--)
  929.                 outs(sf);
  930.         outs(tgoto(cs, 0, li-1));
  931.     } 
  932.     else if(al && dl) {
  933.         if(n<0) {
  934.             int i=n;
  935.             outs(tgoto(cm, 0, to+n));
  936.             while(i++)
  937.                 outs(dl);
  938.             outs(tgoto(cm, 0, from));
  939.             while(n++)
  940.                 outs(al);
  941.         } 
  942.         else {
  943.             int i=n;
  944.             outs(tgoto(cm, 0, from));
  945.             while(i--)
  946.                 outs(dl);
  947.             outs(tgoto(cm, 0, to-n));
  948.             while(n--)
  949.                 outs(al);
  950.         }
  951.     }
  952. }
  953.  
  954. wperror(file)
  955. char *file;
  956. {
  957.     extern int errno;
  958.     extern char *sys_errlist[];
  959.  
  960.     cmdline();
  961.     ctlouts(file);
  962.     ctlouts(": ");
  963.     ctlouts(errno?sys_errlist[errno]:emesg[xerrno]);
  964.     if(!display_up)
  965.         nl();
  966. }
  967.  
  968. fperror(prog, file)
  969. char *prog, *file;
  970. {
  971.     extern int errno;
  972.  
  973.     fprintf(stderr, "%s -- ", prog);
  974.     if(errno)
  975.         perror(file);
  976.     else
  977.         fprintf(stderr, "%s: %s\n", file, emesg[xerrno]);
  978. }
  979.  
  980. tinit(name)
  981. char *name;
  982. {
  983.     char *termptr;
  984.     char tbuf[TERMBUF], *tmp;
  985.     int  intr();
  986. #ifdef BSD
  987.     int  stop();
  988. #endif
  989.  
  990.     termptr = termbuf;
  991.  
  992.     tgetent(tbuf, name);
  993.  
  994.     tmp = tgetstr("pc", &termptr);
  995.     if(tmp) PC = *tmp;
  996.     UP = tgetstr("up", &termptr);
  997.     BC = tgetstr("bc", &termptr);
  998.     cm = tgetstr("cm", &termptr);
  999.     cs = tgetstr("cs", &termptr);
  1000.     sf = tgetstr("sf", &termptr);
  1001.     sr = tgetstr("sr", &termptr);
  1002.     ce = tgetstr("ce", &termptr);
  1003.     cl = tgetstr("cl", &termptr);
  1004.     al = tgetstr("al", &termptr);
  1005.     dl = tgetstr("dl", &termptr);
  1006.     us = tgetstr("us", &termptr);
  1007.     ue = tgetstr("ue", &termptr);
  1008.     so = tgetstr("so", &termptr);
  1009.     se = tgetstr("se", &termptr);
  1010.     ti = tgetstr("ti", &termptr);
  1011.     te = tgetstr("te", &termptr);
  1012.     li = tgetnum("li");
  1013.     co = tgetnum("co");
  1014.     xn = tgetflag("xn");
  1015.  
  1016.     nlines=li-3;
  1017.  
  1018. #ifdef USG
  1019.     ioctl(1, TCGETA, &rawbuf);
  1020.     cookedbuf = rawbuf;
  1021.     rawbuf.c_lflag &= ~(ICANON|ECHO|ECHOE|ECHOK|ECHONL);
  1022.     rawbuf.c_cc[VMIN] = 1;
  1023.     rawbuf.c_cc[VTIME] = 0;
  1024. #else
  1025.     gtty(1, &sgbuf);
  1026.     ospeed=sgbuf.sg_ospeed;
  1027.     quickmode=ospeed<10;
  1028.     cookflags=sgbuf.sg_flags;
  1029.     sgbuf.sg_flags = (sgbuf.sg_flags&~ECHO)|CBREAK;
  1030.     rawflags=sgbuf.sg_flags;
  1031. #endif
  1032.     signal(SIGINT, intr);
  1033. #ifdef BSD
  1034.     signal(SIGTSTP, stop);
  1035. #endif
  1036.     rawtty();
  1037. }
  1038.  
  1039. int tmode=0;
  1040.  
  1041. entty()
  1042. {
  1043.     if(!tmode)
  1044.         outs(ti);
  1045.     tmode=1;
  1046. }
  1047.  
  1048. extty()
  1049. {
  1050.     if(tmode)
  1051.         outs(te);
  1052.     tmode=0;
  1053. }
  1054.  
  1055. rawtty()
  1056. {
  1057. #ifdef USG
  1058.     ioctl(1, TCSETA, &rawbuf);
  1059. #else
  1060.     sgbuf.sg_flags=rawflags;
  1061.     stty(1, &sgbuf);
  1062. #endif
  1063.     entty();
  1064. }
  1065.  
  1066. cooktty()
  1067. {
  1068. #ifdef USG
  1069.     ioctl(1, TCSETA, &cookedbuf);
  1070. #else
  1071.     sgbuf.sg_flags=cookflags;
  1072.     stty(1, &sgbuf);
  1073. #endif
  1074.     extty();
  1075. }
  1076.  
  1077. intr()
  1078. {
  1079.     int intr();
  1080.     signal(SIGINT, intr);
  1081.     intrup=1;
  1082.     bell();
  1083. }
  1084.  
  1085. #ifdef BSD
  1086. stop()
  1087. {
  1088.     int stop();
  1089.     signal(SIGTSTP, stop);
  1090.     intrup=1;
  1091.     tend();
  1092.     kill(getpid(), SIGSTOP);
  1093.     rawtty();
  1094.     display_up=0;
  1095. }
  1096. #endif
  1097.  
  1098. tend()
  1099. {
  1100.     cmdline();
  1101.     cooktty();
  1102.     fflush(stdout);
  1103. }
  1104.  
  1105. char *
  1106. pwd()
  1107. #ifdef GETCWD
  1108. {
  1109.     static char mydir[FILENAME+1] = "";
  1110.     char *getcwd();
  1111.  
  1112.     return getcwd(mydir, FILENAME);
  1113. }
  1114. #else
  1115. {
  1116.     static char mydir[FILENAME] = "";
  1117.     int  status;
  1118.     int  pip[2];
  1119.     int  n;
  1120.     int  (*sigs[2])();
  1121.  
  1122.     sigs[0] = signal(2, 1);
  1123.     sigs[1] = signal(3, 1);
  1124.  
  1125.     if(pipe(pip)<0)
  1126.         return 0;
  1127.  
  1128.     if(!fork()) {
  1129.         close(1); 
  1130.         dup(pip[1]);
  1131.         close(pip[0]);
  1132.         execl("/bin/pwd", "pwd", 0);
  1133.         exit(-1);
  1134.     }
  1135.     close(pip[1]);
  1136.     wait(&status);
  1137.     signal(2, sigs[0]);
  1138.     signal(3, sigs[1]);
  1139.  
  1140.     if(status) {
  1141.         close(pip[0]);
  1142.         return "/";
  1143.     }
  1144.     n = read(pip[0], mydir, FILENAME);
  1145.     close(pip[0]);
  1146.     if(n<=0)
  1147.         return "/";
  1148.     mydir[n-1] = 0;
  1149.     return mydir;
  1150. }
  1151. #endif
  1152.  
  1153. browse()
  1154. {
  1155.     int  c;
  1156.     char *env;
  1157.  
  1158.     if(env=getenv("BROWSE"))
  1159.         macptr = env;
  1160.  
  1161.     defmacs();
  1162.     newdir();
  1163.     redraw();
  1164.     ended=0;
  1165.  
  1166.     do {
  1167.         if(intrup) {
  1168.             intrup=0;    /* clear interrupt */
  1169.             cmdline();    /* go to the command line */
  1170.             outs("Interrupt");    /* let us know about it */
  1171.             endmac();    /* clear macros */
  1172.             clearin();    /* and input buffer */
  1173.         }
  1174.         here_i_am();
  1175.         fflush(stdout);
  1176.         c = getch();
  1177.         cmd(c);
  1178.     } 
  1179.     while(!ended);
  1180. }
  1181.  
  1182. clearin()
  1183. {
  1184.     fseek(stdin, 0L, 1); /* stay here messily */
  1185. }
  1186.  
  1187. cmd(c)
  1188. char c;
  1189. {
  1190.     int    i;
  1191.  
  1192.     if(intrup)
  1193.         return;
  1194.  
  1195.     switch(c) {
  1196.     case ' ':
  1197.         if(isdir(entries[curr])) {
  1198.             if(!cd(entries[curr]->e_name))
  1199.                 wperror(entries[curr]->e_name);
  1200.         } else
  1201.             if(!macro(c))
  1202.                 bell();
  1203.             else
  1204.                 cmd(getch());
  1205.         break;
  1206.     case '&': 
  1207.         syscom(0); 
  1208.         break;
  1209.     case '!': 
  1210.         syscom(1); 
  1211.         break;
  1212.     case '=':
  1213.         todir();
  1214.         break;
  1215.     case '?': 
  1216.         sample(entries[curr]->e_name); 
  1217.         break;
  1218.     case '[':
  1219.         define();
  1220.         break;
  1221.     case 'B'-'@':
  1222.         prev(nlines);
  1223.         break;
  1224.     case 'D'-'@':
  1225.         next(nlines/2);
  1226.         break;
  1227.     case 'F'-'@':
  1228.         next(nlines);
  1229.         break;
  1230.     case 'H': 
  1231.         curr=top; 
  1232.         break;
  1233.     case 'J': 
  1234.         tail(); 
  1235.         break;
  1236.     case 'K': 
  1237.         home(); 
  1238.         break;
  1239.     case 'L'-'@': 
  1240.         redraw(); 
  1241.         break;
  1242.     case 'L': 
  1243.         curr=bottom-1; 
  1244.         break;
  1245.     case 'M':
  1246.         definitions();
  1247.         break;
  1248.     case 'N': 
  1249.         next(nlines);
  1250.         break;
  1251.     case 'P': 
  1252.         prev(nlines);
  1253.         break;
  1254.     case 'R': 
  1255.         move(); 
  1256.         break;
  1257.     case 'S':
  1258.         savedefs();
  1259.         break;
  1260.     case 'U'-'@':
  1261.         prev(nlines/2);
  1262.         break;
  1263.     case 'D':
  1264.     case 'd': 
  1265.         if(getch()==c && !intrup)
  1266.             remove(c=='D'); 
  1267.         else
  1268.             bell(); 
  1269.         break;
  1270.     case 'h': 
  1271.         ccol=0; 
  1272.         break;
  1273.     case 'l': 
  1274.         ccol=NCOL; 
  1275.         break;
  1276.     case '<':
  1277.         quickmode=1;
  1278.         if(display_up) {
  1279.             todump=1;
  1280.             at(0, 1);
  1281.             header();
  1282.         }
  1283.         break;
  1284.     case '+': case '^':
  1285.         addname(c);
  1286.         break;
  1287.     case '(':
  1288.         addperm();
  1289.         break;
  1290.     case ')':
  1291.         delperm();
  1292.         break;
  1293.     case '>':
  1294.         quickmode=0;
  1295.         if(display_up) {
  1296.             todump=1;
  1297.             at(0, 1);
  1298.             header();
  1299.         }
  1300.         break;
  1301.     case 'J'-'@': 
  1302.     case 'j': 
  1303.         newline(); 
  1304.         break;
  1305.     case 'K'-'@': 
  1306.     case 'k': 
  1307.         upline(); 
  1308.         break;
  1309.     case 'n': 
  1310.         next(nlines/2);
  1311.         break;
  1312.     case 'p': 
  1313.         prev(nlines/2);
  1314.         break;
  1315.     case 'q':  case 'Z': case 'Q':
  1316.         if(getchar()==c && !intrup)
  1317.             ended=1;
  1318.         else
  1319.             bell();
  1320.         break;
  1321.     case 'r': 
  1322.         reload(); 
  1323.         break;
  1324.     case 't':
  1325.         tag();
  1326.         break;
  1327.     case 'T': case 'U':
  1328.         tag_all(c=='T');
  1329.         break;
  1330.     default:
  1331.         if(!macro(c))
  1332.             bell();
  1333.         else
  1334.             cmd(getch()); /* make sure it does something */
  1335.     }                                 /* and thus avoid unneeded redraws */
  1336. }
  1337.  
  1338. cmdline()
  1339. {
  1340.     at(0, li-1);
  1341.     outs(ce);
  1342. }
  1343.  
  1344. newdir()
  1345. {
  1346.     if(display_up)
  1347.         at(0,0);
  1348.     fflush(stdout);
  1349.     dot=pwd();
  1350.  
  1351.     if(!getdir())
  1352.         wperror(dot);
  1353.  
  1354.     curr=0;
  1355.     top=0;
  1356.     topline();
  1357.     if(display_up)
  1358.         todump=TRUE;
  1359. }
  1360.  
  1361. reload()
  1362. {
  1363.     getdir();
  1364.     curr=(curr>=bottom)?bottom-1:curr;
  1365.     if(display_up) {
  1366.         topline();
  1367.         todump=TRUE;
  1368.     }
  1369. }
  1370.  
  1371. topline()
  1372. {
  1373.     if(display_up)
  1374.         at(0,0);
  1375.     printf("%s: %d files", dot, nentries);
  1376.     nl();
  1377. }
  1378.  
  1379. redraw()
  1380. {
  1381.     outs(cl);
  1382.     display_up=0;
  1383.     topline();
  1384.     at(0,1);
  1385.     header();
  1386.     todump=1;
  1387.     display_up=1;
  1388. }
  1389.  
  1390. dumpdata()
  1391. {
  1392.     at(0,2);
  1393.     dump(top,bottom);
  1394.     if(top+nlines>nentries) {
  1395.         int i;
  1396.         at(0, bottom-top+2);
  1397.         for(i=bottom-top; i<nlines; i++) {
  1398.             outc('~');
  1399.             nl();
  1400.         }
  1401.     }
  1402. }
  1403.  
  1404. upline()
  1405. {
  1406.      if(curr>0)
  1407.          curr--;
  1408.      else bell();
  1409. }
  1410.  
  1411. home()
  1412. {
  1413.     curr=0;
  1414. }
  1415.  
  1416. next(l)
  1417. {
  1418.      curr += l;
  1419.      if(curr>=nentries) curr=nentries-1;
  1420. }
  1421.  
  1422. prev(l)
  1423. {
  1424.      curr -= l;
  1425.      if(curr<0) curr=0;
  1426. }
  1427.  
  1428. tail()
  1429. {
  1430.     curr=nentries-1;
  1431. }
  1432.  
  1433. newline()
  1434. {
  1435.      if(curr<nentries-1)
  1436.          curr++;
  1437.      else
  1438.         bell();
  1439. }
  1440.  
  1441. here_i_am()
  1442. {
  1443.     int c;
  1444.     if(*macptr)
  1445.         return;
  1446.     if(todump)
  1447.         display_up = 1;
  1448.     if(!display_up) {
  1449.         cmdline();
  1450.         statout(entries[curr]->e_name,
  1451.             &entries[curr]->e_stat,
  1452.             entries[curr]->e_uname,
  1453.             entries[curr]->e_gname,
  1454.             entries[curr]->e_flags);
  1455.         at(quickmode?1:ccol, li-1);
  1456.         fflush(stdout);
  1457.         if((c=getch())=='\n') {
  1458.             redraw();
  1459.             here_i_am();
  1460.         } 
  1461.         else
  1462.             ungetch(c);
  1463.      } else if(todump) {
  1464.          if(!(curr-top > 0 && curr-top < nlines)) {
  1465.              top = curr-nlines/2;
  1466.              if(top<0) top=0;
  1467.          }
  1468.          dumpdata();
  1469.          at(quickmode?1:ccol, curr-top+2);
  1470.          todump=0;
  1471.      } else {
  1472.          int lines_to_scroll = curr-top;
  1473.          if(lines_to_scroll > 0)
  1474.              if((lines_to_scroll -= nlines-1) < 0)
  1475.                  lines_to_scroll = 0;
  1476.          if(lines_to_scroll < 1-nlines) {
  1477.              top=curr;
  1478.              at(0,2);
  1479.              dump(top, bottom);
  1480.          } else if(lines_to_scroll > nlines-1) {
  1481.              top=curr-nlines+1;
  1482.              at(0,2);
  1483.              dump(top, bottom);
  1484.          } else if(lines_to_scroll) {
  1485.              scroll(2, nlines+2, lines_to_scroll);
  1486.              top += lines_to_scroll;
  1487.              if(lines_to_scroll < 0) {
  1488.                  at(0, 2);
  1489.                  dump(top, top-lines_to_scroll);
  1490.              } else {
  1491.                  at(0, 2+nlines-lines_to_scroll);
  1492.                  dump(bottom-lines_to_scroll, bottom);
  1493.              }
  1494.          }
  1495.          at(quickmode?1:ccol, curr-top+2);
  1496.      }
  1497. }
  1498.  
  1499. bell()
  1500. {
  1501.     outc(7);
  1502. }
  1503.  
  1504. perform(command)
  1505. char *command;
  1506. {
  1507.     char cmdbuf[MAXLINE];
  1508.  
  1509.     cmdline();
  1510.     extty();
  1511.     outc('!');
  1512.     printf(command, entries[curr]->e_name);
  1513.     sprintf(cmdbuf, command, entries[curr]->e_name);
  1514.  
  1515.     system(cmdbuf, 1);
  1516.     entty();
  1517. }
  1518.  
  1519. system(command, rdflag)
  1520. char *command;
  1521. int rdflag; /* Should I redraw? */
  1522. {
  1523.     char scratch[32];
  1524.     int status;
  1525.     int (*sigint)(), (*sigquit)();
  1526.     char c;
  1527.  
  1528.     sigint=signal(2, 1);
  1529.     sigquit=signal(3, 1);
  1530.     cooktty();
  1531.     fflush(stdout);
  1532.     strcpy(scratch, entries[curr]->e_name);
  1533.     if(!fork()) {
  1534.         int i;
  1535.         static char *envp[MAXARGC];
  1536.         static char env[NCARGS];
  1537.         char *hold;
  1538.         char line[MAXLINE];
  1539.         char *tmp;
  1540.  
  1541.         signal(2,0);
  1542.         signal(3,0);
  1543.  
  1544.         if(!(efp=fopen(efname, "r"))) {
  1545.             fputc('\n', stderr);
  1546.             perror(efname);
  1547.             execl(SHELL, SHELL, "-c", command, 0);
  1548.             execl("/bin/sh", "sh", "-c", command, 0);
  1549.             perror("/bin/sh");
  1550.             exit(-77);
  1551.         }
  1552.  
  1553.         i=0;
  1554.         tmp=hold=env;
  1555.  
  1556.         while(!feof(efp)) {
  1557.             fgets(line, MAXLINE, efp);
  1558.             if(strlen(line)+(tmp-env)>NCARGS)
  1559.                 break;
  1560.             if(line[0]=='$')
  1561.                 if(tmp>hold) {
  1562.                     envp[i] = hold;
  1563.                     i++;
  1564.                     if(i > MAXARGC-2) break;
  1565.                     tmp[-1]=0;   /* eat line-feed at end */
  1566.                     hold = tmp;
  1567.                 }
  1568.             strcpy(tmp, line+(line[0]=='$'));
  1569.             tmp += strlen(tmp);
  1570.         }
  1571.         if(tmp>hold) {
  1572.             envp[i] = hold;
  1573.             i++;
  1574.             tmp[-1]=0;               /* and eat this one as well */
  1575.         }
  1576.         sprintf(tmp, "FILE=%s", scratch);
  1577.         envp[i++]=tmp;
  1578.         envp[i]=0;
  1579.  
  1580.         if(rdflag)
  1581.             putchar('\n');
  1582.         else
  1583.             putchar('\r');
  1584.         fflush(stdout);
  1585.         execle(SHELL, SHELL, "-c", command, 0, envp);
  1586.         execle("/bin/sh", "sh", "-c", command, 0, envp);
  1587.         perror("/bin/sh");
  1588.         exit(-77);
  1589.     }
  1590.     wait(&status);
  1591.     signal(2, sigint);
  1592.     signal(3, sigquit);
  1593.     rawtty();
  1594.  
  1595.     if(rdflag || status!=0)
  1596.         display_up=0;
  1597. }
  1598.  
  1599. char
  1600. inps(buf, text, termin)
  1601. char *buf;
  1602. char *text;
  1603. char termin;
  1604. {
  1605.     int i = 0;
  1606.     char c, *ptr, *txp;
  1607.  
  1608.     txp=text?text:"!";
  1609.  
  1610.     while(!intrup &&
  1611.         (fflush(stdout), c=getch()) != '\033' &&
  1612.         c != '\n' &&
  1613.         c != termin)
  1614.         switch(c) {
  1615.         case '\b': 
  1616.         case '\177':
  1617.             if(i>0) {
  1618.                 printf("\b \b");
  1619.                 i--;
  1620.             } 
  1621.             else
  1622.                 bell();
  1623.             break;
  1624.         case 'U'-'@':
  1625.             txp=text?text:"!";
  1626.         case 'X'-'@':
  1627.             if(i>0)
  1628.                 while(i>0) {
  1629.                     printf("\b \b");
  1630.                     i--;
  1631.                 }
  1632.             else
  1633.                 bell();
  1634.             break;
  1635.         case 'K'-'@':
  1636.             if(*txp)
  1637.                 ctloutc(buf[i++] = *txp++);
  1638.             break;
  1639.         case '%':
  1640.             for(ptr=entries[curr]->e_name; *ptr; ptr++)
  1641.                 ctlout(buf[i++] = *ptr);
  1642.             standend();
  1643.             break;
  1644.         case '#':
  1645.             for(ptr=dot; *ptr; ptr++)
  1646.                 ctlout(buf[i++] = *ptr);
  1647.             standend();
  1648.             break;
  1649.         case '~':
  1650.             for(ptr=HOME; *ptr; ptr++)
  1651.                 ctlout(buf[i++] = *ptr);
  1652.             standend();
  1653.             break;
  1654.         case '@':
  1655.             outc(c);
  1656.             fflush(stdout);
  1657.             c = getch();
  1658.             if(!macro(c)) {
  1659.                 ungetch(c);
  1660.                 buf[i++]='@';
  1661.             } 
  1662.             else
  1663.                 outs("\b \b");
  1664.             break;
  1665.         case '$':
  1666.             outc(c);
  1667.             fflush(stdout);
  1668.             c = getch();
  1669.             if(c=='$') {
  1670.                 char tmp[10];
  1671.                 sprintf(tmp, "%d", getpid());
  1672.                 outs("\b \b");
  1673.                 for(ptr=tmp; *ptr; ptr++)
  1674.                     ctlout(buf[i++] = *ptr);
  1675.                 standend();
  1676.             } 
  1677.             else if(!macbuf[c]) {
  1678.                 ungetch(c);
  1679.                 buf[i++]='$';
  1680.             } 
  1681.             else {
  1682.                 outs("\b \b");
  1683.                 for(ptr=macbuf[c]; *ptr; ptr++)
  1684.                     ctlout(buf[i++] = *ptr);
  1685.                 standend();
  1686.             }
  1687.             break;
  1688.         case '!':
  1689.             while(*txp)
  1690.                 ctlout(buf[i++] = *txp++);
  1691.             standend();
  1692.             break;
  1693.         case '\\':
  1694.             outc(c);
  1695.             fflush(stdout);
  1696.             c=getch();
  1697.             if(c=='~' || c=='%' || c=='#' ||
  1698.                 c=='\\' || c=='!' ||
  1699.                 c=='K'-'@' || c=='U'-'@' || c=='X'-'@' ||
  1700.                 c=='\b' || c=='\177' ||
  1701.                 c==termin || c=='\033' || c=='\n' ||
  1702.                 c=='@' || c=='$') {
  1703.                 outc('\b');
  1704.                 ctloutc(buf[i++]=c);
  1705.                 break;
  1706.             } 
  1707.             else if(c>='0' && c<='7') {
  1708.                 int n, val=0;
  1709.                 for(n=0; n<3 && c>='0' && c<='7'; n++) {
  1710.                     val = val*8 + c-'0';
  1711.                     outc('\b');
  1712.                     ctloutc(val);
  1713.                     c=getch();
  1714.                 }
  1715.                 ungetch(c);
  1716.                 c=buf[i++]=val;
  1717.                 break;
  1718.             } 
  1719.             else if(c=='^') {
  1720.                 outc('\b');
  1721.                 outc('^');
  1722.                 fflush(stdout);
  1723.                 c=getch();
  1724.                 if(c>='?'&&c<='_') {
  1725.                     outc('\b');
  1726.                     ctloutc(buf[i++]=(c-'@')&'\177');
  1727.                     break;
  1728.                 } 
  1729.                 else if(c>='`'&&c<='~') {
  1730.                     outc('\b');
  1731.                     ctloutc(buf[i++]=c-'`');
  1732.                     break;
  1733.                 } /* otherwise default */
  1734.                 else buf[i++]='^'; /* after adding caret */
  1735.  
  1736.             } /* otherwise fall through to default */
  1737.             else buf[i++]='\\'; /* after adding backslash */
  1738.         default:
  1739.             ctloutc(buf[i++] = c);
  1740.             break;
  1741.         }
  1742.  
  1743.     buf[i] = 0;
  1744.     return intrup?'\033':c;
  1745. }
  1746.  
  1747. ctlouts(s)
  1748. char *s;
  1749. {
  1750.     int cnt = 0;
  1751.  
  1752.     while(*s)
  1753.         cnt += ctlout(*s++);
  1754.     cnt += standend();
  1755.  
  1756.     return cnt;
  1757. }
  1758.  
  1759. ctloutc(c)
  1760. char c;
  1761. {
  1762.     int cnt;
  1763.  
  1764.     cnt = ctlout(c);
  1765.     cnt += standend();
  1766.  
  1767.     return cnt;
  1768. }
  1769.  
  1770. int somode = 0;
  1771. int ulmode = 0;
  1772.  
  1773. standout()
  1774. {
  1775.     if(!somode) {
  1776.         outs(so);
  1777.         somode = 1;
  1778.         if(xn) return 1;
  1779.     }
  1780.     return 0;
  1781. }
  1782.  
  1783. underline()
  1784. {
  1785.     if(!ulmode) {
  1786.         outs(us);
  1787.         ulmode = 1;
  1788.         if(xn) return 1;
  1789.     }
  1790.     return 0;
  1791. }
  1792.  
  1793. standend()
  1794. {
  1795.     int cnt = 0;
  1796.  
  1797.     if(somode) {
  1798.         outs(se);
  1799.         somode = 0;
  1800.         if(xn) cnt++;
  1801.     }
  1802.     if(ulmode) {
  1803.         outs(ue);
  1804.         ulmode = 0;
  1805.         if(xn) cnt++;
  1806.     }
  1807.     return cnt;
  1808. }
  1809.  
  1810. ctlout(c)
  1811. char c;
  1812. {
  1813.     int cnt = 0;
  1814.     if(c&'\200') {
  1815.         cnt += underline();
  1816.         cnt += ctlout(c&'\177');
  1817.         return cnt;
  1818.     } 
  1819.     else if(c<' ' || c=='\177') {
  1820.         cnt += standout();
  1821.         outc((c+'@')&'\177');
  1822.         cnt++;
  1823.         return cnt;
  1824.     } 
  1825.     else {
  1826.         cnt += standend();
  1827.         outc(c);
  1828.         cnt++;
  1829.         return cnt;
  1830.     }
  1831. }
  1832.  
  1833. todir()
  1834. {
  1835.     char cmdbuf[MAXLINE];
  1836.     static char lastdir[MAXLINE] = ".";
  1837.     char *slash, *rindex();
  1838.  
  1839.     cmdline();
  1840.     printf("goto ");
  1841.     if(inps(cmdbuf, lastdir, 0)!='\033' && cmdbuf[0]) {
  1842.         strcpy(lastdir, cmdbuf);
  1843.         if(!cd(cmdbuf, 0)) {
  1844.             if(!fgoto(cmdbuf))
  1845.                 if(slash=rindex(cmdbuf, '/')) {
  1846.                     *slash++=0;
  1847.                     if(cd(cmdbuf, 1)) {
  1848.                         if(!fgoto(slash)) {
  1849.                             errno=0;
  1850.                             xerrno=NOMATCH;
  1851.                             wperror(slash);
  1852.                         }
  1853.                     } else
  1854.                         wperror(cmdbuf);
  1855.                 } else
  1856.                     wperror(cmdbuf);
  1857.         }
  1858.     } 
  1859.     else
  1860.         killcmd();
  1861. }
  1862.  
  1863. fgoto(file)
  1864. char *file;
  1865. {
  1866.     int i;
  1867.  
  1868.     for(i = 0; i<nentries; i++)
  1869.         if(match(entries[i]->e_name, file)) {
  1870.             curr=i;
  1871.             return 1;
  1872.         }
  1873.  
  1874.     return 0;
  1875. }
  1876.  
  1877. match(target, sample)
  1878. char *target, *sample;
  1879. {
  1880.     while(*sample && *target==*sample) {
  1881.         target++;
  1882.         sample++;
  1883.     }
  1884.     return !*sample;
  1885. }
  1886.  
  1887. killcmd()
  1888. {
  1889.     if(!intrup) {
  1890.         cmdline();
  1891.         printf("Command killed");
  1892.         if(!display_up)
  1893.             nl();
  1894.     }
  1895. }
  1896.  
  1897. cd(dir, flag)
  1898. char *dir;
  1899. int flag;
  1900. {
  1901.     if(flag) {
  1902.         cmdline();
  1903.         printf("cd %s\r", dir);
  1904.     } 
  1905.     else
  1906.         outc('\r');
  1907.     fflush(stdout);
  1908.     if(access(dir, 5)==0 && chdir(dir)==0) {
  1909.         newdir();
  1910.         return 1;
  1911.     } 
  1912.     return 0;
  1913. }
  1914.  
  1915. syscom(rd)
  1916. int rd; /* should I redraw? */
  1917. {
  1918.     char buf[MAXLINE];
  1919.     static char lastcmd[MAXLINE] = "";
  1920.     char inps();
  1921.  
  1922.     cmdline();
  1923.     extty();
  1924.     putchar(rd?'!':'&');
  1925.     if(inps(buf, lastcmd, 0)=='\033') {
  1926.         entty();
  1927.         killcmd();
  1928.         return;
  1929.     } 
  1930.     else
  1931.         strcpy(lastcmd, buf);
  1932.     system(buf, rd);
  1933.     entty();
  1934. }
  1935.  
  1936. isdir(entry)
  1937. struct entry *entry;
  1938. {
  1939.     return((entry->e_stat.st_mode&S_IFMT)==S_IFDIR);
  1940. }
  1941.  
  1942. sample(name)
  1943. char *name;
  1944. {
  1945.     int col;
  1946.     int c, i;
  1947.     FILE *tfp;
  1948.  
  1949.     if(!(tfp = fopen(name, "r"))) {
  1950.         wperror(name);
  1951.         return;
  1952.     }
  1953.  
  1954.     i=0;
  1955.     do {
  1956.         cmdline();
  1957.         col = 0;
  1958.         for(c=fgetc(tfp); col<72 && !feof(tfp); c=fgetc(tfp))
  1959.             col+=ctlout(c);
  1960.         standend();
  1961.         if(display_up)
  1962.             outc('\r');
  1963.         else
  1964.             outc('\n');
  1965.     } 
  1966.     while(!feof(tfp) && (i=getch())=='?');
  1967.  
  1968.     fclose(tfp);
  1969.  
  1970.     if(i && i!=' ' && i!='q' && i!='?')
  1971.         ungetch(i);
  1972. }
  1973.  
  1974. macro(c)
  1975. char c;
  1976. {
  1977.     if(c==NOMAC)
  1978.         return 0;
  1979.     else if(!macbuf[c])
  1980.         return 0;
  1981.     else if(c==c_macro) {
  1982.         cmdline();
  1983.         printf("Recursive macro.");
  1984.         endmac();
  1985.         return 0;
  1986.     } 
  1987.     else {
  1988.         c_macro = c;
  1989.         macptr = macbuf[c];
  1990.         return 1;
  1991.     }
  1992. }
  1993.  
  1994. getch()
  1995. {
  1996.     char c;
  1997.  
  1998.     if(ungetptr>ungetbuf)
  1999.         return *--ungetptr;
  2000.     if(*macptr)
  2001.         if(*macptr=='\007') {
  2002.             macptr++;
  2003.             if(*macptr!='\007')
  2004.                 return getchar();
  2005.             else {
  2006.                 if((c=getchar()) != '\n')
  2007.                     macptr--;
  2008.                 else
  2009.                     macptr++;
  2010.                 return (c=='\n')?getch():c;
  2011.             }
  2012.         } 
  2013.         else if(*macptr=='\\') {
  2014.             if(macptr[1]=='\007')
  2015.                 macptr++;
  2016.             return *macptr++;
  2017.         } 
  2018.         else
  2019.             return *macptr++;
  2020.     else {
  2021.         endmac();
  2022.         return getchar();
  2023.     }
  2024. }
  2025.  
  2026. endmac() {
  2027.     c_macro=NOMAC;
  2028.     macptr="";
  2029. }
  2030.  
  2031. ungetch(c)
  2032. char c;
  2033. {
  2034.     if(ungetptr-ungetbuf>SMALLBUF)
  2035.         return;
  2036.     *ungetptr++=c;
  2037. }
  2038.  
  2039. define()
  2040. {
  2041.     int c;
  2042.     char buf[SMALLBUF];
  2043.  
  2044.     cmdline();
  2045.  
  2046.     printf("define ");
  2047.     c = getch();
  2048.  
  2049.     if(intrup)
  2050.         return;
  2051.  
  2052.     ctloutc(c);
  2053.     printf(" as [");
  2054.     if(inps(buf, macbuf[c], ']')=='\033') {
  2055.         killcmd();
  2056.         return;
  2057.     }
  2058.     printf("]");
  2059.  
  2060.     defent(c, buf);
  2061. }
  2062.  
  2063. defent(c, buf)
  2064. char c;
  2065. char *buf;
  2066. {
  2067.     if(macbuf[c])
  2068.         free(macbuf[c]);
  2069.  
  2070.     if(!buf[0]) {
  2071.         macbuf[c]=0;
  2072.         return;
  2073.     }
  2074.  
  2075.     macbuf[c] = (char *)malloc(strlen(buf)+1);
  2076.  
  2077.     if(!macbuf[c]) {
  2078.         cmdline();
  2079.         printf("No room");
  2080.         return;
  2081.     }
  2082.  
  2083.     strcpy(macbuf[c], buf);
  2084. }
  2085.  
  2086. defmacs()
  2087. {
  2088.     defent(' ', "!more %\n");
  2089.     defent('%', "!%\n");
  2090.     defent('.', "=.");
  2091.     defent('/', "=/");
  2092.     defent('~', "=~");
  2093.     defent('v', "!vi %\n");
  2094.     defent('$', "!vi /tmp/br.env.$$\n");
  2095. }
  2096.  
  2097. definitions()
  2098. {
  2099.     char *ptr;
  2100.     int    i;
  2101.  
  2102.     cmdline();
  2103.     for(i=0; i<CHARSET; i++)
  2104.         if(macbuf[i]) {
  2105.             printf("define ");
  2106.             ctloutc(i);
  2107.             printf(" as [");
  2108.             ctlouts(macbuf[i]);
  2109.             printf("]\n");
  2110.         }
  2111.     display_up=0;
  2112. }
  2113.  
  2114. savedefs()
  2115. {
  2116.     int i;
  2117.     char filename[MAXLINE];
  2118.     static char lastfile[MAXLINE] = "/usr/tmp/macros";
  2119.     FILE *fp;
  2120.  
  2121.     cmdline();
  2122.     outs("Save macros as ");
  2123.  
  2124.     if(inps(filename, lastfile, '\033')=='\033') {
  2125.         killcmd();
  2126.         return;
  2127.     }
  2128.  
  2129.     strcpy(lastfile, filename);
  2130.  
  2131.     if(!(fp = fopen(filename, "w"))) {
  2132.         wperror(filename);
  2133.         return;
  2134.     }
  2135.  
  2136.     for(i=1; i<CHARSET; i++)
  2137.         if(macbuf[i])
  2138.             fprintf(fp, "[%c%s]\n", i, macbuf[i]);
  2139.  
  2140.     fclose(fp);
  2141. }
  2142.  
  2143. dumpenv(envp)
  2144. char **envp;
  2145. {
  2146.     if(!(efp=fopen(efname, "w"))) {
  2147.         fperror(efname);
  2148.         exit(-1);
  2149.     }
  2150.     while(*envp)
  2151.         fprintf(efp, "$%s\n", *envp++);
  2152.     fflush(efp);
  2153. }
  2154.