Subversion Repositories wimsdev

Rev

Rev 13769 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13769 Rev 17674
Line 91... Line 91...
91 
    char *s, *pp;
 91 
    char *s, *pp;
92 
    int l;
 92 
    int l;
93 
/* Underscore replacement */
 93 
/* Underscore replacement */
94 
    for(pp=strchr(pm,'_'); pp!=NULL; pp=strchr(pp+1,'_')) *pp='K';
 94 
    for(pp=strchr(pm,'_'); pp!=NULL; pp=strchr(pp+1,'_')) *pp='K';
95 
/* '?' escapes to Lisp commands. */
 95 
/* '?' escapes to Lisp commands. */
- 
 
 96 
    for(pp=strchr(pm,'?'); pp!=NULL; pp=strchr(pp+1,'?')) *pp=' ';
96 
    if(strchr(pm,'?')!=NULL) {
 97 
    /* if(strchr(pm,'?')!=NULL) {
97 
        fprintf(stderr,"Illegal under WIMS.\n"); exit(1);
 98 
      fprintf(stderr,"Illegal under WIMS.\n"); exit(1);
98 
    }
 99 
    }*/
99 
    for(s=pm;*s;s++) *s=tolower(*s);
 100 
    for(s=pm;*s;s++) *s=tolower(*s);
100 
    strip_trailing_spaces2(pm); l=strlen(pm);
 101 
    strip_trailing_spaces2(pm); l=strlen(pm);
101 
    if(l>0 && pm[l-1]!=';') strcat(pm,";");
 102 
    if(l>0 && pm[l-1]!=';') strcat(pm,";");
102 
    find_illegal(pm);
 103 
    find_illegal(pm);
103 
}
 104 
}