Subversion Repositories wimsdev

Rev

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
        /* Mathematical expression manipulations for WIMS */
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
void (*string_modify)(char *start, char *bad_beg, char *bad_end, char *good,...)=string_modify1;
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();