diff -r 56d2f2d5aad8 -r 4feced261c68 hedgewars/pas2cSystem.pas --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/hedgewars/pas2cSystem.pas Tue Jan 21 22:38:13 2014 +0100 @@ -0,0 +1,134 @@ +system; +{This file contains functions that are external} +type + uinteger = uinteger; + Integer = integer; + LongInt = integer; + LongWord = uinteger; + Cardinal = uinteger; + PtrInt = integer; + Word = uinteger; + Byte = integer; + SmallInt = integer; + ShortInt = integer; + Int64 = integer; + QWord = uinteger; + GLint = integer; + GLuint = integer; + GLenum = 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; + + ord, Succ, Pred : function : integer; + inc, dec, Low, High, Lo, Hi : function : integer; + + IOResult : integer; + exit, break, halt, continue : procedure; + + TextFile, File : Handle; + FileMode : integer; + exitcode : integer; + stdout, stderr : Handle; + + sqrt, cos, sin: function : float; + pi : float; + + sizeof : function : integer; + + 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, + glUniformMatrix4fv, glVertexAttribPointer, glCreateShader, + glShaderSource, glCompileShader, glGetShaderiv, glGetShaderInfoLog, + glCreateProgram, glAttachShader, glBindAttribLocation, glLinkProgram, + glDeleteShader, glGetProgramiv, glGetProgramInfoLog, glUseProgram, + glUniform1i, glGetUniformLocation, glEnableVertexAttribArray, + glGetError, glDeleteProgram, glDeleteBuffers, + glGenBuffers, glBufferData, glBindBuffer, glewInit, + glUniform4f, glDisableVertexAttribArray, glTexEnvi : 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, GL_COMPILE_STATUS, + GL_INFO_LOG_LENGTH, GL_LINK_STATUS, GL_VERTEX_SHADER, GL_FRAGMENT_SHADER, + GL_NO_ERROR, GL_ARRAY_BUFFER, GL_STATIC_DRAW, GLEW_OK, + GL_AUX_BUFFERS, GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE, GL_ADD: integer; + + TThreadId : function : integer; + + _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; + + clear_filelist_hook, add_file_hook, idb_loader_hook, mainloop_hook, drawworld_hook : procedure; + SDL_InitPatch : procedure; + + PHYSFS_init, PHYSFS_deinit, PHYSFS_mount, PHYSFS_readBytes : function : LongInt; + PHYSFSRWOPS_openRead, PHYSFSRWOPS_openWrite, PHYSFS_openRead : function : pointer; + PHYSFS_eof, PHYSFS_close, PHYSFS_exists : function : boolean; + + hedgewarsMountPackages, physfsReaderSetBuffer, hedgewarsMountPackage : procedure; + physfsReader : function : pointer;