Return to lenfnm.c CVS log

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

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

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

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