Return to expunge.c CVS log

Up to [Research Unix] / researchv10no / cmd / basic / bite / src

Annotation of researchv10no/cmd/basic/bite/src/expunge.c, revision 1.1.1.1

1.1       root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
                      2: 
                      3:  *     /////////////////////////////////////
                      4:  *     /////////////////////////////////////
                      5:  *     /////// EXPUNGE all variables ///////
                      6:  *     /// J. P. Hawkins WH X4610 8C-001 ///
                      7:  *     ///// Sun Aug 26 05:56:08 1979 //////
                      8:  *     /////////////////////////////////////
                      9:  *     /////////////////////////////////////
                     10: 
                     11:  *
                     12:  * clear variable symbol tables and initialize core pointer
                     13:  * so that all variables are freed including subscripted vars.
                     14:  * and hicore points to top limit of txtbuf.
                     15:  *
                     16:  * This done on any invocation of the "run" command.
                     17:  * or "expunge" command.
                     18:  *
                     19:  * MOD,J.P.Hawkins, 4-FEB-81, to include string variable symbol table clr
                     20:  */
                     21: /*   "@(#) expunge.c:  V 1.3  3/1/81" */
                     22: #include       "bas.h"
                     23: extern char    *hicore;        /* highest free user location pointer */
                     24: extern char    txtbuf[];       /* user core */
                     25: extern char *symtab[26][11], *asymtab[26][11]; /* symbol table pointers */
                     26: #ifdef STRINGS
                     27: extern struct  FREELIST freelist[];
                     28: extern char *  ssymtab[26][11];
                     29: extern char *  sasymtab[26][11];
                     30: #endif
                     31: expunge()
                     32: {
                     33:        register i;
                     34:        clrtab(symtab);         /* initialize regular variable
                     35:                                    symbol table */
                     36: #ifdef STRINGS
                     37:        clrtab(ssymtab);        /* initialize string variable
                     38:                                        symbol table */
                     39:        clrtab(sasymtab);       /* initialize string array variable
                     40:                                        symbol table */
                     41:        for(i=0; i<MAXFREE; i++) /* cleanup string freelist */
                     42:                freelist[i].size = 0;
                     43: #endif
                     44:        clrtab(asymtab);        /* initialize subscripted variable
                     45:                                    symbol table */
                     46:        hicore = &txtbuf[PGSIZ*NMPAG]; /* point to top of user core */
                     47: }
                     48: 
                     49: /*
                     50:  * clear 26 rows, 11 columns
                     51:  * rows represent symbol letters a-z
                     52:  * columns represent no-number, then 0-9 = 11
                     53:  */
                     54: clrtab(table)
                     55: char * table[26][11];
                     56: {
                     57:        register        j,k;    /* row and column indicies */
                     58: 
                     59:        for(j=0; j<26; j++)
                     60:                for(k=0; k<11; k++)
                     61:                        table[j][k] = 0;
                     62: }

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