vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 12:12:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

added GetName function to OakFiles;

Browse source 
ported BTrees, MD5, Zip, Zlib, ZlibBuffers, ZlibDeflate, ZlibInflate, ZlibReaders, ZlibWriters to compile with voc


Former-commit-id: fcc5f1447d
This commit is contained in:
Norayr Chilingarian 2013-10-31 18:51:55 +04:00
parent e3fb8c1ddc
commit e81f79dff9
11 changed files with 5463 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/lib/v4/OakFiles.Mod
View file

@ -626,6 +626,11 @@ Especially Length would become fairly complex.
Write(R, CHR(x MOD 128))
END WriteNum;
PROCEDURE GetName*(f: File; VAR name: ARRAY OF CHAR);
BEGIN
COPY (f.workName, name);
END GetName;
PROCEDURE Finalize(o: SYSTEM.PTR);
VAR f: File; res: LONGINT;
BEGIN