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();