Subversion Repositories wimsdev

Rev

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

Rev 7674 Rev 8100
Line 60... Line 60...
60 
void check_parm(char *pm)
 60 
void check_parm(char *pm)
61 
{
 61 
{
62 
    char *pp; int l;
 62 
    char *pp; int l;
63 
/* Underscore replacement */
 63 
/* Underscore replacement */
64 
    for(pp=strchr(pm,'_'); pp!=NULL; pp=strchr(pp+1,'_')) *pp='K';
 64 
    for(pp=strchr(pm,'_'); pp!=NULL; pp=strchr(pp+1,'_')) *pp='K';
65 
    strip_trailing_spaces(pm); l=strlen(pm);
 65 
    strip_trailing_spaces2(pm); l=strlen(pm);
66 
    if(l>0 && pm[l-1]!=';') strcat(pm,";");
 66 
    if(l>0 && pm[l-1]!=';') strcat(pm,";");
67 
    find_illegal(pm);
 67 
    find_illegal(pm);
68 
}
 68 
}
69 
 
 69 
 
70 
/* process and print gap output */
 70 
/* process and print gap output */