--- a/FormAusLib.def
+++ b/FormAusLib.def
@@ -11,17 +11,6 @@
(* *)
(* The parameter "Laenge" defines the number of bytes handed over in all *)
(* procedures if not explicitly describes having another meaning *)
- (*------------------------------------------------------------------------*)
- (* Letzte Bearbeitung: *)
- (* *)
- (* 05.09.94, MRi: Durchsicht *)
- (* 22.06.15, MRi: Einf"uhren des "An"-Formats in WriteN,dWriteN *)
- (* 02.10.16, MRi: Aufsplitten der Module FormAus und SFormAus in *)
- (* TFormAus,FFormAus,SFormAus und FormAusLib *)
- (*------------------------------------------------------------------------*)
- (* Offene Punkte *)
- (* *)
- (* - ByteToLongInt und ByteToReal fehelen *)
(*------------------------------------------------------------------------*)
(* Implementation : Michael Riedl *)
(* Licence : GNU Lesser General Public License (LGPL) *)
@@ -120,4 +109,33 @@
(* If x cannot be represented as a IEEE.NAN is returned. *)
(*-----------------------------------------------------------------*)
+PROCEDURE PreParseFormat( FmtAlt : ARRAY OF CHAR;
+ VAR FmtNeu : ARRAY OF CHAR;
+ VAR done : BOOLEAN);
+
+ (*---------------------------------------------------------------*)
+ (* Ersetzt im ersten Schritt alle vorkommenden "nX" Anweisungen *)
+ (* durch das intern genutze Format Xn. *)
+ (* *)
+ (* Ersetzt im im zweiten Schritt alle vorkommenden "n(fmt)" *)
+ (* Anweisungen durch fmt,(n-1)*[fmt]. *)
+ (* *)
+ (* Beispiel : "36X,2(1X,I2)" wird zu "X36,X1,I2,X1,I2" *)
+ (* *)
+ (* Es sind maximal vier Klammern erlaubt und der Wiederholungs- *)
+ (* faktor kann nur im Intervall 1..9 liegen, was aber in Anbe- *)
+ (* tracht der Limitation der Anzahl der ausschreibbaren Parmeter *)
+ (* voellig ausreichend sein sollte. *)
+ (* *)
+ (* Replaces occurences of "nX" format instructions by "Xn" and *)
+ (* then handles bracketed format expressions "n(fmt)" to replace *)
+ (* them by n time fmt *)
+ (* *)
+ (* Sample : "36X,2(1X,I2)" becomes "X36,X1,I2,X1,I2" *)
+ (* *)
+ (* The number of brackets is limited to 4 at the moment which *)
+ (* sould be ok taking the limitation of maximal allowed *)
+ (* parameter (9) into consideration. *)
+ (*---------------------------------------------------------------*)
+
END FormAusLib.