Return to bscan.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / lib

Annotation of 43BSD/contrib/icon/lib/bscan.c, revision 1.1.1.1

1.1       root        1: #include "../h/rt.h"
                      2: 
                      3: /*
                      4:  * bscan - set &subject and &pos upon entry to a scanning expression.
                      5:  *
                      6:  *  Arguments are:
                      7:  *      arg1 - new value for &subject
                      8:  *      arg2 - saved value of &subject
                      9:  *      arg3 - saved value of &pos
                     10:  */
                     11: 
                     12: bscan(nargs, arg3, arg2, arg1)
                     13: int nargs;
                     14: struct descrip arg3, arg2, arg1;
                     15:    {
                     16:    DclSave
                     17:    char sbuf[MAXSTRING];
                     18:    extern char *alcstr();
                     19:    struct descrip tsubject;
                     20: 
                     21:    SetBound;
                     22:    /*
                     23:     * Make a copy of the value for &subject and convert it to a string.
                     24:     */
                     25:    tsubject = arg1;
                     26:    switch (cvstr(&tsubject, sbuf)) {
                     27:       case NULL:
                     28:          runerr(103, &tsubject);
                     29:       case 1:
                     30:          /*
                     31:           * The new value for &subject wasn't a string.  Allocate the
                     32:           *  new value and fall through.
                     33:           */
                     34:          sneed(STRLEN(tsubject));
                     35:          STRLOC(tsubject) = alcstr(STRLOC(tsubject), STRLEN(tsubject));
                     36:       case 2:
                     37:          /*
                     38:           * Establish a new &subject value and set &pos to 1.
                     39:           */
                     40:          k_subject = tsubject;
                     41:          k_pos = 1;
                     42:       }
                     43:    suspend();
                     44: 
                     45:    /*
                     46:     * bscan has been resumed. Restore the old &subject and &pos values
                     47:     *  and fail.
                     48:     */
                     49:    k_subject = arg2;
                     50:    k_pos = INTVAL(arg3);
                     51:    fail();
                     52:    }

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