diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-11 23:56:24 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-11 23:56:24 +0000 |
commit | 377ce899e33cb201168f4018c5413d76668f32e6 (patch) | |
tree | 8e6aeb488a812f2d6948c169f865a68ec2abf55c /Master/texmf-dist/source/latex/progkeys/demo/prog3.tex | |
parent | c52946ab7533d1e5ef2203bf47b76b406b687d83 (diff) |
trunk/Master/texmf-dist/source/latex/progkeys
git-svn-id: svn://tug.org/texlive/trunk@463 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/progkeys/demo/prog3.tex')
-rw-r--r-- | Master/texmf-dist/source/latex/progkeys/demo/prog3.tex | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/latex/progkeys/demo/prog3.tex b/Master/texmf-dist/source/latex/progkeys/demo/prog3.tex new file mode 100644 index 00000000000..df33fd7d26f --- /dev/null +++ b/Master/texmf-dist/source/latex/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: |