Subversion Repositories wimsdev

Rev

Rev 15517 | Rev 15704 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
10 reyssat 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
 
8185 bpr 18
/* this is part of wims server source.
19
 * This file does execution commands.
20
 */
21
#include "wims.h"
10 reyssat 22
 
23
static void _skip_contents(int isif);
24
 
8213 bpr 25
/* common routine for the two if's. */
10 reyssat 26
static void _exec_if_while(char *p, int numerical, int isif)
27
{
12245 bpr 28
  if(compare(p,numerical,0)==0) _skip_contents(isif); /* skip if false */
29
  else if(!isif) m_file.for_idx++;
30
  return;
10 reyssat 31
}
32
 
7379 bpr 33
    /* 'if' non-numerical (unless comparisons are < or >, etc.) */
10 reyssat 34
void exec_if(char *p)
35
{
12245 bpr 36
   _exec_if_while(p,0,1);
10 reyssat 37
}
38
 
8213 bpr 39
/* 'if' numerical. */
10 reyssat 40
void exec_ifval(char *p)
41
{
12245 bpr 42
  _exec_if_while(p,1,1);
10 reyssat 43
}
44
 
45
void _exec_while(char *p, int numerical)
46
{
12245 bpr 47
  FOR_STACK *stk;
48
  if(m_file.for_idx>=MAX_FOR_LEVEL) module_error("too_many_fors");
49
  stk=&(m_file.for_stack[m_file.for_idx]);
50
  stk->lineno=m_file.l;
51
  memmove(stk->varname,"?",2);
52
  _exec_if_while(p,numerical,0);
10 reyssat 53
}
54
 
8213 bpr 55
/* 'while' non-numerical (unless comparisons are < or >, etc.) */
10 reyssat 56
void exec_while(char *p)
57
{
12245 bpr 58
  _exec_while(p,0);
10 reyssat 59
}
60
 
8213 bpr 61
/* 'while' numerical. */
10 reyssat 62
void exec_whileval(char *p)
63
{
12245 bpr 64
  _exec_while(p,1);
10 reyssat 65
}
66
 
67
void exec_endwhile(char *p)
68
{
12245 bpr 69
  FOR_STACK *stk;
70
  if(m_file.for_idx<=0) module_error("next_without_for");
71
  stk=&(m_file.for_stack[m_file.for_idx-1]);
72
  if(stk->varname[0]!='?') module_error("next_without_for");
73
  m_file.for_idx--; *p=0;
74
  m_file.linepointer=stk->lineno;
75
  executed_gotos++;
76
  if(executed_gotos>=GOTO_LIMIT) module_error("too_many_gotos");
10 reyssat 77
}
78
 
8213 bpr 79
/* Should provide a method to stop infinite loop. */
10 reyssat 80
void exec_goto(char *p)
81
{
12245 bpr 82
  char lbuf[MAX_NAMELEN+17];
83
  char *label_start, *line_start;
84
  int old_line;
85
  int i;
86
  executed_gotos++;
87
  if(executed_gotos>=GOTO_LIMIT) module_error("too_many_gotos");
88
  old_line=m_file.l;
89
  label_start=find_word_start(p);
90
  *find_word_end(label_start)=0;
91
  m_file.l=m_file.linepointer=0;
92
  for(i=0;i<m_file.linecnt;i++) {
93
    if(((m_file.lines[i].isstart)&4)==0) continue;
94
    line_start=find_word_start((m_file.lines[i]).address);
95
    if(line_start>(m_file.lines[i+1]).address && i<m_file.linecnt)
96
      continue;
97
    m_file.linepointer=i;
98
    wgetline(lbuf,MAX_NAMELEN+8,&m_file);
99
    line_start=find_word_start(lbuf);
100
    if(*line_start!=label_prefix_char) continue;
101
    line_start++;*find_word_end(line_start)=0;
102
    if(line_start[0]!='*' && strcmp(line_start,label_start)!=0) continue;
103
    *p=0; i++; return;
104
  }
105
  m_file.l=old_line;
106
  setvar(error_data_string,label_start); module_error("label_not_found");
107
/*    m_file.linepointer=m_file.linecnt; *p=0; return;
108
*/
109
}
10 reyssat 110
 
8213 bpr 111
/* 'else' with or without 'if'.
112
 * Philosophy: we implement a loosely checked grammar.
113
 * We cannot check 'if' grammar if we want to use 'goto'
114
 * together with 'if'.
115
 */
10 reyssat 116
void exec_else(char *p)
117
{
12245 bpr 118
  _skip_contents(1); return;
10 reyssat 119
}
120
 
8213 bpr 121
/* 'endif': nothing needs to be done here. */
10 reyssat 122
void exec_endif(char *p)
123
{
12245 bpr 124
  return;
10 reyssat 125
}
126
 
8213 bpr 127
/* find out the end of a for loop */
10 reyssat 128
void goto_for_end(void)
129
{
12245 bpr 130
  int inner;
131
  char buf[16];
132
  inner=0;
133
  while(m_file.linepointer<m_file.linecnt) {
134
    if((m_file.lines[m_file.linepointer].isstart&2)==0) {
135
      m_file.linepointer++; continue;
136
    }
137
    if(wgetline(buf,8,&m_file)==EOF) break;
138
    *find_word_end(buf)=0;
139
    if(strcmp(buf,"!for")==0) {
140
      inner++; continue;
141
    }
142
    if(strcmp(buf,"!next")==0) {
143
      if(inner>0) {
144
        inner--; continue;
7379 bpr 145
      }
12245 bpr 146
      else break;
10 reyssat 147
    }
12245 bpr 148
  }
10 reyssat 149
}
150
 
8213 bpr 151
/* for */
10 reyssat 152
void exec_for(char *p)
153
{
12245 bpr 154
  char *p1, *p2, *p3;
155
  double v1, v2, step;
156
  char buf[MAX_LINELEN+1];
157
  FOR_STACK *stk;
10 reyssat 158
 
12245 bpr 159
  if(m_file.for_idx>=MAX_FOR_LEVEL) module_error("too_many_fors");
160
  stk=&(m_file.for_stack[m_file.for_idx]);
161
  stk->lineno=m_file.l;
162
  p1=find_word_start(p);
163
  for(p2=p1; !isspace(*p2) && *p2!=0 && *p2!='=' ; p2++);
164
  if(*p2==0) syntax: module_error("for_syntax");
165
  if(p2-p1>MAX_NAMELEN) module_error("name_too_long");
166
  memmove(stk->varname,p1,p2-p1);
167
  stk->varname[p2-p1]=0;
168
  p1=find_word_start(p2); if(*p1==0) goto syntax;
169
  if(*p1=='=') {
170
    p1++;
171
    assign:
172
    stk->from=0;
173
    p2=wordchr(p1,"to");
174
    if(p2==NULL) p2=strstr(p1,"..");
175
    if(p2==NULL) goto syntax;
176
    *p2=0; p2+=2;
177
    p3=wordchr(p2,"step");
178
    if(p3!=NULL) {
179
      *p3=0; p3+=strlen("step");
180
      step=evalue(p3);
181
      if(step==0) module_error("zero_step");
182
    }
183
    else step=1;
184
      v1=evalue(p1); v2=evalue(p2);
185
      float2str(v1,buf); setvar(stk->varname, buf);
186
      if((step>0 && v1>v2) || (step<0 && v1<v2) ) {  /* condition not met */
10 reyssat 187
  loop_out:
7379 bpr 188
        goto_for_end();
189
      }
12245 bpr 190
    else {
191
      stk->varval=v1; stk->varend=v2; stk->step=step;
192
      stk->lineno=m_file.linepointer;
193
      m_file.for_idx++;
10 reyssat 194
    }
12245 bpr 195
    *p=0; return;
196
  }
197
  if(memcmp(p1,"from",strlen("from"))==0 && isspace(*(p1+strlen("from")))) {
198
    p1+=strlen("from"); goto assign;
199
  }
200
  if(memcmp(p1,"in",strlen("in"))==0 && isspace(*(p1+strlen("in")))) {
201
    stk->from=1; p1+=strlen("in");
202
    p1=find_word_start(p1); if(*p1==0) goto loop_out;
203
    p2=xmalloc(MAX_LINELEN+1);
204
    mystrncpy(p2,p1,MAX_LINELEN);
205
    substit(p2);
206
    strip_trailing_spaces(p2);
207
    if(*p2==0) goto loop_out;
208
    p1=strparchr(p2,','); stk->bufpt=p2;
209
    if(p1!=NULL) {
210
      *p1=0; stk->list_pt=find_word_start(p1+1);
10 reyssat 211
    }
12245 bpr 212
    else stk->list_pt=NULL;
213
    strip_trailing_spaces(p2); setvar(stk->varname,p2);
214
    stk->lineno=m_file.linepointer;
215
    m_file.for_idx++; *p=0; return;
216
  }
217
  goto syntax;
10 reyssat 218
}
219
 
8213 bpr 220
/* break a for loop */
10 reyssat 221
void exec_break(char *p)
222
{
12245 bpr 223
  FOR_STACK *stk;
224
  if(m_file.for_idx>0) {
225
    stk=&(m_file.for_stack[m_file.for_idx-1]);
226
    if(stk->varname[0]=='?') _skip_contents(0);
227
    else goto_for_end();
228
    m_file.for_idx--;
229
  }
230
  *p=0; return;
10 reyssat 231
}
232
 
8213 bpr 233
/* next */
10 reyssat 234
void exec_next(char *p)
235
{
12245 bpr 236
  double v1, v2, step;
237
  char *p1, *p2;
238
  char buf[MAX_LINELEN+1];
239
  FOR_STACK *stk;
240
  if(m_file.for_idx<=0) module_error("next_without_for");
241
  stk=&(m_file.for_stack[m_file.for_idx-1]);
242
  if(stk->varname[0]=='?') module_error("next_without_for");
243
  if(stk->from) { /* list style */
244
    if(stk->list_pt==NULL) {
245
      free(stk->bufpt);
246
      m_file.for_idx--;
247
      *p=0; return;
10 reyssat 248
    }
12245 bpr 249
    p1=strchr(stk->list_pt,',');
250
    if(p1!=NULL) {
251
      *p1=0; p2=find_word_start(p1+1);
10 reyssat 252
    }
12245 bpr 253
    else p2=NULL;
254
    strip_trailing_spaces(stk->list_pt);
255
    setvar(stk->varname,stk->list_pt);
256
    stk->list_pt=p2; goto loop_back;
257
  }
258
  v1=stk->varval; v2=stk->varend; step=stk->step;
259
  v1+=step; stk->varval=v1;
260
  float2str(v1,buf);
261
  setvar(stk->varname, buf);
262
  if((step>0 && v1<=v2) || (step<0 && v1>=v2)) { /* loop */
263
    loop_back:
264
    m_file.linepointer=stk->lineno;
265
    executed_gotos++;
266
    if(executed_gotos>=GOTO_LIMIT) module_error("too_many_gotos");
267
  }
268
  else m_file.for_idx--;
269
  *p=0; return;
10 reyssat 270
}
271
 
8213 bpr 272
/* Execution of a file in the module directory,
273
 * only for trusted modules.
274
 */
10 reyssat 275
void exec_mexec(char *p)
276
{
12245 bpr 277
  direct_exec=1;
278
  calc_mexec(p);
279
  direct_exec=0;
10 reyssat 280
}
281
 
8213 bpr 282
/* call shell. */
10 reyssat 283
void _exec_ex(char *p, char *arg0, char *arg1, int n)
284
{
12245 bpr 285
  char *abuf[8];
286
  char errorfname[MAX_FNAME+1];
10 reyssat 287
 
12245 bpr 288
  if(robot_access) {
289
    *p=0; return;
290
  }
291
  if(!noout || !trusted_module() || is_class_module) {
292
    _calc_exec(p,arg0,arg1,n); if(outputing) output0(p);
293
    return;
294
  }
295
  mkfname(errorfname,"%s/exec.err",tmp_dir);
296
  abuf[0]=arg0; abuf[1]=arg1; abuf[n]=p; abuf[n+1]=NULL;
297
  wrapexec=1; exportall();
298
  execredirected(abuf[0],NULL,NULL,errorfname,abuf);
10 reyssat 299
}
300
 
8213 bpr 301
/* call shell. */
10 reyssat 302
void exec_sh(char *p)
303
{
12245 bpr 304
  _exec_ex(p,"sh","-c",2);
10 reyssat 305
}
306
 
8213 bpr 307
/* call perl. */
10 reyssat 308
void exec_perl(char *p)
309
{
12245 bpr 310
  _exec_ex(p,"perl","-e",2);
10 reyssat 311
}
312
 
8213 bpr 313
/* file should not be cached */
10 reyssat 314
void exec_nocache(char *p)
315
{    m_file.nocache|=1; *p=0; }
316
 
8214 bpr 317
/*
318
 * Read another file.
319
 * Read a file in order to perform tests.
320
 * Relevant global variables:
321
 * - m_file, a WORKING_FILE structure (should be restored to its original
322
 *   value at the end of the procedure)
323
 * - untrust, an integer (should be restored to its original
324
 *   value at the end of the procedure)
325
 * - outputing, an integer; its value is juste read.
326
 * - readnest, an integer, which is incremented during the function
327
 *   and decremented when it finishes.
328
 * Relevant global variables used in subprograms:
329
 * - module_prefix, a const char * which will be preprended before
330
 *   the filename, (see lines.c, label = openit).
331
 * Relevant wims_environment parameters:
332
 * - wims_read_parm  (should be restored to its original
333
 *   value at the end of the procedure)
334
 * - wims_trustfile: this parameter is only read.
335
 * Important procedures called by this one:
336
 * - phtml_put(char*, int)
337
 * - var_proc(char*, int)
338
 * - module_error(const char*)
339
 * @param p pointer to the filename, possibly followed by parameters
340
 */
341
 
10 reyssat 342
void exec_read(char *p)
343
{
12245 bpr 344
  WORKING_FILE save;
345
  char parmsave[MAX_LINELEN+1];
346
  char *pp,*ps;
347
  int t,cache;
7379 bpr 348
 
12245 bpr 349
  strip_trailing_spaces(p);p=find_word_start(p);
350
  if(*p==0) return;
351
  pp=find_word_end(p); if(*pp) *pp++=0;
352
  pp=find_word_start(pp);
353
  ps=getvar("wims_read_parm"); if(ps==NULL) ps="";
354
  mystrncpy(parmsave,ps,sizeof(parmsave));
355
  setvar("wims_read_parm",pp);
356
  memmove(&save,&m_file,sizeof(WORKING_FILE));
357
  cache=1; if(p[0]=='.' && p[1]=='/') {p+=2; cache=0;}
358
  t=untrust;
359
  if(strncmp(p,"wimshome/",9)==0) {
360
    if((untrust&255)!=0 &&
7379 bpr 361
        (m_file.name[0]=='/' || strncmp(m_file.name,"wimshome/",9)==0))
12245 bpr 362
      module_error("Illegal_file_access");
13691 bpr 363
    untrust|=0x200;
364
  }
12245 bpr 365
  if((untrust&0x202)!=0) {
366
    pp=getvar("wims_trustfile");
367
    if(pp!=NULL && *pp!=0 && wordchr(pp,p)!=NULL)
368
      untrust&=0xfdfd;
369
  }
370
  readnest++; if(readnest>MAX_READNEST) module_error("too_many_nested_read");
371
  if(outputing) phtml_put(p,cache); else var_proc(p,cache);
372
  readnest--; untrust=t;
373
  memmove(&m_file,&save,sizeof(WORKING_FILE));
374
  if (trace_file){
375
    int i;
376
    putc('\n',trace_file);
377
    for(i=1; i<=2*trace_indent-2; i++) putc(' ',trace_file);
378
    fprintf(trace_file,"%s:",m_file.filepath); fflush(trace_file);
379
  }
380
  setvar("wims_read_parm",parmsave);
10 reyssat 381
}
382
 
8213 bpr 383
/* read a variable processing file */
10 reyssat 384
void exec_readproc(char *p)
385
{
12245 bpr 386
  int o=outputing; outputing=0; exec_read(p); outputing=o;
10 reyssat 387
}
388
 
389
void exec_defread(char *p)
390
{
12245 bpr 391
  int t,o;
392
  secure_exec();
393
  t=untrust; untrust|=0x400;
394
  o=outputing; outputing=0;
395
  exec_read(p); untrust=t; outputing=o;
10 reyssat 396
}
397
 
8213 bpr 398
/* Change to another file (no return) */
10 reyssat 399
void exec_changeto(char *p)
400
{
12245 bpr 401
  m_file.linepointer=m_file.linecnt;
402
  exec_read(p);
10 reyssat 403
}
404
 
405
int header_executed=0, tail_executed=0;
406
 
8213 bpr 407
/* internal routine: get other language versions */
10 reyssat 408
void other_langs(void)
409
{
12245 bpr 410
  int i,j,k;
411
  char *p, lbuf[4], pbuf[MAX_FNAME+1], *phtml;
412
  char namebuf[MAX_FNAME+1], listbuf[4*MAX_LANGUAGES];
413
  static int otherlangs_got=0;
10 reyssat 414
 
12245 bpr 415
  if(otherlangs_got) return;
416
  mystrncpy(namebuf,module_prefix,sizeof(namebuf));
417
  listbuf[0]=0;j=strlen(namebuf)-3; p=listbuf;
418
  if(j>=2 && strcmp("light",namebuf+j-2)==0) {
419
    setvar("wims_light_module","yes");
420
    phtml=getvar("phtml");
421
    if(phtml==NULL || *phtml==0) return;
422
    mystrncpy(pbuf,phtml,sizeof(pbuf));
423
    j=strlen(pbuf)-3;
424
    if(pbuf[j]!='.') return;
425
    j++; ovlstrcpy(lbuf,pbuf+j); pbuf[j]=0;
426
    j=strlen(namebuf);
427
    snprintf(namebuf+j,MAX_FNAME-j-10,"/pages/%s",pbuf);
428
    j=strlen(namebuf);
429
    for(i=k=0;i<available_lang_no;i++) {
430
      if(strcmp(lbuf,available_lang[i])==0) continue;
431
      mystrncpy(namebuf+j,available_lang[i],MAX_FNAME-j);
432
      if(ftest(namebuf)<0) continue;
433
      if(k>0) *p++=',';
434
      mystrncpy(p,available_lang[i],sizeof(listbuf)-4-(p-listbuf));
435
      p+=strlen(p);
436
      k++;
10 reyssat 437
    }
12245 bpr 438
  goto end;
439
  }
440
  if(j>0 && namebuf[j]=='.') {
441
    setvar("wims_light_module","");
442
    j++; ovlstrcpy(lbuf,namebuf+j); namebuf[j]=0;
443
    for(i=k=0;i<available_lang_no;i++) {
444
      if(strcmp(lbuf,available_lang[i])==0) continue;
445
      snprintf(namebuf+j,MAX_FNAME-j,"%s/main.phtml",
446
           available_lang[i]);
447
      if(ftest(namebuf)<0) continue;
448
      if(k>0) *p++=',';
449
      mystrncpy(p,available_lang[i],sizeof(listbuf)-4-(p-listbuf));
450
      p+=strlen(p);
451
      k++;
10 reyssat 452
    }
12245 bpr 453
  }
454
  end: setvar("wims_otherlangs",listbuf); otherlangs_got=1;
10 reyssat 455
}
456
 
8213 bpr 457
/* Standardised reference to wims home */
10 reyssat 458
void exec_homeref(char *p)
459
{
12245 bpr 460
  char *ref, *user;
7379 bpr 461
 
12245 bpr 462
  if(ismhelp || tail_executed) return;
463
  setvar("wims_homeref_parm",p); *p=0;
464
  user=getvar("wims_user");
465
  if(user==NULL) user="";
466
  if(*user==0 || robot_access) ref=home_referer;
467
  else {
468
    if(strcmp(user,"supervisor")==0) ref=home_referer_supervisor;
469
    else ref=home_referer_user;
470
  }
471
  if(user[0]==0 && !robot_access) other_langs();
472
  phtml_put_base(ref,0); tail_executed=1;
10 reyssat 473
}
474
 
8213 bpr 475
/* Standardised header menu */
10 reyssat 476
void exec_headmenu(char *p)
477
{
12245 bpr 478
  char *ref, *user;
7379 bpr 479
 
12245 bpr 480
  if(header_executed) return;
481
  setvar("wims_headmenu_parm",p); *p=0;
482
  user=getvar("wims_user");
483
  if(user==NULL) user="";
484
  if(*user==0 || robot_access) ref=header_menu;
485
  else {
486
    if(strcmp(user,"supervisor")==0) ref=header_menu_supervisor;
487
    else ref=header_menu_user;
488
  }
489
  if(user[0]==0 && !robot_access) other_langs();
490
  phtml_put_base(ref,0); header_executed=1;
10 reyssat 491
}
492
 
8213 bpr 493
/* uniformized title */
10 reyssat 494
void exec_title(char *p)
495
{
12245 bpr 496
  char *s;
497
  *p=0;
498
  if(!outputing) return;
499
  s=getvar("wims_title_title");
500
  if(s==NULL || *s==0) {
501
    s=getvar("module_title");
502
    if(s==NULL || *s==0) return;
503
    force_setvar("wims_title_title",s);
504
  }
505
  phtml_put_base(title_page,0);
10 reyssat 506
}
507
 
8213 bpr 508
/* standardized html tail */
10 reyssat 509
void exec_tail(char *p)
510
{
12245 bpr 511
  if(!outputing || tail_executed) {
512
    *p=0; return;
513
  }
514
  if(!ismhelp) exec_homeref(p);
515
  *p=0;
516
  _output_("</body></html>");
517
  tail_executed=1;
10 reyssat 518
}
519
 
5925 bpr 520
void exec_formend(char *p)
521
{
12245 bpr 522
  _output_("\n</div></form>");
5925 bpr 523
}
524
 
10 reyssat 525
void determine_font(char *l);
526
 
11071 schaersvoo 527
/* see changelog wims_mathml for history */
13744 obado 528
void _headmathjax (char *p)
7379 bpr 529
{
12737 obado 530
  _output_("\n<script>/*<![CDATA[*/\
9618 schaersvoo 531
function wims_mathml_zoom(id){\
532
var math = document.getElementById(id);\
533
if(math.getAttribute(\"mathsize\") == \"100%\"){\
10964 obado 534
  math.setAttribute(\"mathsize\",\"200%\");}else{\
535
  math.setAttribute(\"mathsize\",\"100%\");};\
9618 schaersvoo 536
};\
14608 obado 537
window.addEventListener(\"load\", function() {\
13744 obado 538
  var ua = navigator.userAgent.toLowerCase();\
539
  var gecko = ua.indexOf(\"gecko\") > -1 && ua.indexOf(\"khtml\") === -1 && ua.indexOf(\"trident\") === -1;\
540
  if(! gecko ){\
541
    var script = document.createElement(\"script\");\
15517 bpr 542
    script.src  = \"scripts/js/mathjax/MathJax.js?config=MML_CHTML-full\";\
13744 obado 543
    document.head.appendChild(script);\
544
  };\
545
});/*]]>*/</script>\n");
12737 obado 546
 
547
  // Safari/MathJax bugfix : refresh display when document ready.
548
  _output_("\n<script>\
549
reload_mathML=function(){var t=document.getElementsByClassName(\"wims_mathml\");Array.prototype.filter.call(t,function(t){var e=t.style.display;t.style.display=\"none\",t.style.opacity=\"0\",setTimeout(function(){t.style.display=e},1e3),setTimeout(function(){t.style.opacity=\"1\"},1100)})},document.onreadystatechange=function(){\"complete\"===document.readyState&&(/^((?!chrome|android).)*safari/i.test(navigator.userAgent)&&reload_mathML())};\
550
</script>");
7370 bpr 551
}
552
 
8213 bpr 553
/* standardized header */
1050 bpr 554
void _header(char *p, int option)
10 reyssat 555
{
12245 bpr 556
  char *s1, *s2, hbuf[MAX_LINELEN+1], *ws="", *ws2="", *bo, *ol;
557
  char wsbuf[MAX_LINELEN+1],wsbuf2[MAX_LINELEN+1];
558
  setvar("wims_header_parm",p); *p=0;
559
  if(!outputing || header_executed) return;
560
  s1=getvar("wims_window");
561
  if(mode==mode_popup) {
562
    if(s1!=NULL && *s1!=0) {
563
      char *p1, *p2;
564
      int t1,t2/*,t3,t4*/;
565
      p1=find_word_start(s1);
566
      for(p2=p1; myisdigit(*p2); p2++);
567
      *p2=0; t1=atoi(p1); p1=p2+1;
568
      while(!myisdigit(*p1) && *p1) p1++;
569
      for(p2=p1; myisdigit(*p2); p2++);
570
      *p2=0; t2=atoi(p1); p1=p2+1;
7379 bpr 571
/*        while(!myisdigit(*p1) && *p1) p1++;
572
        for(p2=p1; myisdigit(*p2); p2++);
573
        *p2=0; t3=atoi(p1); p1=p2+1;
574
        while(!myisdigit(*p1) && *p1) p1++;
575
        for(p2=p1; myisdigit(*p2); p2++);
576
        *p2=0; t4=atoi(p1); p1=p2+1;
577
        while(!myisdigit(*p1) && *p1) p1++;
578
        for(p2=p1; myisdigit(*p2); p2++);
579
        if(t3<5) t3=5; if(t4<20) t4=20;
12245 bpr 580
*/     snprintf(wsbuf,sizeof(wsbuf),
7379 bpr 581
          "window.focus();window.resizeTo(%d,%d);",t1,t2); ws=wsbuf;
582
/*      snprintf(wsbuf,sizeof(wsbuf),
583
             "window.focus();window.resizeto(%d,%d);window.moveto(%d,%d);",
584
             t1,t2,t3,t4); ws=wsbuf;
12245 bpr 585
*/   }
586
  }
587
  else {
588
    if(s1!=NULL && strcmp(s1,"new")==0)
7379 bpr 589
      ws="window.focus();window.resizeTo(800,640);window.moveTo(15,35);";
12245 bpr 590
  }
591
  if(strstr(session_prefix,"_exam")!=NULL) {
7379 bpr 592
/*    char buf[64]; */
12245 bpr 593
    if(*ws==0) ws="window.focus();";
594
    else ws= "window.focus();window.moveTo(5,70);";
7379 bpr 595
/*    snprintf(buf,sizeof(buf),"name.phtml.%s",lang);
596
      phtml_put_base(buf);
597
      phtml_put_base("jsclock.phtml"); */
12245 bpr 598
  }
599
  s1=getvar("wims_html_header"); if(s1==NULL) s1="";
600
  determine_font(getvar("module_language"));
601
  s2=getvar("module_title"); if(s2!=NULL && *s2!=0) {
602
    mystrncpy(hbuf,s2,sizeof(hbuf)); calc_detag(hbuf);
603
    setvar("module_title2",hbuf);
604
  }
605
  mystrncpy(hbuf,s1,sizeof(hbuf)); substit(hbuf);
606
  s2=getvar("wims_htmlbody"); if(s2==NULL) s2="";
607
  bo=getvar("wims_html_bodyoption"); if(bo==NULL) bo="";
608
  ws2=getvar("wims_html_onload"); if(ws2==NULL) ws2="";
609
  snprintf(wsbuf2,sizeof(wsbuf2),"%s%s",ws,ws2);
610
  setvar("wims_html_onload",wsbuf2);
611
  if(wsbuf2[0]) ol=" onload="; else ol="";
13744 obado 612
 
613
  output("<!DOCTYPE html>\
614
    \n<html lang=\"%s\"><head>\n\
615
    <meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, minimum-scale=1.0\"/>\n\
616
    %s\n", lang, hbuf);
15277 obado 617
  if(robot_access){
618
    output("<link rel=\"stylesheet\" href=\"html/themes/_css/robots.css\" />");
619
  }
13744 obado 620
 
621
  _headmathjax(p);
622
 
12245 bpr 623
  if(ol[0]) {
13744 obado 624
    output("</head>\n<body %s %s\"%s\" %s>", s2, ol, wsbuf2, bo);}
625
  else {
626
    output("</head>\n<body %s %s%s %s>", s2, ol, wsbuf2, bo);
12245 bpr 627
  }
628
  exec_headmenu(p);
629
  if(option) exec_title(p);
630
  if(cmd_type==cmd_help) {
631
    char *s=getvar("special_parm");
632
    if(s==NULL) s="";
633
    m_file.linepointer=m_file.linecnt;
634
    if(strcmp(s,"about")==0) ovlstrcpy(hbuf,"about.phtml");
635
    else ovlstrcpy(hbuf,"help.phtml");
636
    exec_read(hbuf); exec_tail(p); /* param of exec_...() must be readable */
637
    return;
638
  }
639
  header_executed=1;
10 reyssat 640
}
641
 
1050 bpr 642
void exec_header(char *p) { _header(p,1);}
643
void exec_header1(char *p) { _header(p,0);}
15502 bpr 644
void exec_headmathjax(char *p) { _headmathjax(p);}
1050 bpr 645
 
10 reyssat 646
char href_target[128];
647
char jsbuf[512];
5729 bpr 648
#define jsstr " onclick=\"%s=window.open('','%s','status=no,toolbar=no,location=no,menubar=no,scrollbars=yes,resizable=yes')\""
10 reyssat 649
int ref_mhelp=0;
650
int follow_list[]={
12245 bpr 651
  ro_session, ro_lang, ro_useropts, ro_module
10 reyssat 652
};
653
#define follow_no (sizeof(follow_list)/sizeof(follow_list[0]))
654
 
655
void _httpfollow(char b1[], char *wn, int new)
656
{
12245 bpr 657
  int i;
658
  char *p1, *s, *ss, sb[MAX_LINELEN+1], qbuf[MAX_LINELEN+1];
10 reyssat 659
 
12245 bpr 660
  sb[0]=0;
661
  for(i=0;i<follow_no;i++) {
662
    if(robot_access && follow_list[i]==ro_session) continue;
663
    if(!new && follow_list[i]!=ro_session
664
        && follow_list[i]!=ro_module && follow_list[i]!=ro_lang)
665
      continue;
666
    if(follow_list[i]==ro_module) {
667
      char *pp;
668
      if(new) continue;
669
      pp=strstr(b1,"cmd=");
670
      if(pp==NULL) continue;
671
      pp+=strlen("cmd=");
672
      if(memcmp(pp,"intro",strlen("intro"))==0 ||
673
         memcmp(pp,"new",strlen("new"))==0) continue;
674
    }
675
    s=getvar(ro_name[follow_list[i]]);
676
    ss=strstr(b1,ro_name[follow_list[i]]);
677
    if(s!=NULL && *s!=0 &&
678
      (ss==NULL || (ss>b1 && *(ss-1)!='&')
679
       || *(ss+strlen(ro_name[follow_list[i]]))!='=')) {
680
      if(follow_list[i]==ro_session && memcmp(href_target,"wims_",5)==0) {
681
        char st[MAX_LINELEN+1];
682
        char *s1;
683
        s1=getvar("wims_session");
684
        if(s1==NULL) internal_error("exec_href() error.\n");
685
        if(ref_mhelp) {
686
          if(strstr(s1,"_mhelp")!=0)
687
            snprintf(st,sizeof(st),"%s",s1);
688
          else
689
            snprintf(st,sizeof(st),"%s_mhelp",s1);
690
        }
7379 bpr 691
        else snprintf(st,sizeof(st),"%.10s%s",s1,href_target+4);
692
          s=st;
12245 bpr 693
      }
694
      snprintf(sb+strlen(sb),MAX_LINELEN-strlen(sb),"%s=%s&",
7379 bpr 695
             ro_name[follow_list[i]],s);
12245 bpr 696
      if(ismhelp && follow_list[i]==ro_session &&
7379 bpr 697
           strstr(sb,"_mhelp")==NULL)
12245 bpr 698
        snprintf(sb+strlen(sb)-1,MAX_LINELEN-strlen(sb)+1,"_mhelp&");
7379 bpr 699
      }
12245 bpr 700
  }
701
  snprintf(qbuf,MAX_LINELEN,"%s%s%s",wn,sb,b1);
702
  /* cleaning up query string */
703
  for(p1=qbuf;*p1;p1++) {
704
    if(*p1=='"') string_modify(qbuf,p1,p1+1,"%22");
705
    if(*p1=='&' && isalpha(*(p1+1))) {
706
      p1++; string_modify(qbuf,p1,p1,"+");
10 reyssat 707
    }
12245 bpr 708
  }
709
  mystrncpy(b1,qbuf,MAX_LINELEN);
10 reyssat 710
}
711
 
8213 bpr 712
/* Restart with a new module, using http code 302. */
10 reyssat 713
void exec_restart(char *p)
714
{
13887 obado 715
  /* buf will contain all the url parameters*/
716
  /* buf2 will be the final URL */
12245 bpr 717
  char buf[MAX_LINELEN+1], *rfn, buf2[MAX_LINELEN+1];
13887 obado 718
  /* long int t; */
7379 bpr 719
 
12245 bpr 720
  if(robot_access || outputing || !trusted_module() || is_class_module) return;
13887 obado 721
  /* accessfile(buf,"r","%s/restart.time",s2_prefix);
7379 bpr 722
    t=atoi(buf); if(t==nowtime) return;    */ /* possible looping */
12245 bpr 723
  mystrncpy(buf,find_word_start(p),sizeof(buf));
724
  *find_word_end(buf)=0;
725
  _httpfollow(buf,"",0);
13887 obado 726
  nph_header(302);
12245 bpr 727
  rfn=strchr(ref_name,':');
728
  if(rfn==NULL) {
729
    usual: snprintf(buf2,sizeof(buf2),"%s?%s",ref_name,buf);
730
  }
731
  else {
732
    char *p;
733
    p=getvar("wims_protocol");
734
    if(p!=NULL && strcmp(p,"https")==0) {
735
      snprintf(buf2,sizeof(buf2),"https%s?%s",rfn,buf);
10 reyssat 736
    }
12245 bpr 737
    else goto usual;
738
  }
739
  printf("Location: %s\r\n\r\n\
11726 bpr 740
<!DOCTYPE html>\
10 reyssat 741
<html><body><a href=\"%s\">%s</a></body></html>",buf2,buf2,buf2);
12245 bpr 742
  close_working_file(&m_file,0); write_logs();
743
  snprintf(buf,sizeof(buf),"%ld",(long)nowtime);
744
/*    accessfile(buf,"w","%s/restart.time",s2_prefix);*/
745
  delete_pid(); exit(0);
10 reyssat 746
}
747
 
12245 bpr 748
/*  extract target tag from parm string. */
10 reyssat 749
void href_find_target(char *p)
750
{
12245 bpr 751
  char *pp, *pe,buf1[MAX_LINELEN+1];
752
  href_target[0]=0; jsbuf[0]=0; ref_mhelp=0;
753
  for(pp=find_word_start(p);*pp!=0;pp=find_word_start(pe)) {
754
    pe=find_word_end(pp);
755
    if(strncasecmp(pp,"target=wims_",strlen("target=wims_"))!=0) continue;
756
    memmove(buf1,pp,pe-pp); buf1[pe-pp]=0; substit(buf1);
757
    if(strncasecmp(buf1,"target=wims_mhelp",strlen("target=wims_mhelp"))==0) {
758
      if(*pe!=0) *pe++=0;
759
      ovlstrcpy(href_target,"wims_help");
760
      ref_mhelp=1;
761
    }
762
    else {
763
      if(*pe!=0) *pe++=0;
764
        mystrncpy(href_target,buf1+strlen("target="),sizeof(href_target));
765
    }
766
    snprintf(jsbuf,sizeof(jsbuf),jsstr,href_target,href_target);
767
    ovlstrcpy(pp,pe);return;
768
  }
769
  pp=getvar("module_help");
770
  if(href_target[0]==0 && pp!=NULL && strcmp(pp,"popup")==0 &&
771
     (pe=strstr(p,"cmd=help"))!=NULL) {
772
    if(pe==p || *(pe-1)=='&') {
773
      ovlstrcpy(href_target,"wims_help"); ref_mhelp=1;
7379 bpr 774
      snprintf(jsbuf,sizeof(jsbuf),jsstr,href_target,href_target);
10 reyssat 775
    }
12245 bpr 776
  }
10 reyssat 777
}
778
 
779
void _href_getdef(char src[], char vname[], char buf[], int buflen)
780
{
12245 bpr 781
  char *p1, *p2, *p3;
782
  buf[0]=0;
783
  for(p1=strstr(src,vname); p1; p1=strstr(p2,vname)) {
784
    p2=p1+strlen(vname); if(*p2!='=') continue;
785
    if(p1>src && *(p1-1)!='&') continue;
786
    p2++; p3=strchr(p2,'&'); if(p3==NULL) p3=p2+strlen(p2);
787
    if(p3-p2>=buflen) return; /* too long */
788
    memmove(buf,p2, p3-p2); buf[p3-p2]=0; return;
789
  }
10 reyssat 790
}
791
 
8213 bpr 792
/* Create href to wims requests. subst() is not done. */
10 reyssat 793
void exec_href(char *p)
794
{
12245 bpr 795
  char *s, st[128], sti[128], stc[128], stt[128], *p1, *p2, *p3, *wn="";
796
  char *U="<span class=\"disabled_link\">%s</span>";
797
  char b1[MAX_LINELEN+1], b2[MAX_LINELEN+1];
798
  int new=0;
799
  if(!outputing) return;
800
  href_find_target(p);
801
  p1=find_word_start(p);
802
  p2=find_word_end(p1); if(*p2) *(p2++)=0;
803
  mystrncpy(b1,p1,sizeof(b1));
804
  mystrncpy(b2,find_word_start(p2),sizeof(b2));
805
  substit(b1); substit(b2);
806
  /* standard reference */
807
  if(*b2==0 && strchr(b1,'=')==NULL) {
808
    char b[MAX_LINELEN+1], *ll;
809
    p1=find_word_start(b1); *find_word_end(p1)=0;
810
    if(*p1==0 || strlen(p1)>64) return;
811
    ll=getvar("module_language");
812
    if(ll==NULL || *ll==0 || *(ll+1)==0 || *(ll+2)!=0) ll=lang;
813
    accessfile(b,"r","html/href.%s",ll);
814
    memmove(p1+1,p1,64); *p1='\n'; strcat(p1,"  ");
815
    p2=strstr(b,p1); if(p2==NULL) return;
816
    p1=find_word_start(p2+strlen(p1)); p2=find_word_end(p1);
817
    if(*p2) *(p2++)=0;
818
    p3=strchr(p2,'\n'); if(p3!=NULL) *p3=0;
10 reyssat 819
    mystrncpy(b1,p1,sizeof(b1));
820
    mystrncpy(b2,find_word_start(p2),sizeof(b2));
821
    substit(b1); substit(b2);
12245 bpr 822
  }
15277 obado 823
  /* for robots: only references without defining cmd. */
12245 bpr 824
  if(robot_access && strstr(b1,"cmd=")!=NULL &&
825
      strstr(b1,"module=adm/doc")==NULL) {
826
    _output_(b2); return;
827
  }
828
  if(robot_access && strstr(aliased_cgi,"yes")!=NULL) {
829
    char mbuf[256], lbuf[16];
830
    _href_getdef(b1,"module",mbuf,sizeof(mbuf));
831
    if(mbuf[0]==0) mystrncpy(mbuf,home_module,sizeof(mbuf));
832
    _href_getdef(b1,"lang",lbuf,sizeof(lbuf));
833
    if(strlen(lbuf)!=2) {mystrncpy(lbuf,lang,4);lbuf[2]=0;}
834
    if(strncmp(mbuf,"adm/doc",strlen("adm/doc"))==0) {
835
      char dbuf[256], bbuf[256];
836
      _href_getdef(b1,"doc",dbuf,sizeof(dbuf));
837
      _href_getdef(b1,"block",bbuf,sizeof(bbuf));
838
      if(!myisdigit(dbuf[0])) dbuf[0]=0;
839
      if(dbuf[0]!=0 && bbuf[0]==0) snprintf(bbuf,sizeof(bbuf),"main");
840
      if(dbuf[0]==0)
841
        output("<a href=\"%s%s_doc~.html\">%s</a>", ref_base,lbuf,b2);
842
      else
843
        output("<a href=\"%s%s_doc~%s~%s.html\">%s</a>",
844
           ref_base,lbuf,dbuf,bbuf,b2);
10 reyssat 845
    }
12245 bpr 846
    else {
847
      for(s=strchr(mbuf,'/'); s!=NULL; s=strchr(s+1,'/')) *s='~';
848
      output("<a href=\"%s%s_%s.html\">%s</a>", ref_base,lbuf,mbuf,b2);
849
    }
7379 bpr 850
    return;
12245 bpr 851
  }
852
  s=getvar("wims_ref_id");
853
  if(s!=NULL && *s!=0 && !isspace(*s)) {
854
    snprintf(sti,sizeof(sti)," id=\"%s\"",s);
855
  }
856
  else sti[0]=0;
7379 bpr 857
 
12245 bpr 858
  s=getvar("wims_ref_class");
859
  if(s!=NULL && *s!=0 && !isspace(*s)) {
860
    snprintf(stc,sizeof(stc)," class=\"%s\"",s);
861
  }
862
  else stc[0]=0;
7379 bpr 863
 
12245 bpr 864
  s=getvar("wims_ref_title");
865
  if(s!=NULL && *s!=0 && !isspace(*s)) {
866
    snprintf(stt,sizeof(stt)," title=\"%s\"",s);
867
  }
868
  else stt[0]=0;
7379 bpr 869
 
12245 bpr 870
  s=getvar("wims_ref_target");
871
  if(href_target[0]!=0) s=href_target;
872
  if(s!=NULL && *s!=0 && !isspace(*s)) {
873
    snprintf(st,sizeof(st)," target=\"%s\"",s);
874
    if(strcmp(s,"_parent")!=0) {
875
      new=1; wn="wims_window=new&";
10 reyssat 876
    }
12245 bpr 877
  }
878
  else st[0]=0;
879
  _httpfollow(b1,wn,new);
880
  tohttpquery(b1);
881
  if(strstr(session_prefix,"_check")!=NULL) {
882
    if(*b2) output(U,b2);
883
  else _output_("<a id=\"0\"></a>");
884
  return;
885
  }
886
  if(jsbuf[0]==0 && st[0]==0 && strstr(session_prefix,"_exam")!=NULL) {
887
    p1=strstr(b1,"cmd=");
888
    if(p1!=NULL) {
889
      p1+=strlen("cmd=");
890
      if(strncmp(p1,"new",3)==0 || strncmp(p1,"renew",5)==0 ||
891
          strncmp(p1,"intro",5)==0) {
892
        if(*b2) output(U,b2);
893
        else _output_("<a id=\"#\"></a>");
894
        return;
7379 bpr 895
      }
10 reyssat 896
    }
12245 bpr 897
  }
898
  if(*b2)
899
    output("<a href=\"%s?%s\"%s%s %s %s %s>%s</a>",
900
       ref_name, b1, st, jsbuf,sti,stc,stt,b2);
901
  else
902
    output("<a href=\"%s?%s\"%s%s %s %s %s>",ref_name, b1, st, jsbuf,sti,stc,stt);
903
  setvar("wims_ref_id","");
904
  setvar("wims_ref_class","");
905
  setvar("wims_ref_title","");
10 reyssat 906
}
907
 
8213 bpr 908
/* Create form refering to the page. */
10 reyssat 909
void exec_form(char *p)
910
{
15130 obado 911
  char *s, *p1, *p2, *a, *m, *opt, st[128], *wn="", *form_id;
912
  char abuf[128], idbuf[128];
12245 bpr 913
  int i, new=0;
914
  if(!outputing) return;
915
  href_find_target(p);
916
  s=getvar("wims_ref_target");
917
  if(href_target[0]!=0) s=href_target;
918
  if(s!=NULL && *s!=0 && !isspace(*s)) {
919
    snprintf(st,sizeof(st)," target=\"%s\"",s);
920
    if(strcmp(s,"_parent")!=0) {
921
      new=1; wn="<input type=\"hidden\" name=\"wims_window\" value=\"yes\" />\n";
10 reyssat 922
    }
12245 bpr 923
  }
924
  else st[0]=0;
925
  a=getvar("wims_ref_anchor"); if(a==NULL) a="";
926
  opt=find_word_start(find_word_end(find_word_start(p)));
927
  m=getvar("wims_form_method");
928
  if(m!=NULL) {
929
    m=find_word_start(m);
930
    if(strncasecmp(m,"post",4)==0) m="post";
931
    else if(strncasecmp(m,"get",3)==0) m="get";
932
      else if(strncasecmp(m,"file",4)==0) {
933
       m="post\" enctype=\"multipart/form-data";
934
      snprintf(abuf,sizeof(abuf),"?form-data%ld%s",random(),a); a=abuf;
935
      force_setvar("wims_form_method","");
10 reyssat 936
    }
937
    else m=default_form_method;
12245 bpr 938
  }
939
  else m=default_form_method;
15130 obado 940
 
12245 bpr 941
  if(strstr(session_prefix,"_check")!=NULL) {
942
    output("<form action=\"NON_EXISTING_PAGE\" onsubmit=\"window.close();\" %s>\n",
7379 bpr 943
           opt);
12245 bpr 944
    return;
945
  }
15130 obado 946
 
947
  form_id=getvar("wims_form_id");
948
  if(form_id==NULL || *form_id==0 || isspace(*form_id)){
949
    form_id="";
950
  } else {
951
    snprintf(idbuf,sizeof(idbuf),"id=\"%s\"",find_word_start(form_id));form_id=idbuf;
952
  }
953
  force_setvar("wims_form_id","");
954
 
955
  output("<form action=\"%s%s\"%s method=\"%s\" %s %s>\n<div class='wims_form'>%s",ref_name,a,st,m,opt,form_id,wn);
12245 bpr 956
  if(a!=abuf && a[0]) force_setvar("wims_ref_anchor","");
957
  for(i=0;i<follow_no;i++) {
958
    if(robot_access && follow_list[i]==ro_session) continue;
959
    if(!new && follow_list[i]!=ro_session
960
     && follow_list[i]!=ro_module && follow_list[i]!=ro_lang)
961
      continue;
962
    if(follow_list[i]==ro_module) continue;
963
    s=getvar(ro_name[follow_list[i]]);
964
    if(s!=NULL && *s!=0) {
965
      if(follow_list[i]==ro_session && memcmp(href_target,"wims_",5)==0) {
966
        char st[MAX_LINELEN+1];
967
        char *s1;
968
        s1=getvar("wims_session");
969
        if(s1==NULL) internal_error("exec_form() error.\n");
970
        snprintf(st,sizeof(st),"%.10s%s",s1,href_target+4);
971
        s=st;
972
      }
973
      output("<input type=\"hidden\" name=\"%s\" value=\"%s\" />\n",
7379 bpr 974
           ro_name[follow_list[i]],s);
10 reyssat 975
    }
12245 bpr 976
  }
977
  p1=find_word_start(p);p2=find_word_end(p1);
978
  if(p2>p1) {
979
    char buf[64];
980
    int i;
981
    i=p2-p1; if(i>60) i=60;
982
    memmove(buf,p1,i);buf[i]=0;
983
    for(i=0;i<CMD_NO && strcmp(buf,commands[i]);i++);
984
    if(i<CMD_NO) {
985
      output("<input type=\"hidden\" name=\"cmd\" value=\"%s\" />\n",buf);
986
      if(i!=cmd_intro && i!=cmd_new)
987
        output("<input type=\"hidden\" name=\"module\" value=\"%s\" />\n",
988
            getvar(ro_name[ro_module]));
989
    }
990
  }
10 reyssat 991
}
992
 
8213 bpr 993
/* Creat link to trap robot access, an internal command
994
 * which should not be documented
995
 */
10 reyssat 996
void exec_robottrap(char *p)
997
{
12245 bpr 998
  char buf[MAX_LINELEN+1];
999
  if(robot_access) return;
1000
  ovlstrcpy(buf,"session=$wims_session.1&module=adm/trap");
1001
  _output_("<!-- "); exec_href(buf);_output_("Robot trapper, do not click!</a> -->");
14734 obado 1002
  _output_("<div class='wimstrap hide'>");exec_href(buf); _output_("<span>Robot trapper, do not click!</span></a></div>");
10 reyssat 1003
}
1004
 
8213 bpr 1005
/* set definitions in a file. Trusted modules only. */
10 reyssat 1006
void exec_setdef(char *p)
1007
{
12245 bpr 1008
   char *p1, *pp;
1009
   char nbuf[MAX_LINELEN+1], fbuf[MAX_LINELEN+1], tbuf[MAX_LINELEN+1];
1010
   if(robot_access || !trusted_module() || is_class_module) return;
1011
   p1=wordchr(p,"in"); if(p1==NULL) module_error("syntax_error");
1012
   *p1=0; p1=find_word_start(p1+strlen("in"));
1013
   ovlstrcpy(nbuf,p);
1014
   mystrncpy(tbuf,p1,sizeof(tbuf));
1015
   substit(nbuf); substit(tbuf);
1016
   if(find_module_file(tbuf,fbuf,1)) return;
1017
   pp=find_word_start(nbuf); p1=find_word_start(fbuf); *find_word_end(p1)=0;
1018
   strip_trailing_spaces(pp);
1019
   setdef(p1,pp);
10 reyssat 1020
}
1021
 
8213 bpr 1022
/* Set a variable. */
10 reyssat 1023
void exec_set(char *name)
1024
{
12245 bpr 1025
  char *p, *defn, *parm;
1026
  char tbuf2[MAX_LINELEN+1], namebuf[MAX_LINELEN+1];
1027
  int i;
10 reyssat 1028
 
12245 bpr 1029
  p=strchr(name,'=');
1030
  if(p==NULL) return; /* warning or error! */
1031
  *p=0; defn=find_word_start(p+1);
1032
  *find_word_end(name)=0;
1033
  mystrncpy(namebuf,find_word_start(name),sizeof(namebuf));
1034
  /* we allow substit in names, to implement array */
1035
  substit(namebuf); *find_word_end(namebuf)=0;
1036
  if(*defn!=calc_prefix_char) {
1037
  /* substitute by default */
1038
    mystrncpy(tbuf2,defn,sizeof(tbuf2));
1039
    substit(tbuf2); setvar(namebuf,tbuf2); return;
1040
  }
1041
  /* called from !readdef */
1042
  if((untrust&4)!=0) module_error("not_trusted");
1043
  /* definition is a command  */
1044
  parm=find_word_end(defn+1);
1045
  if( *parm != 0 ) { *parm=0; parm=find_word_start(parm+1); }
1046
  i=m_file.lines[m_file.l].varcode;
1047
  if(i<0) {
1048
    i=search_list(calc_routine,CALC_FN_NO,sizeof(calc_routine[0]),defn+1);
1049
    m_file.lines[m_file.l].varcode=i;
1050
  }
1051
  if(i<0) {
1052
      /* replace by warning? */
1053
    setvar(error_data_string,defn+1); module_error("bad_cmd");
1054
    return;
1055
  }
1056
  mystrncpy(tbuf2,parm,sizeof(tbuf2)); execnt++;
1057
  if(calc_routine[i].tag==0) substit(tbuf2);
1058
  tbuf2[sizeof(tbuf2)-1]=0; calc_routine[i].routine(tbuf2);
1059
      /* remove trailing new line */
1060
  tbuf2[sizeof(tbuf2)-1]=0;
1061
  if(tbuf2[strlen(tbuf2)-1]=='\n') tbuf2[strlen(tbuf2)-1]=0;
10 reyssat 1062
    setvar(namebuf,tbuf2);
1063
}
1064
 
8213 bpr 1065
/* set but do not overwrite. */
10 reyssat 1066
void exec_default(char *p)
1067
{
12245 bpr 1068
  char *start, *end, c, *pp;
1069
  char namebuf[MAX_LINELEN+1];
1070
  start=find_word_start(p);
1071
  for(end=start;*end!=0 && !isspace(*end) && *end!='='; end++);
1072
  c=*end; *end=0;
1073
  if(end-start<=MAX_LINELEN-1) {
1074
    memmove(namebuf,start,end-start+1); substit(namebuf);
1075
    pp=getvar(namebuf);
1076
    if(pp!=NULL && *pp!=0) return;
1077
  }
1078
  *end=c; exec_set(p);
10 reyssat 1079
}
1080
 
8213 bpr 1081
/* Does nothing; just a comment. */
10 reyssat 1082
void exec_comment(char *p)
1083
{
12245 bpr 1084
  return;
10 reyssat 1085
}
1086
 
8213 bpr 1087
/* Exit the file under interpretation */
10 reyssat 1088
void exec_exit(char *p)
1089
{
12245 bpr 1090
  m_file.linepointer=m_file.linecnt;
1091
  return;
10 reyssat 1092
}
1093
 
13438 obado 1094
/* output a file. Aliases:
7379 bpr 1095
     * getfile, outfile, fileout */
10 reyssat 1096
void exec_getfile(char *p)
1097
{
14941 bpr 1098
  char *s, sti[128], stc[128], stt[128], sgf[128], *p1, url[MAX_LINELEN+1];
12245 bpr 1099
  char *prompt;
7379 bpr 1100
 
12245 bpr 1101
  p=find_word_start(p); prompt=find_word_end(p);
1102
  if(*prompt!=0) *prompt++=0;
1103
  prompt=find_word_start(prompt);
1104
  if(*p==0 || !outputing) return;
1105
  if(!trusted_module() || is_class_module) return;
1106
  s=getvar(ro_name[ro_session]);
1107
  if(s==NULL || *s==0 || strstr(s,"robot")!=NULL) return;
1108
  mystrncpy(url,ref_name,sizeof(url));
1109
  for(p1=url+strlen(url);p1>url && *(p1-1)!='/'; p1--);
1110
  if(good_httpd) snprintf(p1,sizeof(url)+p1-url,
1111
              "getfile/%s?&+session=%s&+modif=%ld",
1112
              p,s,(long)nowtime);
1113
  else snprintf(url,sizeof(url),
1114
      "%s?cmd=getfile&+session=%s&+special_parm=%s&+modif=%ld",
8895 bpr 1115
          ref_name,s,p,(long)nowtime);
12245 bpr 1116
  snprintf(jsbuf,sizeof(jsbuf),jsstr,"wims_file","wims_file");
13438 obado 1117
 
1118
  s=getvar("wims_ref_id");
1119
  if(s!=NULL && *s!=0 && !isspace(*s)) {
1120
    snprintf(sti,sizeof(sti)," id=\"%s\"",s);
1121
  }
1122
  else sti[0]=0;
1123
 
1124
  s=getvar("wims_ref_class");
1125
  if(s!=NULL && *s!=0 && !isspace(*s)) {
1126
    snprintf(stc,sizeof(stc)," class=\"%s\"",s);
1127
  }
1128
  else stc[0]=0;
1129
 
1130
  s=getvar("wims_ref_title");
1131
  if(s!=NULL && *s!=0 && !isspace(*s)) {
1132
    snprintf(stt,sizeof(stt)," title=\"%s\"",s);
1133
  }
1134
  else stt[0]=0;
1135
 
14941 bpr 1136
  s=getvar("wims_getfile_fname");
1137
  if(s!=NULL && *s!=0 && !isspace(*s)) {
1138
    snprintf(sgf,sizeof(sgf)," download=\"%s\"",s);
1139
  }
1140
  else sgf[0]=0;
1141
 
1142
  if(*prompt) output("<a href=\"%s\" %s %s %s %s>%s</a>\n", url,sti,stc,stt,sgf,prompt);
13438 obado 1143
  else output("<a href=\"%s\" %s %s %s></a>",url,sti,stc,stt);
1144
 
1145
  setvar("wims_ref_id","");
1146
  setvar("wims_ref_class","");
1147
  setvar("wims_ref_title","");
14941 bpr 1148
  setvar("wims_getfile_fname","");
10 reyssat 1149
}
1150
 
8213 bpr 1151
/* internal */
10 reyssat 1152
void count_insert(void)
1153
{
12245 bpr 1154
  insert_no++;
1155
  if(insert_no>=INS_LIMIT) module_error("too_many_ins");
10 reyssat 1156
}
1157
 
1158
int animated_ins=0;
1159
int grouped_ins=0;
1160
 
8185 bpr 1161
/* generic insertion */
10 reyssat 1162
void _exec_ins(char *p, char *script_name,char *format)
1163
{
12245 bpr 1164
  char *s, *b, *at, *tag, *tag2, *al, *fmt, *mh;
1165
  char *p1, *pt;
1166
  char buf[1024],buf2[1024],url[MAX_LINELEN+1],altbuf[1024];
1167
  char outbuf[1024];
1168
  int border, middle, vspace;
1169
  long int tel;
10 reyssat 1170
 
12245 bpr 1171
  if(robot_access) return;
1172
  count_insert(); outbuf[0]=0;
1173
  setenv("ins_source",p,1); /* value kept from user tamper */
1174
  if(animated_ins) fmt=getvar("anim_format"); else fmt=format;
1175
  if(fmt==NULL) fmt="gif";
1176
  if(ismhelp) mh="mh"; else mh="";
1177
  snprintf(buf,sizeof(buf),"%s/insert%s-%d.%s",s2_prefix,mh,insert_no,fmt);
1178
  if(grouped_ins) {unlink(buf); goto grouped;}
1179
  exportall();
1180
  call_ssh("%s/%s %d %s >%s/ins.out 2>%s/ins.err",
1181
      bin_dir,script_name,insert_no,tmp_dir,tmp_dir,tmp_dir);
1182
  unlink(buf); wrapexec=1;
1183
  if(trusted_module()) setenv("trusted_module","yes",1);
1184
  else if(untrust) setenv("trusted_module","no",1);
1185
  call_ssh("mv %s/insert%s-%d.%s %s >/dev/null 2>/dev/null",
1186
       tmp_dir,mh,insert_no,fmt,s2_prefix);
1187
  tel=filelength("%s", buf);
1188
  if(tel<=5) {
1189
    char bbuf[MAX_LINELEN+1];
1190
    accessfile(bbuf,"r","%s/ins.err",tmp_dir);
1191
    snprintf(url,sizeof(url),"gifs/badins.gif");
1192
    for(p1=bbuf;p1<bbuf+512 && *p1;p1++)
7379 bpr 1193
      if(*p1=='<' || *p1=='>') *p1='?';
13691 bpr 1194
    *p1=0;
1195
    if(bbuf[0]==0) snprintf(bbuf,sizeof(bbuf),"Fail");
1196
    snprintf(outbuf+strlen(outbuf),sizeof(outbuf)-strlen(outbuf),
1197
       " <img src=\"%s\" alt=\"Error\" /> <small><pre>%s</pre></small> <br /> ",
1198
       url,bbuf);
1199
    setvar("ins_warn","fail");
1200
    setvar("ins_cnt","0");
1201
    goto reset;
12245 bpr 1202
  }
1203
  grouped:
1204
  s=getvar(ro_name[ro_session]);
1205
  b=getvar("ins_border"); at=getvar("ins_attr");
1206
  tag=getvar("ins_tag");  al=getvar("ins_align");
1207
  if(at==NULL) at="";
1208
  if(tag==NULL) tag="";
1209
  if(al==NULL) al="";
1210
  al=find_word_start(al);
1211
  if(*al!=0) snprintf(buf2,sizeof(buf2),"vertical-align:%s",al); else buf2[0]=0;
1212
  if(strcasecmp(al,"middle")==0) middle=1; else middle=0;
1213
  tag2=""; vspace=0;
1214
  if(*tag!=0) {
1215
    mystrncpy(buf,tag,sizeof(buf)); tag=find_word_start(buf);
1216
    tag2=find_word_end(tag);
1217
    if(*tag2!=0) *tag2++=0;
1218
    tag2=find_word_start(tag2);
1219
  }
1220
  if(b==NULL || *b==0) border=0;
1221
  else border=atoi(b);
1222
  if(border<0) border=0;
1223
  if(border>100) border=100;
1224
  if(middle) {
1225
    snprintf(outbuf+strlen(outbuf),
1226
       sizeof(outbuf)-strlen(outbuf),"%s",mathalign_sup1);
1227
    vspace=2;
1228
  }
1229
  mystrncpy(url,ref_name,sizeof(url));
1230
  for(p1=url+strlen(url);p1>url && *(p1-1)!='/'; p1--);
1231
  snprintf(p1,sizeof(url)+p1-url,
7379 bpr 1232
         "wims.%s?cmd=getins&+session=%s&+special_parm=insert%s-%d.%s&+modif=%ld",
8895 bpr 1233
         fmt,s,mh,insert_no,fmt,(long)nowtime);
12245 bpr 1234
  if(strchr(ins_alt,'"')!=NULL || strlen(ins_alt)>256) ins_alt[0]=0;
1235
  pt=getvar("wims_ins_alt"); if(pt==NULL) pt="";
12526 bpr 1236
  if(strcmp(pt,"empty")==0) altbuf[0]=0;
1237
  else
1238
    if(ins_alt[0] && strcmp(pt,"none")!=0)
1239
      snprintf(altbuf,sizeof(altbuf)," alt=\"\"");
1240
    else
1241
      snprintf(altbuf,sizeof(altbuf)," alt=\"%s\"",ins_alt);
12245 bpr 1242
  if(strcasecmp(tag,"form")!=0) {
1243
    snprintf(outbuf+strlen(outbuf),sizeof(outbuf)-strlen(outbuf),
1244
       "<img src=\"%s\" style=\"border:solid;border-width:%dpx;margin-bottom:%dpx;%s\" %s %s />",
1245
       url, border, vspace, buf2, at, altbuf);
1246
  }
1247
  else {
1248
    char *n, *nend;
6168 bpr 1249
/* fix: add quotes at name=" " */
12245 bpr 1250
    if(*tag2!=0) {n="name=\"" ; nend="\"";} else {n=""; nend="";}
1251
    snprintf(outbuf+strlen(outbuf),sizeof(outbuf)-strlen(outbuf),
1252
        "<input type=\"image\" %s%s%s src=\"%s\" style=\"border:solid;border-width:%dpx;margin-bottom:%dpx;%s\" %s %s />",
1253
        n,tag2,nend,url,border,vspace,buf2,at,altbuf);
1254
  }
1255
  if(middle) snprintf(outbuf+strlen(outbuf),
1256
           sizeof(outbuf)-strlen(outbuf),"%s",mathalign_sup2);
1257
  setvar("ins_warn",""); ins_alt[0]=0;
1258
  setvar("ins_cnt",int2str(insert_no));
1259
  reset:
1260
  if(outputing) _output_(outbuf);
1261
  setvar("ins_out",outbuf);
1262
  setvar("ins_attr",""); setvar("ins_tag","");
1263
  setvar("ins_url",url);
1264
  snprintf(buf2,sizeof(buf2),"insert%s-%d.%s",mh,insert_no,fmt);
1265
  setvar("ins_filename",buf2);
1266
  animated_ins=0;
10 reyssat 1267
}
1268
 
8155 bpr 1269
/* instex: dynamically insert tex outputs */
10 reyssat 1270
void exec_instex(char *p)
1271
{
12245 bpr 1272
  char *ts, *tc, *f, *mh, buf[MAX_FNAME+1];
7379 bpr 1273
 
12245 bpr 1274
  if(robot_access) {
1275
    *p=0; return;
1276
  }
1277
  f=instex_check_static(p); substit(p);
1278
  if(f==NULL) {
8155 bpr 1279
/* Use static instex if there is no real substitution
1280
 * and the source file is not in sessions directory.
1281
 */
12245 bpr 1282
    calc_instexst(p); if(outputing) _output_(p);
1283
    return;
1284
  }
1285
  if(ismhelp) mh="mh"; else mh="";
1286
  fix_tex_size(); f="gif";
1287
  setenv("texgif_style",instex_style,1);
1288
  tc=getvar("instex_texheader"); if (tc) { setenv("texgif_texheader",tc,1);}
1289
  setenv("texgif_tmpdir",tmp_dir,1);
1290
  setenv("texgif_src",p,1);
1291
  if(ins_alt[0]==0) mystrncpy(ins_alt,p,sizeof(ins_alt));
1292
  mkfname(buf,"%s/insert%s-%d.gif",tmp_dir,mh,insert_no+1);
1293
  setenv("texgif_outfile",buf,1);
1294
  ts=getvar("wims_texsize"); tc=getvar("instex_color");
1295
  if(lastout_file!=-1 && (tc==NULL || *tc==0) &&
1296
      (ts==NULL || *ts==0 || strcmp(ts,"0")==0) &&
1297
     strstr(p,"\\begin{")==NULL) {
1298
    int ls, ln;
1299
    char *pagebreak;
1300
    ls=strlen(instex_src); ln=strlen(instex_fname);
1301
    if(ls+strlen(p)>=MAX_LINELEN-256 ||
1302
     ln+strlen(buf)>=MAX_LINELEN-16) {
1303
        instex_flush(); ls=ln=0;
10 reyssat 1304
    }
12245 bpr 1305
    if(instex_cnt>0) pagebreak="\\pagebreak\n"; else pagebreak="";
1306
    snprintf(instex_src+ls,MAX_LINELEN-ls,"%s %s %s %s\n",
7379 bpr 1307
         pagebreak,instex_style,p,instex_style);
12245 bpr 1308
    snprintf(instex_fname+ln,MAX_LINELEN-ln,"%s\n",buf);
7379 bpr 1309
      grouped_ins=1;
12245 bpr 1310
  }
1311
  mkfname(buf,"%s/texgif.dvi",tmp_dir); unlink(buf);
1312
  wrapexec=0; _exec_ins(p,instex_processor,f);
1313
  if(grouped_ins) instex_cnt++;
1314
  grouped_ins=0;
10 reyssat 1315
}
1316
 
8152 bpr 1317
/* patches the gnuplot integer division (mis)feature. */
10 reyssat 1318
void gnuplot_patch(char *p,int oneline)
1319
{
12245 bpr 1320
  char *pp;
1321
  for(pp=strchr(p,'/');pp!=NULL;pp=strchr(pp+1,'/')) {
1322
    char *p1;
1323
    if(pp<=p || !myisdigit(*(pp-1)) || !myisdigit(*(pp+1))) continue;
1324
    for(p1=pp-2;p1>=p && myisdigit(*p1);p1--);
1325
    if(p1>=p && *p1=='.') continue;
1326
    for(p1=pp+2;*p1 && myisdigit(*p1);p1++);
1327
    if(*p1=='.') continue;
1328
    string_modify(p,p1,p1,".0");
1329
  }
1330
  for(pp=strchr(p,'^');pp!=NULL;pp=strchr(pp+1,'^'))
1331
    string_modify(p,pp,pp+1,"**");
8155 bpr 1332
/* disallow new lines and ';' */
12245 bpr 1333
  if(oneline)
1334
    for(pp=p;*pp!=0;pp++) if(*pp==';' || *pp=='\n') *pp=' ';
10 reyssat 1335
}
1336
 
8152 bpr 1337
/* This is to disable pipe in the gnuplot plotting function.
1338
 * We do not allow ' followed by < .
1339
 */
10 reyssat 1340
void prepare_insplot_parm(char *p)
1341
{
12245 bpr 1342
  int i,j,multanim; char *pp, *s;
1343
  double d;
1344
  char setbuf[MAX_LINELEN+10],buf[MAX_LINELEN+1];
7379 bpr 1345
 
12245 bpr 1346
  j=strlen(p);
8155 bpr 1347
/* pipe in plot command */
12245 bpr 1348
  for(i=0;i<j;i++) {
1349
    if(*(p+i)!='\'' && *(p+i)!='"') continue;
1350
    pp=find_word_start(p+i+1); if(*pp=='<') module_error("illegal_plot_cmd");
1351
  }
1352
  gnuplot_patch(p,1);
8155 bpr 1353
/* multiplot */
12245 bpr 1354
  multanim=0;
1355
  pp=getvar("insplot_split");
1356
  if(pp!=NULL) i=linenum(pp); else i=0;
8155 bpr 1357
/* arbitrary limit: 16 multiplots */
12245 bpr 1358
  if(i>16) i=16;
1359
  if(i>1) {
1360
    char tbuf[MAX_LINELEN*(i+1)+100], bbuf[MAX_LINELEN+1];
1361
    tbuf[0]=0;
1362
    if(*p!=0) snprintf(tbuf,sizeof(tbuf),"%s\n",p);
1363
    snprintf(buf,sizeof(buf),"%d",i); setenv("multiplot",buf,1);
1364
    for(j=1;j<=i;j++) {
1365
      snprintf(buf,sizeof(buf),"insplot_parm_%d",j);
1366
      pp=getvar(buf);
1367
      if(pp==NULL || *pp==0) {
1368
        if(j==1 && *p!=0) continue;
1369
        pp="";
1370
      }
1371
      else {
1372
        mystrncpy(bbuf,pp,sizeof(bbuf));
1373
        gnuplot_patch(bbuf,1);
1374
      }
1375
      strcat(tbuf,bbuf);strcat(tbuf,"\n");
1376
    }
7379 bpr 1377
    setenv("insplot_source",tbuf,1);
1378
    if(varchr(tbuf,"s")!=NULL) multanim=1;
12245 bpr 1379
  }
8155 bpr 1380
/* no illegal chaining */
12245 bpr 1381
  pp=getvar("insplot_font"); if(pp!=NULL) {
1382
    for(s=pp;s<pp+MAX_LINELEN && *s;s++)
1383
    if(*s==';' || *s=='\n' || *s==' ') *s=0;
1384
    if(s>=pp+MAX_LINELEN) *s=0;
1385
    setvar("insplot_font",pp);
1386
  }
1387
  pp=getvar("insplot_set");
1388
  if(pp!=NULL) {
1389
    char tbuf[MAX_LINELEN+1];
1390
    mystrncpy(tbuf,pp,sizeof(tbuf));
1391
    i=strlen(tbuf)-1;
1392
    while(i>0 && isspace(tbuf[i])) i--;
1393
    if(tbuf[i]==';') tbuf[i]=0;
1394
    gnuplot_patch(tbuf,0);pp=tbuf;
1395
    ovlstrcpy(setbuf,"set "); j=strlen("set ");
1396
    for(i=0; *(pp+i)!=0 && j<MAX_LINELEN; i++) {
1397
      if(*(pp+i)=='\n') {setbuf[j++]=' '; continue;}
1398
      if(*(pp+i)!=';') {setbuf[j++]=*(pp+i); continue;}
1399
      ovlstrcpy(setbuf+j,"\nset "); j+=strlen("\nset ");
10 reyssat 1400
    }
12245 bpr 1401
    setbuf[j]=0;
1402
    setenv("insplot_set",setbuf,1);
1403
  }
1404
  else setenv("insplot_set","",1);
8155 bpr 1405
/* frames of animation */
12245 bpr 1406
  pp=getvar("ins_anim_frames");
1407
  if(pp!=NULL) i=evalue(pp); else i=1;
1408
  if(i>=ANIM_LIMIT) i=ANIM_LIMIT-1;
1409
  if(i<1) i=1;
1410
  if(strstr(setbuf,"step")==NULL && strstr(p,"step")==NULL
1411
     && varchr(setbuf,"s")==NULL && varchr(p,"s")==NULL && !multanim) i=1;
1412
  setenv("ins_anim_frames",int2str(i),1);
1413
  setvar("ins_anim_frames","");
1414
  if(i>1) {setvar("ins_animation","yes");animated_ins=1;}
1415
  else setvar("ins_animation","no");
8155 bpr 1416
/* delay of animation */
12245 bpr 1417
  pp=getvar("ins_anim_delay");
1418
  if(pp!=NULL) d=evalue(pp); else d=0;
1419
  if(d>=10) d=10;
1420
  if(d<0) d=0;
1421
  setenv("ins_anim_delay",int2str(d*100),1);
10 reyssat 1422
}
1423
 
8152 bpr 1424
/* Insert dynamic 2d plot */
10 reyssat 1425
void exec_insplot(char *p)
1426
{
12245 bpr 1427
  char *fmt;
1428
  if(robot_access) {
1429
    *p=0; return;
1430
  }
1431
  fmt=getvar("ins_format"); if(fmt==NULL || *fmt==0) fmt=DEFAULT_INS_FORMAT;
1432
  prepare_insplot_parm(p); setenv("insplot_method","2D",1);
1433
  _exec_ins(p,insplot_processor,fmt);
1434
  wrapexec=1;
10 reyssat 1435
/*    call_ssh("mv %s/insplot_cmd %s 2>/dev/null",tmp_dir,s2_prefix); */
12245 bpr 1436
   unsetenv("multiplot"); setvar("insplot_split","");
10 reyssat 1437
}
1438
 
8213 bpr 1439
/* Insert dynamic 3d plot */
10 reyssat 1440
void exec_insplot3d(char *p)
1441
{
12245 bpr 1442
  char *fmt;
1443
  if(robot_access) {
1444
    *p=0; return;
1445
  }
1446
  fmt=getvar("ins_format"); if(fmt==NULL || *fmt==0) fmt=DEFAULT_INS_FORMAT;
1447
  prepare_insplot_parm(p); setenv("insplot_method","3D",1);
1448
  _exec_ins(p,insplot_processor,fmt);
1449
  wrapexec=1;
10 reyssat 1450
/*     call_ssh("mv %s/insplot_cmd %s 2>/dev/null",tmp_dir,s2_prefix); */
12245 bpr 1451
  unsetenv("multiplot");setvar("insplot_split","");
10 reyssat 1452
}
1453
 
8155 bpr 1454
/* Insert dynamic gif draw. The parm preparation is specific to fly. */
10 reyssat 1455
void exec_insdraw(char *p)
1456
{
12245 bpr 1457
  char *pp, *fmt;
1458
  int i;
1459
  double d;
7379 bpr 1460
 
12245 bpr 1461
  if(robot_access) {
1462
    *p=0; return;
1463
  }
7370 bpr 1464
/*    calc_tolower(p);*/
12245 bpr 1465
  fmt=getvar("ins_format"); if(fmt==NULL || *fmt==0) fmt=DEFAULT_INS_FORMAT;
1466
  while((pp=wordchr(p,"output"))!=NULL) memmove(pp,"zqkwfx",6);
8155 bpr 1467
/* frames of animation */
12245 bpr 1468
  pp=getvar("ins_anim_frames");
1469
  if(pp!=NULL) i=evalue(pp); else i=1;
1470
  if(i>=ANIM_LIMIT) i=ANIM_LIMIT-1;
1471
  if(i<1) i=1;
1472
  if(i>1 && varchr(p,"s")==NULL && varchr(p,"animstep")==NULL
1473
     && varchr(p,"step")==NULL) i=1;
1474
  setenv("ins_anim_frames",int2str(i),1);
1475
  setvar("ins_anim_frames","");
1476
  if(i>1) {setvar("ins_animation","yes");animated_ins=1;}
1477
  else setvar("ins_animation","no");
8155 bpr 1478
/* delay of animation */
12245 bpr 1479
  pp=getvar("ins_anim_delay");
1480
  if(pp!=NULL) d=evalue(pp); else d=0;
1481
  if(d>=10) d=10;
1482
  if(d<0) d=0;
1483
  setenv("ins_anim_delay",int2str(d*100),1);
1484
  pp=getvar("insdraw_filebase");
1485
  if(pp!=NULL && strstr(pp,parent_dir_string)!=NULL)
1486
    setvar("insdraw_filebase","");
1487
  _exec_ins(p,insdraw_processor,fmt);
10 reyssat 1488
}
1489
 
1490
void exec_increase(char *p)
1491
{
12245 bpr 1492
  char *p1, *p2;
1493
  p1=find_word_start(p); p2=find_word_end(p1);
1494
  if(p2<=p1) {
1495
    *p=0; return;
1496
  }
1497
  *p2=0;p2=getvar(p1);
1498
  if(p2==NULL) p2="";
1499
  setvar(p1,int2str(atoi(p2)+1)); *p=0;
10 reyssat 1500
}
1501
 
8957 bpr 1502
void exec_setseed(char *p)
12245 bpr 1503
{
1504
  char buf[64];
1505
  snprintf(buf,sizeof(buf),"%s",p);
1506
  force_setvar("wims_seed",buf);
1507
  double d=evalue(p);
1508
  srandom(d); *p=0;
8957 bpr 1509
}
1510
 
7370 bpr 1511
/* bound a variable */
10 reyssat 1512
void exec_bound(char *p)
1513
{
12245 bpr 1514
  char *p1, *p2, *p3;
1515
  int doub,i,bcnt,defaulted;
1516
  double d1,d2,dd,val;
1517
  char nbuf[MAX_LINELEN+1],lbuf[MAX_LINELEN+1],dbuf[MAX_LINELEN+1];
1518
  char vbuf[MAX_LINELEN+1];
1519
  char *blist[2048];
7379 bpr 1520
 
12245 bpr 1521
  p1=find_word_start(p); p2=find_word_end(p1);
1522
  if(*p2==0) {
1523
    syntax: module_error("syntax_error");
1524
  }
1525
  *p2=0; ovlstrcpy(nbuf,p1);substit(nbuf); p1=find_word_start(p2+1);
1526
  p2=getvar(nbuf);if(p2==NULL) p2="";
1527
  mystrncpy(vbuf,find_word_start(p2),sizeof(vbuf));
1528
  strip_trailing_spaces(vbuf);
1529
  p2=find_word_end(p1); if(*p2==0) goto syntax;
1530
  *p2=0;p2++;
1531
  p3=wordchr(p2,"default");
1532
  if(p3!=NULL) {
1533
    *p3=0; defaulted=1;
1534
    p3=find_word_start(p3+strlen("default"));
1535
    ovlstrcpy(dbuf,p3); substit(dbuf);
1536
  }
1537
  else defaulted=0;
1538
  if(strcmp(p1,"between")==0) {
1539
    p1=find_word_start(p2);
1540
    i=strlen("integer");
1541
    if(strncmp(p1,"integer",i)==0 &&
1542
        (isspace(*(p1+i)) || (*(p1+i)=='s' && isspace(*(p1+i+1))))) {
1543
      doub=0; p1=find_word_start(find_word_end(p1));
1544
      val=rint(evalue(vbuf));
1545
      if(vbuf[0]) float2str(val,vbuf);
10 reyssat 1546
    }
12245 bpr 1547
    else {
1548
      doub=1;val=evalue(vbuf);
10 reyssat 1549
    }
12245 bpr 1550
    p2=wordchr(p1,"and"); p3=p2+strlen("and");
1551
    if(p2==NULL) {
1552
      p2=strchr(p1,','); p3=p2+1;
1553
    }
1554
    if(p2==NULL) goto syntax;
1555
   *p2=0;p2=find_word_start(p3);
1556
    if(*p1==0 || *p2==0) goto syntax;
1557
    d1=evalue(p1);d2=evalue(p2);
1558
    if(!isfinite(d1) || !isfinite(d2) ||
1559
      fabs(d1)>(double)(1E10) || fabs(d2)>(double)(1E10)) goto syntax;
1560
    if(d1>d2) {
1561
      dd=d1;d1=d2;d2=dd;
1562
    }
1563
    if(vbuf[0] && val<=d2 && val>=d1) {
1564
      if(!doub) setvar(nbuf,vbuf);
1565
      *p=0; return;
1566
    }
1567
    if(defaulted) ovlstrcpy(p,dbuf);
1568
    else {
7379 bpr 1569
      if(!doub) {
12245 bpr 1570
        d1=ceil(d1);d2=floor(d2);
7379 bpr 1571
      }
1572
      if(vbuf[0]==0 || val<d1) val=d1;
1573
      else val=d2;
1574
      float2str(val,p);
10 reyssat 1575
    }
12245 bpr 1576
    setvar(nbuf,p); *p=0; return;
1577
  }
1578
  else {
7379 bpr 1579
    if(strcmp(p1,"within")==0 || strcmp(p1,"among")==0) {
12245 bpr 1580
      ovlstrcpy(lbuf,p2);substit(lbuf);
1581
      bcnt=cutitems(lbuf,blist,2048);
1582
      if(bcnt<=0) {
1583
        *p=0; return;
1584
      }
1585
      for(i=0;i<bcnt;i++) {
1586
        if(strcmp(blist[i],vbuf)==0) {
7379 bpr 1587
          *p=0; return;
1588
        }
12245 bpr 1589
      }
1590
      if(defaulted) ovlstrcpy(p,dbuf); else ovlstrcpy(p,blist[0]);
1591
      setvar(nbuf,p); *p=0;
1592
      return;
10 reyssat 1593
    }
12245 bpr 1594
  else goto syntax;
1595
  }
10 reyssat 1596
}
1597
 
8155 bpr 1598
/* detrust the module. */
10 reyssat 1599
void exec_detrust(char *p)
12245 bpr 1600
{
1601
  untrust|=1; *p=0;
1602
}
10 reyssat 1603
 
1604
void exec_warn(char *p)
1605
{
12245 bpr 1606
  char *p1,*p2;
1607
  char buf[MAX_FNAME+1];
1608
  WORKING_FILE save;
10 reyssat 1609
 
12245 bpr 1610
  if(!outputing) goto end;
1611
  p1=find_word_start(p);p2=find_word_end(p1);
1612
  if(p2<=p1) goto end;
1613
  *p2=0;
1614
  snprintf(buf,sizeof(buf),"wims_warn_%s",p1);
1615
  p2=getvar(buf);
1616
  if(p2==NULL || *p2==0) goto end;
1617
  p2=getvar("module_language");if(p2==NULL) p2="en";
1618
  mkfname(buf,"msg/warn_%s.phtml.%s",p1,p2);
1619
  memmove(&save,&m_file,sizeof(WORKING_FILE));
1620
  if(open_working_file(&m_file,buf)==0) phtml_put(NULL,0);
1621
  memmove(&m_file,&save,sizeof(WORKING_FILE));
1622
  end:
1623
  *p=0; return;
10 reyssat 1624
}
1625
 
8155 bpr 1626
/* write an error message. */
10 reyssat 1627
void exec_msg(char *p)
1628
{
12245 bpr 1629
  char *p1,*p2, buf[64], *l;
1630
  secure_exec();
1631
  p1=find_word_start(p); p2=find_word_end(p1);
1632
  if(*p2) {
1633
    *p2=0; p2=find_word_start(p2+1);
1634
  }
1635
  force_setvar("wims_error",p1); force_setvar("wims_error_parm",p2);
1636
  l=getvar("module_language");
1637
  if(l!=NULL && strlen(l)==2) {
1638
    snprintf(buf,sizeof(buf),"msg.phtml.%s",l);
1639
    phtml_put_base(buf,0);
1640
  }
1641
  *p=0;
10 reyssat 1642
}
1643
 
8185 bpr 1644
struct distr_cmd distr_cmd[]={
12245 bpr 1645
  {"char",      NULL},
1646
  {"charof",    NULL},
1647
  {"chars",     NULL},
1648
  {"charsof",   NULL},
1649
  {"item",      cutitems},
1650
  {"itemof",    cutitems},
1651
  {"items",     cutitems},
1652
  {"itemsof",   cutitems},
1653
  {"line",      cutlines},
1654
  {"lineof",    cutlines},
1655
  {"lines",     cutlines},
1656
  {"linesof",   cutlines},
1657
  {"list",      cutitems},
1658
  {"word",      cutwords},
1659
  {"wordof",    cutwords},
1660
  {"words",     cutwords},
1661
  {"wordsof",   cutwords}
10 reyssat 1662
};
1663
 
8185 bpr 1664
int distr_cmd_no=(sizeof(distr_cmd)/sizeof(distr_cmd[0]));
10 reyssat 1665
 
8155 bpr 1666
/* distribute a number of lines, items, etc. into a list of vars. */
10 reyssat 1667
void exec_distribute(char *p)
1668
{
12245 bpr 1669
  int i,k,n;
1670
  char *p1, *p2;
1671
  char bf1[MAX_LINELEN+1],bf2[MAX_LINELEN+1];
1672
  char *names[4096],*vals[4096];
1673
  p1=find_word_start(p); p2=find_word_end(p1);
1674
  if(p2<=p1 || *p2==0) module_error("syntax_error");
1675
  *p2++=0;
1676
  i=search_list(distr_cmd,distr_cmd_no,sizeof(distr_cmd[0]),p1);
1677
  if(i<0) module_error("syntax_error");
1678
  p2=find_word_start(p2); p1=wordchr(p2,"into");
1679
  if(p1==NULL) module_error("syntax_error");
1680
  *p1=0;mystrncpy(bf1,p2,sizeof(bf1));
1681
  p1=find_word_start(p1+strlen("into"));
1682
  mystrncpy(bf2,p1,sizeof(bf2));
1683
  substit(bf1);substit(bf2);
1684
  strip_trailing_spaces(bf1);
1685
  items2words(bf2); n=cutwords(bf2,names,4096);
1686
  if(distr_cmd[i].routine!=NULL) {
1687
    k=distr_cmd[i].routine(bf1,vals,n);
1688
    for(i=0;i<k;i++) setvar(names[i],vals[i]);
1689
    for(;i<n;i++) setvar(names[i],"");
1690
  }
1691
  else {
1692
    char buf[2];
1693
    buf[1]=0;
1694
    for(p1=bf1,i=0;i<n;i++) {
1695
      buf[0]=*p1; if(*p1) p1++;
1696
      setvar(names[i],buf);
10 reyssat 1697
    }
12245 bpr 1698
  }
10 reyssat 1699
}
1700
 
15542 bpr 1701
/* reset variables - the syntax name[10] is allowed*/
10 reyssat 1702
void exec_reset(char *p)
1703
{
15542 bpr 1704
  char *p1, *p2, *p3, *p4, buf[100];
1705
  int i, n;
10 reyssat 1706
 
12245 bpr 1707
  items2words(p);
1708
  for(p1=find_word_start(p); *p1; p1=find_word_start(p2)) {
1709
    p2=find_word_end(p1); if(*p2) *p2++=0;
15542 bpr 1710
    substit(p1);
1711
    p3=strchr(p1,'[');
1712
    if (p3 != NULL) {
1713
      *p3++ = 0;
1714
      p4 = find_matching(p3, ']');
1715
      if (p4 == NULL) module_error("nomatching");
1716
      *p4=0;
1717
      n = atoi(p3);
1718
      for (i = 1; i<=n; ++i) {
1719
        snprintf(buf, sizeof(buf),"%s%d",p1,i);
1720
        setvar(buf,"");
1721
      }
1722
    }
1723
    else setvar(p1,"");
12245 bpr 1724
  }
10 reyssat 1725
}
1726
 
8155 bpr 1727
/* exchange the values of two variables */
10 reyssat 1728
void exec_exchange(char *p)
1729
{
12245 bpr 1730
  char buf[MAX_LINELEN+1],b1[MAX_LINELEN+1],b2[MAX_LINELEN+1];
1731
  char *p1,*p2,*pb;
1732
  p1=wordchr(p,"and");
1733
  if(p1!=NULL) {
1734
    *p1=0; p2=find_word_start(p1+strlen("and"));
1735
  }
1736
  else {
1737
    p1=strchr(p,',');
1738
    if(p1==NULL) module_error("syntax_error");
1739
    *p1=0; p2=find_word_start(p1+1);
1740
  }
1741
  p1=find_word_start(p);
1742
  mystrncpy(b1,p1,sizeof(b1)); substit(b1); *find_word_end(b1)=0;
1743
  mystrncpy(b2,p2,sizeof(b2)); substit(b2); *find_word_end(b2)=0;
1744
  if(*b1==0 || *b2==0) module_error("syntax_error");
1745
  pb=getvar(b1);if(pb==NULL) pb="";
1746
  mystrncpy(buf,pb,sizeof(buf));
1747
  pb=getvar(b2);if(pb==NULL) pb="";
1748
  setvar(b1,pb); setvar(b2,buf);
10 reyssat 1749
}
1750
 
15488 obado 1751
/**
1752
 * Send a mail
1753
 * p contains 4 lines :
1754
    $To\
1755
    $from\
1756
    $subject\
1757
    $body\
1758
   The first line ($mailheader) must contain the recipient address.
1759
 */
10 reyssat 1760
void exec_mailto(char *p)
1761
{
15488 obado 1762
  char *from,*subject,*body,*pp,*charset;
15490 obado 1763
  char mail_content[MAX_LINELEN+1],buf[MAX_LINELEN+1];
15488 obado 1764
  /*int status;
1765
  FILE *mailer;// need stdio.h */
10 reyssat 1766
 
12245 bpr 1767
  if(!trusted_module() || is_class_module) return;
15489 obado 1768
  // searches for the first occurrence of \n
15488 obado 1769
  from=strchr(p,'\n'); if(from==NULL) return;
15489 obado 1770
  // stops the 'p' string here.
15488 obado 1771
  *from++=0; p=find_word_start(p);
12245 bpr 1772
  if(*p==0) return;
15489 obado 1773
 
15488 obado 1774
  subject=strchr(from,'\n'); if(subject==NULL) return;
15489 obado 1775
  // delimitate the 'from' string.
15488 obado 1776
  *subject++=0; from=find_word_start(from);
15491 bpr 1777
  if(*from!=0) snprintf(buf,sizeof(buf),"From:%s\n",from);
1778
    else buf[0]=0;
15488 obado 1779
  body=strchr(subject,'\n'); if(body==NULL) return;
15489 obado 1780
  // // delimitate the 'subject' string.
15488 obado 1781
  *body++=0; subject=find_word_start(subject);
1782
 
1783
  for(pp=subject;*pp;pp++) if(*pp=='"' || *pp=='\n') *pp=' ';
1784
 
1785
  charset=getvar("wims_main_font");if(charset==NULL) charset="windows-1252";
15490 obado 1786
  snprintf(mail_content,sizeof(mail_content),
1787
          "To:%s\n%sSubject:%s\nContent-Type: text/html;charset=\"%s\"\n\n%s\n",p,buf,subject,charset,body);
1788
 
15488 obado 1789
  accessfile(mail_content,"w","%s/mail.eml",tmp_dir);
12245 bpr 1790
  wrapexec=1;
15489 obado 1791
  // you can add option '-vv' to make sendmail more verbose.
1792
  call_sh("cat %s/mail.eml | /usr/sbin/sendmail -t 2> %s/sendmail.log",tmp_dir,tmp_dir);
15488 obado 1793
 
12245 bpr 1794
  mail_log(p);
1795
  *p=0;
10 reyssat 1796
}
1797
 
8155 bpr 1798
/* Generates a user error. Internal and undocumented. */
10 reyssat 1799
void exec_usererror(char *p)
1800
{
12245 bpr 1801
  if(trusted_module()) user_error(p);
10 reyssat 1802
}
1803
 
8155 bpr 1804
/* stop output. */
10 reyssat 1805
void exec_directout(char *p)
1806
{
12245 bpr 1807
  if(outputing || !trusted_module()) return;
1808
  printf("%s",p);
1809
  noout=1;
10 reyssat 1810
}
1811
 
1812
enum {
12245 bpr 1813
  EXEC_IF, EXEC_JUMP, EXEC_ELSE, EXEC_ENDIF, EXEC_EXEC,
1814
  EXEC_WHILE, EXEC_ENDWHILE,
1815
  EXEC_FOR, EXEC_VAR, EXEC_DEBUG, EXEC_DAEMON,
1816
  EXEC_SET, EXEC_DEFAULT, EXEC_COMMENT, EXEC_READ, EXEC_HREF,
1817
  EXEC_INS, EXEC_STRING, EXEC_PEDIA, EXEC_DIR,
1818
  EXEC_TRUST, EXEC_WARN, EXEC_ERROR, EXEC_SQL, EXEC_SCORE,
1819
  EXEC_MAIL, EXEC_OTHER
10 reyssat 1820
} EXEC_TYPES;
1821
#define EXEC_SUBST 0x1000
1822
#define EXEC_USECALC 0x2000
1823
#define EXEC_PROCTOO 0x4000
1824
MYFUNCTION exec_routine[]={
12245 bpr 1825
  {"!",        EXEC_COMMENT,        exec_comment},
1826
  {"TeXmath",  EXEC_STRING|EXEC_SUBST|EXEC_USECALC,texmath},
1827
  {"add",      EXEC_STRING|EXEC_USECALC,calc_sum},
1828
  {"advance",  EXEC_VAR|EXEC_SUBST,   exec_increase},
1829
  {"append",   EXEC_STRING|EXEC_USECALC,calc_append},
1830
  {"appendfile",EXEC_DIR|EXEC_SUBST,    fileappend},
1831
  {"bound",     EXEC_STRING,       exec_bound},
1832
  {"break",     EXEC_FOR,        exec_break},
1833
  {"call",      EXEC_EXEC|EXEC_SUBST|EXEC_PROCTOO|EXEC_USECALC,    calc_exec},
1834
  {"changeto",  EXEC_READ|EXEC_SUBST,    exec_changeto},
1835
  {"char",      EXEC_STRING|EXEC_USECALC,calc_charof},
1836
  {"chars",     EXEC_STRING|EXEC_USECALC,calc_charof},
1837
  {"checkhost", EXEC_STRING|EXEC_USECALC|EXEC_SUBST,calc_checkhost},
1838
  {"column",    EXEC_STRING|EXEC_USECALC,calc_columnof},
1839
  {"columns",   EXEC_STRING|EXEC_USECALC,calc_columnof},
1840
  {"comment",   EXEC_COMMENT,        exec_comment},
1841
  {"daemon",    EXEC_DAEMON|EXEC_USECALC|EXEC_SUBST,calc_daemon},
1842
  {"date",      EXEC_STRING|EXEC_USECALC|EXEC_SUBST,calc_date},
1843
  {"deaccent",  EXEC_STRING|EXEC_USECALC|EXEC_SUBST,deaccent},
1844
  {"debug",     EXEC_DEBUG,        calc_debug},
1845
  {"declosing", EXEC_STRING|EXEC_USECALC|EXEC_SUBST,calc_declosing},
1846
  {"def",       EXEC_SET,        exec_set},
1847
  {"default",   EXEC_SET,        exec_default},
1848
  {"define",    EXEC_SET,        exec_set},
1849
  {"definitionof", EXEC_SCORE|EXEC_USECALC,calc_defof},
1850
  {"defof",     EXEC_SCORE|EXEC_USECALC,calc_defof},
1851
  {"defread",   EXEC_READ|EXEC_SUBST,    exec_defread},
1852
  {"detag",     EXEC_STRING|EXEC_USECALC|EXEC_SUBST,calc_detag},
1853
  {"detrust",   EXEC_TRUST,        exec_detrust},
7379 bpr 1854
/*      {"dictionary",EXEC_STRING|EXEC_USECALC,calc_dictionary},    */
12245 bpr 1855
  {"dir",       EXEC_DIR|EXEC_SUBST|EXEC_USECALC,calc_listfile},
1856
  {"distribute",EXEC_STRING,        exec_distribute},
1857
  {"distrust",  EXEC_TRUST,        exec_detrust},
1858
  {"else",      EXEC_ELSE,        exec_else},
1859
  {"embraced",  EXEC_STRING|EXEC_USECALC,calc_embraced},
1860
  {"encyclo",   EXEC_PEDIA|EXEC_SUBST|EXEC_USECALC,pedia},
1861
  {"encyclopedia",EXEC_PEDIA|EXEC_SUBST|EXEC_USECALC,pedia},
1862
  {"endif",     EXEC_ENDIF,        exec_endif},
1863
  {"endwhile",  EXEC_ENDWHILE,        exec_endwhile},
1864
  {"evalsubst", EXEC_STRING|EXEC_USECALC,calc_evalsubst},
1865
  {"evalsubstit",EXEC_STRING|EXEC_USECALC,calc_evalsubst},
1866
  {"evalsubstitute",EXEC_STRING|EXEC_USECALC,calc_evalsubst},
1867
  {"evaluesubst",EXEC_STRING|EXEC_USECALC,calc_evalsubst},
1868
  {"evaluesubstit",EXEC_STRING|EXEC_USECALC,calc_evalsubst},
1869
  {"evaluesubstitute",EXEC_STRING|EXEC_USECALC,calc_evalsubst},
1870
  {"examscore", EXEC_SCORE|EXEC_SUBST|EXEC_USECALC,calc_examscore},
1871
  {"exchange",  EXEC_STRING,        exec_exchange},
1872
  {"exec",      EXEC_EXEC|EXEC_SUBST|EXEC_PROCTOO|EXEC_USECALC,    calc_exec},
1873
  {"execute",   EXEC_EXEC|EXEC_SUBST|EXEC_PROCTOO|EXEC_USECALC,    calc_exec},
1874
  {"exit",      EXEC_JUMP,        exec_exit},
1875
  {"fileappend",EXEC_DIR|EXEC_SUBST,    fileappend},
1876
  {"fileexists",EXEC_STRING|EXEC_USECALC, calc_fileexists},
1877
  {"filelist",  EXEC_DIR|EXEC_SUBST|EXEC_USECALC,calc_listfile},
1878
  {"fileout",   EXEC_HREF|EXEC_SUBST,    exec_getfile},
1879
  {"filewrite", EXEC_DIR|EXEC_SUBST,    filewrite},
1880
  {"filexists",EXEC_STRING|EXEC_USECALC, calc_fileexists},
1881
  {"for",       EXEC_FOR,        exec_for},
1882
  {"form",      EXEC_HREF|EXEC_SUBST,    exec_form},
1883
  {"formbar",   EXEC_HREF,        exec_formbar},
1884
  {"formcheckbox",EXEC_HREF,        exec_formcheckbox},
1885
  {"formend",   EXEC_STRING,    exec_formend},
1886
  {"formradio", EXEC_HREF,        exec_formradio},
1887
  {"formradiobar",EXEC_HREF,        exec_formbar},
1888
  {"formselect",EXEC_HREF,        exec_formselect},
1889
  {"getdef",    EXEC_SCORE|EXEC_USECALC,calc_defof},
1890
  {"getfile",   EXEC_HREF|EXEC_SUBST,    exec_getfile},
1891
  {"getscore",  EXEC_SCORE|EXEC_SUBST|EXEC_USECALC,calc_getscore},
1892
  {"getscorebest",EXEC_SCORE|EXEC_SUBST|EXEC_USECALC,calc_getscorebest},
1893
  {"getscorelast",EXEC_SCORE|EXEC_SUBST|EXEC_USECALC,calc_getscorelast},
1894
  {"getscorelevel",EXEC_SCORE|EXEC_SUBST|EXEC_USECALC,calc_getscorelevel},
1895
  {"getscoremean",EXEC_SCORE|EXEC_SUBST|EXEC_USECALC,calc_getscoremean},
1896
  {"getscorepercent",EXEC_SCORE|EXEC_SUBST|EXEC_USECALC,calc_getscorepercent},
1897
  {"getscorequality",EXEC_SCORE|EXEC_SUBST|EXEC_USECALC,calc_getscoremean},
1898
  {"getscoreremain",EXEC_SCORE|EXEC_SUBST|EXEC_USECALC,calc_getscoreremain},
1899
  {"getscorerequire",EXEC_SCORE|EXEC_SUBST|EXEC_USECALC,calc_getscorerequire},
1900
  {"getscoretry",EXEC_SCORE|EXEC_SUBST|EXEC_USECALC,calc_getscoretry},
1901
  {"getscoreweight",EXEC_SCORE|EXEC_SUBST|EXEC_USECALC,calc_getscoreweight},
1902
  {"goto",      EXEC_JUMP|EXEC_SUBST,    exec_goto},
1903
  {"header",    EXEC_HREF,        exec_header},
1904
  {"header1",   EXEC_HREF,        exec_header1},
15502 bpr 1905
  {"headmathjax",EXEC_HREF,  exec_headmathjax},
12245 bpr 1906
  {"headmenu",  EXEC_HREF,        exec_headmenu},
1907
  {"hex",       EXEC_STRING|EXEC_SUBST|EXEC_USECALC,calc_hex},
1908
  {"homeref",   EXEC_HREF,        exec_homeref},
1909
  {"href",      EXEC_HREF,        exec_href},
13757 bpr 1910
  {"html2iso",  EXEC_STRING|EXEC_USECALC|EXEC_SUBST,calc_html2iso},
12245 bpr 1911
  {"htmlbar",   EXEC_HREF,        exec_formbar},
1912
  {"htmlcheckbox",EXEC_HREF,        exec_formcheckbox},
1913
  {"htmlheader",EXEC_HREF,        exec_header},
1914
  {"htmlmath",  EXEC_STRING|EXEC_SUBST|EXEC_USECALC,htmlmath},
1915
  {"htmlradio", EXEC_HREF,        exec_formradio},
1916
  {"htmlradiobar",EXEC_HREF,        exec_formbar},
1917
  {"htmlselect",EXEC_HREF,        exec_formselect},
1918
  {"htmltail",  EXEC_HREF,        exec_tail},
1919
  {"htmltitle", EXEC_HREF,        exec_title},
1920
  {"if",        EXEC_IF,        exec_if},
1921
  {"ifval",     EXEC_IF,        exec_ifval},
1922
  {"ifvalue",   EXEC_IF,        exec_ifval},
1923
  {"imgrename", EXEC_STRING|EXEC_USECALC|EXEC_SUBST,calc_imgrename},
1924
  {"include",   EXEC_READ|EXEC_SUBST,   exec_read},
1925
  {"increase",  EXEC_VAR|EXEC_SUBST,    exec_increase},
1926
  {"input",     EXEC_READ|EXEC_SUBST,    exec_read},
1927
  {"insdraw",   EXEC_INS|EXEC_SUBST,    exec_insdraw},
1928
  {"insmath",   EXEC_INS,        insmath},
1929
  {"inspaint",  EXEC_INS|EXEC_SUBST,    exec_insdraw},
1930
  {"insplot",   EXEC_INS|EXEC_SUBST,    exec_insplot},
1931
  {"insplot3d", EXEC_INS|EXEC_SUBST,    exec_insplot3d},
1932
  {"instex",    EXEC_INS,        exec_instex},
1933
  {"instexst",  EXEC_INS|EXEC_USECALC,    calc_instexst},
1934
  {"instexstatic",EXEC_INS|EXEC_USECALC,    calc_instexst},
1935
  {"item",        EXEC_STRING|EXEC_USECALC,calc_itemof},
1936
  {"items",     EXEC_STRING|EXEC_USECALC,calc_itemof},
1937
  {"items2lines", EXEC_STRING|EXEC_SUBST|EXEC_USECALC,items2lines},
1938
  {"items2words",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,items2words},
1939
  {"itemstolines",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,items2lines},
1940
  {"itemstowords",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,items2words},
1941
  {"let",        EXEC_SET,        exec_set},
1942
  {"leveldata",  EXEC_STRING|EXEC_USECALC,calc_leveldata},
1943
  {"levelpoints",EXEC_STRING|EXEC_USECALC,calc_leveldata},
1944
  {"line",       EXEC_STRING|EXEC_USECALC,calc_lineof},
1945
  {"lines",      EXEC_STRING|EXEC_USECALC,calc_lineof},
1946
  {"lines2items",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,lines2items},
1947
  {"lines2list", EXEC_STRING|EXEC_SUBST|EXEC_USECALC,lines2items},
1948
  {"lines2words",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,lines2words},
1949
  {"linestoitems",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,lines2items},
1950
  {"linestolist",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,lines2items},
1951
  {"linestowords",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,lines2words},
1952
  {"list2lines", EXEC_STRING|EXEC_SUBST|EXEC_USECALC,items2lines},
1953
  {"list2words", EXEC_STRING|EXEC_SUBST|EXEC_USECALC,items2words},
1954
  {"listfile",   EXEC_DIR|EXEC_SUBST|EXEC_USECALC,calc_listfile},
1955
  {"listfiles",  EXEC_DIR|EXEC_SUBST|EXEC_USECALC,calc_listfile},
1956
  {"listintersect",EXEC_STRING|EXEC_USECALC,calc_listintersect},
1957
  {"listintersection", EXEC_STRING|EXEC_USECALC,calc_listintersect},
1958
  {"listtolines",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,items2lines},
1959
  {"listtowords",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,items2words},
1960
  {"listunion",  EXEC_STRING|EXEC_USECALC,calc_listunion},
1961
  {"listuniq",   EXEC_STRING|EXEC_SUBST|EXEC_USECALC,calc_listuniq},
1962
  {"listunique", EXEC_STRING|EXEC_SUBST|EXEC_USECALC,calc_listuniq},
1963
  {"listvar",    EXEC_STRING|EXEC_SUBST|EXEC_USECALC,mathvarlist},
1964
  {"lookup",     EXEC_STRING|EXEC_USECALC,    calc_lookup},
1965
  {"lower",      EXEC_STRING|EXEC_SUBST|EXEC_USECALC,calc_tolower},
1966
  {"lowercase",  EXEC_STRING|EXEC_SUBST|EXEC_USECALC,calc_tolower},
1967
  {"ls",         EXEC_DIR|EXEC_SUBST|EXEC_USECALC,calc_listfile},
1968
  {"mailto",     EXEC_MAIL|EXEC_SUBST,    exec_mailto},
1969
  {"mailurl",    EXEC_MAIL|EXEC_SUBST|EXEC_USECALC,calc_mailurl},
1970
  {"makelist",   EXEC_STRING|EXEC_USECALC,calc_makelist},
1971
  {"math2html",  EXEC_STRING|EXEC_SUBST|EXEC_USECALC,htmlmath},
1972
  {"math2mathml",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,mathmlmath},
1973
  {"math2tex",   EXEC_STRING|EXEC_SUBST|EXEC_USECALC,texmath},
1974
  {"mathmlmath", EXEC_STRING|EXEC_SUBST|EXEC_USECALC,mathmlmath},
1975
  {"mathsubst",  EXEC_STRING|EXEC_USECALC,calc_mathsubst},
1976
  {"mathsubstit",EXEC_STRING|EXEC_USECALC,calc_mathsubst},
1977
  {"mathsubstitute",EXEC_STRING|EXEC_USECALC,calc_mathsubst},
1978
  {"mexec",     EXEC_EXEC|EXEC_SUBST,    exec_mexec},
1979
  {"module",    EXEC_STRING|EXEC_SUBST|EXEC_USECALC,calc_module},
1980
  {"msg",       EXEC_EXEC|EXEC_SUBST,exec_msg},
1981
  {"multiply",  EXEC_STRING|EXEC_USECALC,calc_product},
1982
  {"next",      EXEC_FOR,        exec_next},
1983
  {"nocache",   EXEC_READ,        exec_nocache},
1984
  {"non_empty", EXEC_STRING|EXEC_SUBST|EXEC_USECALC,calc_nonempty},
1985
  {"nonempty",  EXEC_STRING|EXEC_SUBST|EXEC_USECALC,calc_nonempty},
1986
  {"nospace",   EXEC_STRING|EXEC_SUBST|EXEC_USECALC,nospace},
1987
  {"outfile",   EXEC_HREF|EXEC_SUBST,    exec_getfile},
1988
  {"pedia",     EXEC_PEDIA|EXEC_SUBST|EXEC_USECALC,pedia},
1989
  {"perl",      EXEC_EXEC|EXEC_PROCTOO|EXEC_SUBST,exec_perl},
1990
  {"position",  EXEC_STRING|EXEC_USECALC,calc_pos},
1991
  {"positionof",EXEC_STRING|EXEC_USECALC,calc_pos},
1992
  {"positions", EXEC_STRING|EXEC_USECALC,calc_pos},
1993
  {"prod",      EXEC_STRING|EXEC_USECALC,calc_product},
1994
  {"product",   EXEC_STRING|EXEC_USECALC,calc_product},
1995
  {"rawmath",   EXEC_STRING|EXEC_SUBST|EXEC_USECALC,rawmath},
1996
  {"rawmatrix", EXEC_STRING|EXEC_SUBST|EXEC_USECALC,rawmatrix},
1997
  {"reaccent",  EXEC_STRING|EXEC_USECALC|EXEC_SUBST,reaccent},
1998
  {"read",      EXEC_READ|EXEC_SUBST,    exec_read},
1999
  {"readdef",   EXEC_READ|EXEC_SUBST,    exec_defread},
2000
  {"readproc",  EXEC_READ|EXEC_SUBST,    exec_readproc},
2001
  {"record",    EXEC_STRING|EXEC_USECALC,calc_recordof},
2002
  {"records",   EXEC_STRING|EXEC_USECALC,calc_recordof},
2003
  {"recursion", EXEC_STRING|EXEC_USECALC,calc_recursion},
2004
  {"reinput",   EXEC_STRING|EXEC_USECALC|EXEC_SUBST,calc_reinput},
2005
  {"rem",       EXEC_COMMENT,        exec_comment},
2006
  {"remark",    EXEC_COMMENT,        exec_comment},
2007
  {"replace",   EXEC_STRING|EXEC_USECALC,calc_replace},
2008
  {"reset",     EXEC_SET|EXEC_SUBST,    exec_reset},
2009
  {"restart",   EXEC_JUMP|EXEC_SUBST,    exec_restart},
2010
  {"return",    EXEC_JUMP,        exec_exit},
2011
  {"robotrap",  EXEC_HREF|EXEC_SUBST,    exec_robottrap},
2012
  {"robottrap", EXEC_HREF|EXEC_SUBST,    exec_robottrap},
2013
  {"rootof",    EXEC_STRING|EXEC_USECALC,calc_solve},
2014
  {"row",       EXEC_STRING|EXEC_USECALC,calc_rowof},
2015
  {"rows",      EXEC_STRING|EXEC_USECALC,calc_rowof},
2016
  {"rows2lines",EXEC_STRING|EXEC_USECALC|EXEC_SUBST,calc_rows2lines},
2017
  {"run",       EXEC_EXEC|EXEC_SUBST|EXEC_PROCTOO|EXEC_USECALC,    calc_exec},
2018
  {"select",    EXEC_STRING|EXEC_USECALC,calc_select},
2019
  {"set",       EXEC_SET,        exec_set},
2020
  {"setdef",    EXEC_OTHER,        exec_setdef},
2021
  {"setseed",   EXEC_STRING|EXEC_SUBST,        exec_setseed},
2022
  {"sh",        EXEC_EXEC|EXEC_PROCTOO|EXEC_SUBST,exec_sh},
2023
  {"shortout",  EXEC_JUMP|EXEC_SUBST,    exec_directout},
2024
  {"singlespace",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,singlespace},
2025
  {"solve",     EXEC_STRING|EXEC_USECALC,calc_solve},
2026
  {"sort",      EXEC_STRING|EXEC_USECALC, calc_sort},
7379 bpr 2027
/*      {"sql",     EXEC_SQL|EXEC_SUBST|EXEC_USECALC, calc_sql}, */
12245 bpr 2028
  {"staticinstex",EXEC_INS|EXEC_USECALC,    calc_instexst},
2029
  {"stinstex",  EXEC_INS|EXEC_USECALC,    calc_instexst},
2030
  {"sum",       EXEC_STRING|EXEC_USECALC,calc_sum},
2031
  {"system",    EXEC_EXEC|EXEC_PROCTOO|EXEC_SUBST,exec_sh},
2032
  {"tail",      EXEC_HREF,        exec_tail},
2033
  {"test",      EXEC_DEBUG,        exec_test},
2034
  {"texmath",   EXEC_STRING|EXEC_SUBST|EXEC_USECALC,texmath},
2035
  {"text",      EXEC_STRING|EXEC_USECALC,text},
2036
  {"title",     EXEC_HREF,        exec_title},
2037
  {"tohex",     EXEC_STRING|EXEC_SUBST|EXEC_USECALC,calc_hex},
2038
  {"tolower",   EXEC_STRING|EXEC_SUBST|EXEC_USECALC,calc_tolower},
2039
  {"toupper",   EXEC_STRING|EXEC_SUBST|EXEC_USECALC,calc_toupper},
2040
  {"translate", EXEC_STRING|EXEC_USECALC,calc_translate},
2041
  {"trim",      EXEC_STRING|EXEC_USECALC,calc_trim},
2042
  {"upper",     EXEC_STRING|EXEC_SUBST|EXEC_USECALC,calc_toupper},
2043
  {"uppercase", EXEC_STRING|EXEC_SUBST|EXEC_USECALC,calc_toupper},
2044
  {"usererror", EXEC_WARN|EXEC_SUBST,    exec_usererror},
2045
  {"values",    EXEC_STRING|EXEC_USECALC,calc_values},
2046
  {"varlist",   EXEC_STRING|EXEC_SUBST|EXEC_USECALC,mathvarlist},
2047
  {"warn",      EXEC_WARN|EXEC_SUBST,    exec_warn},
2048
  {"warning",   EXEC_WARN|EXEC_SUBST,    exec_warn},
2049
  {"while",     EXEC_WHILE,        exec_while},
2050
  {"whileval",  EXEC_WHILE,        exec_whileval},
2051
  {"whilevalue",EXEC_WHILE,        exec_whileval},
2052
  {"wimsheader",EXEC_HREF,        exec_header},
2053
  {"wimsref",   EXEC_HREF,        exec_homeref},
2054
  {"wimstail",  EXEC_HREF,        exec_tail},
2055
  {"wimstitle", EXEC_HREF,        exec_title},
2056
  {"word",      EXEC_STRING|EXEC_USECALC,calc_wordof},
2057
  {"words",     EXEC_STRING|EXEC_USECALC,calc_wordof},
2058
  {"words2items",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,words2items},
2059
  {"words2lines",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,words2lines},
2060
  {"words2list",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,words2items},
2061
  {"wordstoitems",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,words2items},
2062
  {"wordstolines",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,words2lines},
2063
  {"wordstolist",EXEC_STRING|EXEC_SUBST|EXEC_USECALC,words2items},
2064
  {"writefile", EXEC_DIR|EXEC_SUBST,    filewrite},
10 reyssat 2065
};
8185 bpr 2066
int EXEC_FN_NO=(sizeof(exec_routine)/sizeof(exec_routine[0]));
10 reyssat 2067
 
8155 bpr 2068
/* internal: to skip the content of a false if/while. */
10 reyssat 2069
static void _skip_contents(int isif)
2070
{
12245 bpr 2071
  char buf[MAX_NAMELEN+8], *p1;
2072
  int i,j,loop;
2073
  loop=0;
2074
  while(m_file.linepointer<m_file.linecnt) {
2075
    j=m_file.linepointer;
2076
    if((m_file.lines[j].isstart&2)==0) {
2077
      m_file.linepointer++; continue;
2078
    }
2079
    i=m_file.lines[j].execcode;
2080
    if(i<0) {
2081
      if(wgetline(buf,MAX_NAMELEN+4,&m_file)==EOF) return;
2082
      p1=buf+1; if(*p1!='i' && *p1!='e' && *p1!='w') continue;
2083
      *find_word_end(p1)=0;
2084
      i=search_list(exec_routine,EXEC_FN_NO,sizeof(exec_routine[0]),p1);
2085
      if(i>=0) m_file.lines[j].execcode=i;
2086
    }
2087
    else m_file.linepointer++;
2088
    if(i<0) continue;
2089
    switch(exec_routine[i].tag & 0xffff) {
2090
      case EXEC_WHILE:
2091
        if(!isif) loop++;
2092
        break;
2093
      case EXEC_IF:
2094
        if(isif) loop++;
2095
        break;
2096
      case EXEC_ELSE: {
2097
        if(!isif) break;
2098
        if(loop<=0) return; else break;
7379 bpr 2099
      }
12245 bpr 2100
      case EXEC_ENDIF: {
2101
        if(!isif) break;
2102
        if(loop>0) {
2103
          loop--; break;
2104
        }
2105
        else return;
7379 bpr 2106
      }
12245 bpr 2107
      case EXEC_ENDWHILE: {
2108
        if(isif) break;
2109
        if(loop>0) {
2110
          loop--; break;
7379 bpr 2111
        }
12245 bpr 2112
        else return;
7379 bpr 2113
      }
12245 bpr 2114
      default: break;
10 reyssat 2115
    }
12245 bpr 2116
  }
10 reyssat 2117
}
2118
 
8155 bpr 2119
/* Execute a command defined by !. Returns 0 if OK. */
10 reyssat 2120
void exec_main(char *p)
2121
{
12245 bpr 2122
  int i,j;
2123
  char *pp;
2124
  char tbuf2[MAX_LINELEN+1];
10 reyssat 2125
 
12245 bpr 2126
  pp=find_word_end(p);
2127
  if(*pp!=0) {
2128
    *(pp++)=0; pp=find_word_start(pp);
2129
  }
2130
  i=m_file.lines[m_file.l].execcode;
2131
  if(i<0) {
2132
    i=search_list(exec_routine,EXEC_FN_NO,sizeof(exec_routine[0]),p);
2133
    m_file.lines[m_file.l].execcode=i;
2134
  }
2135
  if(i<0) {
2136
    setvar(error_data_string,p); module_error("bad_cmd");
2137
  }
8155 bpr 2138
/* called from !readdef, no right other than set; bail out */
12245 bpr 2139
  execnt++;
2140
  if((untrust&4)!=0 && (j=(exec_routine[i].tag&0xffff))!=EXEC_SET) {
2141
    tbuf2[0]=0; exec_exit(tbuf2);
2142
  }
2143
  ovlstrcpy(tbuf2,pp); j=exec_routine[i].tag;
2144
  if(j&EXEC_SUBST) substit(tbuf2);
2145
  if(j&EXEC_USECALC) {
2146
    if(!outputing && (j&EXEC_PROCTOO)==0) return;
2147
    exec_routine[i].routine(tbuf2); if(outputing) output0(tbuf2);
2148
  }
2149
  else exec_routine[i].routine(tbuf2);
2150
  return;
10 reyssat 2151
}