Subversion Repositories wimsdev

Rev

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

Rev 10 Rev 3718
Line 45... Line 45...
45 
    if(buf1[0]==0) {*p=0; return;}      /* empty */
 45 
    if(buf1[0]==0) {*p=0; return;}      /* empty */
46 
    strip_trailing_spaces(buf1);
 46 
    strip_trailing_spaces(buf1);
47 
    switch(_type(buf1,commas,&cmcnt)) {
 47 
    switch(_type(buf1,commas,&cmcnt)) {
48 
        case exp_paren: {
 48 
        case exp_paren: {
49 
            if(buf1[0]=='(' && find_matching(buf1+1,')')==buf1+strlen(buf1)-1) {
 49 
            if(buf1[0]=='(' && find_matching(buf1+1,')')==buf1+strlen(buf1)-1) {
50 
                buf1[strlen(buf1)-1]=0; strcpy(buf1,find_word_start(buf1+1));
 50 
                buf1[strlen(buf1)-1]=0; ovlstrcpy(buf1,find_word_start(buf1+1));
51 
                goto retype;
 51 
                goto retype;
52 
            }
 52 
            }
53 
            snprintf(p,MAX_LINELEN,"not %s",buf1); return;
 53 
            snprintf(p,MAX_LINELEN,"not %s",buf1); return;
54 
        }
 54 
        }
55 
        case exp_not: {
 55 
        case exp_not: {