PROCESS ChangerExposants[entree, sortie]: NOEXIT :=
entree ?x: char;
([x ~= '*'] ->
sortie !x;
ChangerExposants[entree, sortie]
[]
[x = '*'] ->
(entree ?y: char;
[y ~= '*'] ->
sortie !'*';
sortie !y;
ChangerExposants[entree, sortie]
[]
[y = '*'] ->
sortie !'^';
ChangerExposants[entree, sortie]
)
)
ENDPROC
PROCESS CopierEtChangerExposants[entree, sortie]: NOEXIT :=
HIDE c1, c2 IN
Depaqueter[entree, c1]([])
|[c1]|
ChangerExposants[c1, c2]
|[c2]|
Paqueter[c2, sortie](132, [])
ENDPROC
This document was generated using the LaTeX2HTML translator Version 97.1 (release) (July 13th, 1997)
Copyright © 1993, 1994, 1995, 1996, 1997, Nikos Drakos, Computer Based Learning Unit, University of Leeds.
The command line arguments were:
latex2html -split +0 -auto_navigation lotos-exposant-s.tex.
The translation was initiated by Tremblay Guy on 3/29/2001