mirror of https://github.com/Wilfred/difftastic/
Wilfred Hughes
parent
de601cbfc5
commit
97bab83730
@ -1 +0,0 @@
|
||||
../tree-sitter-pascal/queries/highlights.scm
|
||||
@ -0,0 +1,347 @@
|
||||
;; MIT license: https://github.com/Isopod/tree-sitter-pascal/blob/78426d96bde7114af979e314283e45d087603428/queries/highlights.scm
|
||||
|
||||
; -- Keywords
|
||||
[
|
||||
(kProgram)
|
||||
(kLibrary)
|
||||
(kUnit)
|
||||
(kUses)
|
||||
|
||||
(kBegin)
|
||||
(kEnd)
|
||||
(kAsm)
|
||||
|
||||
(kVar)
|
||||
(kThreadvar)
|
||||
(kConst)
|
||||
(kResourcestring)
|
||||
(kConstref)
|
||||
(kOut)
|
||||
(kType)
|
||||
(kLabel)
|
||||
(kExports)
|
||||
|
||||
(kAbsolute)
|
||||
|
||||
(kProperty)
|
||||
(kRead)
|
||||
(kWrite)
|
||||
(kImplements)
|
||||
(kDefault)
|
||||
(kNodefault)
|
||||
(kStored)
|
||||
(kIndex)
|
||||
(kDispId)
|
||||
|
||||
(kClass)
|
||||
(kInterface)
|
||||
(kDispInterface)
|
||||
(kObject)
|
||||
(kRecord)
|
||||
(kObjcclass)
|
||||
(kObjccategory)
|
||||
(kObjcprotocol)
|
||||
(kArray)
|
||||
(kFile)
|
||||
(kString)
|
||||
(kSet)
|
||||
(kOf)
|
||||
(kHelper)
|
||||
(kPacked)
|
||||
|
||||
(kGeneric)
|
||||
(kSpecialize)
|
||||
|
||||
(kFunction)
|
||||
(kProcedure)
|
||||
(kConstructor)
|
||||
(kDestructor)
|
||||
(kOperator)
|
||||
(kReference)
|
||||
|
||||
(kInterface)
|
||||
(kImplementation)
|
||||
(kInitialization)
|
||||
(kFinalization)
|
||||
|
||||
(kPublished)
|
||||
(kPublic)
|
||||
(kProtected)
|
||||
(kPrivate)
|
||||
(kStrict)
|
||||
(kRequired)
|
||||
(kOptional)
|
||||
|
||||
(kForward)
|
||||
|
||||
(kStatic)
|
||||
(kVirtual)
|
||||
(kAbstract)
|
||||
(kSealed)
|
||||
(kDynamic)
|
||||
(kOverride)
|
||||
(kOverload)
|
||||
(kReintroduce)
|
||||
(kInherited)
|
||||
(kInline)
|
||||
|
||||
(kStdcall)
|
||||
(kCdecl)
|
||||
(kCppdecl)
|
||||
(kPascal)
|
||||
(kRegister)
|
||||
(kMwpascal)
|
||||
(kExternal)
|
||||
(kName)
|
||||
(kMessage)
|
||||
(kDeprecated)
|
||||
(kExperimental)
|
||||
(kPlatform)
|
||||
(kUnimplemented)
|
||||
(kCvar)
|
||||
(kExport)
|
||||
(kFar)
|
||||
(kNear)
|
||||
(kSafecall)
|
||||
(kAssembler)
|
||||
(kNostackframe)
|
||||
(kInterrupt)
|
||||
(kNoreturn)
|
||||
(kIocheck)
|
||||
(kLocal)
|
||||
(kHardfloat)
|
||||
(kSoftfloat)
|
||||
(kMs_abi_default)
|
||||
(kMs_abi_cdecl)
|
||||
(kSaveregisters)
|
||||
(kSysv_abi_default)
|
||||
(kSysv_abi_cdecl)
|
||||
(kVectorcall)
|
||||
(kVarargs)
|
||||
(kWinapi)
|
||||
(kAlias)
|
||||
(kDelayed)
|
||||
|
||||
(kFor)
|
||||
(kTo)
|
||||
(kDownto)
|
||||
(kIf)
|
||||
(kThen)
|
||||
(kElse)
|
||||
(kDo)
|
||||
(kWhile)
|
||||
(kRepeat)
|
||||
(kUntil)
|
||||
(kTry)
|
||||
(kExcept)
|
||||
(kFinally)
|
||||
(kRaise)
|
||||
(kOn)
|
||||
(kCase)
|
||||
(kWith)
|
||||
(kGoto)
|
||||
] @keyword
|
||||
|
||||
; -- Punctuation & operators
|
||||
|
||||
[
|
||||
"("
|
||||
")"
|
||||
"["
|
||||
"]"
|
||||
] @punctuation.bracket
|
||||
|
||||
[
|
||||
";"
|
||||
","
|
||||
":"
|
||||
".."
|
||||
(kEndDot)
|
||||
] @punctuation.delimiter
|
||||
|
||||
[
|
||||
(kDot)
|
||||
(kAdd)
|
||||
(kSub)
|
||||
(kMul)
|
||||
(kFdiv)
|
||||
(kAssign)
|
||||
(kAssignAdd)
|
||||
(kAssignSub)
|
||||
(kAssignMul)
|
||||
(kAssignDiv)
|
||||
(kEq)
|
||||
(kLt)
|
||||
(kLte)
|
||||
(kGt)
|
||||
(kGte)
|
||||
(kNeq)
|
||||
(kAt)
|
||||
(kHat)
|
||||
] @operator
|
||||
|
||||
; technically operators, but better to render as reserved words
|
||||
[
|
||||
(kOr)
|
||||
(kXor)
|
||||
(kDiv)
|
||||
(kMod)
|
||||
(kAnd)
|
||||
(kShl)
|
||||
(kShr)
|
||||
(kNot)
|
||||
(kIs)
|
||||
(kAs)
|
||||
(kIn)
|
||||
] @keyword
|
||||
|
||||
; -- Builtin constants
|
||||
|
||||
[
|
||||
(kTrue)
|
||||
(kFalse)
|
||||
] @constant;
|
||||
|
||||
; arguably a constant, but we highlight it as a keyword
|
||||
[
|
||||
(kNil)
|
||||
] @keyword
|
||||
|
||||
; -- Literals
|
||||
|
||||
(literalNumber) @number
|
||||
(literalString) @string
|
||||
|
||||
; -- Comments
|
||||
(comment) @comment
|
||||
(pp) @keyword
|
||||
|
||||
; -- Type declaration
|
||||
|
||||
(declType name: (identifier) @type)
|
||||
(declType name: (genericTpl entity: (identifier) @type))
|
||||
|
||||
; -- Procedure & function declarations
|
||||
|
||||
; foobar
|
||||
(declProc name: (identifier) @function)
|
||||
; foobar<t>
|
||||
(declProc name: (genericTpl entity: (identifier) @function))
|
||||
; foo.bar
|
||||
(declProc name: (genericDot rhs: (identifier) @function))
|
||||
; foo.bar<t>
|
||||
(declProc name: (genericDot rhs: (genericTpl entity: (identifier) @function)))
|
||||
|
||||
; Treat property declarations like functions
|
||||
|
||||
(declProp name: (identifier) @function)
|
||||
|
||||
; -- Function parameters
|
||||
|
||||
(declArg name: (identifier) @variable.parameter)
|
||||
|
||||
; -- Template parameters
|
||||
|
||||
(genericArg name: (identifier) @type.parameter)
|
||||
(genericArg type: (typeref) @type)
|
||||
|
||||
(genericDot (identifier) @type)
|
||||
(genericDot (genericTpl entity: (identifier) @type))
|
||||
|
||||
; -- Exception parameters
|
||||
(exceptionHandler variable: (identifier) @variable.parameter)
|
||||
|
||||
; -- Type usage
|
||||
|
||||
(typeref) @type
|
||||
|
||||
; -- Constant usage
|
||||
|
||||
[
|
||||
(caseLabel)
|
||||
(label)
|
||||
] @constant;
|
||||
|
||||
|
||||
;;; ---------------------------------------------- ;;;
|
||||
;;; EVERYTHING BELOW THIS IS OF QUESTIONABLE VALUE ;;;
|
||||
;;; ---------------------------------------------- ;;;
|
||||
|
||||
; -- Break, Continue & Exit
|
||||
; (Not ideal: ideally, there would be a way to check if these special
|
||||
; identifiers are shadowed by a local variable)
|
||||
(statement ((identifier) @keyword
|
||||
(#match? @keyword "^[eE][xX][iI][tT]$")))
|
||||
(statement (exprCall entity: ((identifier) @keyword
|
||||
(#match? @keyword "^[eE][xX][iI][tT]$"))))
|
||||
(statement ((identifier) @keyword
|
||||
(#match? @keyword "^[bB][rR][eE][aA][kK]$")))
|
||||
(statement ((identifier) @keyword
|
||||
(#match? @keyword "^[cC][oO][nN][tT][iI][nN][uU][eE]$")))
|
||||
|
||||
; -- Procedure name in calls with parentheses
|
||||
; (Pascal doesn't require parentheses for procedure calls, so this will not
|
||||
; detect all calls)
|
||||
|
||||
; foobar
|
||||
(exprCall entity: (identifier) @function)
|
||||
; foobar<t>
|
||||
(exprCall entity: (exprTpl entity: (identifier) @function))
|
||||
; foo.bar
|
||||
(exprCall entity: (exprDot rhs: (identifier) @function))
|
||||
; foo.bar<t>
|
||||
(exprCall entity: (exprDot rhs: (exprTpl entity: (identifier) @function)))
|
||||
|
||||
; -- Heuristic for procedure/function calls without parentheses
|
||||
; (If a statement consists only of an identifier, assume it's a procedure)
|
||||
; (This will still not match all procedure calls, and also may produce false
|
||||
; positives in rare cases, but only for nonsensical code)
|
||||
|
||||
(statement (identifier) @function)
|
||||
(statement (exprDot rhs: (identifier) @function))
|
||||
(statement (exprTpl entity: (identifier) @function))
|
||||
(statement (exprDot rhs: (exprTpl entity: (identifier) @function)))
|
||||
|
||||
; -- Variable & constant declarations
|
||||
; (This is only questionable because we cannot detect types of identifiers
|
||||
; declared in other units, so the results will be inconsistent)
|
||||
|
||||
(declVar name: (identifier) @variable)
|
||||
(declField name: (identifier) @variable)
|
||||
(declConst name: (identifier) @constant)
|
||||
(declEnumValue name: (identifier) @constant)
|
||||
|
||||
; -- Identifier type inferrence
|
||||
|
||||
; vERY QUESTIONABLE: Highlighting of identifiers based on spelling
|
||||
(exprBinary ((identifier) @constant
|
||||
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2}[A-Z].+$")))
|
||||
(exprUnary ((identifier) @constant
|
||||
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2}[A-Z].+$")))
|
||||
(assignment rhs: ((identifier) @constant
|
||||
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2}[A-Z].+$")))
|
||||
(exprBrackets ((identifier) @constant
|
||||
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2}[A-Z].+$")))
|
||||
(exprParens ((identifier) @constant
|
||||
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2}[A-Z].+$")))
|
||||
;(exprDot rhs: ((identifier) @constant
|
||||
; (#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{1,2}[A-Z].+$")))
|
||||
(exprTpl args: ((identifier) @constant
|
||||
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2}[A-Z].+$")))
|
||||
(exprArgs ((identifier) @constant
|
||||
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2}[A-Z].+$")))
|
||||
;(declEnumValue ((identifier) @constant
|
||||
; (#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{1,2}[A-Z].+$")))
|
||||
;(defaultValue ((identifier) @constant
|
||||
; (#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{1,2}[A-Z].+$")))
|
||||
|
||||
; -- Use scoping information for additional highlighting. THIS NEED TO BE LAST.
|
||||
; FIXME: Right now this is buggy, because in case of something like this:
|
||||
; procedure (x: integer);
|
||||
; begin
|
||||
; a.x;
|
||||
; end;
|
||||
; The x in a.x would be highlighted as a parameter. Not what we want! We have to
|
||||
; come up with a more specific rule. Only the left-most identifier should be
|
||||
; matched.
|
||||
(identifier) @identifier
|
||||
@ -1 +0,0 @@
|
||||
tree-sitter-pascal/src
|
||||
Binary file not shown.
|
Before Width: | Height: | Size: 350 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 345 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 225 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 171 KiB |
@ -1,26 +0,0 @@
|
||||
[package]
|
||||
name = "tree-sitter-quick-check"
|
||||
description = "quick-check grammar for the tree-sitter parsing library"
|
||||
version = "0.0.1"
|
||||
keywords = ["incremental", "parsing", "quick-check"]
|
||||
categories = ["parsing", "text-editors"]
|
||||
repository = "https://github.com/tree-sitter/tree-sitter-quick-check"
|
||||
edition = "2018"
|
||||
license = "MIT"
|
||||
|
||||
build = "bindings/rust/build.rs"
|
||||
include = [
|
||||
"bindings/rust/*",
|
||||
"grammar.js",
|
||||
"queries/*",
|
||||
"src/*",
|
||||
]
|
||||
|
||||
[lib]
|
||||
path = "bindings/rust/lib.rs"
|
||||
|
||||
[dependencies]
|
||||
tree-sitter = "~0.20.0"
|
||||
|
||||
[build-dependencies]
|
||||
cc = "1.0"
|
||||
@ -1,21 +0,0 @@
|
||||
MIT License
|
||||
|
||||
Copyright (c) 2018 Benjamin Gray
|
||||
|
||||
Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||
of this software and associated documentation files (the "Software"), to deal
|
||||
in the Software without restriction, including without limitation the rights
|
||||
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||
copies of the Software, and to permit persons to whom the Software is
|
||||
furnished to do so, subject to the following conditions:
|
||||
|
||||
The above copyright notice and this permission notice shall be included in all
|
||||
copies or substantial portions of the Software.
|
||||
|
||||
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||
SOFTWARE.
|
||||
@ -1,26 +0,0 @@
|
||||
# tree-sitter-pascal
|
||||
|
||||
Grammar for Pascal and its dialects Delphi and Freepascal.
|
||||
|
||||
## Supported language features
|
||||
- Classes, records, interfaces, class helpers
|
||||
- Nested declarations
|
||||
- Variant records
|
||||
- Generics (Delphi- & FPC flavored)
|
||||
- Anonymous procedures & functions
|
||||
- Inline assember (but no highlighting)
|
||||
- Extended RTTI attributes
|
||||
- FPC PasCocoa extensions
|
||||
|
||||
## Tree-sitter features:
|
||||
- Syntax highlighting
|
||||
- Scopes
|
||||
|
||||
## Screenshots
|
||||
|
||||
(using nvim-treesitter)
|
||||
|
||||
<a href=".doc/scr1.png"><img src=".doc/scr1.png" style="width: 22%; height: 22%"></a>
|
||||
<a href=".doc/scr2.png"><img src=".doc/scr2.png" style="width: 22%; height: 22%"></a>
|
||||
<a href=".doc/scr3.png"><img src=".doc/scr3.png" style="width: 22%; height: 22%"></a>
|
||||
<a href=".doc/scr4.png"><img src=".doc/scr4.png" style="width: 22%; height: 22%"></a>
|
||||
@ -1,19 +0,0 @@
|
||||
{
|
||||
"targets": [
|
||||
{
|
||||
"target_name": "tree_sitter_quick_check_binding",
|
||||
"include_dirs": [
|
||||
"<!(node -e \"require('nan')\")",
|
||||
"src"
|
||||
],
|
||||
"sources": [
|
||||
"bindings/node/binding.cc",
|
||||
"src/parser.c",
|
||||
# If your language uses an external scanner, add it here.
|
||||
],
|
||||
"cflags_c": [
|
||||
"-std=c99",
|
||||
]
|
||||
}
|
||||
]
|
||||
}
|
||||
@ -1,38 +0,0 @@
|
||||
unit anon;
|
||||
|
||||
interface
|
||||
|
||||
implementation
|
||||
|
||||
function MakeAdder(y: Integer): TFuncOfInt;
|
||||
begin
|
||||
Result :=
|
||||
function(x: Integer) : Integer
|
||||
begin
|
||||
Result := x + y;
|
||||
end;
|
||||
z := x + y;
|
||||
end;
|
||||
|
||||
procedure Test;
|
||||
begin
|
||||
x := procedure begin end;
|
||||
end;
|
||||
|
||||
procedure Foo;
|
||||
begin
|
||||
Call(
|
||||
procedure
|
||||
var
|
||||
x: integer;
|
||||
begin
|
||||
Inc(x);
|
||||
end
|
||||
);
|
||||
end;
|
||||
|
||||
const
|
||||
Bla = procedure begin WriteLn('Hello'); end;
|
||||
|
||||
|
||||
end.
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,107 +0,0 @@
|
||||
unit unit1;
|
||||
|
||||
interface
|
||||
|
||||
type
|
||||
TForm1 = class(TForm)
|
||||
function Add(a,b: integer): integer;
|
||||
function Baz(out Buf; Flag: string = '123'): integer;
|
||||
public
|
||||
constructor Create;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
TMyRec = record
|
||||
end;
|
||||
|
||||
var
|
||||
a,b,c: float;
|
||||
|
||||
const
|
||||
hello = 'world';
|
||||
world: string = 'hello';
|
||||
|
||||
complex = not (42 + 3)*123 and $FF + integer(@world);
|
||||
|
||||
procedure Write(x: integer = 42);
|
||||
|
||||
type
|
||||
|
||||
TFoo1<A> = X;
|
||||
TBar2<B,C> = X;
|
||||
TBaz3<A: IContract> = X;
|
||||
TBaz4<A,B: IContract> = TBar<X,Y>;
|
||||
TBaz5<A;B: IContract> = X;
|
||||
TFoo6<T> = class end;
|
||||
TFoo7 = class(TCustomFoo<T>) end;
|
||||
TFoo8<T> = class(TCustomFoo<T<U>>) end;
|
||||
TFoo9<A, B; C, D: IContract> = class(TCustomFoo< T, U<W> >) end;
|
||||
TFoo10<A, B; C, D: IContract> = TCustomFoo< T, U<W> >;
|
||||
|
||||
TMySet11 = set of Byte;
|
||||
TMySet12 = set of (Watermelon, Cucumber);
|
||||
|
||||
TMeta13 = class of TFoo;
|
||||
|
||||
|
||||
TMyCallback14 = procedure (Sender: TObject<T>); stdcall;
|
||||
TMyCallback15 = procedure (Sender: TObject);
|
||||
TMyCallback16 = function (Sender: TObject): integer;
|
||||
TMyFunc17<T> = function (x,y: T; z: integer): TSomething<T>;
|
||||
|
||||
class procedure Foo<T = TObject>(X: T); static;
|
||||
|
||||
implementation
|
||||
|
||||
function Add(a, b: integer): integer;
|
||||
var
|
||||
c: integer;
|
||||
begin
|
||||
c := a + b;
|
||||
Result := c;
|
||||
|
||||
TFoo1.Bar;
|
||||
end;
|
||||
|
||||
class procedure Foo<T = TObject>(X: T); forward;
|
||||
procedure Foo; forward;
|
||||
|
||||
function TFoo<T>.Impl.Add<T>(a, b: T; c: integer): T;
|
||||
var
|
||||
tmp: T;
|
||||
|
||||
procedure nested();
|
||||
begin
|
||||
tmp := a;
|
||||
end;
|
||||
begin
|
||||
tmp := b;
|
||||
end;
|
||||
|
||||
function Add<T>(a, b: T): T;
|
||||
var
|
||||
c: T;
|
||||
begin
|
||||
c.x.y.z := a + b;
|
||||
Result := c;
|
||||
end;
|
||||
|
||||
procedure Foo(x: TType);
|
||||
begin
|
||||
a + b + c;
|
||||
x.y.z(a,b).w + v and v;
|
||||
x.y.z;
|
||||
x;
|
||||
x + y;
|
||||
2.5 + 3.14*4;
|
||||
Result := 2.4 + 3.14*4;
|
||||
(a+b)*(c+d) and b >= c;
|
||||
if a then b;
|
||||
if a then b else c;
|
||||
end;
|
||||
|
||||
procedure Foobar(arr: array of integer);
|
||||
begin
|
||||
end;
|
||||
|
||||
end.
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,23 +0,0 @@
|
||||
{
|
||||
"name": "tree-sitter-pascal",
|
||||
"version": "0.9.1",
|
||||
"description": "Tree sitter grammar for Pascal (Delphi, Freepascal)",
|
||||
"main": "bindings/node",
|
||||
"repository": null,
|
||||
"author": "Benjamin Gray",
|
||||
"license": "MIT",
|
||||
"devDependencies": {
|
||||
"tree-sitter-cli": "^0.19.0"
|
||||
},
|
||||
"scripts": {
|
||||
"build": "tree-sitter generate && node-gyp build",
|
||||
"test": "tree-sitter test && tree-sitter parse examples/* --quiet --time"
|
||||
},
|
||||
"tree-sitter": [
|
||||
{
|
||||
"scope": "source.pas",
|
||||
"file-types": ["pas", "pp", "lpr"],
|
||||
"highlights": ["queries/highlights.scm"]
|
||||
}
|
||||
]
|
||||
}
|
||||
@ -1,343 +0,0 @@
|
||||
; -- Keywords
|
||||
[
|
||||
(kProgram)
|
||||
(kLibrary)
|
||||
(kUnit)
|
||||
(kUses)
|
||||
|
||||
(kBegin)
|
||||
(kEnd)
|
||||
(kAsm)
|
||||
|
||||
(kVar)
|
||||
(kThreadvar)
|
||||
(kConst)
|
||||
(kResourcestring)
|
||||
(kConstref)
|
||||
(kOut)
|
||||
(kType)
|
||||
(kLabel)
|
||||
(kExports)
|
||||
|
||||
(kAbsolute)
|
||||
|
||||
(kProperty)
|
||||
(kRead)
|
||||
(kWrite)
|
||||
(kImplements)
|
||||
(kDefault)
|
||||
(kNodefault)
|
||||
(kStored)
|
||||
(kIndex)
|
||||
|
||||
(kClass)
|
||||
(kInterface)
|
||||
(kObject)
|
||||
(kRecord)
|
||||
(kObjcclass)
|
||||
(kObjccategory)
|
||||
(kObjcprotocol)
|
||||
(kArray)
|
||||
(kFile)
|
||||
(kString)
|
||||
(kSet)
|
||||
(kOf)
|
||||
(kHelper)
|
||||
(kPacked)
|
||||
|
||||
(kGeneric)
|
||||
(kSpecialize)
|
||||
|
||||
(kFunction)
|
||||
(kProcedure)
|
||||
(kConstructor)
|
||||
(kDestructor)
|
||||
(kOperator)
|
||||
(kReference)
|
||||
|
||||
(kInterface)
|
||||
(kImplementation)
|
||||
(kInitialization)
|
||||
(kFinalization)
|
||||
|
||||
(kPublished)
|
||||
(kPublic)
|
||||
(kProtected)
|
||||
(kPrivate)
|
||||
(kStrict)
|
||||
(kRequired)
|
||||
(kOptional)
|
||||
|
||||
(kForward)
|
||||
|
||||
(kStatic)
|
||||
(kVirtual)
|
||||
(kAbstract)
|
||||
(kSealed)
|
||||
(kDynamic)
|
||||
(kOverride)
|
||||
(kOverload)
|
||||
(kReintroduce)
|
||||
(kInherited)
|
||||
(kInline)
|
||||
|
||||
(kStdcall)
|
||||
(kCdecl)
|
||||
(kCppdecl)
|
||||
(kPascal)
|
||||
(kRegister)
|
||||
(kMwpascal)
|
||||
(kExternal)
|
||||
(kName)
|
||||
(kMessage)
|
||||
(kDeprecated)
|
||||
(kExperimental)
|
||||
(kPlatform)
|
||||
(kUnimplemented)
|
||||
(kCvar)
|
||||
(kExport)
|
||||
(kFar)
|
||||
(kNear)
|
||||
(kSafecall)
|
||||
(kAssembler)
|
||||
(kNostackframe)
|
||||
(kInterrupt)
|
||||
(kNoreturn)
|
||||
(kIocheck)
|
||||
(kLocal)
|
||||
(kHardfloat)
|
||||
(kSoftfloat)
|
||||
(kMs_abi_default)
|
||||
(kMs_abi_cdecl)
|
||||
(kSaveregisters)
|
||||
(kSysv_abi_default)
|
||||
(kSysv_abi_cdecl)
|
||||
(kVectorcall)
|
||||
(kVarargs)
|
||||
(kWinapi)
|
||||
(kAlias)
|
||||
(kDelayed)
|
||||
|
||||
(kFor)
|
||||
(kTo)
|
||||
(kDownto)
|
||||
(kIf)
|
||||
(kThen)
|
||||
(kElse)
|
||||
(kDo)
|
||||
(kWhile)
|
||||
(kRepeat)
|
||||
(kUntil)
|
||||
(kTry)
|
||||
(kExcept)
|
||||
(kFinally)
|
||||
(kRaise)
|
||||
(kOn)
|
||||
(kCase)
|
||||
(kWith)
|
||||
(kGoto)
|
||||
] @keyword
|
||||
|
||||
; -- Punctuation & operators
|
||||
|
||||
[
|
||||
"("
|
||||
")"
|
||||
"["
|
||||
"]"
|
||||
] @punctuation.bracket
|
||||
|
||||
[
|
||||
";"
|
||||
","
|
||||
":"
|
||||
".."
|
||||
(kEndDot)
|
||||
] @punctuation.delimiter
|
||||
|
||||
[
|
||||
(kDot)
|
||||
(kAdd)
|
||||
(kSub)
|
||||
(kMul)
|
||||
(kFdiv)
|
||||
(kAssign)
|
||||
(kAssignAdd)
|
||||
(kAssignSub)
|
||||
(kAssignMul)
|
||||
(kAssignDiv)
|
||||
(kEq)
|
||||
(kLt)
|
||||
(kLte)
|
||||
(kGt)
|
||||
(kGte)
|
||||
(kNeq)
|
||||
(kAt)
|
||||
(kHat)
|
||||
] @operator
|
||||
|
||||
; technically operators, but better to render as reserved words
|
||||
[
|
||||
(kOr)
|
||||
(kXor)
|
||||
(kDiv)
|
||||
(kMod)
|
||||
(kAnd)
|
||||
(kShl)
|
||||
(kShr)
|
||||
(kNot)
|
||||
(kIs)
|
||||
(kAs)
|
||||
(kIn)
|
||||
] @keyword
|
||||
|
||||
; -- Builtin constants
|
||||
|
||||
[
|
||||
(kTrue)
|
||||
(kFalse)
|
||||
] @constant;
|
||||
|
||||
; arguably a constant, but we highlight it as a keyword
|
||||
[
|
||||
(kNil)
|
||||
] @keyword
|
||||
|
||||
; -- Literals
|
||||
|
||||
(literalNumber) @number
|
||||
(literalString) @string
|
||||
|
||||
; -- Comments
|
||||
(comment) @comment
|
||||
(pp) @keyword
|
||||
|
||||
; -- Type declaration
|
||||
|
||||
(declType name: (identifier) @type)
|
||||
(declType name: (genericTpl entity: (identifier) @type))
|
||||
|
||||
; -- Procedure & function declarations
|
||||
|
||||
; foobar
|
||||
(declProc name: (identifier) @function)
|
||||
; foobar<t>
|
||||
(declProc name: (genericTpl entity: (identifier) @function))
|
||||
; foo.bar
|
||||
(declProc name: (genericDot rhs: (identifier) @function))
|
||||
; foo.bar<t>
|
||||
(declProc name: (genericDot rhs: (genericTpl entity: (identifier) @function)))
|
||||
|
||||
; Treat property declarations like functions
|
||||
|
||||
(declProp name: (identifier) @function)
|
||||
|
||||
; -- Function parameters
|
||||
|
||||
(declArg name: (identifier) @variable.parameter)
|
||||
|
||||
; -- Template parameters
|
||||
|
||||
(genericArg name: (identifier) @type.parameter)
|
||||
(genericArg type: (typeref) @type)
|
||||
|
||||
(genericDot (identifier) @type)
|
||||
(genericDot (genericTpl entity: (identifier) @type))
|
||||
|
||||
; -- Exception parameters
|
||||
(exceptionHandler variable: (identifier) @variable.parameter)
|
||||
|
||||
; -- Type usage
|
||||
|
||||
(typeref) @type
|
||||
|
||||
; -- Constant usage
|
||||
|
||||
[
|
||||
(caseLabel)
|
||||
(label)
|
||||
] @constant;
|
||||
|
||||
|
||||
;;; ---------------------------------------------- ;;;
|
||||
;;; EVERYTHING BELOW THIS IS OF QUESTIONABLE VALUE ;;;
|
||||
;;; ---------------------------------------------- ;;;
|
||||
|
||||
; -- Break, Continue & Exit
|
||||
; (Not ideal: ideally, there would be a way to check if these special
|
||||
; identifiers are shadowed by a local variable)
|
||||
(statement ((identifier) @keyword
|
||||
(#match? @keyword "^[eE][xX][iI][tT]$")))
|
||||
(statement (exprCall entity: ((identifier) @keyword
|
||||
(#match? @keyword "^[eE][xX][iI][tT]$"))))
|
||||
(statement ((identifier) @keyword
|
||||
(#match? @keyword "^[bB][rR][eE][aA][kK]$")))
|
||||
(statement ((identifier) @keyword
|
||||
(#match? @keyword "^[cC][oO][nN][tT][iI][nN][uU][eE]$")))
|
||||
|
||||
; -- Procedure name in calls with parentheses
|
||||
; (Pascal doesn't require parentheses for procedure calls, so this will not
|
||||
; detect all calls)
|
||||
|
||||
; foobar
|
||||
(exprCall entity: (identifier) @function)
|
||||
; foobar<t>
|
||||
(exprCall entity: (exprTpl entity: (identifier) @function))
|
||||
; foo.bar
|
||||
(exprCall entity: (exprDot rhs: (identifier) @function))
|
||||
; foo.bar<t>
|
||||
(exprCall entity: (exprDot rhs: (exprTpl entity: (identifier) @function)))
|
||||
|
||||
; -- Heuristic for procedure/function calls without parentheses
|
||||
; (If a statement consists only of an identifier, assume it's a procedure)
|
||||
; (This will still not match all procedure calls, and also may produce false
|
||||
; positives in rare cases, but only for nonsensical code)
|
||||
|
||||
(statement (identifier) @function)
|
||||
(statement (exprDot rhs: (identifier) @function))
|
||||
(statement (exprTpl entity: (identifier) @function))
|
||||
(statement (exprDot rhs: (exprTpl entity: (identifier) @function)))
|
||||
|
||||
; -- Variable & constant declarations
|
||||
; (This is only questionable because we cannot detect types of identifiers
|
||||
; declared in other units, so the results will be inconsistent)
|
||||
|
||||
(declVar name: (identifier) @variable)
|
||||
(declField name: (identifier) @variable)
|
||||
(declConst name: (identifier) @constant)
|
||||
(declEnumValue name: (identifier) @constant)
|
||||
|
||||
; -- Identifier type inferrence
|
||||
|
||||
; vERY QUESTIONABLE: Highlighting of identifiers based on spelling
|
||||
(exprBinary ((identifier) @constant
|
||||
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2}[A-Z].+$")))
|
||||
(exprUnary ((identifier) @constant
|
||||
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2}[A-Z].+$")))
|
||||
(assignment rhs: ((identifier) @constant
|
||||
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2}[A-Z].+$")))
|
||||
(exprBrackets ((identifier) @constant
|
||||
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2}[A-Z].+$")))
|
||||
(exprParens ((identifier) @constant
|
||||
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2}[A-Z].+$")))
|
||||
;(exprDot rhs: ((identifier) @constant
|
||||
; (#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{1,2}[A-Z].+$")))
|
||||
(exprTpl args: ((identifier) @constant
|
||||
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2}[A-Z].+$")))
|
||||
(exprArgs ((identifier) @constant
|
||||
(#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{2}[A-Z].+$")))
|
||||
;(declEnumValue ((identifier) @constant
|
||||
; (#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{1,2}[A-Z].+$")))
|
||||
;(defaultValue ((identifier) @constant
|
||||
; (#match? @constant "^[A-Z][A-Z0-9_]+$|^[a-z]{1,2}[A-Z].+$")))
|
||||
|
||||
; -- Use scoping information for additional highlighting. THIS NEED TO BE LAST.
|
||||
; FIXME: Right now this is buggy, because in case of something like this:
|
||||
; procedure (x: integer);
|
||||
; begin
|
||||
; a.x;
|
||||
; end;
|
||||
; The x in a.x would be highlighted as a parameter. Not what we want! We have to
|
||||
; come up with a more specific rule. Only the left-most identifier should be
|
||||
; matched.
|
||||
(identifier) @identifier
|
||||
@ -1,26 +0,0 @@
|
||||
|
||||
(root) @local.scope
|
||||
|
||||
(defProc) @local.scope
|
||||
(lambda) @local.scope
|
||||
(interface (declProc) @local.scope)
|
||||
(declSection (declProc) @local.scope)
|
||||
(declClass (declProc) @local.scope)
|
||||
(declHelper (declProc) @local.scope)
|
||||
(declProcRef) @local.scope
|
||||
|
||||
(exceptionHandler) @local.scope
|
||||
(exceptionHandler variable: (identifier) @local.definition)
|
||||
|
||||
(declArg name: (identifier) @local.definition)
|
||||
(declVar name: (identifier) @local.definition)
|
||||
(declConst name: (identifier) @local.definition)
|
||||
(declLabel name: (identifier) @local.definition)
|
||||
(genericArg name: (identifier) @local.definition)
|
||||
(declEnumValue name: (identifier) @local.definition)
|
||||
(declType name: (identifier) @local.definition)
|
||||
(declType name: (genericTpl entity: (identifier) @local.definition))
|
||||
|
||||
(declProc name: (identifier) @local.definition)
|
||||
|
||||
(identifier) @local.reference
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -1,223 +0,0 @@
|
||||
#ifndef TREE_SITTER_PARSER_H_
|
||||
#define TREE_SITTER_PARSER_H_
|
||||
|
||||
#ifdef __cplusplus
|
||||
extern "C" {
|
||||
#endif
|
||||
|
||||
#include <stdbool.h>
|
||||
#include <stdint.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
#define ts_builtin_sym_error ((TSSymbol)-1)
|
||||
#define ts_builtin_sym_end 0
|
||||
#define TREE_SITTER_SERIALIZATION_BUFFER_SIZE 1024
|
||||
|
||||
typedef uint16_t TSStateId;
|
||||
|
||||
#ifndef TREE_SITTER_API_H_
|
||||
typedef uint16_t TSSymbol;
|
||||
typedef uint16_t TSFieldId;
|
||||
typedef struct TSLanguage TSLanguage;
|
||||
#endif
|
||||
|
||||
typedef struct {
|
||||
TSFieldId field_id;
|
||||
uint8_t child_index;
|
||||
bool inherited;
|
||||
} TSFieldMapEntry;
|
||||
|
||||
typedef struct {
|
||||
uint16_t index;
|
||||
uint16_t length;
|
||||
} TSFieldMapSlice;
|
||||
|
||||
typedef struct {
|
||||
bool visible;
|
||||
bool named;
|
||||
bool supertype;
|
||||
} TSSymbolMetadata;
|
||||
|
||||
typedef struct TSLexer TSLexer;
|
||||
|
||||
struct TSLexer {
|
||||
int32_t lookahead;
|
||||
TSSymbol result_symbol;
|
||||
void (*advance)(TSLexer *, bool);
|
||||
void (*mark_end)(TSLexer *);
|
||||
uint32_t (*get_column)(TSLexer *);
|
||||
bool (*is_at_included_range_start)(const TSLexer *);
|
||||
bool (*eof)(const TSLexer *);
|
||||
};
|
||||
|
||||
typedef enum {
|
||||
TSParseActionTypeShift,
|
||||
TSParseActionTypeReduce,
|
||||
TSParseActionTypeAccept,
|
||||
TSParseActionTypeRecover,
|
||||
} TSParseActionType;
|
||||
|
||||
typedef union {
|
||||
struct {
|
||||
uint8_t type;
|
||||
TSStateId state;
|
||||
bool extra;
|
||||
bool repetition;
|
||||
} shift;
|
||||
struct {
|
||||
uint8_t type;
|
||||
uint8_t child_count;
|
||||
TSSymbol symbol;
|
||||
int16_t dynamic_precedence;
|
||||
uint16_t production_id;
|
||||
} reduce;
|
||||
uint8_t type;
|
||||
} TSParseAction;
|
||||
|
||||
typedef struct {
|
||||
uint16_t lex_state;
|
||||
uint16_t external_lex_state;
|
||||
} TSLexMode;
|
||||
|
||||
typedef union {
|
||||
TSParseAction action;
|
||||
struct {
|
||||
uint8_t count;
|
||||
bool reusable;
|
||||
} entry;
|
||||
} TSParseActionEntry;
|
||||
|
||||
struct TSLanguage {
|
||||
uint32_t version;
|
||||
uint32_t symbol_count;
|
||||
uint32_t alias_count;
|
||||
uint32_t token_count;
|
||||
uint32_t external_token_count;
|
||||
uint32_t state_count;
|
||||
uint32_t large_state_count;
|
||||
uint32_t production_id_count;
|
||||
uint32_t field_count;
|
||||
uint16_t max_alias_sequence_length;
|
||||
const uint16_t *parse_table;
|
||||
const uint16_t *small_parse_table;
|
||||
const uint32_t *small_parse_table_map;
|
||||
const TSParseActionEntry *parse_actions;
|
||||
const char * const *symbol_names;
|
||||
const char * const *field_names;
|
||||
const TSFieldMapSlice *field_map_slices;
|
||||
const TSFieldMapEntry *field_map_entries;
|
||||
const TSSymbolMetadata *symbol_metadata;
|
||||
const TSSymbol *public_symbol_map;
|
||||
const uint16_t *alias_map;
|
||||
const TSSymbol *alias_sequences;
|
||||
const TSLexMode *lex_modes;
|
||||
bool (*lex_fn)(TSLexer *, TSStateId);
|
||||
bool (*keyword_lex_fn)(TSLexer *, TSStateId);
|
||||
TSSymbol keyword_capture_token;
|
||||
struct {
|
||||
const bool *states;
|
||||
const TSSymbol *symbol_map;
|
||||
void *(*create)(void);
|
||||
void (*destroy)(void *);
|
||||
bool (*scan)(void *, TSLexer *, const bool *symbol_whitelist);
|
||||
unsigned (*serialize)(void *, char *);
|
||||
void (*deserialize)(void *, const char *, unsigned);
|
||||
} external_scanner;
|
||||
};
|
||||
|
||||
/*
|
||||
* Lexer Macros
|
||||
*/
|
||||
|
||||
#define START_LEXER() \
|
||||
bool result = false; \
|
||||
bool skip = false; \
|
||||
bool eof = false; \
|
||||
int32_t lookahead; \
|
||||
goto start; \
|
||||
next_state: \
|
||||
lexer->advance(lexer, skip); \
|
||||
start: \
|
||||
skip = false; \
|
||||
lookahead = lexer->lookahead;
|
||||
|
||||
#define ADVANCE(state_value) \
|
||||
{ \
|
||||
state = state_value; \
|
||||
goto next_state; \
|
||||
}
|
||||
|
||||
#define SKIP(state_value) \
|
||||
{ \
|
||||
skip = true; \
|
||||
state = state_value; \
|
||||
goto next_state; \
|
||||
}
|
||||
|
||||
#define ACCEPT_TOKEN(symbol_value) \
|
||||
result = true; \
|
||||
lexer->result_symbol = symbol_value; \
|
||||
lexer->mark_end(lexer);
|
||||
|
||||
#define END_STATE() return result;
|
||||
|
||||
/*
|
||||
* Parse Table Macros
|
||||
*/
|
||||
|
||||
#define SMALL_STATE(id) id - LARGE_STATE_COUNT
|
||||
|
||||
#define STATE(id) id
|
||||
|
||||
#define ACTIONS(id) id
|
||||
|
||||
#define SHIFT(state_value) \
|
||||
{{ \
|
||||
.shift = { \
|
||||
.type = TSParseActionTypeShift, \
|
||||
.state = state_value \
|
||||
} \
|
||||
}}
|
||||
|
||||
#define SHIFT_REPEAT(state_value) \
|
||||
{{ \
|
||||
.shift = { \
|
||||
.type = TSParseActionTypeShift, \
|
||||
.state = state_value, \
|
||||
.repetition = true \
|
||||
} \
|
||||
}}
|
||||
|
||||
#define SHIFT_EXTRA() \
|
||||
{{ \
|
||||
.shift = { \
|
||||
.type = TSParseActionTypeShift, \
|
||||
.extra = true \
|
||||
} \
|
||||
}}
|
||||
|
||||
#define REDUCE(symbol_val, child_count_val, ...) \
|
||||
{{ \
|
||||
.reduce = { \
|
||||
.type = TSParseActionTypeReduce, \
|
||||
.symbol = symbol_val, \
|
||||
.child_count = child_count_val, \
|
||||
__VA_ARGS__ \
|
||||
}, \
|
||||
}}
|
||||
|
||||
#define RECOVER() \
|
||||
{{ \
|
||||
.type = TSParseActionTypeRecover \
|
||||
}}
|
||||
|
||||
#define ACCEPT_INPUT() \
|
||||
{{ \
|
||||
.type = TSParseActionTypeAccept \
|
||||
}}
|
||||
|
||||
#ifdef __cplusplus
|
||||
}
|
||||
#endif
|
||||
|
||||
#endif // TREE_SITTER_PARSER_H_
|
||||
@ -1,185 +0,0 @@
|
||||
===
|
||||
Declaration hints
|
||||
===
|
||||
|
||||
procedure a; cdecl; forward;
|
||||
procedure a; pascal; forward;
|
||||
procedure a; stdcall; forward;
|
||||
procedure a; register; forward;
|
||||
procedure a; external b;
|
||||
procedure a; cdecl; external b;
|
||||
procedure a; external name b;
|
||||
procedure a; external index b;
|
||||
procedure a; external b name c;
|
||||
procedure a; public name b; forward;
|
||||
procedure a; inline; forward;
|
||||
|
||||
var
|
||||
a: b; cvar; external c;
|
||||
|
||||
type
|
||||
a = class
|
||||
procedure b; message c;
|
||||
procedure b; virtual; abstract;
|
||||
procedure b; override;
|
||||
procedure b; stdcall;
|
||||
property b[i: integer]: c read getb; default;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declProc (kProcedure) (identifier) (procAttribute (kCdecl)) (kForward))
|
||||
(declProc (kProcedure) (identifier) (procAttribute (kPascal)) (kForward))
|
||||
(declProc (kProcedure) (identifier) (procAttribute (kStdcall)) (kForward))
|
||||
(declProc (kProcedure) (identifier) (procAttribute (kRegister)) (kForward))
|
||||
(declProc (kProcedure) (identifier) (procExternal (kExternal) (identifier)))
|
||||
(declProc (kProcedure) (identifier) (procAttribute (kCdecl)) (procExternal (kExternal) (identifier)))
|
||||
(declProc (kProcedure) (identifier) (procExternal (kExternal) (kName) (identifier)))
|
||||
(declProc (kProcedure) (identifier) (procExternal (kExternal) (kIndex) (identifier)))
|
||||
(declProc (kProcedure) (identifier) (procExternal (kExternal) (identifier) (kName) (identifier)))
|
||||
(declProc (kProcedure) (identifier) (procAttribute (kPublic) (kName) (identifier)) (kForward))
|
||||
(declProc (kProcedure) (identifier) (procAttribute (kInline)) (kForward))
|
||||
(declVars (kVar)
|
||||
(declVar
|
||||
(identifier)
|
||||
(type (typeref (identifier)))
|
||||
(procAttribute (kCvar))
|
||||
(procExternal (kExternal) (identifier))))
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kClass)
|
||||
(declProc (kProcedure) (identifier) (procAttribute (kMessage) (identifier)))
|
||||
(declProc (kProcedure) (identifier) (procAttribute (kVirtual)) (procAttribute (kAbstract)))
|
||||
(declProc (kProcedure) (identifier) (procAttribute (kOverride)))
|
||||
(declProc (kProcedure) (identifier) (procAttribute (kStdcall)))
|
||||
(declProp (kProperty)
|
||||
(identifier)
|
||||
(declPropArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(type (typeref (identifier)))
|
||||
(kRead) (identifier)
|
||||
(procAttribute (kDefault)))
|
||||
(kEnd)))))
|
||||
|
||||
|
||||
===
|
||||
FPC-style declaration hints
|
||||
===
|
||||
|
||||
procedure a; [public; alias: b; cdecl]; forward;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declProc (kProcedure) (identifier)
|
||||
(procAttribute (kPublic))
|
||||
(procAttribute (kAlias) (identifier))
|
||||
(procAttribute (kCdecl))
|
||||
(kForward)))
|
||||
|
||||
|
||||
===
|
||||
Extended RTTI
|
||||
===
|
||||
|
||||
type
|
||||
[TMyAttribute]
|
||||
TTestClass = class
|
||||
[TMyAttribute('Test')]
|
||||
property Test: LongInt read fTest;
|
||||
[TMyAttribute()]
|
||||
[TMyAttribute(1), TMyAttribute(2)]
|
||||
procedure a;
|
||||
end;
|
||||
|
||||
[TMyAttribute(1234)]
|
||||
[TMy('Hello World')]
|
||||
TTestEnum = (teOne, teTwo);
|
||||
|
||||
[TMyAttribute(IInterface), TMy(42)]
|
||||
TLongInt = type LongInt;
|
||||
|
||||
TMyIntf = interface
|
||||
['eff222cf-7d8d-481f-9fc4-d60e128983ab']
|
||||
[TMyAttribute(1234)]
|
||||
procedure foo;
|
||||
end;
|
||||
|
||||
var
|
||||
[TMyAttribute]
|
||||
a: integer;
|
||||
|
||||
[TMyAttribute]
|
||||
procedure foo;
|
||||
begin
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes (kType)
|
||||
(declType
|
||||
(rttiAttributes (identifier))
|
||||
(identifier) (kEq) (declClass (kClass)
|
||||
(declProp
|
||||
(rttiAttributes
|
||||
(exprCall (identifier) (exprArgs (literalString))))
|
||||
(kProperty)
|
||||
(identifier)
|
||||
(type (typeref (identifier)))
|
||||
(kRead)
|
||||
(identifier))
|
||||
(declProc
|
||||
(rttiAttributes
|
||||
(exprCall (identifier))
|
||||
(exprCall (identifier) (exprArgs (literalNumber)))
|
||||
(exprCall (identifier) (exprArgs (literalNumber))))
|
||||
(kProcedure)
|
||||
(identifier))
|
||||
(kEnd)))
|
||||
(declType
|
||||
(rttiAttributes
|
||||
(exprCall (identifier) (exprArgs (literalNumber)))
|
||||
(exprCall (identifier) (exprArgs (literalString))))
|
||||
(identifier)
|
||||
(kEq)
|
||||
(type
|
||||
(declEnum
|
||||
(declEnumValue (identifier))
|
||||
(declEnumValue (identifier)))))
|
||||
(declType
|
||||
(rttiAttributes
|
||||
(exprCall (identifier) (exprArgs (identifier)))
|
||||
(exprCall (identifier) (exprArgs (literalNumber))))
|
||||
(identifier)
|
||||
(kEq)
|
||||
(kType)
|
||||
(type (typeref (identifier))))
|
||||
(declType (identifier) (kEq)
|
||||
(declIntf
|
||||
(kInterface)
|
||||
(guid (literalString))
|
||||
(declProc
|
||||
(rttiAttributes
|
||||
(exprCall (identifier) (exprArgs (literalNumber))))
|
||||
(kProcedure)
|
||||
(identifier))
|
||||
(kEnd))))
|
||||
(declVars
|
||||
(kVar)
|
||||
(declVar
|
||||
(rttiAttributes (identifier))
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(defProc
|
||||
(declProc
|
||||
(rttiAttributes (identifier))
|
||||
(kProcedure)
|
||||
(identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))))
|
||||
|
||||
@ -1,725 +0,0 @@
|
||||
===
|
||||
Variables
|
||||
===
|
||||
|
||||
var
|
||||
a: b;
|
||||
a, b: c;
|
||||
a: b = c;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declVars
|
||||
(kVar)
|
||||
(declVar (identifier)
|
||||
(type (typeref (identifier))))
|
||||
(declVar
|
||||
(identifier)
|
||||
(identifier)
|
||||
(type (typeref (identifier))))
|
||||
(declVar
|
||||
(identifier)
|
||||
(type (typeref (identifier)))
|
||||
(defaultValue (kEq) (identifier)))))
|
||||
|
||||
===
|
||||
Constants
|
||||
===
|
||||
|
||||
const
|
||||
a = b;
|
||||
a: b = c;
|
||||
|
||||
resourcestring
|
||||
a = b;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declConsts
|
||||
(kConst)
|
||||
(declConst (identifier)
|
||||
(defaultValue (kEq) (identifier)))
|
||||
(declConst
|
||||
(identifier)
|
||||
(type (typeref (identifier)))
|
||||
(defaultValue (kEq) (identifier))))
|
||||
(declConsts
|
||||
(kResourcestring)
|
||||
(declConst (identifier)
|
||||
(defaultValue (kEq) (identifier)))))
|
||||
|
||||
===
|
||||
Typedefs
|
||||
===
|
||||
|
||||
type
|
||||
a = b;
|
||||
a = (b, c);
|
||||
a = array of b;
|
||||
a = array [0..1] of b;
|
||||
a = set of b;
|
||||
a = set of (b, c);
|
||||
a = string[1];
|
||||
a = class;
|
||||
a = class(b);
|
||||
a = class of b;
|
||||
a = interface;
|
||||
a = interface(b);
|
||||
a = file;
|
||||
a = file of b;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes
|
||||
(kType)
|
||||
(declType (identifier) (kEq)
|
||||
(type (typeref (identifier))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declEnum
|
||||
(declEnumValue (identifier))
|
||||
(declEnumValue (identifier)))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declArray (kArray) (kOf) (type (typeref (identifier))))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declArray (kArray) (range (literalNumber) (literalNumber)) (kOf)
|
||||
(type
|
||||
(typeref (identifier))))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declSet (kSet) (kOf)
|
||||
(type
|
||||
(typeref (identifier))))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declSet (kSet) (kOf)
|
||||
(type
|
||||
(declEnum
|
||||
(declEnumValue (identifier))
|
||||
(declEnumValue (identifier)))))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declString (kString) (literalNumber))))
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kClass)))
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kClass)
|
||||
(typeref (identifier))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declMetaClass (kClass) (kOf) (typeref (identifier)))))
|
||||
(declType (identifier) (kEq)
|
||||
(declIntf (kInterface)))
|
||||
(declType (identifier) (kEq)
|
||||
(declIntf (kInterface)
|
||||
(typeref (identifier))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declFile (kFile))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declFile (kFile) (kOf)
|
||||
(type
|
||||
(typeref (identifier))))))))
|
||||
|
||||
|
||||
===
|
||||
Procedure references
|
||||
===
|
||||
|
||||
type
|
||||
a = procedure;
|
||||
a = procedure(b: c);
|
||||
a = function: b;
|
||||
a = function(b: c): d;
|
||||
|
||||
a = procedure of object;
|
||||
a = procedure(b:c) of object;
|
||||
a = function: b of object;
|
||||
a = function(b: c): d of object;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declProcRef (kProcedure))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declProcRef (kProcedure)
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(type (typeref (identifier))))))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declProcRef (kFunction)
|
||||
(typeref (identifier)))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declProcRef (kFunction)
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(typeref (identifier)))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declProcRef (kProcedure) (kOf) (kObject))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declProcRef (kProcedure)
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(kOf) (kObject))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declProcRef (kFunction)
|
||||
(typeref (identifier))
|
||||
(kOf) (kObject))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declProcRef (kFunction)
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(typeref (identifier))
|
||||
(kOf) (kObject))))))
|
||||
|
||||
===
|
||||
Forward declarations
|
||||
===
|
||||
|
||||
procedure a; forward;
|
||||
procedure a(b: c); forward;
|
||||
procedure a(b, c: d; e: f); forward;
|
||||
|
||||
function a: b; forward;
|
||||
function a(b: c): d; forward;
|
||||
function a(b, c: d; e: f): g; forward;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declProc (kProcedure) (identifier) (kForward))
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg (identifier) (type (typeref (identifier)))))
|
||||
(kForward))
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg (identifier) (identifier) (type (typeref (identifier))))
|
||||
(declArg (identifier) (type (typeref (identifier)))))
|
||||
(kForward))
|
||||
|
||||
(declProc (kFunction) (identifier) (typeref (identifier)) (kForward))
|
||||
(declProc (kFunction) (identifier)
|
||||
(declArgs
|
||||
(declArg (identifier) (type (typeref (identifier)))))
|
||||
(typeref (identifier))
|
||||
(kForward))
|
||||
(declProc (kFunction) (identifier)
|
||||
(declArgs
|
||||
(declArg (identifier) (identifier) (type (typeref (identifier))))
|
||||
(declArg (identifier) (type (typeref (identifier)))))
|
||||
(typeref (identifier))
|
||||
(kForward)))
|
||||
|
||||
|
||||
===
|
||||
Structures
|
||||
===
|
||||
|
||||
type
|
||||
a = class
|
||||
end;
|
||||
|
||||
a = record
|
||||
end;
|
||||
|
||||
a = object
|
||||
end;
|
||||
|
||||
a = interface
|
||||
end;
|
||||
|
||||
a = interface
|
||||
['3d298d62-6d73-46a9-8267-24e4b3176cec']
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq) (declClass (kClass) (kEnd)))
|
||||
(declType (identifier) (kEq) (declClass (kRecord) (kEnd)))
|
||||
(declType (identifier) (kEq) (declClass (kObject) (kEnd)))
|
||||
(declType (identifier) (kEq) (declIntf (kInterface) (kEnd)))
|
||||
(declType (identifier) (kEq) (declIntf (kInterface) (guid (literalString)) (kEnd)))))
|
||||
|
||||
|
||||
===
|
||||
Inheritance
|
||||
===
|
||||
|
||||
type
|
||||
a = class(a,b)
|
||||
end;
|
||||
|
||||
a = interface(a,b)
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kClass)
|
||||
(typeref (identifier))
|
||||
(typeref (identifier))
|
||||
(kEnd)))
|
||||
(declType (identifier) (kEq)
|
||||
(declIntf (kInterface)
|
||||
(typeref (identifier))
|
||||
(typeref (identifier))
|
||||
(kEnd)))))
|
||||
===
|
||||
Members
|
||||
===
|
||||
|
||||
type
|
||||
a = class
|
||||
b, c: d;
|
||||
e: f;
|
||||
constructor d;
|
||||
destructor e;
|
||||
procedure f;
|
||||
function g: h;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kClass)
|
||||
(declField (identifier) (identifier) (type (typeref (identifier))))
|
||||
(declField (identifier) (type (typeref (identifier))))
|
||||
(declProc (kConstructor) (identifier))
|
||||
(declProc (kDestructor) (identifier))
|
||||
(declProc (kProcedure) (identifier))
|
||||
(declProc (kFunction) (identifier) (typeref (identifier)))
|
||||
(kEnd)))))
|
||||
|
||||
===
|
||||
Visibility
|
||||
===
|
||||
|
||||
type
|
||||
a = class
|
||||
c: d;
|
||||
procedure e;
|
||||
private
|
||||
f: g;
|
||||
procedure h;
|
||||
protected
|
||||
i: j;
|
||||
procedure k;
|
||||
public
|
||||
l: m;
|
||||
procedure n;
|
||||
published
|
||||
o: p;
|
||||
procedure q;
|
||||
end;
|
||||
|
||||
a = class
|
||||
strict private
|
||||
private
|
||||
strict protected
|
||||
protected
|
||||
public
|
||||
published
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes
|
||||
(kType)
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kClass)
|
||||
(declField (identifier) (type (typeref (identifier))))
|
||||
(declProc (kProcedure) (identifier))
|
||||
(declSection (kPrivate)
|
||||
(declField (identifier) (type (typeref (identifier))))
|
||||
(declProc (kProcedure) (identifier)))
|
||||
(declSection (kProtected)
|
||||
(declField (identifier) (type (typeref (identifier))))
|
||||
(declProc (kProcedure) (identifier)))
|
||||
(declSection (kPublic)
|
||||
(declField (identifier) (type (typeref (identifier))))
|
||||
(declProc (kProcedure) (identifier)))
|
||||
(declSection (kPublished)
|
||||
(declField (identifier) (type (typeref (identifier))))
|
||||
(declProc (kProcedure) (identifier)))
|
||||
(kEnd)))
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kClass)
|
||||
(declSection (kStrict) (kPrivate))
|
||||
(declSection (kPrivate))
|
||||
(declSection (kStrict) (kProtected))
|
||||
(declSection (kProtected))
|
||||
(declSection (kPublic))
|
||||
(declSection (kPublished))
|
||||
(kEnd)))))
|
||||
|
||||
===
|
||||
Nested declarations
|
||||
===
|
||||
|
||||
type
|
||||
a = class
|
||||
type
|
||||
b = class
|
||||
end;
|
||||
c = d;
|
||||
var
|
||||
e: f;
|
||||
const
|
||||
g = h;
|
||||
public
|
||||
constructor i;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kClass)
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq)
|
||||
(declClass
|
||||
(kClass)
|
||||
(kEnd)))
|
||||
(declType (identifier) (kEq)
|
||||
(type (typeref (identifier)))))
|
||||
(declVars (kVar)
|
||||
(declVar (identifier) (type (typeref (identifier)))))
|
||||
(declConsts (kConst)
|
||||
(declConst (identifier) (defaultValue (kEq) (identifier))))
|
||||
(declSection (kPublic)
|
||||
(declProc (kConstructor) (identifier)))
|
||||
(kEnd)))))
|
||||
|
||||
===
|
||||
Class members
|
||||
===
|
||||
|
||||
type
|
||||
a = class
|
||||
class procedure b;
|
||||
class var
|
||||
c: d;
|
||||
e: f;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kClass)
|
||||
(declProc (kClass) (kProcedure) (identifier))
|
||||
(declVars (kClass) (kVar)
|
||||
(declVar (identifier) (type (typeref (identifier))))
|
||||
(declVar (identifier) (type (typeref (identifier)))))
|
||||
(kEnd)))))
|
||||
|
||||
===
|
||||
Properties
|
||||
===
|
||||
|
||||
type
|
||||
a = class
|
||||
property b: c read d write f;
|
||||
property b: c read d;
|
||||
property b: c write d;
|
||||
|
||||
property b: c read d write f default g;
|
||||
property b: c read d write f index g;
|
||||
property b: c read d write f stored g;
|
||||
|
||||
property b[c, d: e; f: g]: h read i write j;
|
||||
property b[c: d]: e read f write g; default;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes
|
||||
(kType)
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kClass)
|
||||
(declProp (kProperty) (identifier)
|
||||
(type (typeref (identifier)))
|
||||
(kRead) (identifier)
|
||||
(kWrite) (identifier))
|
||||
(declProp (kProperty) (identifier)
|
||||
(type (typeref (identifier)))
|
||||
(kRead) (identifier))
|
||||
(declProp (kProperty) (identifier)
|
||||
(type (typeref (identifier)))
|
||||
(kWrite) (identifier))
|
||||
(declProp (kProperty) (identifier)
|
||||
(type (typeref (identifier)))
|
||||
(kRead) (identifier)
|
||||
(kWrite) (identifier)
|
||||
(kDefault) (identifier))
|
||||
(declProp (kProperty) (identifier)
|
||||
(type (typeref (identifier)))
|
||||
(kRead) (identifier)
|
||||
(kWrite) (identifier)
|
||||
(kIndex) (identifier))
|
||||
(declProp (kProperty) (identifier)
|
||||
(type (typeref (identifier)))
|
||||
(kRead) (identifier)
|
||||
(kWrite) (identifier)
|
||||
(kStored) (identifier))
|
||||
(declProp (kProperty) (identifier)
|
||||
(declPropArgs
|
||||
(declArg (identifier) (identifier) (type (typeref (identifier))))
|
||||
(declArg (identifier) (type (typeref (identifier)))))
|
||||
(type (typeref (identifier)))
|
||||
(kRead) (identifier)
|
||||
(kWrite) (identifier))
|
||||
(declProp (kProperty) (identifier)
|
||||
(declPropArgs
|
||||
(declArg (identifier) (type (typeref (identifier)))))
|
||||
(type (typeref (identifier)))
|
||||
(kRead) (identifier)
|
||||
(kWrite) (identifier)
|
||||
(procAttribute (kDefault)))
|
||||
(kEnd)))))
|
||||
|
||||
===
|
||||
Variant Records
|
||||
===
|
||||
|
||||
type
|
||||
a = record
|
||||
b: c;
|
||||
case d of
|
||||
0: (e: f);
|
||||
1: (g, h: i; j: k);
|
||||
end;
|
||||
|
||||
a = record
|
||||
b: c;
|
||||
case d: e of
|
||||
0: (f: g);
|
||||
1: (h: i);
|
||||
end;
|
||||
|
||||
a = record
|
||||
b: c;
|
||||
case d of
|
||||
0: (e: f;
|
||||
case g of
|
||||
0: (h: i);
|
||||
1: (j: k);
|
||||
);
|
||||
1: (case l of
|
||||
0: (m: n);
|
||||
1: (o: p);
|
||||
);
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kRecord)
|
||||
(declField (identifier) (type (typeref (identifier))))
|
||||
(declVariant (kCase) (typeref (identifier)) (kOf)
|
||||
(declVariantClause
|
||||
(caseLabel
|
||||
(literalNumber))
|
||||
(declField
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(declVariantClause
|
||||
(caseLabel
|
||||
(literalNumber))
|
||||
(declField
|
||||
(identifier)
|
||||
(identifier)
|
||||
(type (typeref (identifier))))
|
||||
(declField
|
||||
(identifier)
|
||||
(type (typeref (identifier))))))
|
||||
(kEnd)))
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kRecord)
|
||||
(declField (identifier) (type (typeref (identifier))))
|
||||
(declVariant (kCase) (identifier) (typeref (identifier)) (kOf)
|
||||
(declVariantClause
|
||||
(caseLabel
|
||||
(literalNumber))
|
||||
(declField
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(declVariantClause
|
||||
(caseLabel
|
||||
(literalNumber))
|
||||
(declField
|
||||
(identifier)
|
||||
(type (typeref (identifier))))))
|
||||
(kEnd)))
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kRecord)
|
||||
(declField (identifier) (type (typeref (identifier))))
|
||||
(declVariant (kCase) (typeref (identifier)) (kOf)
|
||||
(declVariantClause
|
||||
(caseLabel
|
||||
(literalNumber))
|
||||
(declField
|
||||
(identifier)
|
||||
(type (typeref (identifier))))
|
||||
(declVariant (kCase) (typeref (identifier)) (kOf)
|
||||
(declVariantClause
|
||||
(caseLabel
|
||||
(literalNumber))
|
||||
(declField
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(declVariantClause
|
||||
(caseLabel
|
||||
(literalNumber))
|
||||
(declField
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))))
|
||||
(declVariantClause
|
||||
(caseLabel
|
||||
(literalNumber))
|
||||
(declVariant (kCase) (typeref (identifier)) (kOf)
|
||||
(declVariantClause
|
||||
(caseLabel
|
||||
(literalNumber))
|
||||
(declField
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(declVariantClause
|
||||
(caseLabel
|
||||
(literalNumber))
|
||||
(declField
|
||||
(identifier)
|
||||
(type (typeref (identifier))))))))
|
||||
(kEnd)))))
|
||||
|
||||
===
|
||||
Operator overloads
|
||||
===
|
||||
|
||||
type
|
||||
a = record
|
||||
operator +(b, c: a): a;
|
||||
operator Subtract(b, c: a): a;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kRecord)
|
||||
(declProc (kOperator) (operatorName (kAdd))
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(type (typeref (identifier))))
|
||||
(declProc (kOperator) (identifier)
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(type (typeref (identifier))))
|
||||
(kEnd)))))
|
||||
|
||||
===
|
||||
Inline type declarations
|
||||
===
|
||||
|
||||
var
|
||||
a: array of b;
|
||||
a: string[b];
|
||||
a: file of b;
|
||||
a: file;
|
||||
a: set of b;
|
||||
a: set of (b, c);
|
||||
|
||||
procedure a(b: array of c; d: array of const; var e: string[4]);
|
||||
begin
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declVars (kVar)
|
||||
(declVar
|
||||
(identifier)
|
||||
(type (declArray (kArray) (kOf) (type (typeref (identifier))))))
|
||||
(declVar
|
||||
(identifier)
|
||||
(type (declString (kString) (identifier))))
|
||||
(declVar
|
||||
(identifier)
|
||||
(type (declFile (kFile) (kOf) (type (typeref (identifier))))))
|
||||
(declVar
|
||||
(identifier)
|
||||
(type (declFile (kFile))))
|
||||
(declVar
|
||||
(identifier)
|
||||
(type (declSet (kSet) (kOf) (type (typeref (identifier))))))
|
||||
(declVar
|
||||
(identifier)
|
||||
(type
|
||||
(declSet
|
||||
(kSet)
|
||||
(kOf)
|
||||
(type
|
||||
(declEnum
|
||||
(declEnumValue
|
||||
(identifier))
|
||||
(declEnumValue
|
||||
(identifier))))))))
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(type (declArray (kArray) (kOf) (type (typeref (identifier))))))
|
||||
(declArg
|
||||
(identifier)
|
||||
(type (declArray (kArray) (kOf) (type (typeref (identifier))))))
|
||||
(declArg
|
||||
(kVar)
|
||||
(identifier)
|
||||
(type (declString (kString) (literalNumber))))))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))))
|
||||
@ -1,314 +0,0 @@
|
||||
===
|
||||
Comparison
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
a = b = c;
|
||||
a <> b <> c;
|
||||
a < b < c;
|
||||
a > b > c;
|
||||
a <= b <= b;
|
||||
a >= b >= b;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (exprBinary (exprBinary (identifier) (kEq) (identifier)) (kEq) (identifier)))
|
||||
(statement (exprBinary (exprBinary (identifier) (kNeq) (identifier)) (kNeq) (identifier)))
|
||||
(statement (exprBinary (identifier) (kLt) (exprBinary (identifier) (kLt) (identifier))))
|
||||
(statement (exprBinary (exprBinary (identifier) (kGt) (identifier)) (kGt) (identifier)))
|
||||
(statement (exprBinary (exprBinary (identifier) (kLte) (identifier)) (kLte) (identifier)))
|
||||
(statement (exprBinary (exprBinary (identifier) (kGte) (identifier)) (kGte) (identifier)))
|
||||
(kEnd))))
|
||||
|
||||
|
||||
===
|
||||
Arithmetic
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
a + b + c;
|
||||
a - b - c;
|
||||
a * b * c;
|
||||
a / b / c;
|
||||
a div b div c;
|
||||
a mod b mod c;
|
||||
|
||||
++a;
|
||||
--a;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (exprBinary (exprBinary (identifier) (kAdd) (identifier)) (kAdd) (identifier)))
|
||||
(statement (exprBinary (exprBinary (identifier) (kSub) (identifier)) (kSub) (identifier)))
|
||||
(statement (exprBinary (exprBinary (identifier) (kMul) (identifier)) (kMul) (identifier)))
|
||||
(statement (exprBinary (exprBinary (identifier) (kFdiv) (identifier)) (kFdiv) (identifier)))
|
||||
(statement (exprBinary (exprBinary (identifier) (kDiv) (identifier)) (kDiv) (identifier)))
|
||||
(statement (exprBinary (exprBinary (identifier) (kMod) (identifier)) (kMod) (identifier)))
|
||||
(statement (exprUnary (kAdd) (exprUnary (kAdd) (identifier))))
|
||||
(statement (exprUnary (kSub) (exprUnary (kSub) (identifier))))
|
||||
(kEnd))))
|
||||
|
||||
|
||||
===
|
||||
Logical
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
a or b or c;
|
||||
a xor b xor c;
|
||||
a and b and c;
|
||||
|
||||
a shl b shl c;
|
||||
a shr b shr c;
|
||||
|
||||
not not a;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (exprBinary (exprBinary (identifier) (kOr) (identifier)) (kOr) (identifier)))
|
||||
(statement (exprBinary (exprBinary (identifier) (kXor) (identifier)) (kXor) (identifier)))
|
||||
(statement (exprBinary (exprBinary (identifier) (kAnd) (identifier)) (kAnd) (identifier)))
|
||||
(statement (exprBinary (exprBinary (identifier) (kShl) (identifier)) (kShl) (identifier)))
|
||||
(statement (exprBinary (exprBinary (identifier) (kShr) (identifier)) (kShr) (identifier)))
|
||||
(statement (exprUnary (kNot) (exprUnary (kNot) (identifier))))
|
||||
(kEnd))))
|
||||
|
||||
|
||||
===
|
||||
Other
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
a in b;
|
||||
a is b;
|
||||
a as b;
|
||||
|
||||
@@a;
|
||||
a^^;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (exprBinary (identifier) (kIn) (identifier)))
|
||||
(statement (exprBinary (identifier) (kIs) (identifier)))
|
||||
(statement (exprBinary (identifier) (kAs) (identifier)))
|
||||
(statement (exprUnary (kAt) (exprUnary (kAt) (identifier))))
|
||||
(statement (exprUnary (exprUnary (identifier) (kHat)) (kHat)))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
Parentheses
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
(a);
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (exprParens (identifier)))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
Brackets/Sets
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
[a];
|
||||
[a,b];
|
||||
[a..b];
|
||||
[a..b,c];
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (exprBrackets (identifier)))
|
||||
(statement (exprBrackets (identifier) (identifier)))
|
||||
(statement (exprBrackets (range (identifier) (identifier))))
|
||||
(statement (exprBrackets (range (identifier) (identifier)) (identifier)))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
Calls
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
a(b);
|
||||
a(b,c);
|
||||
a(b)(c);
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (exprCall (identifier) (exprArgs (identifier))))
|
||||
(statement (exprCall (identifier) (exprArgs (identifier) (identifier))))
|
||||
(statement
|
||||
(exprCall
|
||||
(exprCall (identifier) (exprArgs (identifier)))
|
||||
(exprArgs (identifier))))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
Subscripts
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
a[b];
|
||||
a[b,c];
|
||||
a[b][c];
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (exprSubscript (identifier) (exprArgs (identifier))))
|
||||
(statement (exprSubscript (identifier) (exprArgs (identifier) (identifier))))
|
||||
(statement
|
||||
(exprSubscript
|
||||
(exprSubscript
|
||||
(identifier)
|
||||
(exprArgs
|
||||
(identifier)))
|
||||
(exprArgs
|
||||
(identifier))))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
Precedence
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
not (a or b and c) and d;
|
||||
- (a + b * c) * d;
|
||||
a = b or c = d;
|
||||
@a.b;
|
||||
a.b^;
|
||||
a.b(c);
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(statement
|
||||
(exprBinary
|
||||
(exprUnary
|
||||
(kNot)
|
||||
(exprParens
|
||||
(exprBinary
|
||||
(identifier)
|
||||
(kOr)
|
||||
(exprBinary
|
||||
(identifier)
|
||||
(kAnd)
|
||||
(identifier)))))
|
||||
(kAnd)
|
||||
(identifier)))
|
||||
|
||||
(statement
|
||||
(exprBinary
|
||||
(exprUnary
|
||||
(kSub)
|
||||
(exprParens
|
||||
(exprBinary
|
||||
(identifier)
|
||||
(kAdd)
|
||||
(exprBinary
|
||||
(identifier)
|
||||
(kMul)
|
||||
(identifier)))))
|
||||
(kMul)
|
||||
(identifier)))
|
||||
|
||||
(statement
|
||||
(exprBinary
|
||||
(exprBinary
|
||||
(identifier)
|
||||
(kEq)
|
||||
(exprBinary
|
||||
(identifier)
|
||||
(kOr)
|
||||
(identifier)))
|
||||
(kEq)
|
||||
(identifier)))
|
||||
|
||||
(statement
|
||||
(exprUnary
|
||||
(kAt)
|
||||
(exprDot
|
||||
(identifier)
|
||||
(kDot)
|
||||
(identifier))))
|
||||
|
||||
(statement
|
||||
(exprUnary
|
||||
(exprDot
|
||||
(identifier)
|
||||
(kDot)
|
||||
(identifier))
|
||||
(kHat)))
|
||||
|
||||
(statement
|
||||
(exprCall
|
||||
(exprDot
|
||||
(identifier)
|
||||
(kDot)
|
||||
(identifier))
|
||||
(exprArgs
|
||||
(identifier))))
|
||||
|
||||
(kEnd))))
|
||||
@ -1,265 +0,0 @@
|
||||
===
|
||||
Generic Type Declaration
|
||||
===
|
||||
|
||||
type
|
||||
a<b> = x;
|
||||
a<b: constraint> = x;
|
||||
a<b,c> = x;
|
||||
a<b,c: constraint> = x;
|
||||
a<b; c: constraint> = x;
|
||||
a<b, c: constraint; d,e: constraint> = x;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes (kType)
|
||||
(declType
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg
|
||||
(identifier)))
|
||||
(kGt))
|
||||
(kEq)
|
||||
(type (typeref (identifier))))
|
||||
(declType
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg
|
||||
(identifier) (typeref (identifier))))
|
||||
(kGt))
|
||||
(kEq)
|
||||
(type (typeref (identifier))))
|
||||
(declType
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg (identifier) (identifier)))
|
||||
(kGt))
|
||||
(kEq)
|
||||
(type (typeref (identifier))))
|
||||
(declType
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg (identifier) (identifier) (typeref (identifier))))
|
||||
(kGt))
|
||||
(kEq)
|
||||
(type (typeref (identifier))))
|
||||
(declType
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg (identifier))
|
||||
(genericArg (identifier) (typeref (identifier))))
|
||||
(kGt))
|
||||
(kEq)
|
||||
(type (typeref (identifier))))
|
||||
(declType
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg (identifier) (identifier) (typeref (identifier)))
|
||||
(genericArg (identifier) (identifier) (typeref (identifier))))
|
||||
(kGt))
|
||||
(kEq)
|
||||
(type (typeref (identifier))))))
|
||||
|
||||
===
|
||||
Generic Specialization
|
||||
===
|
||||
|
||||
type
|
||||
a = b<c>;
|
||||
a = b<c,d>;
|
||||
a = b<c, d<e, f> >;
|
||||
|
||||
var
|
||||
a: b<c>;
|
||||
a: b<c,d>;
|
||||
a: b<c, d<e, f> >;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(typeref
|
||||
(typerefTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(typerefArgs
|
||||
(identifier))
|
||||
(kGt)))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(typeref
|
||||
(typerefTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(typerefArgs
|
||||
(identifier)
|
||||
(identifier))
|
||||
(kGt)))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(typeref
|
||||
(typerefTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(typerefArgs
|
||||
(identifier)
|
||||
(typerefTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(typerefArgs
|
||||
(identifier)
|
||||
(identifier))
|
||||
(kGt)))
|
||||
(kGt))))))
|
||||
(declVars (kVar)
|
||||
(declVar
|
||||
(identifier)
|
||||
(type
|
||||
(typeref
|
||||
(typerefTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(typerefArgs
|
||||
(identifier))
|
||||
(kGt)))))
|
||||
(declVar
|
||||
(identifier)
|
||||
(type
|
||||
(typeref
|
||||
(typerefTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(typerefArgs
|
||||
(identifier)
|
||||
(identifier))
|
||||
(kGt)))))
|
||||
(declVar
|
||||
(identifier)
|
||||
(type
|
||||
(typeref
|
||||
(typerefTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(typerefArgs
|
||||
(identifier)
|
||||
(typerefTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(typerefArgs
|
||||
(identifier)
|
||||
(identifier))
|
||||
(kGt)))
|
||||
(kGt)))))))
|
||||
|
||||
|
||||
===
|
||||
Generic Routines
|
||||
===
|
||||
|
||||
procedure a<b>(c: b); forward;
|
||||
|
||||
procedure a<b,c>.d<e>.Main<f>;
|
||||
begin
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declProc (kProcedure)
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg
|
||||
(identifier)))
|
||||
(kGt))
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(kForward))
|
||||
(defProc
|
||||
(declProc (kProcedure)
|
||||
(genericDot
|
||||
(genericDot
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg
|
||||
(identifier)
|
||||
(identifier)))
|
||||
(kGt))
|
||||
(kDot)
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg
|
||||
(identifier)))
|
||||
(kGt)))
|
||||
(kDot)
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg
|
||||
(identifier)))
|
||||
(kGt))))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))))
|
||||
|
||||
|
||||
===
|
||||
Generic Expressions
|
||||
===
|
||||
|
||||
procedure a;
|
||||
begin
|
||||
if b<c>(d) < e<f,g> then
|
||||
;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(if
|
||||
(kIf)
|
||||
(exprBinary
|
||||
(exprCall
|
||||
(exprTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(identifier)
|
||||
(kGt))
|
||||
(exprArgs
|
||||
(identifier)))
|
||||
(kLt)
|
||||
(exprTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(identifier)
|
||||
(identifier)
|
||||
(kGt)))
|
||||
(kThen))
|
||||
(kEnd))))
|
||||
@ -1,283 +0,0 @@
|
||||
===
|
||||
Generic Type Declaration
|
||||
===
|
||||
|
||||
type
|
||||
generic a<b> = x;
|
||||
generic a<b: constraint> = x;
|
||||
generic a<b,c> = x;
|
||||
generic a<b,c: constraint> = x;
|
||||
generic a<b; c: constraint> = x;
|
||||
generic a<b, c: constraint; d,e: constraint> = x;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes (kType)
|
||||
(declType (kGeneric)
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg
|
||||
(identifier)))
|
||||
(kGt))
|
||||
(kEq)
|
||||
(type (typeref (identifier))))
|
||||
(declType (kGeneric)
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg
|
||||
(identifier) (typeref (identifier))))
|
||||
(kGt))
|
||||
(kEq)
|
||||
(type (typeref (identifier))))
|
||||
(declType (kGeneric)
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg (identifier) (identifier)))
|
||||
(kGt))
|
||||
(kEq)
|
||||
(type (typeref (identifier))))
|
||||
(declType (kGeneric)
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg (identifier) (identifier) (typeref (identifier))))
|
||||
(kGt))
|
||||
(kEq)
|
||||
(type (typeref (identifier))))
|
||||
(declType (kGeneric)
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg (identifier))
|
||||
(genericArg (identifier) (typeref (identifier))))
|
||||
(kGt))
|
||||
(kEq)
|
||||
(type (typeref (identifier))))
|
||||
(declType (kGeneric)
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg (identifier) (identifier) (typeref (identifier)))
|
||||
(genericArg (identifier) (identifier) (typeref (identifier))))
|
||||
(kGt))
|
||||
(kEq)
|
||||
(type (typeref (identifier))))))
|
||||
|
||||
===
|
||||
Generic Specialization
|
||||
===
|
||||
|
||||
type
|
||||
a = specialize b<c>;
|
||||
a = specialize b<c,d>;
|
||||
a = specialize b<c, d<e, f> >;
|
||||
|
||||
var
|
||||
a: specialize b<c>;
|
||||
a: specialize b<c,d>;
|
||||
a: specialize b<c, d<e, f> >;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(typeref (kSpecialize)
|
||||
(typerefTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(typerefArgs
|
||||
(identifier))
|
||||
(kGt)))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(typeref (kSpecialize)
|
||||
(typerefTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(typerefArgs
|
||||
(identifier)
|
||||
(identifier))
|
||||
(kGt)))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(typeref (kSpecialize)
|
||||
(typerefTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(typerefArgs
|
||||
(identifier)
|
||||
(typerefTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(typerefArgs
|
||||
(identifier)
|
||||
(identifier))
|
||||
(kGt)))
|
||||
(kGt))))))
|
||||
(declVars (kVar)
|
||||
(declVar
|
||||
(identifier)
|
||||
(type
|
||||
(typeref (kSpecialize)
|
||||
(typerefTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(typerefArgs
|
||||
(identifier))
|
||||
(kGt)))))
|
||||
(declVar
|
||||
(identifier)
|
||||
(type
|
||||
(typeref (kSpecialize)
|
||||
(typerefTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(typerefArgs
|
||||
(identifier)
|
||||
(identifier))
|
||||
(kGt)))))
|
||||
(declVar
|
||||
(identifier)
|
||||
(type
|
||||
(typeref (kSpecialize)
|
||||
(typerefTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(typerefArgs
|
||||
(identifier)
|
||||
(typerefTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(typerefArgs
|
||||
(identifier)
|
||||
(identifier))
|
||||
(kGt)))
|
||||
(kGt)))))))
|
||||
|
||||
===
|
||||
Generic Routines
|
||||
===
|
||||
|
||||
generic procedure a<b>(c: b); forward;
|
||||
|
||||
generic procedure a<b,c>.d<e>.Main<f>;
|
||||
begin
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declProc (kGeneric) (kProcedure)
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg
|
||||
(identifier)))
|
||||
(kGt))
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(kForward))
|
||||
(defProc
|
||||
(declProc (kGeneric) (kProcedure)
|
||||
(genericDot
|
||||
(genericDot
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg
|
||||
(identifier)
|
||||
(identifier)))
|
||||
(kGt))
|
||||
(kDot)
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg
|
||||
(identifier)))
|
||||
(kGt)))
|
||||
(kDot)
|
||||
(genericTpl
|
||||
(identifier)
|
||||
(kLt)
|
||||
(genericArgs
|
||||
(genericArg
|
||||
(identifier)))
|
||||
(kGt))))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
Generic Expressions
|
||||
===
|
||||
|
||||
procedure a;
|
||||
begin
|
||||
if specialize b<c>(d) < specialize e<f,g> then
|
||||
;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(if
|
||||
(kIf)
|
||||
(exprBinary
|
||||
(exprCall
|
||||
(exprTpl (kSpecialize)
|
||||
(identifier)
|
||||
(kLt)
|
||||
(identifier)
|
||||
(kGt))
|
||||
(exprArgs
|
||||
(identifier)))
|
||||
(kLt)
|
||||
(exprTpl (kSpecialize)
|
||||
(identifier)
|
||||
(kLt)
|
||||
(identifier)
|
||||
(identifier)
|
||||
(kGt)))
|
||||
(kThen))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
"specialize" as an identifier
|
||||
===
|
||||
|
||||
procedure specialize;
|
||||
begin
|
||||
specialize();
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (exprCall (identifier)))
|
||||
(kEnd))))
|
||||
|
||||
@ -1,111 +0,0 @@
|
||||
===
|
||||
Anonymous functions
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
a :=
|
||||
procedure
|
||||
begin
|
||||
end;
|
||||
|
||||
b :=
|
||||
function(a,b:c): d
|
||||
begin
|
||||
Result := 42;
|
||||
end;
|
||||
|
||||
c :=
|
||||
(
|
||||
function(a:b): b
|
||||
begin
|
||||
Result := a;
|
||||
end
|
||||
)(42);
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(assignment
|
||||
(identifier)
|
||||
(kAssign)
|
||||
(lambda (kProcedure)
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))))
|
||||
(assignment
|
||||
(identifier)
|
||||
(kAssign)
|
||||
(lambda (kFunction)
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(typeref (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(assignment (identifier) (kAssign) (literalNumber))
|
||||
(kEnd))))
|
||||
(assignment
|
||||
(identifier)
|
||||
(kAssign)
|
||||
(exprCall
|
||||
(exprParens
|
||||
(lambda (kFunction)
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(typeref (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(assignment (identifier) (kAssign) (identifier))
|
||||
(kEnd))))
|
||||
(exprArgs
|
||||
(literalNumber))))
|
||||
(kEnd))))
|
||||
|
||||
|
||||
===
|
||||
Reference to
|
||||
===
|
||||
|
||||
type
|
||||
a = reference to procedure;
|
||||
a = reference to procedure(b, c: d);
|
||||
a = reference to function: b;
|
||||
a = reference to function(b: c): d;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declProcRef (kReference) (kTo) (kProcedure))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declProcRef (kReference) (kTo) (kProcedure)
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(identifier)
|
||||
(type (typeref (identifier))))))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declProcRef (kReference) (kTo) (kFunction)
|
||||
(typeref (identifier)))))
|
||||
(declType (identifier) (kEq)
|
||||
(type
|
||||
(declProcRef (kReference) (kTo) (kFunction)
|
||||
(declArgs
|
||||
(declArg (identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(typeref (identifier)))))))
|
||||
|
||||
@ -1,176 +0,0 @@
|
||||
===
|
||||
Integers
|
||||
===
|
||||
|
||||
const
|
||||
a = 1234567890;
|
||||
b = +123;
|
||||
c = -123;
|
||||
d = $123abc;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declConsts (kConst)
|
||||
(declConst (identifier) (defaultValue (kEq) (literalNumber)))
|
||||
(declConst (identifier) (defaultValue (kEq) (literalNumber)))
|
||||
(declConst (identifier) (defaultValue (kEq) (literalNumber)))
|
||||
(declConst (identifier) (defaultValue (kEq) (literalNumber)))))
|
||||
|
||||
|
||||
===
|
||||
Floating point numbers
|
||||
===
|
||||
|
||||
const
|
||||
a = 1.234567890;
|
||||
b = 1234567890.0;
|
||||
c = -1.2;
|
||||
d = +1.2;
|
||||
e = 1.2e3;
|
||||
f = 1.2e-3;
|
||||
g = .123;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declConsts (kConst)
|
||||
(declConst (identifier)
|
||||
(defaultValue (kEq) (literalNumber)))
|
||||
(declConst (identifier)
|
||||
(defaultValue (kEq) (literalNumber)))
|
||||
(declConst (identifier)
|
||||
(defaultValue (kEq) (literalNumber)))
|
||||
(declConst (identifier)
|
||||
(defaultValue (kEq) (literalNumber)))
|
||||
(declConst (identifier)
|
||||
(defaultValue (kEq) (literalNumber)))
|
||||
(declConst (identifier)
|
||||
(defaultValue (kEq) (literalNumber)))
|
||||
(declConst (identifier)
|
||||
(defaultValue (kEq) (literalNumber)))))
|
||||
|
||||
===
|
||||
Strings
|
||||
===
|
||||
|
||||
const
|
||||
a = 'Hello World';
|
||||
b = #123;
|
||||
c = #13#10;
|
||||
d = 'Hello'#13#10'World';
|
||||
e = 'Hello'#$0c#$0a'World'#13#10;
|
||||
|
||||
===
|
||||
Array initializer
|
||||
===
|
||||
|
||||
const
|
||||
a: array of integer = (1, 2, 3, 4, 5);
|
||||
a: array[0..2, 0..2] of integer =
|
||||
(
|
||||
(1, 2, 3),
|
||||
(4, 5, 6),
|
||||
(7, 8, 9)
|
||||
);
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declConsts (kConst)
|
||||
(declConst (identifier)
|
||||
(type (declArray (kArray) (kOf) (type (typeref (identifier)))))
|
||||
(defaultValue (kEq)
|
||||
(arrInitializer
|
||||
(literalNumber)
|
||||
(literalNumber)
|
||||
(literalNumber)
|
||||
(literalNumber)
|
||||
(literalNumber))))
|
||||
(declConst (identifier)
|
||||
(type
|
||||
(declArray (kArray)
|
||||
(range (literalNumber) (literalNumber))
|
||||
(range (literalNumber) (literalNumber))
|
||||
(kOf)
|
||||
(type (typeref (identifier)))))
|
||||
(defaultValue (kEq)
|
||||
(arrInitializer
|
||||
(arrInitializer
|
||||
(literalNumber)
|
||||
(literalNumber)
|
||||
(literalNumber))
|
||||
(arrInitializer
|
||||
(literalNumber)
|
||||
(literalNumber)
|
||||
(literalNumber))
|
||||
(arrInitializer
|
||||
(literalNumber)
|
||||
(literalNumber)
|
||||
(literalNumber)))))))
|
||||
|
||||
|
||||
===
|
||||
Record initializer
|
||||
===
|
||||
|
||||
const
|
||||
a: TMyRec = (a: 1; b: 2; c: (d: 3; e: 4); 567);
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declConsts (kConst)
|
||||
(declConst (identifier) (type (typeref (identifier)))
|
||||
(defaultValue (kEq)
|
||||
(recInitializer
|
||||
(recInitializerField (identifier) (literalNumber))
|
||||
(recInitializerField (identifier) (literalNumber))
|
||||
(recInitializerField (identifier)
|
||||
(recInitializer
|
||||
(recInitializerField (identifier) (literalNumber))
|
||||
(recInitializerField (identifier) (literalNumber))))
|
||||
(recInitializerField (literalNumber)))))))
|
||||
|
||||
===
|
||||
Sets
|
||||
===
|
||||
|
||||
const
|
||||
a = [0..9, 'a'..'f', 'A'..'F'];
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declConsts (kConst)
|
||||
(declConst (identifier)
|
||||
(defaultValue (kEq)
|
||||
(exprBrackets
|
||||
(range (literalNumber) (literalNumber))
|
||||
(range (literalString) (literalString))
|
||||
(range (literalString) (literalString)))))))
|
||||
|
||||
===
|
||||
Constant expression
|
||||
===
|
||||
|
||||
const
|
||||
a = +1.2 + 3.4;
|
||||
a = +1.2 + +3.4;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declConsts (kConst)
|
||||
(declConst (identifier)
|
||||
(defaultValue (kEq)
|
||||
(exprBinary
|
||||
(literalNumber)
|
||||
(kAdd)
|
||||
(literalNumber))))
|
||||
(declConst (identifier)
|
||||
(defaultValue (kEq)
|
||||
(exprBinary
|
||||
(literalNumber)
|
||||
(kAdd)
|
||||
(literalNumber))))))
|
||||
@ -1,327 +0,0 @@
|
||||
===
|
||||
Program 1 - Empty
|
||||
===
|
||||
|
||||
program a;
|
||||
begin
|
||||
end.
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(program (kProgram) (moduleName (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))
|
||||
(kEndDot)))
|
||||
|
||||
|
||||
===
|
||||
Program 2 - Variables
|
||||
===
|
||||
|
||||
program a;
|
||||
var
|
||||
b: c;
|
||||
begin
|
||||
end.
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(program (kProgram) (moduleName (identifier))
|
||||
(declVars (kVar)
|
||||
(declVar (identifier) (type (typeref (identifier)))))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))
|
||||
(kEndDot)))
|
||||
|
||||
|
||||
===
|
||||
Program 3 - Subroutines
|
||||
===
|
||||
|
||||
program a;
|
||||
var
|
||||
b: c;
|
||||
|
||||
procedure d;
|
||||
begin
|
||||
end;
|
||||
|
||||
begin
|
||||
d;
|
||||
end.
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(program
|
||||
(kProgram)
|
||||
(moduleName
|
||||
(identifier))
|
||||
(declVars
|
||||
(kVar)
|
||||
(declVar
|
||||
(identifier)
|
||||
(type
|
||||
(typeref
|
||||
(identifier)))))
|
||||
(defProc
|
||||
(declProc
|
||||
(kProcedure)
|
||||
(identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd)))
|
||||
(block
|
||||
(kBegin)
|
||||
(statement
|
||||
(identifier))
|
||||
(kEnd))
|
||||
(kEndDot)))
|
||||
|
||||
|
||||
===
|
||||
Library 1 - Empty
|
||||
===
|
||||
|
||||
library a;
|
||||
end.
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(library (kLibrary) (moduleName (identifier))
|
||||
(kEnd)
|
||||
(kEndDot)))
|
||||
|
||||
===
|
||||
Library 2 - Main Function
|
||||
===
|
||||
|
||||
library a;
|
||||
begin
|
||||
end.
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(library (kLibrary) (moduleName (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))
|
||||
(kEndDot)))
|
||||
|
||||
|
||||
===
|
||||
Unit 1 - Empty
|
||||
===
|
||||
|
||||
unit a;
|
||||
interface
|
||||
implementation
|
||||
end.
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(unit (kUnit) (moduleName (identifier))
|
||||
(interface (kInterface))
|
||||
(implementation (kImplementation))
|
||||
(kEnd)
|
||||
(kEndDot)))
|
||||
|
||||
===
|
||||
Unit 2 - All sections
|
||||
===
|
||||
|
||||
unit a;
|
||||
interface
|
||||
implementation
|
||||
initialization
|
||||
finalization
|
||||
end.
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(unit (kUnit) (moduleName (identifier))
|
||||
(interface (kInterface))
|
||||
(implementation (kImplementation))
|
||||
(initialization (kInitialization))
|
||||
(finalization (kFinalization))
|
||||
(kEnd)
|
||||
(kEndDot)))
|
||||
|
||||
===
|
||||
Unit 3 - Routines
|
||||
===
|
||||
|
||||
unit a;
|
||||
|
||||
interface
|
||||
|
||||
procedure a;
|
||||
function b: c;
|
||||
|
||||
implementation
|
||||
|
||||
procedure d; forward;
|
||||
|
||||
procedure a;
|
||||
begin
|
||||
d;
|
||||
end;
|
||||
|
||||
function b: c;
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure d;
|
||||
begin
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(unit (kUnit) (moduleName (identifier))
|
||||
(interface (kInterface)
|
||||
(declProc (kProcedure) (identifier))
|
||||
(declProc (kFunction) (identifier) (typeref (identifier))))
|
||||
(implementation (kImplementation)
|
||||
(declProc (kProcedure) (identifier) (kForward))
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (identifier))
|
||||
(kEnd)))
|
||||
(defProc
|
||||
(declProc (kFunction) (identifier) (typeref (identifier)))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd)))
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))))
|
||||
(kEnd)
|
||||
(kEndDot)))
|
||||
|
||||
|
||||
===
|
||||
Unit 4 - Namespaces
|
||||
===
|
||||
|
||||
unit a.b.c;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
d.e.f, g, h;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
i, j.h;
|
||||
|
||||
end.
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(unit (kUnit)
|
||||
(moduleName
|
||||
(identifier)
|
||||
(kDot)
|
||||
(identifier)
|
||||
(kDot)
|
||||
(identifier))
|
||||
(interface (kInterface)
|
||||
(declUses (kUses)
|
||||
(moduleName
|
||||
(identifier)
|
||||
(kDot)
|
||||
(identifier)
|
||||
(kDot)
|
||||
(identifier))
|
||||
(moduleName
|
||||
(identifier))
|
||||
(moduleName
|
||||
(identifier))))
|
||||
(implementation (kImplementation)
|
||||
(declUses (kUses)
|
||||
(moduleName
|
||||
(identifier))
|
||||
(moduleName
|
||||
(identifier)
|
||||
(kDot)
|
||||
(identifier))))
|
||||
(kEnd)
|
||||
(kEndDot)))
|
||||
|
||||
|
||||
===
|
||||
Unit 5 - Classes
|
||||
===
|
||||
|
||||
unit a;
|
||||
|
||||
interface
|
||||
|
||||
type
|
||||
b = class
|
||||
procedure c;
|
||||
class procedure d;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
procedure b.c;
|
||||
begin
|
||||
end;
|
||||
|
||||
class procedure b.d;
|
||||
begin
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(unit (kUnit) (moduleName (identifier))
|
||||
(interface (kInterface)
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kClass)
|
||||
(declProc (kProcedure) (identifier))
|
||||
(declProc (kClass) (kProcedure) (identifier))
|
||||
(kEnd)))))
|
||||
(implementation (kImplementation)
|
||||
(defProc
|
||||
(declProc (kProcedure)
|
||||
(genericDot
|
||||
(identifier)
|
||||
(kDot)
|
||||
(identifier)))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd)))
|
||||
(defProc
|
||||
(declProc (kClass) (kProcedure)
|
||||
(genericDot
|
||||
(identifier)
|
||||
(kDot)
|
||||
(identifier)))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))))
|
||||
(kEnd)
|
||||
(kEndDot)))
|
||||
|
||||
@ -1,146 +0,0 @@
|
||||
===
|
||||
objcclass
|
||||
===
|
||||
|
||||
type
|
||||
|
||||
NSView = objcclass external (NSResponder)
|
||||
private
|
||||
_subview : id;
|
||||
public
|
||||
function initWithFrame(rect : NSRect): id; message 'initWithFrame:';
|
||||
procedure addSubview(aview: NSView); message 'addSubview:';
|
||||
procedure setAutoresizingMask(mask: NSUInteger); message 'setAutoresizingMask:';
|
||||
procedure setAutoresizesSubviews(flag: LongBool); message 'setAutoresizesSubviews:';
|
||||
procedure drawRect(dirtyRect: NSRect); message 'drawRect:';
|
||||
end;
|
||||
|
||||
MyView = objcclass(MSView)
|
||||
public
|
||||
data : Integer;
|
||||
procedure customMessage(dirtyRect: NSRect); message 'customMessage';
|
||||
procedure drawRect(dirtyRect: NSRect); override;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kObjcclass) (kExternal) (typeref (identifier))
|
||||
(declSection (kPrivate)
|
||||
(declField (identifier) (type (typeref (identifier)))))
|
||||
(declSection (kPublic)
|
||||
(declProc (kFunction) (identifier)
|
||||
(declArgs
|
||||
(declArg (identifier) (type (typeref (identifier)))))
|
||||
(typeref (identifier))
|
||||
(procAttribute (kMessage) (literalString)))
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg (identifier) (type (typeref (identifier)))))
|
||||
(procAttribute (kMessage) (literalString)))
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg (identifier) (type (typeref (identifier)))))
|
||||
(procAttribute (kMessage) (literalString)))
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg (identifier) (type (typeref (identifier)))))
|
||||
(procAttribute (kMessage) (literalString)))
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg (identifier) (type (typeref (identifier)))))
|
||||
(procAttribute (kMessage) (literalString))))
|
||||
(kEnd)))
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kObjcclass)
|
||||
(typeref (identifier))
|
||||
(declSection (kPublic)
|
||||
(declField (identifier) (type (typeref (identifier))))
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg (identifier) (type (typeref (identifier)))))
|
||||
(procAttribute (kMessage) (literalString)))
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg (identifier) (type (typeref (identifier)))))
|
||||
(procAttribute (kOverride))))
|
||||
(kEnd)))))
|
||||
|
||||
===
|
||||
objcprotocol
|
||||
===
|
||||
|
||||
type
|
||||
MyProtocol = objcprotocol
|
||||
procedure aRequiredMethod; message 'aRequiredMethod';
|
||||
optional
|
||||
procedure anOptionalMethodWithPara(para: longint); message 'anOptionalMethodWithPara:';
|
||||
procedure anotherOptionalMethod; message 'anotherOptionalMethod';
|
||||
required
|
||||
function aSecondRequiredMethod: longint; message 'aSecondRequiredMethod';
|
||||
end;
|
||||
|
||||
MyClassImplementingProtocol = objcclass(NSObject,MyProtocol)
|
||||
procedure aRequiredMethod;
|
||||
procedure anOptionalMethodWithPara(para: longint);
|
||||
function aSecondRequiredMethod: longint;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kObjcprotocol)
|
||||
(declProc (kProcedure) (identifier) (procAttribute (kMessage) (literalString)))
|
||||
(declSection (kOptional)
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg (identifier) (type (typeref (identifier)))))
|
||||
(procAttribute (kMessage) (literalString)))
|
||||
(declProc (kProcedure) (identifier)
|
||||
(procAttribute (kMessage) (literalString))))
|
||||
(declSection (kRequired)
|
||||
(declProc (kFunction) (identifier) (typeref (identifier))
|
||||
(procAttribute (kMessage) (literalString))))
|
||||
(kEnd)))
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kObjcclass)
|
||||
(typeref (identifier))
|
||||
(typeref (identifier))
|
||||
(declProc (kProcedure) (identifier))
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg (identifier) (type (typeref (identifier))))))
|
||||
(declProc (kFunction) (identifier) (typeref (identifier)))
|
||||
(kEnd)))))
|
||||
|
||||
|
||||
===
|
||||
objccategory
|
||||
===
|
||||
|
||||
type
|
||||
MyCategory = objccategory(NSObject,MyProtocol)
|
||||
function hash: cuint; reintroduce;
|
||||
procedure protocolmethod;
|
||||
class procedure newmethod; message 'newmethod';
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq)
|
||||
(declClass (kObjccategory)
|
||||
(typeref (identifier))
|
||||
(typeref (identifier))
|
||||
(declProc (kFunction) (identifier) (typeref (identifier))
|
||||
(procAttribute (kReintroduce)))
|
||||
(declProc (kProcedure) (identifier))
|
||||
(declProc (kClass) (kProcedure) (identifier)
|
||||
(procAttribute (kMessage) (literalString)))
|
||||
(kEnd)))))
|
||||
|
||||
@ -1,263 +0,0 @@
|
||||
===
|
||||
Line Comments
|
||||
===
|
||||
|
||||
// Hello
|
||||
// World
|
||||
var
|
||||
i: integer; // Hello
|
||||
j: integer;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(comment)
|
||||
(comment)
|
||||
(declVars (kVar)
|
||||
(declVar (identifier) (type (typeref (identifier))))
|
||||
(comment)
|
||||
(declVar (identifier) (type (typeref (identifier))))))
|
||||
|
||||
===
|
||||
Block Comments 1
|
||||
===
|
||||
|
||||
{ Hello
|
||||
World }
|
||||
var
|
||||
i: { hello }integer; { World }
|
||||
j: integer;
|
||||
|
||||
{ { { { {{ { { { {{{
|
||||
|
||||
{ { {
|
||||
// { {{ { {{ {e/{ {/ /{}
|
||||
k: integer;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(comment)
|
||||
(declVars (kVar)
|
||||
(declVar (identifier)
|
||||
(comment)
|
||||
(type (typeref (identifier))))
|
||||
(comment)
|
||||
(declVar (identifier)
|
||||
(type (typeref (identifier))))
|
||||
(comment)
|
||||
(declVar (identifier)
|
||||
(type (typeref (identifier))))))
|
||||
|
||||
|
||||
===
|
||||
Block Comments 2
|
||||
===
|
||||
|
||||
(* Hello
|
||||
World *)
|
||||
var
|
||||
i: (* hello *)integer; (* World *)
|
||||
j: integer;
|
||||
(* * * * * * ** * * * ** (* (* (* (* * )
|
||||
) ) { * ****)
|
||||
k: integer;
|
||||
|
||||
(**)
|
||||
l: integer;
|
||||
|
||||
{(**)}
|
||||
n: integer;
|
||||
{(*)}
|
||||
m: integer;
|
||||
(*{}*)
|
||||
|
||||
---
|
||||
|
||||
(root (comment)
|
||||
(declVars (kVar)
|
||||
(declVar (identifier)
|
||||
(comment)
|
||||
(type (typeref (identifier))))
|
||||
(comment)
|
||||
(declVar (identifier)
|
||||
(type (typeref (identifier))))
|
||||
(comment)
|
||||
(declVar (identifier)
|
||||
(type (typeref (identifier))))
|
||||
(comment)
|
||||
(declVar (identifier)
|
||||
(type (typeref (identifier))))
|
||||
(comment)
|
||||
(declVar (identifier)
|
||||
(type (typeref (identifier))))
|
||||
(comment)
|
||||
(declVar (identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(comment))
|
||||
|
||||
===
|
||||
Preprocessor directives 1
|
||||
===
|
||||
|
||||
{$mode delphi}
|
||||
{$define foo}
|
||||
{$ifdef foo}
|
||||
{$m+}
|
||||
{$I source.inc}
|
||||
{$endif}
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(pp)
|
||||
(pp)
|
||||
(pp)
|
||||
(pp)
|
||||
(pp)
|
||||
(pp))
|
||||
|
||||
===
|
||||
Preprocessor directives 2
|
||||
===
|
||||
|
||||
procedure foo(a: integer{$if 1}; b: float{$endif});
|
||||
begin
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg (identifier)
|
||||
(type (typeref (identifier))))
|
||||
(pp)
|
||||
(declArg (identifier)
|
||||
(type (typeref (identifier))))
|
||||
(pp)))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
Preprocessor directives 3
|
||||
===
|
||||
|
||||
procedure foo(a: {$if 1}integer{$else}float{$endif});
|
||||
begin
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg (identifier)
|
||||
(type
|
||||
(pp)
|
||||
(typeref (identifier))
|
||||
(pp)
|
||||
(typeref (identifier))
|
||||
(pp)))))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
Preprocessor directives 4
|
||||
===
|
||||
|
||||
procedure a;
|
||||
begin
|
||||
{$if 1}
|
||||
if true then
|
||||
WriteLn('Hello');
|
||||
{$elseif 1}
|
||||
while true do
|
||||
WriteLn('World');
|
||||
{$else}
|
||||
WriteLn('Foo');
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(pp)
|
||||
(if (kIf) (kTrue) (kThen)
|
||||
(statement (exprCall (identifier) (exprArgs (literalString)))))
|
||||
(pp)
|
||||
(while (kWhile) (kTrue) (kDo)
|
||||
(statement (exprCall (identifier) (exprArgs (literalString)))))
|
||||
(pp)
|
||||
(statement (exprCall (identifier) (exprArgs (literalString))))
|
||||
(pp)
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
Preprocessor directives 5
|
||||
===
|
||||
|
||||
procedure a;
|
||||
{$ifdef WIN32}
|
||||
begin
|
||||
end;
|
||||
{$else}
|
||||
begin
|
||||
end;
|
||||
{$endif}
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(pp)
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))
|
||||
(pp)
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))
|
||||
(pp)))
|
||||
|
||||
===
|
||||
Preprocessor directives 6
|
||||
===
|
||||
|
||||
var
|
||||
a: {$if 1}b{$else}c{$endif};
|
||||
|
||||
type
|
||||
a = {$if 1}b{$else}c{$endif};
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(declVars (kVar)
|
||||
(declVar (identifier)
|
||||
(type
|
||||
(pp)
|
||||
(typeref (identifier))
|
||||
(pp)
|
||||
(typeref (identifier))
|
||||
(pp))))
|
||||
(declTypes (kType)
|
||||
(declType
|
||||
(identifier)
|
||||
(kEq)
|
||||
(type
|
||||
(pp)
|
||||
(typeref (identifier))
|
||||
(pp)
|
||||
(typeref (identifier))
|
||||
(pp)))))
|
||||
|
||||
@ -1,348 +0,0 @@
|
||||
===
|
||||
Arguments
|
||||
===
|
||||
|
||||
procedure a;
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure a(b: c);
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure a(b, c: d);
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure a(b, c: d; e, f: g);
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure a(var b: c; const d: e; out f: g);
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure a(var b; const b; out c);
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure a(var b, c: d; const e, f);
|
||||
begin
|
||||
end;
|
||||
|
||||
function a: b;
|
||||
begin
|
||||
end;
|
||||
|
||||
function a(b: c): d;
|
||||
begin
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block (kBegin) (kEnd)))
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(type (typeref (identifier))))))
|
||||
(block (kBegin) (kEnd)))
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(identifier)
|
||||
(type (typeref (identifier))))))
|
||||
(block (kBegin) (kEnd)))
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(identifier)
|
||||
(type (typeref (identifier))))
|
||||
(declArg
|
||||
(identifier)
|
||||
(identifier)
|
||||
(type (typeref (identifier))))))
|
||||
(block (kBegin) (kEnd)))
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg (kVar)
|
||||
(identifier)
|
||||
(type (typeref (identifier))))
|
||||
(declArg (kConst)
|
||||
(identifier)
|
||||
(type (typeref (identifier))))
|
||||
(declArg
|
||||
(kOut)
|
||||
(identifier)
|
||||
(type (typeref (identifier))))))
|
||||
(block (kBegin) (kEnd)))
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg (kVar) (identifier))
|
||||
(declArg (kConst) (identifier))
|
||||
(declArg (kOut) (identifier))))
|
||||
(block (kBegin) (kEnd)))
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier)
|
||||
(declArgs
|
||||
(declArg (kVar)
|
||||
(identifier)
|
||||
(identifier)
|
||||
(type (typeref (identifier))))
|
||||
(declArg (kConst)
|
||||
(identifier)
|
||||
(identifier))))
|
||||
(block (kBegin) (kEnd)))
|
||||
(defProc
|
||||
(declProc (kFunction) (identifier)
|
||||
(typeref (identifier)))
|
||||
(block (kBegin) (kEnd)))
|
||||
(defProc
|
||||
(declProc (kFunction) (identifier)
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(typeref (identifier)))
|
||||
(block (kBegin) (kEnd))))
|
||||
|
||||
===
|
||||
Methods
|
||||
===
|
||||
|
||||
procedure a.b;
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure a.b(c: d);
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure a.b.c;
|
||||
begin
|
||||
end;
|
||||
|
||||
constructor a.b;
|
||||
begin
|
||||
end;
|
||||
|
||||
destructor a.b;
|
||||
begin
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure)
|
||||
(genericDot
|
||||
(identifier)
|
||||
(kDot)
|
||||
(identifier)))
|
||||
(block (kBegin) (kEnd)))
|
||||
(defProc
|
||||
(declProc
|
||||
(kProcedure)
|
||||
(genericDot
|
||||
(identifier)
|
||||
(kDot)
|
||||
(identifier))
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(type (typeref (identifier))))))
|
||||
(block (kBegin) (kEnd)))
|
||||
(defProc
|
||||
(declProc (kProcedure)
|
||||
(genericDot
|
||||
(genericDot
|
||||
(identifier)
|
||||
(kDot)
|
||||
(identifier))
|
||||
(kDot)
|
||||
(identifier)))
|
||||
(block (kBegin) (kEnd)))
|
||||
(defProc
|
||||
(declProc (kConstructor)
|
||||
(genericDot
|
||||
(identifier)
|
||||
(kDot)
|
||||
(identifier)))
|
||||
(block (kBegin) (kEnd)))
|
||||
(defProc
|
||||
(declProc (kDestructor)
|
||||
(genericDot
|
||||
(identifier)
|
||||
(kDot)
|
||||
(identifier)))
|
||||
(block (kBegin) (kEnd))))
|
||||
|
||||
===
|
||||
Operators
|
||||
===
|
||||
|
||||
operator a.+(b, c: d): e;
|
||||
begin
|
||||
end;
|
||||
|
||||
operator a.sub(b, c: d): e;
|
||||
begin
|
||||
end;
|
||||
|
||||
operator a.b.c.+(d, e: f): g;
|
||||
begin
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kOperator)
|
||||
(genericDot
|
||||
(identifier)
|
||||
(kDot)
|
||||
(operatorName (kAdd)))
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(type (typeref (identifier))))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd)))
|
||||
(defProc
|
||||
(declProc (kOperator)
|
||||
(genericDot
|
||||
(identifier)
|
||||
(kDot)
|
||||
(identifier))
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(type (typeref (identifier))))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd)))
|
||||
(defProc
|
||||
(declProc (kOperator)
|
||||
(genericDot
|
||||
(genericDot
|
||||
(genericDot
|
||||
(identifier)
|
||||
(kDot)
|
||||
(identifier))
|
||||
(kDot)
|
||||
(identifier))
|
||||
(kDot)
|
||||
(operatorName (kAdd)))
|
||||
(declArgs
|
||||
(declArg
|
||||
(identifier)
|
||||
(identifier)
|
||||
(type (typeref (identifier)))))
|
||||
(type (typeref (identifier))))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))))
|
||||
|
||||
|
||||
===
|
||||
Locals
|
||||
===
|
||||
|
||||
procedure a;
|
||||
type
|
||||
b = c;
|
||||
var
|
||||
d: e;
|
||||
const
|
||||
f = g;
|
||||
begin
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(declTypes (kType)
|
||||
(declType (identifier) (kEq) (type (typeref (identifier)))))
|
||||
(declVars (kVar)
|
||||
(declVar (identifier) (type (typeref (identifier)))))
|
||||
(declConsts (kConst)
|
||||
(declConst (identifier) (defaultValue (kEq) (identifier))))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))))
|
||||
|
||||
|
||||
===
|
||||
Nested routines
|
||||
===
|
||||
|
||||
procedure a;
|
||||
function b: c;
|
||||
procedure d;
|
||||
begin
|
||||
end;
|
||||
begin
|
||||
end;
|
||||
begin
|
||||
end;
|
||||
|
||||
function a: b;
|
||||
var c: d;
|
||||
procedure e;
|
||||
var
|
||||
f: g;
|
||||
begin
|
||||
end;
|
||||
begin
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(defProc
|
||||
(declProc (kFunction) (identifier) (typeref (identifier)))
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd)))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd)))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd)))
|
||||
(defProc
|
||||
(declProc (kFunction) (identifier) (typeref (identifier)))
|
||||
(declVars (kVar)
|
||||
(declVar (identifier) (type (typeref (identifier)))))
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(declVars (kVar)
|
||||
(declVar (identifier) (type (typeref (identifier)))))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd)))
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))))
|
||||
|
||||
@ -1,763 +0,0 @@
|
||||
===
|
||||
if
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
if a then
|
||||
b;
|
||||
|
||||
if a then
|
||||
b
|
||||
else
|
||||
c;
|
||||
|
||||
if a then
|
||||
begin
|
||||
end;
|
||||
|
||||
if a then
|
||||
begin
|
||||
b;
|
||||
end
|
||||
else
|
||||
begin
|
||||
c;
|
||||
end;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(if (kIf) (identifier) (kThen)
|
||||
(statement (identifier)))
|
||||
(ifElse (kIf) (identifier) (kThen)
|
||||
(statement (identifier))
|
||||
(kElse)
|
||||
(statement (identifier)))
|
||||
(if (kIf) (identifier) (kThen)
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd)))
|
||||
(ifElse
|
||||
(kIf) (identifier) (kThen)
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (identifier))
|
||||
(kEnd))
|
||||
(kElse)
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (identifier))
|
||||
(kEnd)))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
nested if
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
if a then
|
||||
if b then
|
||||
c
|
||||
else
|
||||
d;
|
||||
|
||||
if a then
|
||||
if b then
|
||||
c;
|
||||
else
|
||||
d;
|
||||
|
||||
if a then
|
||||
b
|
||||
else if c then
|
||||
d
|
||||
else
|
||||
e;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(if (kIf) (identifier) (kThen)
|
||||
(ifElse (kIf) (identifier) (kThen)
|
||||
(statement (identifier))
|
||||
(kElse)
|
||||
(statement (identifier))))
|
||||
(ifElse (kIf) (identifier) (kThen)
|
||||
(if (kIf) (identifier) (kThen)
|
||||
(statement (identifier)))
|
||||
(kElse)
|
||||
(statement (identifier)))
|
||||
(ifElse (kIf) (identifier) (kThen)
|
||||
(statement (identifier))
|
||||
(kElse)
|
||||
(ifElse (kIf) (identifier) (kThen)
|
||||
(statement (identifier))
|
||||
(kElse)
|
||||
(statement (identifier))))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
while loop
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
while a do
|
||||
b;
|
||||
|
||||
while a do
|
||||
begin
|
||||
b;
|
||||
end;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(while (kWhile) (identifier) (kDo)
|
||||
(statement (identifier)))
|
||||
(while (kWhile) (identifier) (kDo)
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (identifier))
|
||||
(kEnd)))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
repeat loop
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
repeat
|
||||
a;
|
||||
until b;
|
||||
|
||||
repeat
|
||||
a;
|
||||
b;
|
||||
until c;
|
||||
|
||||
repeat
|
||||
until b;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(repeat
|
||||
(kRepeat)
|
||||
(statements
|
||||
(statement (identifier)))
|
||||
(kUntil) (identifier))
|
||||
(repeat
|
||||
(kRepeat)
|
||||
(statements
|
||||
(statement (identifier))
|
||||
(statement (identifier)))
|
||||
(kUntil) (identifier))
|
||||
(repeat
|
||||
(kRepeat)
|
||||
(kUntil) (identifier))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
for loop
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
for i := a to b do
|
||||
c;
|
||||
|
||||
for i := a to b do
|
||||
begin
|
||||
c;
|
||||
end;
|
||||
|
||||
for i := a downto b do
|
||||
c;
|
||||
|
||||
for i := a downto b do
|
||||
begin
|
||||
c;
|
||||
end;
|
||||
|
||||
for i in a do
|
||||
c;
|
||||
|
||||
for i in a do
|
||||
begin
|
||||
c;
|
||||
end;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(for (kFor) (assignment (identifier) (kAssign) (identifier)) (kTo) (identifier) (kDo)
|
||||
(statement (identifier)))
|
||||
(for (kFor) (assignment (identifier) (kAssign) (identifier)) (kTo) (identifier) (kDo)
|
||||
(block
|
||||
(kBegin)
|
||||
(statement
|
||||
(identifier))
|
||||
(kEnd)))
|
||||
(for (kFor) (assignment (identifier) (kAssign) (identifier)) (kDownto) (identifier) (kDo)
|
||||
(statement (identifier)))
|
||||
(for (kFor) (assignment (identifier) (kAssign) (identifier)) (kDownto) (identifier) (kDo)
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (identifier))
|
||||
(kEnd)))
|
||||
(foreach (kFor) (identifier) (kIn) (identifier) (kDo)
|
||||
(statement (identifier)))
|
||||
(foreach (kFor) (identifier) (kIn) (identifier) (kDo)
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (identifier))
|
||||
(kEnd)))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
case of
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
case a of
|
||||
b: c;
|
||||
end;
|
||||
|
||||
case a of
|
||||
b: c;
|
||||
c: d;
|
||||
else
|
||||
e;
|
||||
end;
|
||||
|
||||
case a of
|
||||
b, c: d;
|
||||
end;
|
||||
|
||||
case a of
|
||||
b .. c: d;
|
||||
end;
|
||||
|
||||
case a of
|
||||
b .. c, d: e;
|
||||
end;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(case (kCase) (identifier) (kOf)
|
||||
(caseCase
|
||||
(caseLabel (identifier))
|
||||
(statement (identifier)))
|
||||
(kEnd))
|
||||
(case (kCase) (identifier) (kOf)
|
||||
(caseCase
|
||||
(caseLabel (identifier))
|
||||
(statement (identifier)))
|
||||
(caseCase
|
||||
(caseLabel (identifier))
|
||||
(statement (identifier)))
|
||||
(kElse)
|
||||
(statement (identifier))
|
||||
(kEnd))
|
||||
(case (kCase) (identifier) (kOf)
|
||||
(caseCase
|
||||
(caseLabel (identifier) (identifier))
|
||||
(statement (identifier)))
|
||||
(kEnd))
|
||||
(case (kCase) (identifier) (kOf)
|
||||
(caseCase
|
||||
(caseLabel (range (identifier) (identifier)))
|
||||
(statement (identifier)))
|
||||
(kEnd))
|
||||
(case (kCase) (identifier) (kOf)
|
||||
(caseCase
|
||||
(caseLabel
|
||||
(range (identifier) (identifier))
|
||||
(identifier))
|
||||
(statement (identifier)))
|
||||
(kEnd))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
try
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
|
||||
try
|
||||
a;
|
||||
finally
|
||||
b;
|
||||
end;
|
||||
|
||||
try
|
||||
a;
|
||||
except
|
||||
b;
|
||||
end;
|
||||
|
||||
try
|
||||
a;
|
||||
except
|
||||
on b: c do
|
||||
d;
|
||||
on e: f do
|
||||
g;
|
||||
else
|
||||
h;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(try (kTry)
|
||||
(statements
|
||||
(statement (identifier)))
|
||||
(kFinally)
|
||||
(statements
|
||||
(statement (identifier)))
|
||||
(kEnd))
|
||||
(try (kTry)
|
||||
(statements
|
||||
(statement (identifier)))
|
||||
(kExcept)
|
||||
(statements
|
||||
(statement (identifier)))
|
||||
(kEnd))
|
||||
(try (kTry)
|
||||
(statements
|
||||
(statement (identifier)))
|
||||
(kExcept)
|
||||
(exceptionHandler
|
||||
(kOn) (identifier) (typeref (identifier)) (kDo)
|
||||
(statement (identifier)))
|
||||
(exceptionHandler
|
||||
(kOn) (identifier) (typeref (identifier)) (kDo)
|
||||
(statement (identifier)))
|
||||
(exceptionElse (kElse)
|
||||
(statement (identifier)))
|
||||
(kEnd))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
with
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
with a do
|
||||
b;
|
||||
|
||||
with a do
|
||||
begin
|
||||
b;
|
||||
end;
|
||||
|
||||
with a, b do
|
||||
c;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(with (kWith) (identifier) (kDo)
|
||||
(statement (identifier)))
|
||||
(with
|
||||
(kWith) (identifier) (kDo)
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (identifier))
|
||||
(kEnd)))
|
||||
(with (kWith) (identifier) (identifier) (kDo)
|
||||
(statement (identifier)))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
asm
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
asm
|
||||
end;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(asm
|
||||
(kAsm)
|
||||
(kEnd))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
raise
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
raise a;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(raise (kRaise) (identifier))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
goto + label
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
a:;
|
||||
goto a;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(label (identifier))
|
||||
(goto (kGoto) (identifier))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
assignment
|
||||
===
|
||||
|
||||
procedure Main;
|
||||
begin
|
||||
a := b;
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier))
|
||||
(block
|
||||
(kBegin)
|
||||
(assignment (identifier) (kAssign) (identifier))
|
||||
(kEnd))))
|
||||
|
||||
===
|
||||
trailing
|
||||
===
|
||||
|
||||
procedure Main();
|
||||
begin
|
||||
begin
|
||||
a;
|
||||
b
|
||||
end;
|
||||
|
||||
begin
|
||||
begin
|
||||
end
|
||||
end;
|
||||
|
||||
begin
|
||||
if a then
|
||||
b
|
||||
end;
|
||||
|
||||
begin
|
||||
if a then
|
||||
if b then
|
||||
c
|
||||
end;
|
||||
|
||||
begin
|
||||
if a then
|
||||
begin
|
||||
b
|
||||
end
|
||||
end;
|
||||
|
||||
begin
|
||||
if a then
|
||||
b
|
||||
else
|
||||
c
|
||||
end;
|
||||
|
||||
begin
|
||||
if a then
|
||||
begin
|
||||
b
|
||||
end
|
||||
else
|
||||
begin
|
||||
c
|
||||
end
|
||||
end;
|
||||
|
||||
begin
|
||||
while a do
|
||||
b
|
||||
end;
|
||||
|
||||
begin
|
||||
repeat
|
||||
a
|
||||
until b
|
||||
end;
|
||||
|
||||
begin
|
||||
for a := b to c do
|
||||
a
|
||||
end;
|
||||
|
||||
begin
|
||||
for a := b to c do
|
||||
begin
|
||||
a
|
||||
end
|
||||
end;
|
||||
|
||||
begin
|
||||
case a of
|
||||
b: c;
|
||||
d: e
|
||||
end
|
||||
end;
|
||||
|
||||
begin
|
||||
case a of
|
||||
b: c;
|
||||
else
|
||||
d
|
||||
end
|
||||
end;
|
||||
|
||||
begin
|
||||
try
|
||||
a
|
||||
finally
|
||||
b
|
||||
end
|
||||
end;
|
||||
|
||||
begin
|
||||
try
|
||||
a
|
||||
except
|
||||
b
|
||||
end
|
||||
end;
|
||||
|
||||
begin
|
||||
with a do
|
||||
b
|
||||
end;
|
||||
|
||||
begin
|
||||
a := b
|
||||
end;
|
||||
|
||||
begin
|
||||
goto a
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
---
|
||||
|
||||
(root
|
||||
(defProc
|
||||
(declProc (kProcedure) (identifier) (declArgs))
|
||||
(block
|
||||
(kBegin)
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (identifier))
|
||||
(statement (identifier))
|
||||
(kEnd))
|
||||
(block
|
||||
(kBegin)
|
||||
(block
|
||||
(kBegin)
|
||||
(kEnd))
|
||||
(kEnd))
|
||||
(block
|
||||
(kBegin)
|
||||
(if (kIf) (identifier) (kThen)
|
||||
(statement (identifier)))
|
||||
(kEnd))
|
||||
(block
|
||||
(kBegin)
|
||||
(if (kIf) (identifier) (kThen)
|
||||
(if (kIf) (identifier) (kThen)
|
||||
(statement (identifier))))
|
||||
(kEnd))
|
||||
(block
|
||||
(kBegin)
|
||||
(if (kIf) (identifier) (kThen)
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (identifier))
|
||||
(kEnd)))
|
||||
(kEnd))
|
||||
(block
|
||||
(kBegin)
|
||||
(ifElse (kIf) (identifier) (kThen)
|
||||
(statement (identifier))
|
||||
(kElse)
|
||||
(statement (identifier)))
|
||||
(kEnd))
|
||||
(block
|
||||
(kBegin)
|
||||
(ifElse (kIf) (identifier) (kThen)
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (identifier))
|
||||
(kEnd))
|
||||
(kElse)
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (identifier))
|
||||
(kEnd)))
|
||||
(kEnd))
|
||||
(block
|
||||
(kBegin)
|
||||
(while (kWhile) (identifier) (kDo)
|
||||
(statement (identifier)))
|
||||
(kEnd))
|
||||
(block
|
||||
(kBegin)
|
||||
(repeat (kRepeat)
|
||||
(statements
|
||||
(statement (identifier)))
|
||||
(kUntil)
|
||||
(identifier))
|
||||
(kEnd))
|
||||
(block
|
||||
(kBegin)
|
||||
(for (kFor) (assignment (identifier) (kAssign) (identifier)) (kTo) (identifier) (kDo)
|
||||
(statement (identifier)))
|
||||
(kEnd))
|
||||
(block
|
||||
(kBegin)
|
||||
(for (kFor) (assignment (identifier) (kAssign) (identifier)) (kTo) (identifier) (kDo)
|
||||
(block
|
||||
(kBegin)
|
||||
(statement (identifier))
|
||||
(kEnd)))
|
||||
(kEnd))
|
||||
(block
|
||||
(kBegin)
|
||||
(case (kCase) (identifier) (kOf)
|
||||
(caseCase
|
||||
(caseLabel (identifier))
|
||||
(statement (identifier)))
|
||||
(caseCase
|
||||
(caseLabel (identifier))
|
||||
(statement (identifier)))
|
||||
(kEnd))
|
||||
(kEnd))
|
||||
(block
|
||||
(kBegin)
|
||||
(case (kCase) (identifier) (kOf)
|
||||
(caseCase
|
||||
(caseLabel (identifier))
|
||||
(statement (identifier)))
|
||||
(kElse)
|
||||
(statement (identifier))
|
||||
(kEnd))
|
||||
(kEnd))
|
||||
(block
|
||||
(kBegin)
|
||||
(try
|
||||
(kTry)
|
||||
(statements
|
||||
(statement (identifier)))
|
||||
(kFinally)
|
||||
(statements
|
||||
(statement (identifier)))
|
||||
(kEnd))
|
||||
(kEnd))
|
||||
(block
|
||||
(kBegin)
|
||||
(try
|
||||
(kTry)
|
||||
(statements
|
||||
(statement (identifier)))
|
||||
(kExcept)
|
||||
(statements
|
||||
(statement (identifier)))
|
||||
(kEnd))
|
||||
(kEnd))
|
||||
(block
|
||||
(kBegin)
|
||||
(with (kWith) (identifier) (kDo)
|
||||
(statement (identifier)))
|
||||
(kEnd))
|
||||
(block
|
||||
(kBegin)
|
||||
(assignment (identifier) (kAssign) (identifier))
|
||||
(kEnd))
|
||||
(block
|
||||
(kBegin)
|
||||
(goto (kGoto) (identifier))
|
||||
(kEnd))
|
||||
(kEnd))))
|
||||
Loading…
Reference in New Issue