// Pascal Language Specification
(
   {
      Identifier = pascal;
      Name = "Pascal";
      Description = "Pascal";
      BasedOn = "pbx_root_language";
      SourceScannerClassName = PBXPascalSourceScanner;
      SupportsIndentation = YES;
      Indentation = {
      };
      SyntaxColoring = {
         CaseSensitive = NO;
         UnicodeSymbols = NO;
         IndexedSymbols = YES;
         CommentsCanBeNested = YES;
         String = (
            ( "'", "'" )
         );
         MultiLineComment = (
            ( "{", "}" ),
            ( "(*", "*)" )
         );
         SingleLineComment = ( "//" );
         Keywords = (
            "and","AND",
            "array","ARRAY",
            "begin","BEGIN",
            "case","CASE",
            "const","CONST",
            "div","DIV",
            "do","DO",
            "downto","DOWNTO",
            "else","ELSE",
            "end","END",
            "file","FILE",
            "for","FOR",
            "function","FUNCTION",
            "goto","GOTO",
            "if","IF",
            "implementation","IMPLEMENTATION",
            "in","IN",
            "inherited","INHERITED",
            "inline","INLINE",
            "interface","INTERFACE",
            "label","LABEL",
            "mod","MOD",
            "nil","NIL",
            "not","NOT",
            "object","OBJECT",
            "of","OF",
            "or","OR",
            "otherwise","OTHERWISE",
            "packed","PACKED",
            "procedure","PROCEDURE",
            "program","PROGRAM",
            "record","RECORD",
            "repeat","REPEAT",
            "set","SET",
            "string","STRING",
            "then","THEN",
            "to","TO",
            "type","TYPE",
            "unit","UNIT",
            "until","UNTIL",
            "uses","USES",
            "var","VAR",
            "while","WHILE",
            "with","WITH"
         );
         AltKeywords = (
            "Boolean","boolean",
            "Byte","byte",
            "Char","char",
            "Integer","integer",
            "Longint","longint",
            "Real","real",
            "Single","single",
            "Double","double",
            "Extended","extended",
            "Pointer","pointer",
            "PChar","pchar",
            "extended80",
            "extended96",
            "Fixed",
            "Fract",
            "Handle",
            "OSErr",
            "OSType",
            "Point",
            "ProcPtr",
            "Ptr",
            "RGBColor",
            "Rect",
            "ResType",
            "SignedByte",
            "StringPtr",
            "Str255",
            "Str31",
            "Str63",
            "UniversalProcPtr"
         );
      };
   }
)