# HG changeset patch # User koda # Date 1365078946 -7200 # Node ID e9a97845e4f2e266c3f73399818f0953c592446b # Parent e9ebd63f8a0378cef0328607f3382ab849c6ad4a forgot these from raa2ffd427f6a diff -r e9ebd63f8a03 -r e9a97845e4f2 hedgewars/pas2c.h --- a/hedgewars/pas2c.h Thu Apr 04 08:10:59 2013 -0400 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,144 +0,0 @@ -#pragma once - -#include -#include -#include -#include - -typedef union string255_ - { - struct { - char s[256]; - }; - struct { - char len; - char str[255]; - }; - } string255; -typedef struct string192_ - { - char s[193]; - } string192; -typedef struct string31_ - { - char s[32]; - } string31; -typedef struct string15_ - { - char s[16]; - } string15; - -typedef string255 shortstring; -typedef string255 ansistring; - -typedef uint8_t Byte; -typedef int8_t ShortInt; -typedef uint16_t Word; -typedef int16_t SmallInt; -typedef uint32_t LongWord; -typedef int32_t LongInt; -typedef uint64_t QWord; -typedef int64_t Int64; -typedef LongWord Cardinal; - -typedef LongInt Integer; -typedef float extended; -typedef float real; -typedef float single; - -typedef bool boolean; -typedef int LongBool; - -typedef void * pointer; -typedef Byte * PByte; -typedef char * PChar; -typedef LongInt * PLongInt; -typedef LongWord * PLongWord; -typedef Integer * PInteger; -typedef int PtrInt; -typedef wchar_t widechar; - -#define new(a) __new((void **)&a, sizeof(*(a))) -void __new(void ** p, int size); -#define dispose(a) __dispose(a, sizeof(*(a))) -void __dispose(pointer p, int size); - -void * GetMem(int size); -void FreeMem(void * p, int size); - -#define FillChar(a, b, c) __FillChar(&(a), b, c) - -void __FillChar(pointer p, int size, char fill); -string255 _strconcat(string255 a, string255 b); -string255 _strappend(string255 s, char c); -string255 _strprepend(char c, string255 s); -string255 _chrconcat(char a, char b); -bool _strcompare(string255 a, string255 b); -bool _strcomparec(string255 a, char b); -bool _strncompare(string255 a, string255 b); -char * _pchar(string255 s); -string255 pchar2str(char * s); - -int Length(string255 a); -string255 copy(string255 a, int s, int l); -string255 delete(string255 a, int s, int l); -string255 trim(string255 a); - -#define STRINIT(a) {.len = sizeof(a) - 1, .str = a} - - -int length_ar(void * a); - -typedef int file; -typedef int TextFile; -extern int FileMode; -extern int IOResult; -extern int stdout; -extern int stderr; - -#define assign(a, b) assign_(&(a), b) -void assign_(int * f, string255 fileName); -void reset_1(int f, int size); -void reset_2(int f, int size); -#define BlockRead(a, b, c, d) BlockRead_(a, &(b), c, &(d)) -void BlockRead_(int f, void * p, int size, int * sizeRead); -#define BlockWrite(a, b, c) BlockWrite_(a, &(b), c) -void BlockWrite_(int f, void * p, int size); -void close(int f); - -void write(int f, string255 s); -void writeLn(int f, string255 s); - -bool DirectoryExists(string255 dir); -bool FileExists(string255 filename); - -bool odd(int i); - - -typedef int TThreadId; -void ThreadSwitch(); -#define InterlockedIncrement(a) __InterlockedIncrement(&(a)) -#define InterlockedDecrement(a) __InterlockedDecrement(&(a)) -void __InterlockedIncrement(int * a); -void __InterlockedDecrement(int * a); - -bool Assigned(void * a); - -void randomize(); -int random(int max); -int abs(int i); -double sqr(double n); -double sqrt(double n); -int trunc(double n); -int round(double n); - -string255 ParamStr(int n); -int ParamCount(); - -#define val(a, b, c) _val(a, (LongInt*)&(b), (LongInt*)&(c)) -void _val(string255 str, LongInt * a, LongInt * c); - -extern double pi; - -string255 EnumToStr(int a); -string255 ExtractFileName(string255 f); diff -r e9ebd63f8a03 -r e9a97845e4f2 hedgewars/pas2cSystem.pas --- a/hedgewars/pas2cSystem.pas Thu Apr 04 08:10:59 2013 -0400 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,148 +0,0 @@ -system; - -type - Integer = integer; - LongInt = integer; - LongWord = integer; - Cardinal = integer; - PtrInt = integer; - Word = integer; - Byte = integer; - SmallInt = integer; - ShortInt = integer; - QWord = integer; - GLint = integer; - GLuint = integer; - int = integer; - size_t = integer; - - pointer = pointer; - - float = float; - single = float; - double = float; - real = float; - extended = float; - GLfloat = float; - - boolean = boolean; - LongBool = boolean; - - string = string; - shortstring = string; - ansistring = string; - widechar = string; - - char = char; - PChar = ^char; - PPChar = ^Pchar; - - PByte = ^Byte; - PWord = ^Word; - PLongInt = ^LongInt; - PLongWord = ^LongWord; - PInteger = ^Integer; - - Handle = integer; - - png_structp = pointer; - png_size_t = integer; - -var - false, true: boolean; - - write, writeLn, read, readLn: procedure; - - StrLen, ord, Succ, Pred : function : integer; - inc, dec, Low, High, Lo, Hi : function : integer; - odd, even : function : boolean; - - Now : function : integer; - - new, dispose, FillChar, Move : procedure; - - trunc, round : function : integer; - abs, sqr : function : integer; - - StrPas, FormatDateTime, copy, delete, str, pos, trim, LowerCase : function : shortstring; - Length, StrToInt : function : integer; - SetLength, val : procedure; - _pchar : function : PChar; - pchar2str : function : string; - memcpy : procedure; - - assign, rewrite, reset, flush, BlockWrite, BlockRead, close : procedure; - IOResult : integer; - exit, break, halt, continue : procedure; - TextFile, file : Handle; - FileMode : integer; - FileExists, DirectoryExists, eof : function : boolean; - ExtractFileName : function : string; - exitcode : integer; - stdout, stderr : Handle; - - ParamCount : function : integer; - ParamStr : function : string; - - sqrt, arctan2, cos, sin, power : function : float; - pi : float; - - TypeInfo, GetEnumName : function : shortstring; - - UTF8ToUnicode, WrapText: function : shortstring; - - sizeof : function : integer; - - GetMem : function : pointer; - FreeMem : procedure; - - glGetString : function : pchar; - - glBegin, glBindTexture, glBlendFunc, glClear, glClearColor, - glColor4ub, glColorMask, glColorPointer, glDeleteTextures, - glDisable, glDisableClientState, glDrawArrays, glEnable, - glEnableClientState, glEnd, glGenTextures, glGetIntegerv, - glHint, glLineWidth, glLoadIdentity, glMatrixMode, glPopMatrix, - glPushMatrix, glReadPixels, glRotatef, glScalef, glTexCoord2f, - glTexCoordPointer, glTexImage2D, glTexParameterf, - glTexParameteri, glTranslatef, glVertex2d, glVertexPointer, - glViewport, glext_LoadExtension, glDeleteRenderbuffersEXT, - glDeleteFramebuffersEXT, glGenFramebuffersEXT, - glGenRenderbuffersEXT, glBindFramebufferEXT, - glBindRenderbufferEXT, glRenderbufferStorageEXT, - glFramebufferRenderbufferEXT, glFramebufferTexture2DEXT : procedure; - - GL_BGRA, GL_BLEND, GL_CLAMP_TO_EDGE, GL_COLOR_ARRAY, - GL_COLOR_BUFFER_BIT, GL_DEPTH_BUFFER_BIT, GL_DEPTH_COMPONENT, - GL_DITHER, GL_EXTENSIONS, GL_FALSE, GL_FASTEST, GL_LINEAR, - GL_LINE_LOOP, GL_LINES, GL_LINE_SMOOTH, GL_LINE_STRIP, - GL_MAX_TEXTURE_SIZE, GL_MODELVIEW, GL_ONE_MINUS_SRC_ALPHA, - GL_PERSPECTIVE_CORRECTION_HINT, GL_PROJECTION, GL_QUADS, - GL_RENDERER, GL_RGBA, GL_RGBA8, GL_SRC_ALPHA, GL_TEXTURE_2D, - GL_TEXTURE_COORD_ARRAY, GL_TEXTURE_MAG_FILTER, - GL_TEXTURE_MIN_FILTER, GL_TEXTURE_PRIORITY, GL_TEXTURE_WRAP_S, - GL_TEXTURE_WRAP_T, GL_TRIANGLE_FAN, GL_TRUE, GL_VENDOR, - GL_VERSION, GL_VERTEX_ARRAY, GLenum, GL_FRAMEBUFFER_EXT, - GL_RENDERBUFFER_EXT, GL_DEPTH_ATTACHMENT_EXT, - GL_COLOR_ATTACHMENT0_EXT, GL_FLOAT, GL_UNSIGNED_BYTE : integer; - - TThreadId : function : integer; - BeginThread, ThreadSwitch : procedure; - InterlockedIncrement, InterlockedDecrement : procedure; - - random : function : integer; - randomize : procedure; - - Assigned : function : boolean; - - _strconcat, _strappend, _strprepend, _chrconcat : function : string; - _strcompare, _strncompare, _strcomparec : function : boolean; - - png_structp, png_set_write_fn, png_get_io_ptr, - png_get_libpng_ver, png_create_write_struct, - png_create_info_struct, png_destroy_write_struct, - png_write_row, png_set_ihdr, png_write_info, - png_write_end : procedure; - - EnumToStr : function : string; -