pascal 0.1.4

A modern Pascal compiler with build/intepreter/package manager built with Rust
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127

unit System;

{$mode objfpc}{$H+}

interface

{ Basic types }
type
  PChar = ^Char;
  PInteger = ^Integer;
  PReal = ^Real;
  PBoolean = ^Boolean;
  
  { String types }
  ShortString = string[255];
  AnsiString = string;
  
  { Pointer types }
  Pointer = ^Byte;
  
  { Text file type }
  Text = file of Char;

{ I/O Procedures and Functions }
procedure Write(const s: string); external;
procedure WriteLn(const s: string); external;
procedure Read(var c: Char); external;
procedure ReadLn(var s: string); external;

{ String Functions }
function Length(const s: string): Integer; external;
function Copy(const s: string; index, count: Integer): string; external;
function Concat(const s1, s2: string): string; external;
function Pos(const substr, s: string): Integer; external;
function UpCase(c: Char): Char; external;
function LowerCase(const s: string): string; external;
function UpperCase(const s: string): string; external;

{ Type Conversion Functions }
function IntToStr(i: Integer): string; external;
function StrToInt(const s: string): Integer; external;
function FloatToStr(f: Real): string; external;
function StrToFloat(const s: string): Real; external;
function Chr(i: Integer): Char; external;
function Ord(c: Char): Integer; external;

{ Math Functions }
function Abs(x: Integer): Integer; overload; external;
function Abs(x: Real): Real; overload; external;
function Sqr(x: Integer): Integer; overload; external;
function Sqr(x: Real): Real; overload; external;
function Sqrt(x: Real): Real; external;
function Sin(x: Real): Real; external;
function Cos(x: Real): Real; external;
function Tan(x: Real): Real; external;
function ArcTan(x: Real): Real; external;
function Ln(x: Real): Real; external;
function Exp(x: Real): Real; external;
function Round(x: Real): Integer; external;
function Trunc(x: Real): Integer; external;
function Frac(x: Real): Real; external;
function Int(x: Real): Real; external;

{ Memory Management }
procedure New(var p: Pointer); external;
procedure Dispose(var p: Pointer); external;
procedure GetMem(var p: Pointer; size: Integer); external;
procedure FreeMem(var p: Pointer); external;
function SizeOf(x: any): Integer; external;

{ Program Control }
procedure Halt; overload; external;
procedure Halt(exitCode: Integer); overload; external;
procedure Exit; external;
function ParamCount: Integer; external;
function ParamStr(index: Integer): string; external;

{ File Operations }
procedure Assign(var f: Text; const name: string); external;
procedure Reset(var f: Text); external;
procedure Rewrite(var f: Text); external;
procedure Close(var f: Text); external;
function EOF(var f: Text): Boolean; external;
function EOLn(var f: Text): Boolean; external;

{ Date/Time Functions }
type
  TDateTime = Real;

function Now: TDateTime; external;
function Date: TDateTime; external;
function Time: TDateTime; external;
function DateToStr(d: TDateTime): string; external;
function TimeToStr(t: TDateTime): string; external;
function DateTimeToStr(dt: TDateTime): string; external;

{ Boolean Functions }
function Odd(x: Integer): Boolean; external;
function Succ(x: Integer): Integer; overload; external;
function Succ(c: Char): Char; overload; external;
function Pred(x: Integer): Integer; overload; external;
function Pred(c: Char): Char; overload; external;

{ Min/Max Functions }
function Min(a, b: Integer): Integer; overload; external;
function Min(a, b: Real): Real; overload; external;
function Max(a, b: Integer): Integer; overload; external;
function Max(a, b: Real): Real; overload; external;

{ Constants }
const
  MaxInt = 2147483647;
  MaxLongInt = 2147483647;
  Pi = 3.14159265358979323846;
  
implementation

function ParamCount: Integer;
external 'pas_paramcount';

function ParamStr(I: Integer): string;
external 'pas_paramstr';

procedure Halt;
external 'pas_halt';

end.