Branche de développement

.github/workflows/publish_doc.yml

@@ -1,10 +1,11 @@
 name: Publish documentation on GitHub Pages
 
 on:
-  workflow_run:
-    workflows: [binary-releases]
-    types:
-      - completed
+  push:
+    branches:
+      - master
+      - dev
+      - gen-doc # Temporary 
 
 jobs:
   deploy:
@@ -33,7 +34,7 @@ jobs:
         uses: ocaml/setup-ocaml@v2
         with:
           # Version of the OCaml compiler to initialise
-          ocaml-compiler: 4.11.2
+          ocaml-compiler: 4.13.1
 
       - name: Install dependencies
         run: |

m_ext/0/cibles.m

@@ -59,6 +59,11 @@
 BOBO4 : calculee base primrest = 0 restituee : "" ;
 BOBORES : calculee base primrest = 0 restituee : "" ;
 
+CONST0 : const = 0;
+CONST1 : const = 1;
+CONST2 : const = 2;
+CONST3 : const = 3;
+
 espace_variables ESP : categorie saisie, base;
 
 cible test_dans_domaine:
@@ -626,6 +631,24 @@ afficher_erreur nom(VAR) ": "
   par_defaut:
     afficher "Y = ?, echec\n";
 )
+aiguillage (Y) : (
+  cas CONST0:
+    afficher "Y = CONST0, echec\n";
+  cas CONST1:
+    afficher "Y = CONST1, OK!\n";
+  cas indefini:
+    afficher "Y = --indefini--, echec\n";
+  par_defaut:
+    afficher "Y = ?, echec\n";
+)
+aiguillage nom (Y) : (
+  cas X:
+    afficher "X = Y, ah bon?\n";
+  cas Y:
+    afficher "Y = Y, ouf\n";
+  par_defaut:
+    afficher "Y = ?, echec\n";
+)
 afficher "FIN test aiguillage\n";
 
 # Test stop fonction