Subversion Repositories wimsdev

Rev

Rev 10 | Rev 7676 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10 Rev 3718
Line 21... Line 21...
21 
 
 21 
 
22 
        /* Selected characters are entered by the env var 'oncechar'.
 22 
        /* Selected characters are entered by the env var 'oncechar'.
23 
         * Words entered by stdin. Output to stdout. */
 23 
         * Words entered by stdin. Output to stdout. */
24 
 
 24 
 
25 
#include "../wims.h"
 25 
#include "../wims.h"
- 
 
 26 
#include "../Lib/basicstr.c"
26 
#define MAX_WORDLEN 1023
 27 
#define MAX_WORDLEN 1023
27 
 
 28 
 
28 
char wbuf[MAX_WORDLEN+1];
 29 
char wbuf[MAX_WORDLEN+1];
29 
char selbuf[256];
 30 
char selbuf[256];
30 
 
 31 
 
Line 55... Line 56...
55 
    char *p;
 56 
    char *p;
56 
   
 57 
   
57 
    p=getenv("oncechar"); if(p==NULL || *p==0) return 0;
 58 
    p=getenv("oncechar"); if(p==NULL || *p==0) return 0;
58 
    snprintf(selbuf,sizeof(selbuf),"%s",p);
 59 
    snprintf(selbuf,sizeof(selbuf),"%s",p);
59 
    for(p=selbuf; *p; p++)
 60 
    for(p=selbuf; *p; p++)
60 
      if(isspace(*p) || strchr("^?*.${}[]()\\",*p)!=NULL) strcpy(p,p+1);
 61 
      if(isspace(*p) || strchr("^?*.${}[]()\\",*p)!=NULL) ovlstrcpy(p,p+1);
61 
    do{
 62 
    do{
62 
        c=getword(); checkword();
 63 
        c=getword(); checkword();
63 
    }
 64 
    }
64 
    while(c!=EOF);
 65 
    while(c!=EOF);
65 
    return 0;
 66 
    return 0;