mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-05 17:05:19 -05:00
Merge branch 'master' of ssh://villavu.com:54367/simba
This commit is contained in:
Merlijn Wajer
commit
38983674c2
File diff suppressed because it is too large
Load Diff
@ -1,322 +0,0 @@
|
||||
{---------------------------------------------------------------------------
|
||||
The contents of this file are subject to the Mozilla Public License Version
|
||||
1.1 (the "License"); you may not use this file except in compliance with the
|
||||
License. You may obtain a copy of the License at
|
||||
http://www.mozilla.org/NPL/NPL-1_1Final.html
|
||||
|
||||
Software distributed under the License is distributed on an "AS IS" basis,
|
||||
WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
|
||||
the specific language governing rights and limitations under the License.
|
||||
|
||||
The Original Code is: mwPasLexTypes, released November 14, 1999.
|
||||
|
||||
The Initial Developer of the Original Code is Martin Waldenburg
|
||||
unit CastaliaPasLexTypes;
|
||||
|
||||
----------------------------------------------------------------------------}
|
||||
|
||||
unit CastaliaPasLexTypes;
|
||||
|
||||
{$include ValistusDefines.inc}
|
||||
|
||||
interface
|
||||
|
||||
uses SysUtils, TypInfo;
|
||||
|
||||
var
|
||||
CompTable: array[#0..#255] of byte;
|
||||
|
||||
type
|
||||
|
||||
TMessageEventType = ( meError, meNotSupported );
|
||||
|
||||
TMessageEvent = procedure(Sender: TObject; const Typ : TMessageEventType; const Msg: string; X, Y: Integer ) of object; //jdj 7/16/1999; DR 2001-11-06
|
||||
|
||||
TCommentState = (csAnsi, csBor, csNo);
|
||||
|
||||
TTokenPoint = packed record
|
||||
X : Integer;
|
||||
Y : Integer;
|
||||
end;
|
||||
|
||||
TptTokenKind = (
|
||||
tokAbort, //JThurman 2004-11-8 (flow control routines)
|
||||
tokAbsolute,
|
||||
tokAbstract,
|
||||
tokAdd,
|
||||
tokAddressOp,
|
||||
tokAmpersand,
|
||||
tokAnd,
|
||||
tokAnsiComment,
|
||||
tokAnsiString,
|
||||
tokArray,
|
||||
tokAs,
|
||||
tokAsciiChar,
|
||||
tokAsm,
|
||||
tokAssembler,
|
||||
tokAssign,
|
||||
tokAt,
|
||||
tokAutomated,
|
||||
tokBegin,
|
||||
tokBoolean,
|
||||
tokBorComment,
|
||||
tokBraceClose,
|
||||
tokBraceOpen,
|
||||
tokBreak, //JThurman 2004-11-8 (flow control routines)
|
||||
tokByte,
|
||||
tokByteBool,
|
||||
tokCardinal,
|
||||
tokCase,
|
||||
tokCdecl,
|
||||
tokChar,
|
||||
tokClass,
|
||||
tokClassForward,
|
||||
tokClassFunction,
|
||||
tokClassProcedure,
|
||||
tokColon,
|
||||
tokComma,
|
||||
tokComp,
|
||||
tokCompDirect,
|
||||
tokConst,
|
||||
tokConstructor,
|
||||
tokContains,
|
||||
tokContinue, //JThurman 2004-11-8 (flow control routines)
|
||||
tokCRLF,
|
||||
tokCRLFCo,
|
||||
tokCurrency,
|
||||
tokDefault,
|
||||
tokDefineDirect,
|
||||
tokDeprecated, // DR 2001-10-20
|
||||
tokDestructor,
|
||||
tokDispid,
|
||||
tokDispinterface,
|
||||
tokDiv,
|
||||
tokDo,
|
||||
tokDotDot,
|
||||
tokDouble,
|
||||
tokDoubleAddressOp,
|
||||
tokDownto,
|
||||
tokDWORD,
|
||||
tokDynamic,
|
||||
tokElse,
|
||||
tokElseDirect,
|
||||
tokEnd,
|
||||
tokEndIfDirect,
|
||||
tokEqual,
|
||||
tokError,
|
||||
tokExcept,
|
||||
tokExit, //JThurman 2004-11-8 (flow control routine)
|
||||
tokExport,
|
||||
tokExports,
|
||||
tokExtended,
|
||||
tokExternal,
|
||||
tokFar,
|
||||
tokFile,
|
||||
{$IFDEF D8_NEWER} //JThurman 2004-03-20
|
||||
tokFinal,
|
||||
{$ENDIF}
|
||||
tokFinalization,
|
||||
tokFinally,
|
||||
tokFloat,
|
||||
tokFor,
|
||||
tokForward,
|
||||
tokFunction,
|
||||
tokGoto,
|
||||
tokGreater,
|
||||
tokGreaterEqual,
|
||||
tokHalt, //JThurman 2004-11-8 (flow control routines)
|
||||
{$IFDEF D8_NEWER} //JThurman 2004-04-06
|
||||
tokHelper,
|
||||
{$ENDIF}
|
||||
tokIdentifier,
|
||||
tokIf,
|
||||
tokIfDirect,
|
||||
tokIfEndDirect,
|
||||
tokElseIfDirect,
|
||||
tokIfDefDirect,
|
||||
tokIfNDefDirect,
|
||||
tokIfOptDirect,
|
||||
tokImplementation,
|
||||
tokImplements,
|
||||
tokIn,
|
||||
tokIncludeDirect,
|
||||
tokIndex,
|
||||
tokInherited,
|
||||
tokInitialization,
|
||||
tokInline,
|
||||
tokInt64,
|
||||
tokInteger,
|
||||
tokIntegerConst,
|
||||
tokInterface,
|
||||
tokIs,
|
||||
tokLabel,
|
||||
tokLibrary,
|
||||
tokLocal, // DR 2001-11-14
|
||||
tokLongBool,
|
||||
tokLongint,
|
||||
tokLongword,
|
||||
tokLower,
|
||||
tokLowerEqual,
|
||||
tokMessage,
|
||||
tokMinus,
|
||||
tokMod,
|
||||
tokName,
|
||||
tokNear,
|
||||
tokNil,
|
||||
tokNodefault,
|
||||
tokNone,
|
||||
tokNot,
|
||||
tokNotEqual,
|
||||
tokNull,
|
||||
tokObject,
|
||||
tokOf,
|
||||
tokOleVariant,
|
||||
tokOn,
|
||||
{$IFDEF D8_NEWER} //JThurman 2004-03-20
|
||||
tokOperator,
|
||||
{$ENDIF}
|
||||
tokOr,
|
||||
tokOut,
|
||||
tokOverload,
|
||||
tokOverride,
|
||||
tokPackage,
|
||||
tokPacked,
|
||||
tokPascal,
|
||||
tokPChar,
|
||||
tokPlatform, // DR 2001-10-20
|
||||
tokPlus,
|
||||
tokPoint,
|
||||
tokPointerSymbol,
|
||||
tokPrivate,
|
||||
tokProcedure,
|
||||
tokProgram,
|
||||
tokProperty,
|
||||
tokProtected,
|
||||
tokPublic,
|
||||
tokPublished,
|
||||
tokRaise,
|
||||
tokRead,
|
||||
tokReadonly,
|
||||
tokReal,
|
||||
tokReal48,
|
||||
tokRecord,
|
||||
{$IFDEF D12_NEWER}
|
||||
tokReference, //JThurman 2008-25-07 (anonymous methods)
|
||||
{$ENDIF}
|
||||
tokRegister,
|
||||
tokReintroduce,
|
||||
tokRemove,
|
||||
tokRepeat,
|
||||
tokRequires,
|
||||
tokResident,
|
||||
tokResourceDirect,
|
||||
tokResourcestring,
|
||||
tokRoundClose,
|
||||
tokRoundOpen,
|
||||
tokRunError, //JThurman 2004-11-8 (flow control routines)
|
||||
tokSafeCall,
|
||||
{$IFDEF D8_NEWER} //JThurman 2004-03-19
|
||||
tokSealed,
|
||||
{$ENDIF}
|
||||
tokSemiColon,
|
||||
tokSet,
|
||||
tokShl,
|
||||
tokShortint,
|
||||
tokShortString,
|
||||
tokShr,
|
||||
tokSingle,
|
||||
tokSlash,
|
||||
tokSlashesComment,
|
||||
tokSmallint,
|
||||
tokSpace,
|
||||
tokSquareClose,
|
||||
tokSquareOpen,
|
||||
tokStar,
|
||||
{$IFDEF D8_NEWER} //JThurman 2004-03-20
|
||||
tokStatic,
|
||||
{$ENDIF}
|
||||
tokStdcall,
|
||||
tokStored,
|
||||
{$IFDEF D8_NEWER}
|
||||
tokStrict, //JThurman 2004-03-03
|
||||
{$ENDIF}
|
||||
tokString,
|
||||
tokStringConst,
|
||||
tokStringDQConst, // 2002-01-14
|
||||
tokStringresource,
|
||||
tokSymbol,
|
||||
tokThen,
|
||||
tokThreadvar,
|
||||
tokTo,
|
||||
tokTry,
|
||||
tokType,
|
||||
tokUndefDirect,
|
||||
tokUnit,
|
||||
tokUnknown,
|
||||
{$IFDEF D8_NEWER} //JThurman 2004-03-2003
|
||||
tokUnsafe,
|
||||
{$ENDIF}
|
||||
tokUntil,
|
||||
tokUses,
|
||||
tokVar,
|
||||
tokVarargs, // DR 2001-11-14
|
||||
tokVariant,
|
||||
tokVirtual,
|
||||
tokWhile,
|
||||
tokWideChar,
|
||||
tokWideString,
|
||||
tokWith,
|
||||
tokWord,
|
||||
tokWordBool,
|
||||
tokWrite,
|
||||
tokWriteonly,
|
||||
tokXor,
|
||||
|
||||
tok_DONE);
|
||||
|
||||
TmwPasLexStatus = record
|
||||
CommentState: TCommentState;
|
||||
ExID: TptTokenKind;
|
||||
LineNumber: Integer;
|
||||
LinePos: Integer;
|
||||
Origin: PAnsiChar;
|
||||
RunPos: Integer;
|
||||
TokenPos: Integer;
|
||||
TokenID: TptTokenKind;
|
||||
end;
|
||||
|
||||
const ExTypes = [tokDWORD, tokUnknown];
|
||||
|
||||
function TokenName(Value: TptTokenKind): string;
|
||||
function tokTokenName(Value: TptTokenKind): string;
|
||||
function IsTokenIDJunk(const aTokenID : TptTokenKind ) :Boolean; //XM 20001210
|
||||
|
||||
implementation
|
||||
|
||||
function TokenName(Value: TptTokenKind): string;
|
||||
begin //jdj 7/18/1999
|
||||
Result := Copy(tokTokenName(Value), 4, MaxInt);
|
||||
end;
|
||||
|
||||
function tokTokenName(Value: TptTokenKind): string;
|
||||
begin
|
||||
result := GetEnumName(TypeInfo(TptTokenKind), Integer(Value));
|
||||
end;
|
||||
|
||||
function IsTokenIDJunk(const aTokenID : TptTokenKind ) :boolean; //XM 20001210
|
||||
begin
|
||||
Result := aTokenID in [tokAnsiComment, tokBorComment, tokCRLF, tokCRLFCo, tokSlashesComment, tokSpace,
|
||||
tokIfDirect,
|
||||
tokIfEndDirect,
|
||||
tokElseIfDirect,
|
||||
tokIfDefDirect,
|
||||
tokIfNDefDirect,
|
||||
tokEndIfDirect,
|
||||
tokIfOptDirect,
|
||||
tokDefineDirect,
|
||||
tokUndefDirect];
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,330 +0,0 @@
|
||||
{---------------------------------------------------------------------------
|
||||
The contents of this file are subject to the Mozilla Public License Version
|
||||
1.1 (the "License"); you may not use this file except in compliance with the
|
||||
License. You may obtain a copy of the License at
|
||||
http://www.mozilla.org/NPL/NPL-1_1Final.html
|
||||
|
||||
Software distributed under the License is distributed on an "AS IS" basis,
|
||||
WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
|
||||
the specific language governing rights and limitations under the License.
|
||||
|
||||
The Original Code is: mwSimplePasParTypes, released November 14, 1999.
|
||||
|
||||
The Initial Developer of the Original Code is Martin Waldenburg
|
||||
unit CastaliaPasLexTypes;
|
||||
|
||||
----------------------------------------------------------------------------}
|
||||
|
||||
unit CastaliaSimplePasParTypes;
|
||||
|
||||
{$include ValistusDefines.inc}
|
||||
|
||||
interface
|
||||
|
||||
uses SysUtils, TypInfo;
|
||||
|
||||
type
|
||||
TmwParseError = (
|
||||
InvalidAdditiveOperator,
|
||||
InvalidAccessSpecifier,
|
||||
InvalidCharString,
|
||||
InvalidClassMethodHeading,
|
||||
InvalidConstantDeclaration,
|
||||
InvalidConstSection,
|
||||
InvalidDeclarationSection,
|
||||
InvalidDirective16Bit,
|
||||
InvalidDirectiveBinding,
|
||||
InvalidDirectiveCalling,
|
||||
InvalidExportedHeading,
|
||||
InvalidForStatement,
|
||||
InvalidInitializationSection,
|
||||
InvalidInterfaceDeclaration,
|
||||
InvalidInterfaceType,
|
||||
InvalidLabelId,
|
||||
InvalidLabeledStatement,
|
||||
InvalidMethodHeading,
|
||||
InvalidMultiplicativeOperator,
|
||||
InvalidNumber,
|
||||
InvalidOrdinalIdentifier,
|
||||
InvalidParameter,
|
||||
InvalidParseFile,
|
||||
InvalidProceduralDirective,
|
||||
InvalidProceduralType,
|
||||
InvalidProcedureDeclarationSection,
|
||||
InvalidProcedureMethodDeclaration,
|
||||
InvalidRealIdentifier,
|
||||
InvalidRelativeOperator,
|
||||
InvalidStorageSpecifier,
|
||||
InvalidStringIdentifier,
|
||||
InvalidStructuredType,
|
||||
InvalidTryStatement,
|
||||
InvalidTypeKind,
|
||||
InvalidVariantIdentifier,
|
||||
InvalidVarSection,
|
||||
vchInvalidClass, //vch
|
||||
vchInvalidMethod, //vch
|
||||
vchInvalidProcedure,//vch
|
||||
vchInvalidCircuit, //vch
|
||||
vchInvalidIncludeFile //vch
|
||||
);
|
||||
|
||||
TmwPasCodeInfo = (
|
||||
ciNone, //: @BUG heresy !
|
||||
ciAccessSpecifier,
|
||||
ciAdditiveOperator,
|
||||
ciArrayConstant,
|
||||
ciArrayType,
|
||||
ciAsmStatement,
|
||||
ciBlock,
|
||||
ciCaseLabel,
|
||||
ciCaseSelector,
|
||||
ciCaseStatement,
|
||||
ciCharString,
|
||||
ciClassClass, //DR 2001-07-16
|
||||
ciClassField,
|
||||
ciClassForward,
|
||||
ciClassFunctionHeading,
|
||||
ciClassHeritage,
|
||||
ciClassMemberList,
|
||||
ciClassMethodDirective,
|
||||
ciClassMethodHeading,
|
||||
ciClassMethodOrProperty,
|
||||
ciClassMethodResolution,
|
||||
ciClassProcedureHeading,
|
||||
ciClassProperty,
|
||||
ciClassReferenceType,
|
||||
ciClassType,
|
||||
ciClassTypeEnd, // DR 2001-07-31
|
||||
ciClassVisibility,
|
||||
ciCompoundStatement,
|
||||
ciConstantColon,
|
||||
ciConstantDeclaration,
|
||||
ciConstantEqual,
|
||||
ciConstantExpression,
|
||||
ciConstantName,
|
||||
ciConstantValue,
|
||||
ciConstantValueTyped,
|
||||
ciConstParameter,
|
||||
ciConstructorHeading,
|
||||
ciConstructorName,
|
||||
ciConstSection,
|
||||
ciContainsClause,
|
||||
ciContainsExpression,
|
||||
ciContainsIdentifier,
|
||||
ciContainsStatement,
|
||||
ciDeclarationSection,
|
||||
ciDesignator,
|
||||
ciDestructorHeading,
|
||||
ciDestructorName,
|
||||
ciDirective16Bit,
|
||||
ciDirectiveBinding,
|
||||
ciDirectiveCalling,
|
||||
ciDirectiveDeprecated, // DR 2001-10-20
|
||||
ciDirectiveLibrary, // DR 2001-10-20
|
||||
ciDirectiveLocal, // DR 2001-11-14
|
||||
ciDirectivePlatform, // DR 2001-10-20
|
||||
ciDirectiveVarargs, // DR 2001-11-14
|
||||
ciDispIDSpecifier, // DR 2001-07-26
|
||||
ciDispInterfaceForward,
|
||||
ciEmptyStatement,
|
||||
ciEnumeratedType,
|
||||
ciEnumeratedTypeItem, // DR 2001-10-29
|
||||
ciExceptBlock,
|
||||
ciExceptionBlockElseBranch,
|
||||
ciExceptionClassTypeIdentifier,
|
||||
ciExceptionHandler,
|
||||
ciExceptionHandlerList,
|
||||
ciExceptionIdentifier,
|
||||
ciExceptionVariable,
|
||||
ciExpliciteType,
|
||||
ciExportedHeading,
|
||||
ciExportsClause,
|
||||
ciExportsElement,
|
||||
ciExpression,
|
||||
ciExpressionList,
|
||||
ciExternalDirective,
|
||||
ciExternalDirectiveThree,
|
||||
ciExternalDirectiveTwo,
|
||||
ciFactor,
|
||||
ciFieldDeclaration,
|
||||
ciFieldList,
|
||||
ciFileType,
|
||||
ciFormalParameterList,
|
||||
ciFormalParameterSection,
|
||||
ciForStatement,
|
||||
ciForwardDeclaration, // DR 2001-07-23
|
||||
ciFunctionHeading,
|
||||
ciFunctionMethodDeclaration,
|
||||
ciFunctionMethodName,
|
||||
ciFunctionProcedureBlock,
|
||||
ciFunctionProcedureName,
|
||||
ciHandlePtCompDirect, //XM 20001125
|
||||
ciHandlePtDefineDirect, //XM 20001125
|
||||
ciHandlePtElseDirect, //XM 20001125
|
||||
ciHandlePtIfDefDirect, //XM 20001125
|
||||
ciHandlePtEndIfDirect, //XM 20001125
|
||||
ciHandlePtIfNDefDirect, //XM 20001125
|
||||
ciHandlePtIfOptDirect, //XM 20001125
|
||||
ciHandlePtIncludeDirect,//XM 20001125
|
||||
ciHandlePtResourceDirect,//XM 20001125
|
||||
ciHandlePtUndefDirect, //XM 20001125
|
||||
ciIdentifier,
|
||||
ciIdentifierList,
|
||||
ciIfStatement,
|
||||
ciImplementationSection,
|
||||
ciIncludeFile,
|
||||
ciIndexSpecifier, // DR 2001-07-26
|
||||
ciInheritedStatement,
|
||||
ciInitializationSection,
|
||||
ciInlineStatement,
|
||||
ciInterfaceDeclaration,
|
||||
ciInterfaceForward,
|
||||
ciInterfaceGUID,
|
||||
ciInterfaceHeritage,
|
||||
ciInterfaceMemberList,
|
||||
ciInterfaceSection,
|
||||
ciInterfaceType,
|
||||
ciLabelDeclarationSection,
|
||||
ciLabeledStatement,
|
||||
ciLabelId,
|
||||
ciLibraryFile,
|
||||
ciMainUsedUnitExpression,
|
||||
ciMainUsedUnitName,
|
||||
ciMainUsedUnitStatement,
|
||||
ciMainUsesClause,
|
||||
ciMultiplicativeOperator,
|
||||
ciNewFormalParameterType,
|
||||
ciNumber,
|
||||
ciNextToken, //XM 20002512
|
||||
ciObjectConstructorHeading,
|
||||
ciObjectDestructorHeading,
|
||||
ciObjectField,
|
||||
ciObjectForward,
|
||||
ciObjectFunctionHeading,
|
||||
ciObjectHeritage,
|
||||
ciObjectMemberList,
|
||||
ciObjectMethodDirective,
|
||||
ciObjectMethodHeading,
|
||||
ciObjectNameOfMethod,
|
||||
ciObjectProcedureHeading,
|
||||
ciObjectProperty, // DR 2001-08-07
|
||||
ciObjectPropertySpecifiers, // DR 2001-08-07
|
||||
ciObjectType,
|
||||
ciObjectTypeEnd, // DR 2001-08-07
|
||||
ciObjectVisibility,
|
||||
ciOldFormalParameterType,
|
||||
ciOrdinalIdentifier,
|
||||
ciOrdinalType,
|
||||
ciOutParameter,
|
||||
ciPackageFile,
|
||||
ciParameterFormal,
|
||||
ciParameterName,
|
||||
ciParameterNameList,
|
||||
ciParseFile,
|
||||
ciPointerType,
|
||||
ciProceduralDirective,
|
||||
ciProceduralType,
|
||||
ciProcedureDeclarationSection,
|
||||
ciProcedureHeading,
|
||||
ciProcedureMethodDeclaration,
|
||||
ciProcedureMethodName,
|
||||
ciProgramBlock,
|
||||
ciProgramFile,
|
||||
ciPropertyDefault, // DR 2001-07-16
|
||||
ciPropertyInterface,
|
||||
ciPropertyName,
|
||||
ciPropertyParameterConst,
|
||||
ciPropertyParameterList,
|
||||
ciPropertySpecifiers,
|
||||
ciQualifiedIdentifier,
|
||||
ciQualifiedIdentifierList,
|
||||
ciRaiseStatement,
|
||||
ciReadAccessIdentifier,
|
||||
ciRealIdentifier,
|
||||
ciRealType,
|
||||
ciRecordConstant,
|
||||
ciRecordFieldConstant,
|
||||
ciRecordType,
|
||||
ciRecordVariant,
|
||||
ciRelativeOperator,
|
||||
ciRepeatStatement,
|
||||
ciRequiresClause,
|
||||
ciRequiresIdentifier,
|
||||
ciResolutionInterfaceName,
|
||||
ciResourceDeclaration,
|
||||
ciReturnType,
|
||||
ciSEMICOLON, //XM 20002512
|
||||
ciSetConstructor,
|
||||
ciSetElement,
|
||||
ciSetType,
|
||||
ciSimpleExpression,
|
||||
ciSimpleStatement,
|
||||
ciSimpleType,
|
||||
ciSkipAnsiComment,
|
||||
ciSkipBorComment,
|
||||
ciSkipSlashesComment,
|
||||
ciSkipSpace, //XM 20002511
|
||||
ciSkipCRLFco, //XM 20002511
|
||||
ciSkipCRLF, //XM 20002511
|
||||
ciStatement,
|
||||
ciStatementList,
|
||||
ciStorageExpression,
|
||||
ciStorageIdentifier,
|
||||
ciStorageDefault,
|
||||
ciStorageNoDefault,
|
||||
ciStorageSpecifier,
|
||||
ciStorageStored,
|
||||
ciStringIdentifier,
|
||||
ciStringStatement,
|
||||
ciStringType,
|
||||
ciStructuredType,
|
||||
ciSubrangeType,
|
||||
ciTagField,
|
||||
ciTagFieldName,
|
||||
ciTagFieldTypeName,
|
||||
ciTerm,
|
||||
ciTryStatement,
|
||||
ciTypedConstant,
|
||||
ciTypeDeclaration,
|
||||
ciTypeId,
|
||||
ciTypeKind,
|
||||
ciTypeName,
|
||||
ciTypeSection,
|
||||
ciUnitFile,
|
||||
ciUnitId,
|
||||
ciUsedUnitName,
|
||||
ciUsedUnitsList,
|
||||
ciUsesClause,
|
||||
ciVarAbsolute,
|
||||
ciVarEqual,
|
||||
ciVarDeclaration,
|
||||
ciVariable,
|
||||
ciVariableList,
|
||||
ciVariableReference,
|
||||
ciVariableTwo,
|
||||
ciVariantIdentifier,
|
||||
ciVariantSection,
|
||||
ciVarParameter,
|
||||
ciVarSection,
|
||||
ciVisibilityAutomated,
|
||||
ciVisibilityPrivate,
|
||||
ciVisibilityProtected,
|
||||
ciVisibilityPublic,
|
||||
ciVisibilityPublished,
|
||||
ciVisibilityUnknown,
|
||||
ciWhileStatement,
|
||||
ciWithStatement,
|
||||
ciWriteAccessIdentifier
|
||||
);
|
||||
|
||||
function ParserErrorName(Value: TmwParseError): string;
|
||||
|
||||
implementation
|
||||
|
||||
function ParserErrorName(Value: TmwParseError): string;
|
||||
begin
|
||||
result := GetEnumName(TypeInfo(TmwParseError), Integer(Value));
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -42,7 +42,8 @@ uses
|
||||
SynEditMarkupHighAll, LMessages, Buttons,
|
||||
stringutil,mufasatypesutil,mufasabase,
|
||||
about, framefunctionlist, ocr, updateform, simbasettings, psextension, virtualextension,
|
||||
extensionmanager, settingssandbox, v_ideCodeInsight, v_ideCodeParser, CastaliaPasLexTypes, CastaliaSimplePasPar, v_AutoCompleteForm, PSDump;
|
||||
extensionmanager, settingssandbox, v_ideCodeInsight, v_ideCodeParser, CastaliaPasLexTypes,
|
||||
CastaliaSimplePasPar, v_AutoCompleteForm, PSDump, uPSComponent;
|
||||
|
||||
const
|
||||
SimbaVersion = 587;
|
||||
@ -1733,6 +1734,48 @@ begin
|
||||
end;
|
||||
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
|
||||
procedure CCFillCore;
|
||||
var
|
||||
t: TMThread;
|
||||
a: TPSScriptExtension;
|
||||
b: TStringList;
|
||||
ms: TMemoryStream;
|
||||
begin
|
||||
InitalizeTMThread(t);
|
||||
if (not (t is TPSThread)) then
|
||||
Exit;
|
||||
a := TPSScriptExtension.Create(Self);
|
||||
b := TStringList.Create;
|
||||
ms := TMemoryStream.Create;
|
||||
|
||||
try
|
||||
|
||||
with TPSThread(t).PSScript do
|
||||
begin
|
||||
a.OnCompile := OnCompile;
|
||||
a.OnCompImport := OnCompImport;
|
||||
a.OnExecImport := OnExecImport;
|
||||
end;
|
||||
|
||||
a.GetValueDefs(b);
|
||||
|
||||
SetLength(CoreBuffer, 1);
|
||||
CoreBuffer[0] := TCodeInsight.Create;
|
||||
with CoreBuffer[0] do
|
||||
begin
|
||||
OnMessage := @OnCCMessage;
|
||||
b.SaveToStream(ms);
|
||||
Run(ms);
|
||||
end;
|
||||
finally
|
||||
ms.Free;
|
||||
b.Free;
|
||||
a.Free;
|
||||
t.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
Randomize;
|
||||
DecimalSeparator := '.';
|
||||
@ -1793,6 +1836,8 @@ begin
|
||||
FirstRun := true;//Our next run is the first run.
|
||||
HandleParameters;
|
||||
TT_Update.Visible:= false;
|
||||
|
||||
CCFillCore;
|
||||
end;
|
||||
|
||||
procedure TForm1.FormDestroy(Sender: TObject);
|
||||
|
||||
@ -3,7 +3,10 @@
|
||||
A component wrapper for IFPS3, including debugging support.
|
||||
|
||||
}
|
||||
//{$I PascalScript.inc}
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$H+}
|
||||
{$ENDIF}
|
||||
|
||||
unit PSDump;
|
||||
|
||||
@ -53,7 +56,7 @@ end;
|
||||
|
||||
procedure CEException(Sender: TPSExec; ExError: TIFError; const ExParam: tbtstring; ExObject: TObject; ProcNo, Position: Cardinal);
|
||||
begin
|
||||
if (@TPSScriptExtension(Sender.ID).FOnException <> nil) then
|
||||
if (TPSScriptExtension(Sender.ID).FOnException <> nil) then
|
||||
TPSScriptExtension(Sender.ID).FOnException(Sender, ExError, ExParam, ExObject, ProcNo, Position);
|
||||
end;
|
||||
|
||||
@ -61,7 +64,7 @@ end;
|
||||
|
||||
function TPSScriptExtension.Compile: Boolean;
|
||||
begin
|
||||
Result := inherited Compile;
|
||||
Result := inherited Compile;
|
||||
FNeedCompiling := not result;
|
||||
end;
|
||||
|
||||
@ -126,7 +129,7 @@ procedure TPSScriptExtension.GetCodeProps;
|
||||
ci: TPSDelphiClassItem;
|
||||
i, ii: Integer;
|
||||
s: string;
|
||||
Def: Cardinal;
|
||||
Def: PtrUInt;
|
||||
ListFree: Boolean;
|
||||
begin
|
||||
Result := '';
|
||||
@ -164,7 +167,8 @@ procedure TPSScriptExtension.GetCodeProps;
|
||||
s := s + 'Index';
|
||||
if (ii > 0) then
|
||||
s := s + IntToStr(ii + 1);
|
||||
s := s + ': ' + TypeToString(ci.Decl.Params[ii].aType);
|
||||
if (ii = ci.Decl.ParamCount - 1) then
|
||||
s := s + ': ' + TypeToString(ci.Decl.Params[ii].aType);
|
||||
end;
|
||||
if (s <> '') then
|
||||
s := '['+s+']';
|
||||
@ -315,9 +319,9 @@ end;
|
||||
function TPSScriptExtension.DoBeforeCleanup(Sender: TObject; aComp: TPSPascalCompiler): Boolean;
|
||||
begin
|
||||
Result := True;
|
||||
if (fItems <> nil) then
|
||||
if (fItems <> nil) then
|
||||
GetCodeProps;
|
||||
if (@FOnBeforeCleanUp <> nil) then
|
||||
if (FOnBeforeCleanUp <> nil) then
|
||||
Result := FOnBeforeCleanUp(Sender, aComp);
|
||||
end;
|
||||
|
||||
@ -330,7 +334,7 @@ end;
|
||||
procedure TPSScriptExtension.DoScriptChange(sender: TObject);
|
||||
begin
|
||||
FNeedCompiling := True;
|
||||
if (@FOnScriptChange <> nil) then
|
||||
if (FOnScriptChange <> nil) then
|
||||
FOnScriptChange(sender);
|
||||
end;
|
||||
|
||||
|
||||
@ -664,30 +664,23 @@ function TCodeInsight.FindVarBase(s: string; GetStruct: Boolean = False; Return:
|
||||
|
||||
function DoGetVarType(s: string; out Decl: TDeclaration; Return: TVarBase): Boolean;
|
||||
|
||||
function CheckIt(s: string; Item: TCodeInsight; out Decl: TDeclaration; Return: TVarBase): Boolean;
|
||||
function CheckIt(s: string; Item: TCodeInsight; out Decl: TDeclaration; Return: TVarBase; const CheckCore: Boolean = True): Boolean;
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
Result := False;
|
||||
if Item.GetVarType(s, Decl, Return) then
|
||||
begin
|
||||
Result := True;
|
||||
Exit;
|
||||
end;
|
||||
Exit(True);
|
||||
|
||||
for i := High(Item.Includes) downto Low(Item.Includes) do
|
||||
if CheckIt(s, Item.Includes[i], Decl, Return) then
|
||||
begin
|
||||
Result := True;
|
||||
Break;
|
||||
end;
|
||||
Exit(True);
|
||||
|
||||
if (not CheckCore) then
|
||||
Exit;
|
||||
for i := High(CoreBuffer) downto Low(CoreBuffer) do
|
||||
if CheckIt(s, CoreBuffer[i], Decl, Return) then
|
||||
begin
|
||||
Result := True;
|
||||
Break;
|
||||
end;
|
||||
if CheckIt(s, CoreBuffer[i], Decl, Return, False) then
|
||||
Exit(True);
|
||||
end;
|
||||
|
||||
begin
|
||||
@ -696,30 +689,23 @@ function TCodeInsight.FindVarBase(s: string; GetStruct: Boolean = False; Return:
|
||||
|
||||
function DoGetFuncType(FuncName, FuncClass: string; out Decl: TDeclaration; Return: TVarBase): Boolean;
|
||||
|
||||
function CheckIt(FuncName, FuncClass: string; Item: TCodeInsight; out Decl: TDeclaration; Return: TVarBase): Boolean;
|
||||
function CheckIt(FuncName, FuncClass: string; Item: TCodeInsight; out Decl: TDeclaration; Return: TVarBase; const CheckCore: Boolean = True): Boolean;
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
Result := False;
|
||||
if Item.GetFuncType(FuncName, FuncClass, Decl, Return) then
|
||||
begin
|
||||
Result := True;
|
||||
Exit;
|
||||
end;
|
||||
Exit(True);
|
||||
|
||||
for i := High(Item.Includes) downto Low(Item.Includes) do
|
||||
if CheckIt(FuncName, FuncClass, Item.Includes[i], Decl, Return) then
|
||||
begin
|
||||
Result := True;
|
||||
Break;
|
||||
end;
|
||||
Exit(True);
|
||||
|
||||
if (not CheckCore) then
|
||||
Exit;
|
||||
for i := High(CoreBuffer) downto Low(CoreBuffer) do
|
||||
if CheckIt(FuncName, FuncClass, CoreBuffer[i], Decl, Return) then
|
||||
begin
|
||||
Result := True;
|
||||
Break;
|
||||
end;
|
||||
if CheckIt(FuncName, FuncClass, CoreBuffer[i], Decl, Return, False) then
|
||||
Exit(True);
|
||||
end;
|
||||
|
||||
begin
|
||||
@ -728,30 +714,23 @@ function TCodeInsight.FindVarBase(s: string; GetStruct: Boolean = False; Return:
|
||||
|
||||
function DoFindStruct(s: string; out Decl: TDeclaration; Return: TVarBase; var ArrayCount: Integer): Boolean;
|
||||
|
||||
function CheckIt(s: string; Item: TCodeInsight; out Decl: TDeclaration; Return: TVarBase; var ArrayCount: Integer): Boolean;
|
||||
function CheckIt(s: string; Item: TCodeInsight; out Decl: TDeclaration; Return: TVarBase; var ArrayCount: Integer; const CheckCore: Boolean = True): Boolean;
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
Result := False;
|
||||
if Item.FindStruct(s, Decl, Return, ArrayCount) then
|
||||
begin
|
||||
Result := True;
|
||||
Exit;
|
||||
end;
|
||||
Exit(True);
|
||||
|
||||
for i := High(Item.Includes) downto Low(Item.Includes) do
|
||||
if CheckIt(s, Item.Includes[i], Decl, Return, ArrayCount) then
|
||||
begin
|
||||
Result := True;
|
||||
Break;
|
||||
end;
|
||||
Exit(True);
|
||||
|
||||
if (not CheckCore) then
|
||||
Exit;
|
||||
for i := High(CoreBuffer) downto Low(CoreBuffer) do
|
||||
if CheckIt(s, CoreBuffer[i], Decl, Return, ArrayCount) then
|
||||
begin
|
||||
Result := True;
|
||||
Break;
|
||||
end;
|
||||
if CheckIt(s, CoreBuffer[i], Decl, Return, ArrayCount, False) then
|
||||
Exit(True);
|
||||
end;
|
||||
|
||||
begin
|
||||
|
||||
Loading…
Reference in New Issue
Block a user