|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1792 (0x700)
Types: TextFile
Names: »CSTRING.PAS«
└─⟦4fbcde1e4⟧ Bits:30003931/GEM_Development-A.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
└─⟦this⟧ »CSTRING.PAS«
(*****************************************************************************)
(* *)
(* CString.Pas *)
(* *)
(* Converts Pascal style strings to/from C style strings. *)
(* *)
(* Last modified: 11 February 1986 *)
(* *)
(*****************************************************************************)
æ$R+å (* Turn on range checking *)
(*****************************************************************************)
PROCEDURE MakeCString(pString : CharString; VAR cString : CharString);
(* make a Pascal style string into a C style string *)
VAR
index : INTEGER;
BEGIN (* MakeCString *)
FOR index := 1 TO Len(pString) DO
cStringÆindex - 1Å := pStringÆindexÅ;
cStringÆLen(pString)Å := CHR(0);
END (* MakeCString *);
(*****************************************************************************)
PROCEDURE MakePString(cString : CharString; VAR pString : CharString);
(* make a C style string into a Pascal style string *)
VAR
index : INTEGER;
BEGIN (* MakePString *)
index := 0;
WHILE cStringÆindexÅ <> CHR(0) DO BEGIN
pStringÆindex + 1Å := cStringÆindexÅ;
index := index + 1;
END (* WHILE *);
pStringÆ0Å := CHR(index);
END (* MakePString *);