Subversion Repositories wimsdev

Rev

Rev 12197 | Rev 12295 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. /*    Copyright (C) 1998-2003 XIAO, Gang of Universite de Nice - Sophia Antipolis
  2.  *
  3.  *  This program is free software; you can redistribute it and/or modify
  4.  *  it under the terms of the GNU General Public License as published by
  5.  *  the Free Software Foundation; either version 2 of the License, or
  6.  *  (at your option) any later version.
  7.  *
  8.  *  This program is distributed in the hope that it will be useful,
  9.  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  10.  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11.  *  GNU General Public License for more details.
  12.  *
  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
  15.  *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  16.  */
  17.  
  18. /* WWW multipurpose server, header definitions */
  19.  
  20. #include "Lib/libwims.h"
  21. #include "config.h"
  22. #include "includes.h"
  23. #include "wimsdef.h"
  24.  
  25. #define evalue strevalue
  26.  
  27. /* limit of query_string. */
  28. #define QUERY_STRING_LIMIT 204799
  29. /* maximal length of deposited file */
  30. #define MAX_DEPOSITLEN (8*1024*1024)
  31. /* maximal number of registered variables */
  32. #define MAX_VAR_NUM 512
  33. /* length limit for public_html/bin executable names */
  34. #define MAX_EXEC_NAME 31
  35. /* max level of nested fors */
  36. #define MAX_FOR_LEVEL 12
  37. /* max nested read; to avoid infinite loop */
  38. #define MAX_READNEST 20
  39. /* number of cached working files */
  40. #define MAX_MCACHE 32
  41. /* max sort items. */
  42. #define MAX_SORT_ITEM 5000
  43. /* max randperm() items. Should be compatible to MAX_LINELEN. */
  44. #define MAX_RANDPERM 2000
  45. /* Number of session random numbers */
  46. #define MAX_SESRANDOM 64
  47. /* Limit of output length. This can be configured. */
  48. #define OUTPUT_LENGTH_LIMIT (1024*1024)
  49. /* limit of items in value lists */
  50. #define MAX_VALUE_LIST 2048
  51. /* We fix a limit for the number of goto's (or for jumps) executed,
  52.  * in order to avoid infinite loop or DOS attack.
  53.  */
  54. #define GOTO_LIMIT 500000
  55. /* maximal nesting level of substitutions. */
  56. #define SUBST_LIMIT 16
  57. /* Limit for instex, insplot, insPLOT. */
  58. #define INS_LIMIT 500
  59. /* file to hold last output */
  60. #define lastout "last.html"
  61. /* Access policy configuration file */
  62. #define ACCESS_CONF "../log/wims.conf.access"
  63. /* Should not be changed */
  64. #define SESSION_BASE "sessions"
  65. #define S2_BASE "s2"
  66.  
  67. /* Prefix char for exec functions */
  68. #define exec_prefix_char '!'
  69. /* Prefix char for calc functions */
  70. #define calc_prefix_char '!'
  71. /* Prefix char for goto labels */
  72. #define label_prefix_char ':'
  73. /* Prefix for tags in data files */
  74. #define tag_prefix_char ':'
  75. /* Prefix char for comment lines */
  76. #define comment_prefix_char '#'
  77. /* prefix to user variable names */
  78. #define var_prefix "w_"
  79. /* (user) prefix for mathematical fonts */
  80. #define mathfont_prefix "m_"
  81. /* prefix for internal variables */
  82. #define wims_prefix "wims_"
  83. #define wpflen strlen(wims_prefix)
  84. /* name of variable definition file */
  85. #define default_var_def "var.def"
  86. /* Not configured */
  87. #define error_data_string "wims_error_data"
  88. /* Name of files containing error messages. */
  89. #define user_error_msg_file "msg/user_error.phtml"
  90. #define module_error_msg_file "msg/module_error.msg"
  91. /* directory containing log files */
  92. #define log_dir "../log"
  93. #define class_base "../log/classes"
  94. /* What should indicate that a file name given by the user
  95.  * would allow him to go upstairs in the directory tree?
  96.  * We shouldn't use "../", otherwise the user may just specify
  97.  * ".." as name and go upstairs one step.
  98.  */
  99. #define parent_dir_string ".."
  100. /* This one is stronger. */
  101. #define PARENT_DIR_STRING "/../"
  102. /* kernel daemon socket file. Should match that of wimslogd. */
  103. #define ksockfile "../tmp/log/.wimslogd"
  104. /* this directory should not exist. Do not change the definition! */
  105. #define sysmask_trigger_dir "sysmask/stat/trigger"
  106.  
  107. typedef struct {
  108.     int lineno; /* line number */
  109. /*    long fpt; */ /* position in the file */
  110.     char varname[MAX_NAMELEN+1];
  111.     double varval, varend, step;
  112.     char *list_pt, *bufpt;
  113.     int from; /* from ... to ... if 0, list if 1 */
  114. } FOR_STACK;
  115.  
  116. typedef struct {
  117.     char *address;
  118.     short int execcode, varcode;
  119.     int isstart; /* bit 0: start line; bit 1: exec; bit 2: label. bit 3: hard comment. bit 4: soft comment */
  120.     unsigned int llen;
  121. } LINE_STRUCT;
  122.  
  123. typedef struct {
  124.     char name[MAX_FNAME+1];
  125.     int  l;
  126.     int linepointer;
  127.     char filepath[MAX_FNAME+1];
  128. /* nocache bits: 0. !nocache; 1. hard nocache; 2. isfromcache; 3. isbase; */
  129.     short int for_idx, nocache;
  130.     int linecnt;
  131.     char *textbuf;
  132.     LINE_STRUCT *lines;
  133.     FOR_STACK *for_stack;
  134. } WORKING_FILE;
  135.  
  136. /* from auth.c */
  137. extern char loadavg[64];
  138. void check_load(int th);
  139. void auth(void);
  140. void checkrafale(void);
  141. void access_check(int isclass);
  142.  
  143. /* from calc.c */
  144. void calc_tolower(char *p);
  145. void calc_toupper(char *p);
  146. void calc_lookup(char *p);
  147. void calc_randitem(char *p);
  148. void calc_mexec(char *p);
  149. void _calc_exec(char *p, char *arg0, char *arg1, int n);
  150. void calc_detag(char *p);
  151. typedef struct  MYFUNCTION {
  152.     char *name;
  153.     int tag;
  154.     void (*routine) (char *p);
  155. } MYFUNCTION;
  156.  
  157. extern MYFUNCTION calc_routine[];
  158. extern int CALC_FN_NO;
  159.  
  160. void calc_append(char *p);
  161. void calc_charof(char *p);
  162. void calc_checkhost(char *p);
  163. void calc_columnof(char *p);
  164. void calc_daemon(char *p);
  165. void calc_date(char *p);
  166. void calc_debug(char *p);
  167. void calc_declosing(char *p);
  168. void calc_defof(char *p);
  169. void calc_embraced(char *p);
  170. void calc_evalsubst(char *p);
  171. void calc_exec(char *p);
  172. void calc_fileexists(char *p);
  173. void calc_hex(char *p);
  174. void calc_imgrename(char *p);
  175. void calc_itemof(char *p);
  176. void calc_leveldata(char *p);
  177. void calc_lineof(char *p);
  178. void calc_listfile(char *p);
  179. void calc_listintersect(char *p);
  180. void calc_listunion(char *p);
  181. void calc_listuniq(char *p);
  182. void calc_mailurl(char *p);
  183. void calc_makelist(char *p);
  184. void calc_mathsubst(char *p);
  185. void calc_module(char *p);
  186. void calc_nonempty(char *p);
  187. void calc_pos(char *p);
  188. void calc_product(char *p);
  189. void calc_recordof(char *p);
  190. void calc_recursion(char *p);
  191. void calc_reinput(char *p);
  192. void calc_replace(char *p);
  193. void calc_rowof(char *p);
  194. void calc_rows2lines(char *p);
  195. void calc_select(char *p);
  196. void calc_solve(char *p);
  197. void calc_sort(char *p);
  198. void calc_sum(char *p);
  199. void calc_translate(char *p);
  200. void calc_trim(char *p);
  201. void calc_wordof(char *p);
  202. void calc_values(char *p);
  203.  
  204. /* from config.c */
  205. void setsesdir(char *p);
  206. extern int threshold2, threshold1, rafalvl, modlog;
  207. extern char session_dir[MAX_FNAME+1], s2_dir[MAX_FNAME+1];
  208. extern char temp_log[MAX_FNAME+1]; /* temp log file name */
  209. extern char *cgi_name;
  210. extern int idle_time, idle_time2, idle_time3, OLD_LOG_FILES, GEN_LOG_LIMIT, MODULE_LOG_LIMIT;
  211. extern int backup_hour, site_accounting, examlog_limit;
  212. extern int ANIM_LIMIT;
  213. extern char *header_menu, *insplot_processor;
  214. extern char *home_referer, *home_referer_user, *header_menu_supervisor,
  215.    *header_menu_user, *home_referer_supervisor, *title_page, *html_file;
  216. extern char *aliased_cgi, *insdraw_processor, *mail_opt;
  217. extern int mathalign_base;
  218. unsigned long create_job_ident(void);
  219. void module_index(void);
  220. extern char *module_about_file, *main_var_proc_file, *var_init_file, *special_font;
  221. extern char var_def_file[256], *var_def_buf;
  222. void define_html_header(void);
  223. extern char *usecookie, *bgcolor;
  224. extern int spec_font;
  225. extern char *config_file; /* Main configure file, this name cannot be configured! */
  226. extern char *intro_file; /* Introduction page name */
  227. extern char *ref_file; /* Reference page */
  228. typedef struct CONFIG_DATA { char *name; int is_integer; void  *address; } CONFIG_DATA;
  229. extern CONFIG_DATA main_config[];
  230. extern int MAIN_CONFIG_NO;
  231. extern char *modindex[];
  232. extern int MODINDEX_NO;
  233. void main_configure(void);
  234. void set_rlimits(void);
  235. void module_configure(void);
  236. void set_job_ident(void);
  237.  
  238. /* from compare.c */
  239. int compare(char *p, int numeric, int lvl);
  240. char *bufprep(char *p);
  241.  
  242. /* from evalue.c */
  243. double evalue(char *p);
  244. char *substit(char *p);
  245. enum {for_in, for_from};
  246. struct forstruct {
  247.     char var[MAX_NAMELEN+1];
  248.     int type;
  249.     double list[MAX_VALUE_LIST];
  250.     char *pos[MAX_VALUE_LIST];
  251.     double from, to, step;
  252. } forstruct;
  253. int cutfor(char *p, char *bufp);
  254. void float2str(double d, char *p);
  255.  
  256. /* from exam.c */
  257. void calc_examdep(char *p);
  258. double currexamscore(int sh);
  259. void check_exam(void);
  260.  
  261. /* from exec.c */
  262. void exec_main(char *p);
  263. void exec_set(char *name);
  264. void exec_setseed(char *p);
  265. extern MYFUNCTION exec_routine[];
  266. extern int EXEC_FN_NO;
  267. extern struct distr_cmd { char *name; int (*routine) (char *p, char *list[], int max);
  268.   } distr_cmd[];
  269. extern int distr_cmd_no;
  270. void exec_tail(char *p);
  271. void exec_read(char *p);
  272.  
  273. /* from files.c */
  274. void secure_exec(void);
  275. void fileappend(char *p);
  276. void filewrite(char *p);
  277.  
  278. /* from html.c */
  279. void exec_formbar(char *p);
  280. void exec_formbar(char *p);
  281. void exec_formcheckbox(char *p);
  282. void exec_formradio(char *p);
  283. void exec_formselect(char *p);
  284.  
  285. /* from insmmath.c */
  286. void insmath(char *p);
  287. int instex_ready(char *p, char *n);
  288. char *instex_check_static(char *p);
  289. void calc_instexst(char *p);
  290.  
  291. /* from lines.c */
  292. void accessfile(char *content, char *type, char *s,...);
  293. int checkhostt(char bf2[]);
  294. extern int untrust;
  295. void module_error(char msg[]);
  296. int trusted_module(void);
  297. int checkhost(char *hlist);
  298. void _getdef(char buf[], char *name, char value[]);
  299. void getdef(char *fname, char *name, char value[]);
  300. void _daemoncmd(char *p);
  301. int datafile_check(char *name);
  302. extern int is_class_module;
  303. int find_module_file(char *fname, char buf[], int mode);
  304. int call_ssh(char *s,...);
  305. int _http2env(char outs[], char ins[]);
  306. void slashsubst(char *p);
  307. void internal_error(char msg[]);
  308. char *readfile(char *fname, char buf[], long int buflen); /* mathfonts.c */
  309. int call_sh(char *s,...);
  310. unsigned int datafile_recordnum(char *p);
  311. char *datafile_fnd_record(char *p, int n, char bf[]);
  312. int execredirected(char *cmdf, char *inf, char *outf, char *errf, char *arg[]);
  313. char *mkfname(char buf[], char *s,...);
  314. extern char *trusted_modules;
  315. enum{is_file, is_dir, is_exec, is_fifo, is_socket, is_unknown};
  316. extern struct mxtab {
  317.     char cmd[MAX_EXEC_NAME+1];
  318.     unsigned int fd1, fd2;
  319.     int pipe_stdin[2], pipe_stdout[2], pipe_stderr[2];
  320. } mxtab[MAX_MULTIEXEC];
  321. int ftest(char *fname);
  322. int multiexec(char *cmd, char **abuf);
  323. int wgetline(char buf[], size_t buflen, WORKING_FILE *f);
  324. int open_working_file(WORKING_FILE *f, char *fname);
  325. void close_working_file(WORKING_FILE *f, int cache);
  326. void read_tmp_file(char *p, const char *fname);
  327. void initalarm(void);
  328. extern int var_noexport; /* do not export variable */
  329. enum {mode_default, mode_popup, mode_raw} NAME_MODES;
  330. extern char *manager_site;
  331. void flushoutput(void);
  332. extern char pidbuf[32];
  333. extern char lastdatafile[MAX_FNAME+1];
  334. extern char lastftest[MAX_FNAME+1];
  335. int kerneld(char *p, int bufsize);
  336. void _setdef(char buf[], char *name, char *value);
  337. void output0(char buf[]);
  338. void nph_header(int code);
  339. void delete_pid(void);
  340. void setdef(char *fname, char *name);
  341. void instex_flush(void);
  342. char *DEFAULT_INS_FORMAT;
  343. void tex_nospace(char *p);
  344. int get_cached_file(char *name);
  345. extern off_t ftest_size;
  346. void putlastout(void);
  347. void bad_ident(void);
  348. void create_pid(void);
  349. extern struct sockaddr_un sun;
  350. extern char *lastdata;
  351. extern char *outptr;
  352. extern char outbuf[8192];
  353. extern int http2env(char outs[], char ins[]);
  354.  
  355. /* from log.c */
  356. void user_log(char *p);
  357. void write_logs(void);
  358. void mail_log(char *p);
  359. void flushlog(void);
  360. void post_log(void);
  361. void checklogd(void);
  362.  
  363. /* from mathfonts.c */
  364. void fix_tex_size(void);
  365. extern int current_tex_size, texbasesize;
  366. void _output_(char *s);
  367. void output(char *s,...);
  368. char *mathfont(char *fontname);
  369. extern int usertexsize;
  370.  
  371. /* from mathml.c */
  372. int mathml(char *p, int option);
  373.  
  374. /* from matrix.c */
  375. void rawmatrix(char *p);
  376.  
  377. /* from pedia.c */
  378. void pedia(char *p);
  379.  
  380. /* from rawmath.c */
  381. void htmlmath(char *p);
  382. void mathmlmath(char *p);
  383. void tohttpquery(char *p);
  384. void rawmath(char *p);
  385. void texmath(char *p);
  386. extern int rawmath_easy;
  387. extern struct mathname { char *name; int style; char *replace; } mathname[];
  388. extern int mathname_no;
  389.  
  390. /* from hmname.c */
  391. extern struct hmname { char *name; char *replace; char *replacem;} hmname[];
  392. extern int hmname_no;
  393.  
  394. /* from score.c */
  395. void calc_getscorelast(char *p);
  396. void calc_getscore(char *p);
  397. void calc_getscoremean(char *p);
  398. void calc_getscoreremain(char *p);
  399. void calc_getscorerequire(char *p);
  400. void calc_getscoreweight(char *p);
  401. void calc_getscorelast(char *p);
  402. void calc_getscoretry(char *p);
  403. void calc_getscorealltries(char *p);
  404. void calc_getscoremaxexotry(char *p);
  405. void calc_getscorebest(char *p);
  406. void calc_getscorelevel(char *p);
  407. void calc_getscorepercent(char *p);
  408. void calc_getscorestatus(char *p);
  409. void calc_examscore(char *p);
  410. void exam_currscore(int esh);
  411. extern double exam_scoredata[MAX_EXOS];
  412. int exam_depcheck(char *deps, int exam);
  413. int getscorestatus(char *classe, int sheet);
  414. int depcheck(char *sh, int exo, char *deps);
  415. int gettrycheck (char *class, char *user, int sh, int ex);
  416. extern char rscore_class[MAX_CLASSLEN+1];
  417. extern char rscore_user[MAX_NAMELEN+1];
  418.  
  419. /* from test.c */
  420. void exec_test(char *p);
  421.  
  422. /* from texmath.c */
  423. void _replace_matrix ( char *p , char *s_mat1, char *s_mat2);
  424. extern struct tmathfn {
  425.   char *name; int expind; char *left, *right; void (*routine) (char *p);
  426. } tmathfn[];
  427. extern int tmathfn_no;
  428. extern struct tmathvar { char *name, *tex; } tmathvar[];
  429. extern int tmathvar_no;
  430.  
  431. /* from var.c */
  432. int force_setvar(char *vname,char *vvalue);
  433. char *getvar(char *name);
  434. int setvar(char *vname, char *vval);
  435. void debug_output(void);
  436. void exportall(void);
  437. void unsetvar(char *vname);
  438. void get_var_privileges(void);
  439. char *_getvar(char *vname);
  440. int varsuite(char *stem, int beg, int end, char *pbuf[], int pbuflen);
  441. void lessrafale(void);
  442. extern char *exportvars[]; /* wims_ variables that should be exported */
  443. extern int exportvarcnt;
  444.  
  445. /* from variables.c */
  446. int var_def_check(char *name);
  447. void var_proc(char *fname,int cache);
  448. void phtml_put(char *fname,int cache);
  449. void phtml_put_base(char *fname,int cache);
  450. void set_module_prefix(void);
  451. extern int ispriority;
  452. extern char *sed_prog, *tr_prog, *tex2gif;
  453. void get_static_session_var(void);
  454. void parse_ro_names(void);
  455. int var_def_name(char *n, int v);
  456. void set_init_parm(void);
  457. int session_exists(char *s);
  458. int set_session_prefix(void);
  459. int check_session(void);
  460. void trap_check(char *s);
  461. void set_protocol(void);
  462. void main_phtml_put(char *mname);
  463. void var_init(void); /* initialisation */
  464. void set_variables(void);
  465. void save_session_vars(void);
  466. void seed_time(void);
  467.  
  468. /* from wims.c */
  469. void user_error(char msg[]);
  470. extern int robot_access, wrapexec, good_httpd, multiexec_index, outputing;
  471. extern int rlimit_cpu, new_session, hostcquota, manageable, cmd_type, exec_is_module;
  472. extern int available_lang_no, WORKFILE_LIMIT, isclassmodule, mode, module_defined;
  473. extern char session_prefix[], s2_prefix[];
  474. extern char lang[16];
  475. extern char *remote_addr;
  476. extern time_t nowtime, limtime, limtimex;
  477. extern char *ro_name[];
  478. extern char *mathalign_sup1, *mathalign_sup2; /* see mathalign_base */
  479. extern char *module_dir;
  480. extern char tmplbuf[MAX_LINELEN+1]; /* for temporary uses not thru subroutines. */
  481. extern char cwdbuf[MAX_FNAME+1]; /* store current working directory */
  482. extern char ins_alt[MAX_LINELEN+1]; /* dynamic insertion alternative text */
  483. extern char *bin_dir; /* directory containing executable scripts and programs. */
  484. extern char *tmp_debug, *tmp_debug_var;
  485. extern char *instex_style;
  486. extern char session_prefix[MAX_FNAME+1], s2_prefix[MAX_FNAME+1], module_prefix[MAX_FNAME+1];
  487. extern char multiexec_random[64];
  488. extern char class_dir[MAX_FNAME+1]; /* directory name of this class */
  489. extern char *devel_modules, *robot_session;
  490. extern int manager_https, confset, rlimit_fsize, rlimit_as, rlimit_data, rlimit_stack, rlimit_core;
  491. extern int rlimit_rss, rlimit_nproc, rlimit_nofile, rlimit_memlock;
  492. extern int sesrandomtab[MAX_SESRANDOM]; /* session random values */
  493. extern char job_identifier[32];
  494. extern int print_precision, substnest, getvar_len;
  495. extern char pre_language[4];
  496. extern FILE * trace_file;
  497. extern int trace_indent;
  498. /* the following list must be in the same order as *ro_name in wims.c */
  499. enum {
  500.     ro_cmd, ro_empty, ro_lang, ro_module, ro_session, ro_special_parm,
  501.       ro_special_parm2, ro_special_parm3, ro_special_parm4, ro_useropts, ro_wsession, ro_subsession, ro_win, ro_worksheet
  502. } RO_NAMES;
  503. extern char *home_module;
  504. extern char class_dir[MAX_FNAME+1]; /* directory name of this class */
  505. char available_lang[MAX_LANGUAGES][4];
  506.  
  507. enum {
  508.     cmd_intro, cmd_new, cmd_renew, cmd_reply, cmd_config, cmd_hint, cmd_help,
  509.       cmd_resume, cmd_next, cmd_getins, cmd_getframe, cmd_getfile, cmd_close,
  510.       cmd_ref
  511. } COMMANDS;
  512. extern char tmp_dir[MAX_FNAME+1]; /* temporary directory */
  513.  
  514. extern char ref_name[2048], ref_base[2048];
  515.  
  516. struct user_variable {
  517.     char *name;
  518.     char *value;
  519. } user_variable[MAX_VAR_NUM];
  520.  
  521. extern int user_var_no;
  522. /* Destinated to module error messages */
  523. WORKING_FILE m_file,svar_file,mcache[MAX_MCACHE];
  524.  
  525. extern int isexam, direct_datafile;
  526. extern char *unsetvars[], *commands[];
  527. extern char exam_sheetexo[32]; /* sheet data of an exam */
  528. extern char nowstr[32];
  529. extern int CMD_NO;
  530. extern int simuxam, parm_restore, exodepOK, user_error_nolog;
  531. extern char examlogd[MAX_FNAME+1]; /* examlog file name */
  532. char examlogf[MAX_FNAME+1]; /* examlog file name */
  533. char mpboundary[1024];
  534. char *stdinbuf;
  535. extern char **environ;      /* table of environment variables */
  536. extern char cookiegot[256], cookieheader[64];
  537. extern int executed_gotos; /* number of goto's executed. to check with GOTO_LIMIT. */
  538. extern int noout, execnt, direct_exec, ismhelp;
  539. extern int readnest; /* nested read count */;
  540. extern char *default_form_method;
  541. extern int insert_no, lastout_file, instex_cnt;
  542. extern char instex_src[MAX_LINELEN+1], instex_fname[MAX_LINELEN+1];
  543. extern char *instex_processor;
  544. extern int instex_usedynamic, httpd_type, mcachecnt, mfilecnt;
  545. extern char *mathalign_sup1, *mathalign_sup2; /* see mathalign_base */
  546. enum {httpd_apache, httpd_wims};
  547. extern int output_length; /* length of the output. */
  548. extern int backslash_insmath, killpid, is_multiexec, exec_wait, getwimstexsize;
  549. extern char *remote_host;
  550. extern char *var_readable, *var_writable, *var_nr, *var_nw, *var_pfx;
  551. extern int RO_NAME_NO, INTERNAL_NAME_NO;
  552. extern struct internal_name {
  553.     char *name; int stat;
  554. } internal_name[];
  555. extern char var_hacking;
  556. extern long int startmtime2;
  557. extern int setcookie, forceresume, user_lang, form_access, session_serial;
  558. extern char *protocol;
  559. void useropts(void);
  560. extern char cookiegot[256], cookieset[256];
  561. extern struct tm *now; /* time of request */
  562. extern int isdevelmodule, defined_var_total, deplen, wims_sheet, wims_exo;
  563. struct VAR_DEF {
  564.     char *name; short int beg,end;
  565.     char allow, log_num, defined_in_parm, unused_padding;
  566. } var_def[MAX_VAR_NUM];
  567.  
  568.  
  569. #if !HAVE_SETENV
  570. int setenv(const char *name, const char *value, int overwrite);
  571. void unsetenv(const char *name);
  572. #endif
  573.