sermap,"SEARCH") ) then { switch( mp->idx ) { case SEREXACT: matchflag = 0 ; break ; case SERGENERAL: matchflag = 1 ; break ; case SERBOUNDED: ffstop = 1 ; break ; case SERUNBOUNDED: ffstop = 0 ; break ; } } } setdev(s) char *s ; { extern struct map *findmap() ; extern int ansi,vt100,vt220,termtype ; register struct map *mp ; if ( mp=findmap(s,&termap,"TERMINAL") ) then { switch( mp->idx ) { case SETVT100: termtype = vt100 ; break ; case SETVT220: termtype = vt220 ; break ; case SETANSI: termtype = ansi ; break ; } } } settab(s) char *s ; { extern struct fswitch inswitch ; extern struct map *findmap() ; register struct map *mp ; if ( mp=findmap(s,&tabmap,"SET TAB") ) then { switch( mp->idx ) { case TABKEEP: inswitch.tabxl = 0 ; break ; case TABEXPANDED: inswitch.tabxl = 1 ; break ; } } } setcase(s) char *s ; { extern struct fswitch inswitch ; extern struct map *findmap() ; register struct map *mp ; if ( mp=findmap(s,&casemap,"SET CASE") ) then { switch( mp->idx ) { case CASEMIXED: inswitch.casexl = 0 ; break ; case CASEUPPER: inswitch.casexl = 1 ; break ; } } } setword(cp) register char *cp ; { extern char worddelim[] ; register char ch,*wp ; int i, notdone ; notdone = 1 ; wp = worddelim ; *wp = 0 ; while ( notdone && ( ch = *cp++ ) != 0 ) { switch( ch ) { case QUOTE: if ( (*wp++ = *cp++) == 0 || *cp++ != QUOTE ) then { tederror("Invalid syntax in SET WORD") ; notdone = 0 ; } break ; case COMMA: break ; case SPACE: case TAB: break ; default: tederror("Invalid syntax in SET WORD") ; xprintf(" <%d>\n",ch) ; break ; } } } setverbose(cp) char *cp ; { extern int verbose ; verbose = 1 ; } setquiet(cp) char *cp ; { extern int verbose ; verbose = 0 ; } setsize(s) char *s ; { extern struct map *findmap() ; register struct map *mp ; if ( mp=findmap(s,&screenmap,"SCREEN") ) then { switch( mp->idx ) { case COL132: set132col() ; break ; case COL80: set80col() ; break ; } } } setast(s) char *s ; { extern struct map *findmap() ; register struct map *mp ; extern int astaction ; if ( mp=findmap(s,&astmap,"SET AST") ) then { switch( mp->idx ) { case ASTALL: astaction = 1 ; break ; case ASTPAGE: astaction = 0 ; break ; } } } setdelete(s) char *s ; { extern struct map *findmap() ; register struct map *mp ; extern int prevdelete ; if ( mp=findmap(s,&delmap,"SET DELETE") ) then { switch( mp->idx ) { case DELPREV: prevdelete = 1 ; break ; case DELCUR: prevdelete = 0 ; break ; } } } setwrap(s) char *s ; { extern int maxlen,rightmargin ; register int temp ; temp = getval(s) ; if ( temp > 0 && temp < maxlen ) then rightmargin = temp ; } setheader(s) char *s ; { register struct map *mp ; extern struct map *findmap() ; extern int updheader ; if ( mp=findmap(s,&headmap,"HEADER") ) then { switch( mp->idx ) { case HEAD_UPDATE: updheader = 1 ; break ; case HEAD_HELP: updheader = 0 ; break ; } ; } } setline(s) char *s ; { register struct map *mp ; extern struct map *findmap() ; extern int linenext ; if ( mp=findmap(s,&linemap,"LINE") ) then { switch( mp->idx ) { case LINE_NEXT: linenext = 1 ; break ; case LINE_EOLN: linenext = 0 ; break ; } } } static getval(s) char *s ; { register int res ; register char ch ; res = 0 ; while (*s != 0 && isdigit(*s) == 0 ) s++ ; while (*s != 0 && isdigit( (ch = *s++) ) ) res = 10*res + (ch - '0') ; return(res) ; } EDSSUBC [.050036]EDSSUB.C [.050036]   X14|H [4;Ik(&'( k ߫H&P` \RrPP2PPzPP{PPPPP2P~\$\\TD 0D \~ hi) +\ ^( n ^( np\^txY\^ˀ\!kVk<\F˰<˴ˬ\VVkˤ1`@lP ABCDEFGHIJKLMNOPQRSTUVWXYZ$.?0123456789<@<SЬTЬ UQS>?\\\\\\\\\`:#@'="\abcdefghi\\\\\\\jklmnopqr\\\\\\\~stuvwxyz\\\\\\\\\\\\\\\\\\\\\\{ABCDEFGHI\\\\\\}JKLMNOPQR\\\\\\\\STUVWXYZ\\\\\\0123456789\\\\\  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~@ggh<i|o<m<4p<p<k|Zn<l fr rwx<x<x<x޺<w@]@@fjnr]