mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 18:02:25 +00:00
da88496c5f
* Deduplicate common constants into OPM and do some source format tidying. * Fix postpush buildall script to force checkout of updated buildall. * Show enlistment branch in makefiles * Support non-printables in string literals and tidy case alignment and constant literals. * Common code for MIN and MAX of integer types. * Common code for SInt/Int/LInt in ConstOp parameter preparation. * Common code for SInt/Int/LInt in Op parameter preparation. * Refactor SetIntType to work with byte size directly. Prepare to revert my incorrect VAL changes. * Original meaning of VAL restored. Many library files disabled until use of VAL in 64 bits fixed. * Make Reals.Mod independent of INTEGER size and add reals tests. * Implement fraction, IsInfinity and IsNaN in oocLowReal.Mod. * OPB little simplifications and ShorterSize/LongerSize functions. * Add test for alignment computability * Replace alignment constants with calculated alignment. * typ.size aware OPV.Convert * Add SYSTEM_INT64 and make tests name independent. * Remove SYSTEM.H includes (string.h and stdint.h). * Replace uses of uintptr_t and size_t with SYSTEM_ADDRESS. * Sad hack to make FreeBSD and OpenBSD happy with memcpy declaration. * Detect 64 bit on FreeBSD, and size_t defined on OpenBSD. * %zd not supportd by mingw, cast strnlen return to int. * Add debug for intermittent failure only on OpenBSD. * Add textTexts as a confidence test and tidy up a couple of other tests. * Update binary test process.
71 lines
3.1 KiB
C
71 lines
3.1 KiB
C
/* voc 1.95 [2016/08/23] for gcc LP64 on cygwin tspkaSfF */
|
|
|
|
#ifndef Files__h
|
|
#define Files__h
|
|
|
|
#define LARGE
|
|
#include "SYSTEM.h"
|
|
|
|
typedef
|
|
struct Files_FileDesc *Files_File;
|
|
|
|
typedef
|
|
struct Files_FileDesc {
|
|
char _prvt0[232];
|
|
LONGINT fd;
|
|
char _prvt1[64];
|
|
} Files_FileDesc;
|
|
|
|
typedef
|
|
struct Files_Rider {
|
|
LONGINT res;
|
|
BOOLEAN eof;
|
|
char _prvt0[31];
|
|
} Files_Rider;
|
|
|
|
|
|
|
|
import LONGINT *Files_FileDesc__typ;
|
|
import LONGINT *Files_Rider__typ;
|
|
|
|
import Files_File Files_Base (Files_Rider *r, LONGINT *r__typ);
|
|
import void Files_ChangeDirectory (CHAR *path, LONGINT path__len, INTEGER *res);
|
|
import void Files_Close (Files_File f);
|
|
import void Files_Delete (CHAR *name, LONGINT name__len, INTEGER *res);
|
|
import void Files_GetDate (Files_File f, LONGINT *t, LONGINT *d);
|
|
import void Files_GetName (Files_File f, CHAR *name, LONGINT name__len);
|
|
import LONGINT Files_Length (Files_File f);
|
|
import Files_File Files_New (CHAR *name, LONGINT name__len);
|
|
import Files_File Files_Old (CHAR *name, LONGINT name__len);
|
|
import LONGINT Files_Pos (Files_Rider *r, LONGINT *r__typ);
|
|
import void Files_Purge (Files_File f);
|
|
import void Files_Read (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x);
|
|
import void Files_ReadBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN *x);
|
|
import void Files_ReadByte (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len);
|
|
import void Files_ReadBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, LONGINT n);
|
|
import void Files_ReadInt (Files_Rider *R, LONGINT *R__typ, INTEGER *x);
|
|
import void Files_ReadLInt (Files_Rider *R, LONGINT *R__typ, LONGINT *x);
|
|
import void Files_ReadLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL *x);
|
|
import void Files_ReadLine (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len);
|
|
import void Files_ReadNum (Files_Rider *R, LONGINT *R__typ, LONGINT *x);
|
|
import void Files_ReadReal (Files_Rider *R, LONGINT *R__typ, REAL *x);
|
|
import void Files_ReadSet (Files_Rider *R, LONGINT *R__typ, SET *x);
|
|
import void Files_ReadString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len);
|
|
import void Files_Register (Files_File f);
|
|
import void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, INTEGER *res);
|
|
import void Files_Set (Files_Rider *r, LONGINT *r__typ, Files_File f, LONGINT pos);
|
|
import void Files_SetSearchPath (CHAR *path, LONGINT path__len);
|
|
import void Files_Write (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE x);
|
|
import void Files_WriteBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN x);
|
|
import void Files_WriteBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, LONGINT n);
|
|
import void Files_WriteInt (Files_Rider *R, LONGINT *R__typ, INTEGER x);
|
|
import void Files_WriteLInt (Files_Rider *R, LONGINT *R__typ, LONGINT x);
|
|
import void Files_WriteLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL x);
|
|
import void Files_WriteNum (Files_Rider *R, LONGINT *R__typ, LONGINT x);
|
|
import void Files_WriteReal (Files_Rider *R, LONGINT *R__typ, REAL x);
|
|
import void Files_WriteSet (Files_Rider *R, LONGINT *R__typ, SET x);
|
|
import void Files_WriteString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len);
|
|
import void *Files__init(void);
|
|
|
|
|
|
#endif
|