pascal.def

是一个很好的编辑器

;==============================================================================================
; PSPad clip definition file for Free Pascal RTL library
;
; Autor: Andrzej Kowalski
; Last revision: 2005-10-25
; File version: 1.0
;
; Based on:
;
;   Source: PSPad clip definition file for Object Pascal
;   Autor: Borland Delphi 5
;   Last revision: 12-08-2001
; 
;   Source: FreePascal documentation
;   Autor: Micha雔 Van Canneyt
;   Last revision: 05-2005
;
;==============================================================================================
;   Comments
;==============================================================================================
;   
;   Unified color schemes:
;
;       black   - Free Pascal language statements
;       gray    - Free Pascal compiler directives
;       navy    - Free Pascal laguage definitions
;       blue    - Free Pascal library functions and procedures
;       green   - Free Pascal library classes
;       purple  - Free Pascal library types
;       fuchsia - Free Pascal library variables
;       red     - Free Pascal library constants
;       maroon  - user defined constructions
;
;   Units incorporated in this file:
;
;       Pascal Language (including basic types, structured statements, 
;                        definition statements and procedure modifiers)
;       Pascal Compiler directives (with all possible switches)
;
;   and (including types, constants, variables, classes, functions and procedures)
;
;       Unit System
;       Unit Sysutils
;       Unit Dateutils
;       Unit Math
;       Unit Objpas
;       Unit Strings
;       Unit Strutils
;       Unit Typinfo
;       Unit Classes
;       Unit Dynlibs
;
;
;   Conventions:
;	
;	(type)		- result type of function (in function description)
;	(size: )	- size of variable of described type (in basic types description)
;   {? }		- function or procedure parameters description (in function description)
;   type1|type2	- passed parameters can be of type1 or type2
;	Name::		- name of unit which contains definition of this statement
;   optional    - optional parameter of given function or procedure; it indicates
;                 overloaded variants of given function rather than parameter with predefined 
;                 value
; 
;==============================================================================================

[Macro definition]
%OF%=@E Of:,
%FROM%=@E Bounds from:,
%TO%=@E Bounds to:,
%NAME%=@E Name:,
%TNAME%=@E Parent class name:,,TObject,
%COUNTER%=@E Counter name:,,i,
%RESULT%=@C Result type:,,,Integer;String;Boolean,
%PARAMS%=@E Parametres:,

%compileralign%=@C Type:,,POWER,MAC68K;POWER;RESET,
%compilerasmmode%=@C Type:,,INTEL,ATT;INTEL;DIRECT,
%compileronoff%=@C State:,,ON,ON;OFF,
%compilerfputype%=@C Type:,,X87,SOFT;X87;SSE;SSE2;SSE64;STANDARD;FPA;FPA10;FPA11;VFP;LIBGCC,
%compilerinterfaces%=@C Type:,,DEFAULT,DEFAULT;COM;CORBA,
%compilerinclude%=@C Type:,,DATE,FPCTARGET;FPCTARGETCPU;FPCTARGETOS;DATE;TIME;FILE;LINE,
%compilerfpuregisters%=@C Number:,,DEFAULT,NORMAL;DEFAULT;0;1;2;3;4;5;6;7,
%compileroutput%=@C Type:,,MASM,AS;AS_OUT;ASW;COFF;NASM;MASM;NASMCOFF;NASMELF;PECOFF;TASM,
%compilerpackenum%=@C Number:,,DEFAULT,NORMAL;DEFAULT;1;2;4,
%compilerz%=@C Number:,,4,1;2;4,
%compilerpackrecords%=@C Number:,,DEFAULT,NORMAL;DEFAULT;1;2;4;16;C,
%compilerapptype%=@C Type:,,GUI,CONSOLE;FS;GUI;TOOL,
%compilercalling%=@C Number:,,STDCALL,CDECL;CPPDECL;FPCCALL;FAR16;INLINE;PASCAL;REGISTER;SAFECALL;STDCALL;SOFTFLOAT,
%compilermode%=@C Type:,,OBJPAS,DEFAULT;DELPHI;OBJFPC;TP;GPC;FPC;MACPAS,

;==============================================================================================
; Pascal language
;==============================================================================================

[array |n array declaration (var)]
array[%From%..%To%] of %Of%;
|

[classf |n class declaration (all parts)]
%Name% = class(%TName%)
private
|
protected

public

published

end;
;
[classd |n class declaration (no parts)]
%Name% = class(%TName%)
|
end;
;
[classc |n class declaration (with Create/Destroy overrides)]
%Name% = class(%TName%)
private
|
protected

public
  constructor Create; override;
  destructor Destroy; override;
published

end;
;

[function |n function declaration]
function %Name%(%Params%): %Result%;
begin
|
end;
;

[procedure |n procedure declaration]
procedure %Name%(%Params%);
begin
  |
end;
;

[record |n record declaration]