1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
function forparam()
// Copyright INRIA
%else='else',%end='end';%elseif='elseif';%if='if';%for='for';
%select='select';%while='while';%case='case';%then='then'
quote=''''
logics=['==','<','>','<=','>=','<>']
//symbole : symbole associe a un numero d'operation
//type_du resultat : 0:facteur,1:terme,2:expression
//parenthesage : indique s'il faut parentheser les operandes de meme type
// que type_du_resultat
//
// symbole type_du_resultat parenthesage_des_operandes
ops =['+', 'a';
'-', 's';
'*', 'm';
'.*', 'x';
'*.', 'u';
'.*.', 'k';
'/', 'r';
'./', 'd';
'/.', 'v';
'./.', 'y';
'\', 'l';
'.\', 'q';
'\.', 'w';
'.\.', 'z';
'**', 'p';
'.eq.', 'log';
'.lt.', 'log';
'.gt.', 'log';
'.le.', 'log';
'.ge.', 'log';
'.ne.', 'log';
':', 'imp';
'[]', 'c';
'ins', 'i';
'ext', 'e';
quote, 't';
'[]', 'c';
'|', 'g';
'&', 'h';
'~', '5';
'.^', 'j';
'.'+quote '0';
'[]', 'c'];
[logics,ops,quote,%else,%end,%elseif,%if,%for,%select,%while,%case,%then]=...
resume(logics,ops,quote,%else,%end,%elseif,%if,%for,%select,%while,%case,%then)
endfunction
|
