Hmmm

Units/Misc/CastaliaPasLexTypes.pas

@@ -0,0 +1,322 @@
+{---------------------------------------------------------------------------
+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.
+

Units/Misc/CastaliaSimplePasParTypes.pas

@@ -0,0 +1,330 @@
+{---------------------------------------------------------------------------
+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.
+