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') |
fflush | ( | out | ) |
fprintf | ( | stderr | ) |
fprintf | ( | stderr | , | |
"window close\n" | ||||
) |
end end fprintf | ( | out | , | |
"\nwindow close\n\n" | ||||
) |
fprintf | ( | stderr | , | |
"Exec ok\n" | ||||
) |
if | ( | action! | = 0 |
) |
end if | ( | strcmp(substr(line, 1, 5),'*copy') | ) |
end if | ( | strcmp(substr(line, 1, 3),'*ok') | ) |
while | ( | ) |
action = -1 |
command = "" |
end in = stdin |
in = fopen('Integrate.ws','r') |
length n line = "" |
end end out = stdout |