From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Mon, 2 Sep 2019 13:46:59 +0900
Subject: Initial commit

---
 macros/latex/contrib/progkeys/demo/prog3.tex | 57 ++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 macros/latex/contrib/progkeys/demo/prog3.tex

(limited to 'macros/latex/contrib/progkeys/demo/prog3.tex')

diff --git a/macros/latex/contrib/progkeys/demo/prog3.tex b/macros/latex/contrib/progkeys/demo/prog3.tex
new file mode 100644
index 0000000000..df33fd7d26
--- /dev/null
+++ b/macros/latex/contrib/progkeys/demo/prog3.tex
@@ -0,0 +1,57 @@
+\begin{programs}*
+    \WITH TEXT\_IO;  \USE TEXT\_IO;
+    \PROCEDURE NUMEROTATION
+              (FICHIER\_ENTREE : \IN STRING;
+               FICHIER\_SORTIE : \IN STRING := "") IS
+      \SUBTYPE LONGUEUR\_LIGNE \IS INTEGER
+                             \RANGE 1..255;
+      FICHIER\_IN  : FILE\_TYPE;
+      FICHIER\_OUT : FILE\_TYPE;
+      COMPTEUR : NATURAL := 0;
+      LIGNE : STRING (LONGUEUR\_LIGNE);
+      FIN\_DE\_LIGNE : NATURAL;
+    \BEGIN
+      OPEN (FILE => FICHIER\_IN,
+            MODE => IN\_FILE,
+            NAME => FICHIER\_ENTREE);
+      \IF FICHIER\_SORTIE = "" \THEN
+        CREATE (FILE => FICHIER\_OUT,
+                MODE => OUT\_FILE,
+                NAME => FICHIER\_ENTREE \& ".num");
+      \ELSE
+        CREATE (FILE => FICHIER\_OUT,
+                MODE => OUT\_FILE,
+                NAME => FICHIER\_SORTIE);
+      \END \IF;
+      RESET (FICHIER\_IN);
+      \WHILE \NOT END\_OF\_FILE (FICHIER\_IN) \LOOP
+        GET\_LINE (FILE => FICHIER\_IN,
+                  ITEM => LIGNE,
+                  LAST => FIN\_DE\_LIGNE);
+        COMPTEUR := COMPTEUR + 1;
+        PUT\_LINE (FILE => FICHIER\_OUT,
+                  ITEM => NATURAL'IMAGE (COMPTEUR) \&
+                          " " \& LIGNE (1..FIN\_DE\_LIGNE));
+      \END \LOOP;
+      CLOSE (FILE => FICHIER\_IN);
+      CLOSE (FILE => FICHIER\_OUT);
+    \END NUMEROTATION;
+
+    \WITH TEXT\_IO;  \USE TEXT\_IO;
+    \WITH NUMEROTATION;
+    \PROCEDURE TEST\_NUMEROTATION \IS
+      CARACTERES  : NATURAL;
+      NOM\_FICHIER : STRING (1..50);
+    \BEGIN
+      PUT ("quel fichier voulez-vous ");
+      PUT ("numeroter ? ");
+      GET\_LINE (NOM\_FICHIER,CARACTERES);
+      NUMEROTATION (NOM\_FICHIER (1..CARACTERES));
+      PUT\_LINE ("C'est fini");
+    \END TEST\_NUMEROTATION;
+\end{programs}
+
+% Local Variables: 
+% mode: latex
+% TeX-master: t
+% End: 
-- 
cgit v1.2.3

