Subversion Repositories wimsdev

Rev

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

Rev 8155 Rev 8185
Line 14... Line 14...
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
/* Low-level variable management routines. */
18
/* Low-level variable management routines. */
-
 
19
#include "wims.h"
19
 
20
 
20
#define VARBUF_LEN (256*1024)
21
#define VARBUF_LEN (256*1024)
21
#define VARBUF_NUM 16
22
#define VARBUF_NUM 16
22
#define VARNAME_LEN 32768
23
#define VARNAME_LEN 32768
23
#define VARNUM_LIMIT 4096
24
#define VARNUM_LIMIT 4096
Line 45... Line 46...
45
      "supervisormail",
46
      "supervisormail",
46
      "tmp_debug",
47
      "tmp_debug",
47
      "user",
48
      "user",
48
      "version",
49
      "version",
49
};
50
};
50
#define exportvarcnt (sizeof(exportvars)/sizeof(exportvars[0]))
51
int exportvarcnt=(sizeof(exportvars)/sizeof(exportvars[0]));
51
 
52
 
52
struct vartab {
53
struct vartab {
53
    char *name, *val;
54
    char *name, *val;
54
    unsigned short int vlen;
55
    unsigned short int vlen;
55
    char tag,lvl;
56
    char tag,lvl;
Line 325... Line 326...
325
     fast_setvar(vname,NULL); return;
326
     fast_setvar(vname,NULL); return;
326
    }
327
    }
327
    i=search_list(mainvartab,mainvarcnt,sizeof(mainvartab[0]),vname);
328
    i=search_list(mainvartab,mainvarcnt,sizeof(mainvartab[0]),vname);
328
    if(i>=0) _setvar_(mainvartab+i,NULL);
329
    if(i>=0) _setvar_(mainvartab+i,NULL);
329
}
330
}
330
 
-
 
331
#include "mathfonts.c"
-
 
332
 
331
 
333
/* Get a variable's value. */
332
/* Get a variable's value. */
334
char *_getvar(char *vname)
333
char *_getvar(char *vname)
335
{
334
{
336
    char *val;
335
    char *val;