hedgewars/pas2cSystem.pas
author koda
Fri, 06 Jan 2012 01:51:04 +0100
changeset 6551 a2f39cb9af62
parent 6520 6fecdc5d182f
child 6552 91adc9ee7b8c
permissions -rw-r--r--
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more

system;

type 
    LongInt = integer;
    LongWord = integer;
    Cardinal = integer;
    PtrInt = integer;
    Word = integer;
    Integer = integer;
    Byte = integer;
    SmallInt = integer;
    ShortInt = integer;

    pointer = pointer;
    PChar = pointer;

    double = float;
    real = float;
    float = float;

    boolean = boolean;
    LongBool = boolean;

    string = string;
    shortstring = string;
    ansistring = string;

    char = char;
    
    PByte = ^Byte;
    PLongInt = ^LongInt;
    PLongWord = ^LongWord;
    PInteger = ^Integer;
var 
    false, true: boolean;
    write, writeLn, read, readLn, inc, dec: procedure;
    StrLen, ord, Succ, Pred : function : integer;
    Low, High : function : integer;
    Now : function : integer;
    SysUtils.StrPas, FormatDateTime : function : shortstring;
    exit : procedure;