Tests/testcomm7/parseur.comm

   1 DEBUT()
   2 P1 = 9.8;
   3
   4 P2 = 8.8;
   5
   6 P3 = 7;
   7
   8 P5 = P3*P1;
   9
  10 P6 = P1-3;
  11
  12 P4 = [2,3,4];
  13
  14 a = 1.
  15 b=3
  16 c= 3 * 5
  17 cc="b+3"
  18 d= 4 + \
  19  5 \
  20  -4
  21 e=LIRE_MAILLAGE()
  22 ##MA=LIRE_MAILLAGE()
  23 x=(1,2)
  24 y=[3,
  25 #comme
  26 4]
  27 z="a"
  28 zz='v'
  29 u='''aaaa
  30 bbbb'''
  31 #ne marche pas avec le parseur actuel
  32 #if 1:
  33 #  a=45
  34 #else:
  35 #  a=5.6
  36 d={"a":0}
  37 e={"a":0,
  38 #comme
  39 "d":4}
  40 #ne marche pas avec le parseur actuel
  41 #a==1
  42 s="-"*80
  43 fmt_raison='-'*80+'''
  44
  45    Exception erreur_Fatale interceptee
  46    Raison : %s
  47
  48 '''+'-'*80+'xxxxxxxxxxxxxxxx\n'
  49
  50 # commen """
  51 # commen '''
  52 # commen '
  53 # commen "
  54 BETA=3.41557E-08
  55
  56 C_0=105.7
  57
  58 C_EQ_I05=69.1
  59
  60 C_EQ_E05=69.1
  61
  62 C_EQ_I10=51.6
  63
  64 C_EQ_E10=69.1
  65
  66 FL_INT05 = FORMULE(NOM_PARA='TEMP',VALE='''
  67 (0.5*BETA / ((C_0 - C_EQ_I05 )**2)
  68   * (TEMP - (2.*C_0 - C_EQ_I05 ))*(TEMP - C_EQ_I05 ))''')
  69
  70 zz=8.9;
  71 #ne marche pas avec le parseur actuel
  72 #zz=8.9;aa=10 #position
  73
  74 FIN()