forgot these from raa2ffd427f6a
authorkoda
Thu, 04 Apr 2013 14:35:46 +0200
changeset 8851 e9a97845e4f2
parent 8848 e9ebd63f8a03
child 8854 31133afaa025
forgot these from raa2ffd427f6a
hedgewars/pas2c.h
hedgewars/pas2cSystem.pas
--- 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 <stddef.h>
-#include <stdint.h>
-#include <stdbool.h>
-#include <wchar.h>
-
-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);
--- 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;
-