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
|
function []=setparam()
//
//!
// 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 =['+','2',' ';
'-','2',' r';
'*','1',' ';
'.*','1',' r';
'*.','1','lr';
'.*.','1','lr';
'/','1',' r';
'./','1',' r';
'/.','1','lr';
'./.','1','lr';
'\','1','l ';
'.\','1','l ';
'\.','1','l ';
'.\.','1','lr';
'**','0',' r';
'==','2','lr';
'<','2','lr';
'>','2','lr';
'<=','2','lr';
'>=','2','lr';
'<>','2','lr';
':','0',' ';
'[]','0',' ';
'ins','0',' ';
'ext','0',' ';
quote,'0',' '];
[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
|
