Télécharger la plaquette Cast3M


fr en

Télécharger inserer.dgibi

Retour à la liste

Numérotation des lignes : 

  1. ************************************************************************
  2. *                   Cas test de l'opérateur INSErer                    *
  3. ************************************************************************
  4.  
  5.  
  6. ** Petite procédure de test d'égalité de 2 listes a et b
  7. DEBP TEST a b ;
  8. REPE bou (DIME a) ;
  9.   a1 = EXTR a &bou ;
  10.   b1 = EXTR b &bou ;
  11.   SI (NEG a1 b1) ;
  12.     LIST a ;
  13.     LIST b ;
  14.     ERRE 5 ;
  15.   FINSI ;
  16. FIN bou ;
  17. FINP ;
  18.  
  19.  
  20. ** Cas d'insertion d'un FLOTTANT dans un LISTREEL
  21. obj0 = PROG 4. 8. 15. 16. 23. 42. ;
  22. obj1 = PROG 4. 8. 15.     23. 42. ;
  23. ind1 = 4 ;
  24. obj2 = 16. ;
  25. obj3 = INSE obj1 ind1 obj2 ;
  26. TEST obj0 obj3 ;
  27.  
  28.  
  29. ** Cas d'insertion d'un ENTIER dans un LISTENTI
  30. obj0 = LECT 4 8 15 16 23 42 ;
  31. obj1 = LECT 4 8 15    23 42 ;
  32. ind1 = 4 ;
  33. obj2 = 16 ;
  34. obj3 = INSE obj1 ind1 obj2 ;
  35. TEST obj0 obj3 ;
  36.  
  37.  
  38. ** Cas d'insertion d'un MOT dans un LISTMOTS
  39. obj0 = MOTS 'TATA' 'TETE' 'TITI' 'TOTO' 'TUTU' ;
  40. obj1 = MOTS 'TATA' 'TETE' 'TITI'        'TUTU' ;
  41. ind1 = 4 ;
  42. obj2 = 'TOTO' ;
  43. obj3 = INSE obj1 ind1 obj2 ;
  44. TEST obj0 obj3 ;
  45.  
  46.  
  47. ** Cas d'insertion d'un CHPOINT dans un LISTCHPO
  48. OPTI 'DIME' 1 ;
  49. mail = (POIN 0.) ET (POIN 1.) ET (POIN 2.) ;
  50. chp1 = MANU 'CHPO' mail 'TATA' 1. ;
  51. chp2 = MANU 'CHPO' mail 'TETE' 2. ;
  52. chp3 = MANU 'CHPO' mail 'TITI' 3. ;
  53. chp4 = MANU 'CHPO' mail 'TOTO' 4. ;
  54. chp5 = MANU 'CHPO' mail 'TUTU' 5. ;
  55. obj0 = SUIT chp1 chp2 chp3 chp4 chp5 ;
  56. obj1 = SUIT chp1 chp2 chp3      chp5 ;
  57. ind1 = 4 ;
  58. obj2 = chp4 ;
  59. obj3 = INSE obj1 ind1 obj2 ;
  60. TEST obj0 obj3 ;
  61.  
  62.  
  63. ** Cas d'insertion d'un OBJET dans un LISTOBJE
  64. *  LISTOBJE contenant des LISTREEL
  65. lis1 = PROG 1. 2. 3. ;
  66. lis2 = PROG 4. 5. 6. ;
  67. lis3 = PROG 7. 8. 9. ;
  68. lis4 = PROG 8. 7. 6. ;
  69. lis5 = PROG 4. 3. 2. ;
  70. obj0 = ENUM lis1 lis2 lis3 lis4 lis5 ;
  71. obj1 = ENUM lis1 lis2 lis3      lis5 ;
  72. ind1 = 4 ;
  73. obj2 = lis4 ;
  74. obj3 = INSE obj1 ind1 obj2 ;
  75. TEST obj0 obj3 ;
  76. *  LISTOBJE contenant des FLOTTANT
  77. obj0 = ENUM 4. 8. 15. 16. 23. 42. ;
  78. obj1 = ENUM 4. 8. 15.     23. 42. ;
  79. ind1 = 4 ;
  80. obj2 = 16. ;
  81. obj3 = INSE obj1 ind1 obj2 ;
  82. TEST obj0 obj3 ;
  83.  
  84.  
  85. FIN ;
  86.  
  87.  
  88.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales