|
Functions |
| | if (isstr(line=fgets(in))) if(strcmp(line |
| | while (isstr(line=fgets(in))) fprintf(out |
| | while (action< 0 &&isstr(line=fgets(in))) fprintf(stderr |
| | if (strcmp(substr(line, 1, 7),'*cancel')||strcmp(substr(line, 1, 7),'*window')) action=0 |
| end | if (strcmp(substr(line, 1, 3),'*ok')) action |
| | fprintf (stderr,"Exec ok\n") |
| end | if (strcmp(substr(line, 1, 5),'*copy')) action |
| end end | fprintf (out,"\nwindow close\n\n") |
| | fprintf (stderr,"window close\n") |
| | fflush (out) |
| | if (action!=0) func |
| | fprintf (stderr,"func=%s\n", func) |
| | fprintf (out,'x_min gettext\n\n') |
Variables |
| function | line |
| length n | line = "" |
| | return |
| end | line = fgets(in) |
| | l = columns(line) |
| | line = substr(line,1,l-1) |
| end end | out = stdout |
| | in = fopen('Integrate.ws','r') |
| | s |
| | line |
| end | in = stdin |
| | action = -1 |
| | s |
| | line |
| | break |
| | break |
| | break |
| | command = "" |
| | x_min = read_data(in,out,'x_min') |
| | x_max = read_data(in,out,'x_max') |