Subversion Repositories wimsdev

Rev

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

Rev 3608 Rev 3718
Line 157... Line 157...
157
            *(pt--)=0; pp++;
157
            *(pt--)=0; pp++;
158
        }
158
        }
159
        for(pt=strchr(pp,'b');pt!=NULL; pt=strchr(pt+1,'b')) {
159
        for(pt=strchr(pp,'b');pt!=NULL; pt=strchr(pt+1,'b')) {
160
            if(pt>pp && isdigit(*(pt-1)) &&
160
            if(pt>pp && isdigit(*(pt-1)) &&
161
               (*(pt+1)=='-' || isdigit(*(pt+1)))) {
161
               (*(pt+1)=='-' || isdigit(*(pt+1)))) {
162
                if(*(pt+1)=='0' && !isdigit(*(pt+2))) strcpy(pt,pt+2);
162
                if(*(pt+1)=='0' && !isdigit(*(pt+2))) ovlstrcpy(pt,pt+2);
163
                else *pt='E';
163
                else *pt='E';
164
            }
164
            }
165
        }
165
        }
166
        puts(pp); pp=pe;
166
        puts(pp); pp=pe;
167
    }
167
    }