hedgewars/pas2cSystem.pas
author koda
Thu, 09 Feb 2012 18:59:46 +0100
changeset 6658 2cccf6b2b89d
parent 6653 d45b6dbd2ad6
child 6663 2c4151afad0c
permissions -rw-r--r--
added MGSplitViewController, popular replacement for uisplitviewcontrollers: this brings rotation support to our settings pages! weapons and schemes are the only controllers displaying minor glitches

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;

    pointer = pointer;
    PChar = pointer;

    float = float;
    double = float;
    real = float;
    extended = float;
    GLFloat = 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;
    StrPas, FormatDateTime : function : shortstring;
    exit : procedure;