← Back to branch summary

~ubuntu-branches/ubuntu/karmic/scilab/karmic

« back to all changes in this revision

Viewing changes to macros/m2sci/sciparam.sci

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-21 16:57:43 UTC
  • Revision ID: james.westby@ubuntu.com-20020321165743-e9mv12c1tb1plztg
Tags: upstream-2.6
Import upstream version 2.6

Show diffs side-by-side

added added

removed removed

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