Rev 8100 | Rev 8136 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 8100 | Rev 8122 | ||
---|---|---|---|
Line 13... | Line 13... | ||
13 | * You should have received a copy of the GNU General Public License |
13 | * You should have received a copy of the GNU General Public License |
14 | * along with this program; if not, write to the Free Software |
14 | * along with this program; if not, write to the Free Software |
15 | * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
15 | * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
16 | */ |
16 | */ |
17 | 17 | ||
18 |
|
18 | /* Mathematical expression manipulations for WIMS */ |
19 | 19 | ||
20 | #include "mathexp.h" |
20 | #include "mathexp.h" |
21 | #include "../../Lib/libwims.h" |
21 | #include "../../Lib/libwims.h" |
22 | 22 | ||
23 | char parmbuf[MAX_LINELEN+1]; |
23 | char parmbuf[MAX_LINELEN+1]; |
Line 35... | Line 35... | ||
35 | int isvar; |
35 | int isvar; |
36 | } regexchk[MAX_REGEX]; |
36 | } regexchk[MAX_REGEX]; |
37 | int regexcnt=0; |
37 | int regexcnt=0; |
38 | 38 | ||
39 | #include "tables.c" |
39 | #include "tables.c" |
40 | #include "errors.c" |
- | |
41 | #include "../../Lib/lines.c" |
- | |
42 | #include "basic.c" |
40 | #include "basic.c" |
43 | #include "extract.c" |
41 | #include "extract.c" |
44 | #include "type.c" |
42 | #include "type.c" |
45 | #include "not.c" |
43 | #include "not.c" |
46 | 44 | ||
Line 80... | Line 78... | ||
80 | if(request>=reqcnt) error("Bad request."); |
78 | if(request>=reqcnt) error("Bad request."); |
81 | p=find_word_start(pp); pp=find_word_end(p); if(*pp) *pp++=0; |
79 | p=find_word_start(pp); pp=find_word_end(p); if(*pp) *pp++=0; |
82 | objline[0]=pp; reqtype=p; |
80 | objline[0]=pp; reqtype=p; |
83 | } |
81 | } |
84 | 82 | ||
85 |
|
83 | /*void (*string_modify)(char *start, char *bad_beg, char *bad_end, char *good,...)=string_modify1;*/ |
86 | 84 | ||
87 | int main() |
85 | int main() |
88 | { |
86 | { |
89 | char *p; |
87 | char *p; |
90 | int i; |
88 | int i; |
91 | - | ||
- | 89 | string_modify=string_modify1; |
|
92 | error1=error; error2=error; error3=error; |
90 | error1=error; error2=error; error3=error; |
93 | p=getenv("wims_exec_parm"); |
91 | p=getenv("wims_exec_parm"); |
94 | if(p==NULL || *p==0) error("No input data."); |
92 | if(p==NULL || *p==0) error("No input data."); |
95 | snprintf(parmbuf,sizeof(parmbuf),"%s",p); |
93 | snprintf(parmbuf,sizeof(parmbuf),"%s",p); |
96 | parm(); |
94 | parm(); |