Return to lenfnm.c CVS log

Up to [Research Unix] / researchv10no / cmd / spitbol / cint

Annotation of researchv10no/cmd/spitbol/cint/lenfnm.c, revision 1.1.1.1

1.1       root        1: 
                      2: 
                      3: /*
                      4:        lenfnm( scptr ) returns the length of the filename in the
                      5:        passed scblk.  the filename may take on a number of forms:
                      6: 
                      7:         'filename'      'filename options'      ' options'
                      8: 
                      9:         '!*commandstring'
                     10: 
                     11:         '!*commandstring*'
                     12: 
                     13:         '!*command string* options'
                     14: */
                     15: 
                     16: #include "spitblks.h"
                     17: 
                     18: int    lenfnm( scptr )
                     19: 
                     20: struct scblk   *scptr;
                     21: 
                     22: {
                     23:        int     cnt = 0,
                     24:                len;
                     25:        char    *cp, delim;
                     26: 
                     27:        len     = scptr -> len;
                     28:        if ( len == 0 )
                     29:                return  0;
                     30: 
                     31:        cp      = scptr -> str;
                     32: 
                     33:         if ( *cp == '!' ) {
                     34:                if ( len < 3 )
                     35:                        return  -1;
                     36:                delim   = *(cp + ++cnt);
                     37:                if ( *(cp + ++cnt) == delim )
                     38:                        return  -1;
                     39:                while ( cnt < len )
                     40:                        if ( *(cp + cnt++) == delim )
                     41:                                break;
                     42:        } else {
                     43:                 if ( *cp == ' ' )
                     44:                        return  0;
                     45:                while ( cnt < len )
                     46:                         if ( *(cp + cnt++) == ' ' )
                     47:                                break;
                     48:                 if ( cp[cnt - 1] == ' ' )
                     49:                        --cnt;
                     50:        }
                     51:        return  cnt;
                     52: }
                     53: 
                     54: 

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