dws2strings.pas

script language

{**********************************************************************}
{                                                                      }
{    "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/MPL/                                       }
{                                                                      }
{    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 DelphiWebScriptII source code, released      }
{    January 1, 2001                                                   }
{                                                                      }
{    The Initial Developer of the Original Code is Matthias            }
{    Ackermann. Portions created by Matthias Ackermann are             }
{    Copyright (C) 2000 Matthias Ackermann, Switzerland. All           }
{    Rights Reserved.                                                  }
{                                                                      }
{    Contributor(s): ______________________________________.           }
{                                                                      }
{**********************************************************************}

unit dws2Strings;

interface

uses
  SysUtils;

const
  // Constants of "System.pas"
  SYS_INTEGER = 'Integer';
  SYS_FLOAT = 'Float';
  SYS_STRING = 'String';
  SYS_BOOLEAN = 'Boolean';
  SYS_DATETIME = 'DateTime';
  SYS_VARIANT = 'Variant';
  SYS_VOID = 'Void';
  SYS_RESULT = 'Result';
  SYS_SELF = 'Self';
  SYS_INTERNAL = 'Internal';
  SYS_SYSTEM = 'System';
  SYS_TOBJECT = 'TObject';
  SYS_TOBJECT_CREATE = 'Create';
  SYS_TOBJECT_DESTROY = 'Destroy';
  SYS_EXCEPTION = 'Exception';
  SYS_EXCEPTION_MESSAGE = 'Message';
  SYS_EDELPHI = 'EDelphi';
  SYS_EDELPHI_EXCEPTIONCLASS = 'ExceptionClass';

  // Compiler switches
  SWI_INCLUDE_LONG = 'INCLUDE';
  SWI_INCLUDE_SHORT = 'I';
  SWI_FILTER_LONG = 'FILTER';
  SWI_FILTER_SHORT = 'F';

  // COMPILER ERRORS

  // Missing Tokens
  CPE_SemiExpected = '";" expected.';
  CPE_BrackLeftExpected = '"(" expected.';
  CPE_BrackRightExpected = '")" expected.';
  CPE_ArrayBracketRightExpected = '"]" expected';
  CPE_ArrayBracketLeftExpected = '"[" expected';
  CPE_ColonExpected = 'Colon ":" expected';
  CPE_DotExpected = 'Dot "." expected';
  CPE_NameExpected = 'Name expected';
  CPE_ProcOrFuncExpected = 'PROCEDURE or FUNCTION expected';
  CPE_EqualityExpected = '"=" expected';
  CPE_InExpected = 'IN expected';
  CPE_StringExpected = 'String expected';
  CPE_BeginExpected = 'BEGIN expected';
  CPE_VariableExpected = 'Variable expected';
  CPE_ToOrDowntoExpected = 'TO or DOWNTO expected';
  CPE_DoExpected = 'DO expected';
  CPE_ThenExpected = 'Then expected';
  CPE_OfExpected = 'OF expected';
  CPE_ExpressionExpected = 'Expression expected';
  CPE_DotDotExpected = '".." expected';
  CPE_EndExpected = 'END expected';
  CPE_AssignExpected = '":=" expected';

  // ReadName
  CPE_UnknownName = 'Unknown name "%s"';
  CPE_UnknownType = 'Unknown type "%s"';
  CPE_UnknownUnit = 'Unknown unit "%s"';

  // Class declaration errors
  CPE_CantOverrideNotInherited = 'No method "%s" found in class: "override" not applicable';
  CPE_CantOverrideNotVirtual = 'Inherited method "%s" isn''t virtual. "override" not applicable';
  CPE_CantOverrideWrongParameterList = 'Parameter list doesn''t match the inherited method';
  CPE_CantReintroduce = 'Method "%s" isn''t overlapping a virtual method';
  CPE_ReintroduceWarning = 'Method "%s" overlaps a virtual method';
  CPE_FieldRedefined = 'There is already a field with name "%s"';
  CPE_PropertyRedefined = 'There is already a property with name "%s"';
  CPE_MethodRedefined = 'There is already a method with name "%s"';
  CPE_ImplClassNameExpected = 'Class name expected';
  CPE_ImplNotAMethod = 'Member is not a method';
  CPE_ImplInvalidClass = '"%s" is not a method of class "%s"';
  CPE_ImplAbstract = '"%s.%s" is declared abstract. No implementation allowed!';
  CPE_ImplClassExpected = 'Declaration should start with CLASS!';
  CPE_ImplNotClassExpected = 'Declaration shouldn''t start with "class"!';
  CPE_InheritedOnlyInMethodsAllowed = 'Inherited only in methods allowed';
  CPE_InheritedWithoutName = 'Name expected after INHERITED!';
  CPE_InheritedMethodNotFound = 'Method "%s" not found in ancestor class';
  CPE_StaticMethodExpected = 'Classmethod or constructor expected';
  CPE_WriteOnlyProperty = 'Can''t read a write only property!';
  CPE_ReadOnlyProperty = 'Can''t set a value for a read-only property!';
  CPE_ObjectReferenceExpected = 'Object reference needed to read/write an object field';
  CPE_StaticPropertyWriteExpected = 'Write access of property should be a static method';
  CPE_UnknownClass = 'Class "%s" not found';
  CPE_NotAClass = '"%s" is not a class';
  CPE_ForwardAlreadyExists = 'There is already a forward declaration of this class!';
  CPE_ClassNotImplementedYet = 'Class "%s" not fully implemented.';
  CPE_ForwardNotImplemented = 'The function "%s" was forward declared but not implemented!'; 
  CPE_MethodOrPropertyExpected = 'Method or property declaration Expected';
  CPE_FieldMethodUnknown = 'Field/method "%s" not found!';
  CPE_IncompatibleType = 'Field/method "%s" has an incompatible type';
  CPE_ProcedureMethodExpected = 'Procedure expected';
  CPE_FunctionMethodExpected = 'Function expected';
  CPE_InvalidNumberOfArguments = 'Method "%s" has a wrong number of arguments';
  CPE_InvalidParameterType = 'Method "%s" has an incompatible parameter type';
  CPE_ReadOrWriteExpected = 'Neither READ nor WRITE directive found';
  CPE_IncompatibleWriteSymbol = 'Field/method "%s" has an incompatible type';
  CPE_ClassNotCompletelyDefined = 'Class "%s" isn''t defined completely';
  CPE_MethodNotImplemented = 'Method "%s" of class "%s" not implemented';
  CPE_CantWriteProperty = 'Can''t write properties of complex type (record, array)';
  CPE_MultipleDefaultProperties = 'Class "%s" already has a default property';
  CPE_ParamsExpected = 'Parameters expected';

  // CompareFuncSymbols
  CPE_FunctionExpected = 'Declaration should be FUNCTION!';
  CPE_ProcedureExpected = 'Declaration should be PROCEDURE!';
  CPE_ConstructorExpected = 'Declaration should be CONSTRUCTOR!';
  CPE_DestructorExpected = 'Declaration should be DESTRUCTOR!';
  CPE_BadResultType = 'Result type should be "%s"';
  CPE_BadNumberOfParameters = 'Expected %d parameters (instead of %d)';
  CPE_BadParameterName = 'Parameter %d - Name "%s" expected';
  CPE_BadParameterType = 'Parameter %d - Type "%s" expected (instead of "%s")';
  CPE_VarParameterExpected = 'Parameter %d - Var-parameter expected';
  CPE_ValueParameterExpected = 'Parameter %d - Value-parameter expected';
  CPE_DefaultVarParam = 'Default Parameter must not be a var-parameter';

  // Arrays
  CPE_ArrayBoundNotAConstant = 'Bound isn''t a constant expression';
  CPE_ArrayBoundNotInteger = 'Bound isn''t of type integer';
  CPE_LowerBoundBiggerThanUpperBound = 'Lower bound is bigger than upper bound!';

  // Assign
  CPE_RightSideNeedsReturnType = 'Assignment''s right-side-argument has no returntype!';
  CPE_CantWriteToLeftSide = 'Can''t assign a value to the left-side argument!';

  // Function/Procedures
  CPE_FunctionTypeExpected = 'Function type expected';
  CPE_IncompatibleParameterType = 'Type of parameter %d don''t match the declaration';
  CPE_InvalidResultType = 'Invalid type "%s" for function result';

  CPE_NameAlreadyExists = 'Name "%s" already exists';