hedgewars/pas2cSystem.pas
author koda
Sun, 29 Jan 2012 02:45:12 +0100
changeset 6611 d9d00e537010
parent 6552 91adc9ee7b8c
child 6635 c2fa29fe2a58
permissions -rw-r--r--
rotation ftw!!! (engine part)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
6512
0df7f6697939 "System" unit to help converter
unc0rr
parents:
diff changeset
     1
system;
0df7f6697939 "System" unit to help converter
unc0rr
parents:
diff changeset
     2
0df7f6697939 "System" unit to help converter
unc0rr
parents:
diff changeset
     3
type 
0df7f6697939 "System" unit to help converter
unc0rr
parents:
diff changeset
     4
    LongInt = integer;
0df7f6697939 "System" unit to help converter
unc0rr
parents:
diff changeset
     5
    LongWord = integer;
6516
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
     6
    Cardinal = integer;
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
     7
    PtrInt = integer;
6520
6fecdc5d182f Some more work on scopes
unc0rr
parents: 6516
diff changeset
     8
    Word = integer;
6fecdc5d182f Some more work on scopes
unc0rr
parents: 6516
diff changeset
     9
    Integer = integer;
6fecdc5d182f Some more work on scopes
unc0rr
parents: 6516
diff changeset
    10
    Byte = integer;
6fecdc5d182f Some more work on scopes
unc0rr
parents: 6516
diff changeset
    11
    SmallInt = integer;
6fecdc5d182f Some more work on scopes
unc0rr
parents: 6516
diff changeset
    12
    ShortInt = integer;
6516
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
    13
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
    14
    pointer = pointer;
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
    15
    PChar = pointer;
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
    16
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
    17
    double = float;
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
    18
    real = float;
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
    19
    float = float;
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
    20
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
    21
    boolean = boolean;
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
    22
    LongBool = boolean;
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
    23
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
    24
    string = string;
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
    25
    shortstring = string;
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
    26
    ansistring = string;
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
    27
addaeb1b9539 Further progress on dealing with namespaces
unc0rr
parents: 6512
diff changeset
    28
    char = char;
6520
6fecdc5d182f Some more work on scopes
unc0rr
parents: 6516
diff changeset
    29
    
6fecdc5d182f Some more work on scopes
unc0rr
parents: 6516
diff changeset
    30
    PByte = ^Byte;
6fecdc5d182f Some more work on scopes
unc0rr
parents: 6516
diff changeset
    31
    PLongInt = ^LongInt;
6fecdc5d182f Some more work on scopes
unc0rr
parents: 6516
diff changeset
    32
    PLongWord = ^LongWord;
6fecdc5d182f Some more work on scopes
unc0rr
parents: 6516
diff changeset
    33
    PInteger = ^Integer;
6512
0df7f6697939 "System" unit to help converter
unc0rr
parents:
diff changeset
    34
var 
0df7f6697939 "System" unit to help converter
unc0rr
parents:
diff changeset
    35
    false, true: boolean;
6520
6fecdc5d182f Some more work on scopes
unc0rr
parents: 6516
diff changeset
    36
    write, writeLn, read, readLn, inc, dec: procedure;
6fecdc5d182f Some more work on scopes
unc0rr
parents: 6516
diff changeset
    37
    StrLen, ord, Succ, Pred : function : integer;
6fecdc5d182f Some more work on scopes
unc0rr
parents: 6516
diff changeset
    38
    Low, High : function : integer;
6fecdc5d182f Some more work on scopes
unc0rr
parents: 6516
diff changeset
    39
    Now : function : integer;
6552
91adc9ee7b8c Disallow dot as a part of identifier
unc0rr
parents: 6520
diff changeset
    40
    StrPas, FormatDateTime : function : shortstring;
6520
6fecdc5d182f Some more work on scopes
unc0rr
parents: 6516
diff changeset
    41
    exit : procedure;