diff --git a/app/cudatext.app/Contents/Resources/data/lexlib/Pascal.cuda-lexmap b/app/cudatext.app/Contents/Resources/data/lexlib/Pascal.cuda-lexmap index dcfd223c2fc..5966adb8dff 100644 --- a/app/cudatext.app/Contents/Resources/data/lexlib/Pascal.cuda-lexmap +++ b/app/cudatext.app/Contents/Resources/data/lexlib/Pascal.cuda-lexmap @@ -1,3 +1,12 @@ +[ref] +0=Assembly + +[comments] +str1={ +str2=} +styles_cmt=Comment +styles_str=String + [map] Default=Id Symbol=Symbol @@ -20,12 +29,5 @@ Group (tree)=- Intern. function (tree)=- class (tree)=- Invalid symbol=SymbolBad - -[ref] -0=Assembly - -[comments] -str1={ -str2=} -styles_cmt=Comment -styles_str=String +Id types=Id1 +Id messages=Id2 diff --git a/app/cudatext.app/Contents/Resources/data/lexlib/Pascal.lcf b/app/cudatext.app/Contents/Resources/data/lexlib/Pascal.lcf index 1e88b458fae..de8e963d109 100644 --- a/app/cudatext.app/Contents/Resources/data/lexlib/Pascal.lcf +++ b/app/cudatext.app/Contents/Resources/data/lexlib/Pascal.lcf @@ -1,83 +1,88 @@ -object SyntAnal88: TLibSyntAnalyzer - Formats = < +object SyntAnal23: TLibSyntAnalyzer + Formats = < item DisplayName = 'Default' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' + Font.Style = [] FormatType = ftCustomFont FormatFlags = [ffBold, ffItalic, ffUnderline, ffStrikeOut, ffReadOnly, ffHidden] - end + end item DisplayName = 'Symbol' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clMaroon Font.Height = -13 Font.Name = 'Courier New' Font.Style = [fsBold] - end + end item DisplayName = 'Number' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'Courier New' Font.Style = [fsBold] - end + end item DisplayName = 'String' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clTeal Font.Height = -13 Font.Name = 'Courier New' - end + Font.Style = [] + end item DisplayName = 'Identifier' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' - end + Font.Style = [] + end item DisplayName = 'Reserved word' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' Font.Style = [fsBold] - end + end item DisplayName = 'Comment' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clGray Font.Height = -13 Font.Name = 'Courier New' Font.Style = [fsItalic] - end + end item DisplayName = 'Preprocessor' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clGreen Font.Height = -13 Font.Name = 'Courier New' Font.Style = [fsItalic] - end + end item DisplayName = 'Assembler' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clNone Font.Height = -13 Font.Name = 'Courier New' + Font.Style = [] BgColor = 15724510 FormatType = ftBackGround - end + end item DisplayName = 'Marked block' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clHighlightText Font.Height = -13 Font.Name = 'Courier New' + Font.Style = [] BgColor = clHighlight FormatType = ftColor BorderColorLeft = clRed @@ -85,38 +90,41 @@ object SyntAnal88: TLibSyntAnalyzer BorderColorRight = clRed BorderColorBottom = clRed MultiLineBorder = True - end + end item DisplayName = 'Interface section' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clHighlight Font.Height = -13 Font.Name = 'Courier New' + Font.Style = [] BgColor = 15269887 FormatType = ftBackGround - end + end item DisplayName = 'Implemenation Section' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' + Font.Style = [] BgColor = 16121842 FormatType = ftBackGround - end + end item DisplayName = 'Function separator' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' + Font.Style = [] BgColor = clLime FormatType = ftBackGround FormatFlags = [ffBold, ffItalic, ffUnderline, ffStrikeOut, ffReadOnly, ffHidden] - end + end item DisplayName = 'Current block' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clMaroon Font.Height = -13 Font.Name = 'Courier New' @@ -131,90 +139,113 @@ object SyntAnal88: TLibSyntAnalyzer BorderColorRight = clGray BorderTypeBottom = blSolid BorderColorBottom = clGray - end + end item DisplayName = 'Current function' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clMaroon Font.Height = -13 Font.Name = 'Courier New' + Font.Style = [] BgColor = 16776187 FormatType = ftBackGround MultiLineBorder = True - end + end item DisplayName = 'Current Line' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' + Font.Style = [] BgColor = 16772341 FormatType = ftBackGround - end + end item DisplayName = 'Search Match' + Font.Charset = DEFAULT_CHARSET Font.Color = clWindow Font.Height = -16 Font.Name = 'Courier New' Font.Style = [fsBold] BgColor = clBlack - end + end item DisplayName = 'Group (tree)' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [fsBold, fsItalic] - end + end item DisplayName = 'Intern. function (tree)' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clBlue Font.Height = -13 Font.Name = 'Courier New' - end + Font.Style = [] + end item DisplayName = 'class (tree)' - Font.CharSet = RUSSIAN_CHARSET + Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' Font.Style = [fsBold] - end + end item DisplayName = 'Invalid symbol' + Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -13 Font.Name = 'Courier New' Font.Style = [fsStrikeOut] BgColor = clYellow + end + item + DisplayName = 'Id types' + Font.Charset = DEFAULT_CHARSET + Font.Color = clNavy + Font.Height = -13 + Font.Name = 'Courier New' + Font.Style = [] + end + item + DisplayName = 'Id messages' + Font.Charset = DEFAULT_CHARSET + Font.Color = clOlive + Font.Height = -13 + Font.Name = 'Courier New' + Font.Style = [] end> - TokenRules = < + TokenRules = < item - DisplayName = 'Any name' + DisplayName = 'Id' StyleName = 'Identifier' TokenType = 2 Expression = '[a-z_]\w*' ColumnFrom = 0 ColumnTo = 0 - end + end item DisplayName = 'String' StyleName = 'String' TokenType = 4 - Expression = '''.*?(''|$)' + Expression = #39'.*?('#39'|$)'#13#10 ColumnFrom = 0 ColumnTo = 0 - end + end item DisplayName = 'Float' StyleName = 'Number' TokenType = 6 - Expression = '(\d+ \.)? \d+ e [\+\-]? \d+ | \d+ \. \d+' + Expression = + '#with exp. dot is optional '#13#10'(\d+ \.)? \d+ e [\+\-]? \d+ |'#13#10'#wit' + + 'hout exp. dot is required'#13#10'\d+ \. \d+' ColumnFrom = 0 ColumnTo = 0 - end + end item DisplayName = 'Integer' StyleName = 'Number' @@ -222,7 +253,7 @@ object SyntAnal88: TLibSyntAnalyzer Expression = '\d+' ColumnFrom = 0 ColumnTo = 0 - end + end item DisplayName = 'Preprocessor 1' StyleName = 'Preprocessor' @@ -231,7 +262,7 @@ object SyntAnal88: TLibSyntAnalyzer Expression = '\{\$.*?\}' ColumnFrom = 0 ColumnTo = 0 - end + end item DisplayName = 'Preprocessor 2' StyleName = 'Preprocessor' @@ -240,7 +271,7 @@ object SyntAnal88: TLibSyntAnalyzer Expression = '\(\*\$.*?\*\)' ColumnFrom = 0 ColumnTo = 0 - end + end item DisplayName = 'Comment 1' StyleName = 'Comment' @@ -249,16 +280,16 @@ object SyntAnal88: TLibSyntAnalyzer Expression = '(?s)\(\*.*?(\*\)|\Z)' ColumnFrom = 0 ColumnTo = 0 - end + end item DisplayName = 'Comment 2' StyleName = 'Comment' AlwaysEnabled = True TokenType = 1 - Expression = '(?s)\{.*?(\}|\Z)' + Expression = '(?s)\{.*?(\}|\Z)'#13#10 ColumnFrom = 0 ColumnTo = 0 - end + end item DisplayName = 'Comment 3' StyleName = 'Comment' @@ -267,7 +298,7 @@ object SyntAnal88: TLibSyntAnalyzer Expression = '//.*' ColumnFrom = 0 ColumnTo = 0 - end + end item DisplayName = 'HEX' StyleName = 'Number' @@ -275,7 +306,7 @@ object SyntAnal88: TLibSyntAnalyzer Expression = '\$[a-f\d]+' ColumnFrom = 0 ColumnTo = 0 - end + end item DisplayName = 'Symbol' StyleName = 'Symbol' @@ -283,7 +314,7 @@ object SyntAnal88: TLibSyntAnalyzer Expression = '[/\*,\.;:\(\)=<>\+\-\[\]\^@]' ColumnFrom = 0 ColumnTo = 0 - end + end item DisplayName = 'Char' StyleName = 'String' @@ -291,7 +322,7 @@ object SyntAnal88: TLibSyntAnalyzer Expression = '\#(\d+|\$[\da-f]+)' ColumnFrom = 0 ColumnTo = 0 - end + end item DisplayName = 'Invalid symbol' StyleName = 'Invalid symbol' @@ -299,12 +330,12 @@ object SyntAnal88: TLibSyntAnalyzer ColumnFrom = 0 ColumnTo = 0 end> - BlockRules = < + BlockRules = < item - DisplayName = 'Key words' + DisplayName = 'Id keywords' StyleName = 'Reserved word' BlockType = btTagDetect - ConditionList = < + ConditionList = < item TagList.Strings = ( 'absolute' @@ -320,6 +351,7 @@ object SyntAnal88: TLibSyntAnalyzer 'const' 'constructor' 'contains' + 'default' 'destructor' 'dispinterface' 'div' @@ -329,6 +361,7 @@ object SyntAnal88: TLibSyntAnalyzer 'else' 'end' 'except' + 'exit' 'exports' 'external' 'file' @@ -341,7 +374,6 @@ object SyntAnal88: TLibSyntAnalyzer 'if' 'implementation' 'in' - 'index' 'inherited' 'initialization' 'inline' @@ -376,6 +408,7 @@ object SyntAnal88: TLibSyntAnalyzer 'requires' 'resourcestring' 'safecall' + 'self' 'set' 'shl' 'shr' @@ -396,36 +429,280 @@ object SyntAnal88: TLibSyntAnalyzer 'while' 'with' 'write' - 'xor' - ) + 'xor') TokenTypes = 4 IgnoreCase = True end> HighlightPos = cpBound IgnoreAsParent = False - end + end + item + DisplayName = 'Id types' + StyleName = 'Id types' + BlockType = btTagDetect + ConditionList = < + item + TagList.Strings = ( + 'AnsiChar' + 'AnsiString' + 'Bool' + 'Boolean' + 'Byte' + 'ByteBool' + 'Cardinal' + 'Char' + 'Double' + 'DWord' + 'Extended' + 'Float' + 'HBitmap' + 'HDC' + 'HResult' + 'HWnd' + 'Int64' + 'Integer' + 'LongBool' + 'LongInt' + 'LongWord' + 'LResult' + 'NativeInt' + 'PAnsiChar' + 'PChar' + 'Pointer' + 'PtrInt' + 'PWideChar' + 'QWord' + 'Real' + 'ShortInt' + 'ShortString' + 'Single' + 'SizeInt' + 'Smallint' + 'string' + 'TAction' + 'TActionEvent' + 'TActionList' + 'TActionListState' + 'TAlign' + 'TAlignSet' + 'TAnchorKind' + 'TAnchors' + 'TAnchorSideReference' + 'TApplicationProperties' + 'TArrow' + 'TAsyncProcess' + 'TBasicAction' + 'TBasicActionClass' + 'TBevel' + 'TBitBtn' + 'TBitBtnKind' + 'TBitBtnKinds' + 'TBitmap' + 'TBorderStyle' + 'TBrush' + 'TButton' + 'TButtonGlyph' + 'TButtonLayout' + 'TButtonPanel' + 'TButtonState' + 'TCalcEdit' + 'TCalculatorDialog' + 'TCalendar' + 'TCalendarDialog' + 'TCanvas' + 'TCaption' + 'TCheckBox' + 'TCheckCombobox' + 'TCheckGroup' + 'TCheckListbox' + 'TColor' + 'TColorBox' + 'TColorButton' + 'TColorDialog' + 'TColorListbox' + 'TCombobox' + 'TComboboxEx' + 'TComponent' + 'TComponentClass' + 'TComponentName' + 'TControl' + 'TControlBar' + 'TControlBorderStyle' + 'TControlCanvas' + 'TCoolbar' + 'TCursor' + 'TCustomActionList' + 'TCustomBitBtn' + 'TCustomBitmap' + 'TCustomButton' + 'TCustomControl' + 'TCustomEdit' + 'TCustomForm' + 'TCustomImageList' + 'TCustomLabel' + 'TCustomMemo' + 'TCustomPanel' + 'TCustomSpeedButton' + 'TCustomToolbar' + 'TDateEdit' + 'TDateTime' + 'TDirectoryEdit' + 'TDragState' + 'TDrawGrid' + 'TEdit' + 'TEditButton' + 'TFileListbox' + 'TFilenameEdit' + 'TFilterCombobox' + 'TFindDialog' + 'TFloatSpinEdit' + 'TFlowPanel' + 'TFontDialog' + 'TForm' + 'TFormBorderStyle' + 'TFormStyle' + 'TFrame' + 'TGlyphShowMode' + 'TGraphic' + 'TGroupBox' + 'THandle' + 'THeaderControl' + 'THelpContext' + 'THelpType' + 'THintEvent' + 'TIcon' + 'TIdleTimer' + 'TImage' + 'TImageIndex' + 'TImageList' + 'TLabel' + 'TLabeledEdit' + 'TLCLComponent' + 'TList' + 'TListbox' + 'TListItem' + 'TListView' + 'TLMessage' + 'TMainMenu' + 'TMaskEdit' + 'TMemo' + 'TMenuItem' + 'TMessage' + 'TMetafile' + 'TModalResult' + 'TMouse' + 'TMouseButton' + 'TNotebook' + 'TNotifyEvent' + 'TObject' + 'TOpenDialog' + 'TOpenPictureDialog' + 'TPageControl' + 'TPaintBox' + 'TPanel' + 'TPen' + 'TPersistent' + 'TPicture' + 'TPoint' + 'TPopupMenu' + 'TPopupNotifier' + 'TProcess' + 'TProcessUtf8' + 'TProgressBar' + 'TRadioButton' + 'TRadioGroup' + 'TReader' + 'TRect' + 'TReplaceDialog' + 'TSaveDialog' + 'TSavePictureDialog' + 'TScreen' + 'TScrollbar' + 'TScrollBox' + 'TSelectDirectoryDialog' + 'TShape' + 'TShellListview' + 'TShellTreeview' + 'TShiftState' + 'TShortcut' + 'TShortcutList' + 'TSize' + 'TSmallPoint' + 'TSpeedButton' + 'TSpinEdit' + 'TSplitter' + 'TStaticText' + 'TStatusbar' + 'TStringGrid' + 'TStringList' + 'TStrings' + 'TTabControl' + 'TTabSheet' + 'TTaskDialog' + 'TTimeEdit' + 'TTimer' + 'TToggleBox' + 'TToolbar' + 'TTrackBar' + 'TTranslateString' + 'TTrayIcon' + 'TTreeNode' + 'TTreeNodeClass' + 'TTreeView' + 'TUpDown' + 'TUtf8Char' + 'TValueListEditor' + 'TWinControl' + 'TWriter' + 'TypeInfo' + 'UnicodeString' + 'Variant' + 'WideChar' + 'WideString' + 'Word' + 'WordBool') + TokenTypes = 4 + IgnoreCase = True + end> + HighlightPos = cpAny + IgnoreAsParent = False + end + item + DisplayName = 'Id messages' + StyleName = 'Id messages' + BlockType = btTagDetect + ConditionList = < + item + TagList.Strings = ( + '(WM|LM|CM)_\w+') + CondType = tcMask + TokenTypes = 4 + IgnoreCase = True + end> + HighlightPos = cpAny + IgnoreAsParent = False + end item DisplayName = 'Forward' StyleName = 'Reserved word' BlockType = btTagDetect - ConditionList = < + ConditionList = < item TagList.Strings = ( - 'forward' - ) + 'forward') TokenTypes = 4 IgnoreCase = True end> HighlightPos = cpBound TokenType = 10 IgnoreAsParent = False - end + end item DisplayName = 'Block comment' BlockName = 'Block comment' NotParent = True AlwaysEnabled = True - ConditionList = < + ConditionList = < item TokenTypes = 2 end> @@ -434,33 +711,32 @@ object SyntAnal88: TLibSyntAnalyzer HighlightPos = cpBound CollapseFmt = '{ ... }' IgnoreAsParent = False - end + end item DisplayName = 'Block comment end' BlockName = 'Block comment' StrictParent = True AlwaysEnabled = True BlockType = btRangeEnd - ConditionList = < + ConditionList = < item CondType = tcNotEqual TokenTypes = 2 - end + end item TokenTypes = 2 end> BlockOffset = 1 HighlightPos = cpBound IgnoreAsParent = False - end + end item DisplayName = 'try' StyleName = 'Current block' - ConditionList = < + ConditionList = < item TagList.Strings = ( - 'try' - ) + 'try') TokenTypes = 4 IgnoreCase = True end> @@ -474,16 +750,15 @@ object SyntAnal88: TLibSyntAnalyzer IgnoreAsParent = False AutoCloseMode = acmCloseNearest AutoCloseText = 'finally'#13#10#13#10'end;' - end + end item DisplayName = 'begin' StyleName = 'Current block' - ConditionList = < + ConditionList = < item TagList.Strings = ( 'begin' - 'case' - ) + 'case') TokenTypes = 4 IgnoreCase = True end> @@ -497,29 +772,27 @@ object SyntAnal88: TLibSyntAnalyzer IgnoreAsParent = False AutoCloseMode = acmCloseNearest AutoCloseText = 'end;' - end + end item DisplayName = 'End' BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TagList.Strings = ( - 'end' - ) + 'end') TokenTypes = 4 IgnoreCase = True end> HighlightPos = cpBound IgnoreAsParent = False - end + end item DisplayName = 'asm' StyleName = 'Assembler' - ConditionList = < + ConditionList = < item TagList.Strings = ( - 'asm' - ) + 'asm') TokenTypes = 4 IgnoreCase = True end> @@ -533,14 +806,13 @@ object SyntAnal88: TLibSyntAnalyzer IgnoreAsParent = False AutoCloseMode = acmCloseNearest AutoCloseText = 'end;' - end + end item DisplayName = '{$ifdef}' - ConditionList = < + ConditionList = < item TagList.Strings = ( - '\{\$if[n]?def' - ) + '\{\$if[n]?def') CondType = tcMask TokenTypes = 512 IgnoreCase = True @@ -552,43 +824,40 @@ object SyntAnal88: TLibSyntAnalyzer IgnoreAsParent = True AutoCloseMode = acmCloseNearest AutoCloseText = '{$ENDIF}' - end + end item DisplayName = '{$endif}' BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TagList.Strings = ( - '\{\$endif' - ) + '\{\$endif') CondType = tcMask TokenTypes = 512 IgnoreCase = True end> HighlightPos = cpBound IgnoreAsParent = False - end + end item DisplayName = 'until' BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TagList.Strings = ( - 'until' - ) + 'until') TokenTypes = 4 IgnoreCase = True end> HighlightPos = cpBound IgnoreAsParent = False - end + end item DisplayName = 'repeat' - ConditionList = < + ConditionList = < item TagList.Strings = ( - 'repeat' - ) + 'repeat') TokenTypes = 4 IgnoreCase = True end> @@ -600,16 +869,15 @@ object SyntAnal88: TLibSyntAnalyzer IgnoreAsParent = False AutoCloseMode = acmCloseNearest AutoCloseText = 'until ;' - end + end item DisplayName = 'program' - ConditionList = < + ConditionList = < item TagList.Strings = ( 'library' 'program' - 'unit' - ) + 'unit') TokenTypes = 4 IgnoreCase = True end> @@ -622,7 +890,7 @@ object SyntAnal88: TLibSyntAnalyzer IgnoreAsParent = False AutoCloseMode = acmCloseOpened AutoCloseText = 'end.' - end + end item DisplayName = 'class declaration' BlockName = 'class declaration' @@ -641,7 +909,7 @@ object SyntAnal88: TLibSyntAnalyzer TreeItemImage = 1 TreeGroupImage = 0 IgnoreAsParent = False - end + end item DisplayName = 'class-object declaration' ConditionList = <> @@ -657,7 +925,7 @@ object SyntAnal88: TLibSyntAnalyzer TreeItemImage = 1 TreeGroupImage = 0 IgnoreAsParent = False - end + end item DisplayName = 'generic declaration' ConditionList = <> @@ -673,7 +941,7 @@ object SyntAnal88: TLibSyntAnalyzer TreeItemImage = 1 TreeGroupImage = 0 IgnoreAsParent = False - end + end item DisplayName = 'Empty class' ConditionList = <> @@ -686,7 +954,7 @@ object SyntAnal88: TLibSyntAnalyzer GrammaRuleName = 'EmptyClass' TreeItemImage = 4 IgnoreAsParent = False - end + end item DisplayName = 'Interface declaration' BlockName = 'Interface declaration' @@ -704,32 +972,29 @@ object SyntAnal88: TLibSyntAnalyzer TreeItemImage = 2 TreeGroupImage = 0 IgnoreAsParent = False - end + end item DisplayName = 'record' StatesAdd = 8 - ConditionList = < + ConditionList = < item TagList.Strings = ( - 'record' - ) + 'record') TokenTypes = 4 IgnoreCase = True - end + end item TagList.Strings = ( - 'packed' - ) + 'packed') CondType = tcSkip TokenTypes = 4 IgnoreCase = True - end + end item TagList.Strings = ( - '=' - ) + '=') TokenTypes = 8 - end + end item TokenTypes = 4 end> @@ -743,18 +1008,17 @@ object SyntAnal88: TLibSyntAnalyzer TreeItemImage = 3 TreeGroupImage = 0 IgnoreAsParent = False - end + end item DisplayName = 'Interface section' StyleName = 'Interface section' BlockName = 'program' StrictParent = True StatesAdd = 1 - ConditionList = < + ConditionList = < item TagList.Strings = ( - 'interface' - ) + 'interface') TokenTypes = 4 IgnoreCase = True end> @@ -767,32 +1031,30 @@ object SyntAnal88: TLibSyntAnalyzer HighlightPos = cpAny CollapseFmt = 'Interface section' IgnoreAsParent = False - end + end item DisplayName = 'Interface section end' BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TagList.Strings = ( - 'implementation' - ) + 'implementation') TokenTypes = 4 IgnoreCase = True end> BlockOffset = 1 HighlightPos = cpBound IgnoreAsParent = False - end + end item DisplayName = 'Implementation section' StyleName = 'Implemenation Section' StatesAdd = 2 StatesRemove = 15 - ConditionList = < + ConditionList = < item TagList.Strings = ( - 'implementation' - ) + 'implementation') TokenTypes = 4 IgnoreCase = True end> @@ -804,14 +1066,13 @@ object SyntAnal88: TLibSyntAnalyzer HighlightPos = cpAny CollapseFmt = 'Implementation section' IgnoreAsParent = False - end + end item DisplayName = 'finalization' - ConditionList = < + ConditionList = < item TagList.Strings = ( - 'finalization' - ) + 'finalization') TokenTypes = 4 IgnoreCase = True end> @@ -820,60 +1081,56 @@ object SyntAnal88: TLibSyntAnalyzer HighlightPos = cpBound CollapseFmt = '%s0' IgnoreAsParent = False - end + end item DisplayName = 'Unit end' BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TagList.Strings = ( - '.' - ) + '.') TokenTypes = 8 - end + end item TagList.Strings = ( - 'end' - ) + 'end') TokenTypes = 4 IgnoreCase = True end> BlockOffset = 2 HighlightPos = cpBound IgnoreAsParent = False - end + end item DisplayName = 'Function separator' StyleName = 'Function separator' StatesPresent = 2 StatesAbsent = 24 BlockType = btLineBreak - ConditionList = < + ConditionList = < item TagList.Strings = ( 'constructor' 'destructor' 'function' - 'procedure' - ) + 'procedure') TokenTypes = 4 IgnoreCase = True end> HighlightPos = cpBound IgnoreAsParent = False - end + end item DisplayName = 'Internal function' BlockName = 'function of class' - ConditionList = < + ConditionList = < item TokenTypes = 4 - end + end item TagList.Strings = ( 'function' - 'procedure' - ) + 'procedure') TokenTypes = 4 IgnoreCase = True end> @@ -884,36 +1141,34 @@ object SyntAnal88: TLibSyntAnalyzer TreeItemStyle = 'Intern. function (tree)' TreeItemImage = 5 IgnoreAsParent = False - end + end item DisplayName = 'End of internal' BlockName = 'Internal function' StrictParent = True BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TagList.Strings = ( - ';' - ) + ';') TokenTypes = 8 - end + end item TagList.Strings = ( 'end' - 'forward' - ) + 'forward') TokenTypes = 4 IgnoreCase = True end> HighlightPos = cpBound CancelNextRules = True IgnoreAsParent = False - end + end item DisplayName = 'forward_func' StatesAbsent = 1 BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TokenTypes = 1024 IgnoreCase = True @@ -921,30 +1176,28 @@ object SyntAnal88: TLibSyntAnalyzer BlockEnd = 'Single function' HighlightPos = cpBound IgnoreAsParent = False - end + end item DisplayName = 'Single function' StyleName = 'Current function' BlockName = 'Implementation section' StrictParent = True StatesAdd = 16 - ConditionList = < + ConditionList = < item TagList.Strings = ( ';' ':' - '(' - ) + '(') TokenTypes = 8 - end + end item TokenTypes = 4 - end + end item TagList.Strings = ( 'function' - 'procedure' - ) + 'procedure') TokenTypes = 4 IgnoreCase = True end> @@ -961,54 +1214,50 @@ object SyntAnal88: TLibSyntAnalyzer TreeItemImage = 5 TreeGroupImage = 0 IgnoreAsParent = False - end + end item DisplayName = 'End of function' BlockName = 'Single function' StrictParent = True StatesRemove = 16 BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TagList.Strings = ( - ';' - ) + ';') TokenTypes = 1032 - end + end item TagList.Strings = ( 'end' - 'forward' - ) + 'forward') TokenTypes = 4 IgnoreCase = True end> HighlightPos = cpBound CancelNextRules = True IgnoreAsParent = False - end + end item DisplayName = 'function of class' StyleName = 'Current function' StatesAdd = 16 StatesPresent = 2 - ConditionList = < + ConditionList = < item TagList.Strings = ( - '.' - ) + '.') TokenTypes = 8 - end + end item TokenTypes = 4 - end + end item TagList.Strings = ( 'constructor' 'destructor' 'function' - 'procedure' - ) + 'procedure') TokenTypes = 4 IgnoreCase = True end> @@ -1023,42 +1272,39 @@ object SyntAnal88: TLibSyntAnalyzer CollapseFmt = '%s2 %s1%s0%s-1' TreeItemImage = 6 IgnoreAsParent = False - end + end item DisplayName = 'End of class function' BlockName = 'function of class' StrictParent = True StatesRemove = 16 BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TagList.Strings = ( - ';' - ) + ';') TokenTypes = 8 - end + end item TagList.Strings = ( - 'end' - ) + 'end') TokenTypes = 4 IgnoreCase = True end> HighlightPos = cpBound IgnoreAsParent = False - end + end item DisplayName = 'Internal function 2' BlockName = 'Single function' - ConditionList = < + ConditionList = < item TokenTypes = 4 - end + end item TagList.Strings = ( 'function' - 'procedure' - ) + 'procedure') TokenTypes = 4 IgnoreCase = True end> @@ -1069,76 +1315,69 @@ object SyntAnal88: TLibSyntAnalyzer TreeItemStyle = 'Intern. function (tree)' TreeItemImage = 5 IgnoreAsParent = False - end + end item DisplayName = 'End of internal 2' BlockName = 'Internal function 2' StrictParent = True BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TagList.Strings = ( - ';' - ) - end + ';') + end item TagList.Strings = ( 'end' - 'forward' - ) + 'forward') TokenTypes = 1028 IgnoreCase = True end> HighlightPos = cpBound IgnoreAsParent = False - end + end item DisplayName = 'end of type' StatesRemove = 8 BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TagList.Strings = ( - ';' - ) + ';') TokenTypes = 8 - end + end item TagList.Strings = ( - 'end' - ) + 'end') TokenTypes = 4 IgnoreCase = True end> HighlightPos = cpBound CancelNextRules = True IgnoreAsParent = False - end + end item DisplayName = 'Enum' BlockName = 'Interface section' - ConditionList = < + ConditionList = < item TagList.Strings = ( - '(' - ) + '(') TokenTypes = 8 - end + end item TagList.Strings = ( - '=' - ) + '=') TokenTypes = 8 - end + end item TokenTypes = 4 - end + end item TagList.Strings = ( ';' '.' - 'type' - ) + 'type') CondType = tcMask TokenTypes = 14 end> @@ -1152,23 +1391,21 @@ object SyntAnal88: TLibSyntAnalyzer TreeItemImage = 3 TreeGroupImage = 0 IgnoreAsParent = False - end + end item DisplayName = 'Set' - ConditionList = < + ConditionList = < item TagList.Strings = ( - 'set' - ) + 'set') TokenTypes = 4 IgnoreCase = True - end + end item TagList.Strings = ( - '=' - ) + '=') TokenTypes = 8 - end + end item TokenTypes = 4 end> @@ -1180,12 +1417,12 @@ object SyntAnal88: TLibSyntAnalyzer TreeItemImage = 3 TreeGroupImage = 0 IgnoreAsParent = False - end + end item DisplayName = 'unit' BlockName = 'Uses' StrictParent = True - ConditionList = < + ConditionList = < item TokenTypes = 4 end> @@ -1195,29 +1432,27 @@ object SyntAnal88: TLibSyntAnalyzer HighlightPos = cpBound TreeItemImage = 2 IgnoreAsParent = False - end + end item DisplayName = 'unit end' BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TagList.Strings = ( ',' - ';' - ) + ';') TokenTypes = 8 end> BlockOffset = 1 HighlightPos = cpAny IgnoreAsParent = False - end + end item DisplayName = 'Uses' - ConditionList = < + ConditionList = < item TagList.Strings = ( - 'uses' - ) + 'uses') TokenTypes = 4 IgnoreCase = True end> @@ -1226,42 +1461,39 @@ object SyntAnal88: TLibSyntAnalyzer CollapseFmt = 'uses ...' TreeItemImage = 0 IgnoreAsParent = False - end + end item DisplayName = 'Enum end' BlockName = 'Enum' StrictParent = True BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TagList.Strings = ( - ';' - ) + ';') TokenTypes = 8 end> HighlightPos = cpAny IgnoreAsParent = False - end + end item DisplayName = ';' BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TagList.Strings = ( - ';' - ) + ';') TokenTypes = 8 end> HighlightPos = cpBound IgnoreAsParent = False - end + end item DisplayName = 'REGION' - ConditionList = < + ConditionList = < item TagList.Strings = ( - '\{\$REGION' - ) + '\{\$REGION') CondType = tcMask TokenTypes = 512 IgnoreCase = True @@ -1272,30 +1504,28 @@ object SyntAnal88: TLibSyntAnalyzer DrawStaple = True CollapseFmt = '%s0' IgnoreAsParent = False - end + end item DisplayName = 'REGION END' BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TagList.Strings = ( - '\{\$ENDREGION' - ) + '\{\$ENDREGION') CondType = tcMask TokenTypes = 512 IgnoreCase = True end> HighlightPos = cpAny IgnoreAsParent = False - end + end item DisplayName = '(' StyleName = 'Current block' - ConditionList = < + ConditionList = < item TagList.Strings = ( - '(' - ) + '(') TokenTypes = 8 end> BlockEnd = ')' @@ -1305,29 +1535,27 @@ object SyntAnal88: TLibSyntAnalyzer HighlightPos = cpBoundTagBegin DynSelectMin = True IgnoreAsParent = False - end + end item DisplayName = ')' BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TagList.Strings = ( - ')' - ) + ')') TokenTypes = 8 end> HighlightPos = cpBound CancelNextRules = True IgnoreAsParent = False - end + end item DisplayName = '[' StyleName = 'Current block' - ConditionList = < + ConditionList = < item TagList.Strings = ( - '[' - ) + '[') TokenTypes = 8 end> BlockEnd = ']' @@ -1337,34 +1565,32 @@ object SyntAnal88: TLibSyntAnalyzer HighlightPos = cpBoundTagBegin DynSelectMin = True IgnoreAsParent = False - end + end item DisplayName = ']' BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TagList.Strings = ( - ']' - ) + ']') TokenTypes = 8 end> HighlightPos = cpBound CancelNextRules = True IgnoreAsParent = False - end + end item DisplayName = 'Function out of all' BlockName = 'program' StrictParent = True - ConditionList = < + ConditionList = < item TokenTypes = 4 - end + end item TagList.Strings = ( 'function' - 'procedure' - ) + 'procedure') TokenTypes = 4 IgnoreCase = True end> @@ -1376,50 +1602,47 @@ object SyntAnal88: TLibSyntAnalyzer TreeItemImage = 5 TreeGroupImage = 0 IgnoreAsParent = False - end + end item DisplayName = 'End of Func out of all' BlockName = 'Function out of all' StrictParent = True BlockType = btRangeEnd - ConditionList = < + ConditionList = < item TagList.Strings = ( - ';' - ) + ';') TokenTypes = 8 - end + end item TagList.Strings = ( - 'end' - ) + 'end') TokenTypes = 4 end> HighlightPos = cpAny IgnoreAsParent = False - end + end item DisplayName = 'Invalid close bracket' StyleName = 'Invalid symbol' BlockType = btTagDetect - ConditionList = < + ConditionList = < item TagList.Strings = ( ')' - ']' - ) + ']') TokenTypes = 8 end> HighlightPos = cpAny IgnoreAsParent = False end> CodeTemplates = <> - SubAnalyzers = < + SubAnalyzers = < item DisplayName = 'asm section' - StartExpression = 'asm\b' - EndExpression = 'end' - SyntAnalyzer = SyntAnalyzer13 + StartExpression = 'asm\b'#13#10 + EndExpression = 'end'#13#10 + SyntAnalyzer = SyntAnal2 end> SampleText.Strings = ( 'unit Test; ' @@ -1430,8 +1653,8 @@ object SyntAnal88: TLibSyntAnalyzer '' 'const' ' cColorCodes: array[0..1] of TColorCode = (' - ' (sName: ''AliceBlue''; sVal: ''#00''),' - ' (sName: ''AntiqueWhite''; sVal: ''#00''),' + ' (sName: '#39'AliceBlue'#39'; sVal: '#39'#00'#39'),' + ' (sName: '#39'AntiqueWhite'#39'; sVal: '#39'#00'#39'),' ' );' ' ' 'type ' @@ -1440,7 +1663,9 @@ object SyntAnal88: TLibSyntAnalyzer ' end; ' ' ' 'implementation ' - ' ' + + ' ' + + ' ' '{Syntax highlighting} ' 'procedure TForm1.Button1Click(Sender: TObject);' 'var' @@ -1448,7 +1673,9 @@ object SyntAnal88: TLibSyntAnalyzer ' FloatNumber: double;' 'begin' ' Number := 123; // View integer number style' - ' Caption := ''This Number is '' + IntToStr(Number); // View string style' + + ' Caption := '#39'This Number is '#39' + IntToStr(Number); // View string' + + ' style' ' Inc(Number, $1FA7); // View HEX style' ' {Assembler style}' ' asm' @@ -1462,8 +1689,7 @@ object SyntAnal88: TLibSyntAnalyzer ' begin' ' Do_;' ' end;' - 'end.' - ) + 'end.') TokenTypeNames.Strings = ( 'Unknown' 'Comment' @@ -1475,16 +1701,23 @@ object SyntAnal88: TLibSyntAnalyzer 'Hex const' 'Char const' 'Preprocessor' - 'Forward' - ) - Gramma.Gramma = 'Skip = | ;'#10#10'// Class declaration'#10'ClassDecl = ''='' ''class'' InheritedList? ;'#10'EmptyClass = ''='' "class" InheritedList '';'';'#10#10'// Generic'#10'ObjectDecl = ''='' "object"'#10'GenericDecl = "generic" '#10#10'// Interface declaration'#10'IntfDecl = ''='' ("interface" | "dispinterface") InheritedList? IntfNextToken;'#10'IntfNextToken = ''['' | ; '#10#10'InheritedList = ''('' IdentList '')'';'#10'IdentList = ('','' )*;'#10 + 'Forward') + Gramma.Gramma = + 'Skip = | ;'#13#10#13#10'// Class declaration'#13#10'Clas' + + 'sDecl = '#39'='#39' '#39'class'#39' InheritedList? ;'#13#10'E' + + 'mptyClass = '#39'='#39' "class" InheritedList '#39';'#39';'#13#10#13#10'// Ge' + + 'neric'#13#10'ObjectDecl = '#39'='#39' "object"'#13#10'GenericDecl = "ge' + + 'neric" '#13#10#13#10'// Interface declaration'#13#10'IntfDecl = '#39'='#39' ("interface" | "dispinterface") InheritedList? Intf' + + 'NextToken;'#13#10'IntfNextToken = '#39'['#39' | ; '#13#10#13#10'InheritedLis' + + 't = '#39'('#39' IdentList '#39')'#39';'#13#10'IdentList = ('#39','#39' )*;'#13#10 CurrentLineStyle = 'Current Line' Extentions = 'pas inc dpr dpk lpr p pp' LexerName = 'Pascal' Notes.Strings = ( - 'Changed by Alexey' - ) + 'Changed by Alexey') LineComment = '//' - Charset = DEFAULT_CHARSET AlwaysSyncBlockAnal = True + Charset = DEFAULT_CHARSET end diff --git a/app/cudatext.app/Contents/Resources/py/cudatext.py b/app/cudatext.app/Contents/Resources/py/cudatext.py index c0e95c57ca7..e6717350a4f 100644 --- a/app/cudatext.app/Contents/Resources/py/cudatext.py +++ b/app/cudatext.app/Contents/Resources/py/cudatext.py @@ -33,7 +33,7 @@ APP_DIR_PY = 3 APP_FILE_SESSION = 4 APP_DIR_INSTALLED_ADDON = 5 -APP_FILE_RECENTS = 6 +APP_FILE_RECENTS = 6 CONVERT_CHAR_TO_COL = 0 CONVERT_COL_TO_CHAR = 1 @@ -240,6 +240,17 @@ TREE_LOCK = 31 TREE_UNLOCK = 32 +LISTBOX_GET_COUNT = 0 +LISTBOX_ADD = 1 +LISTBOX_DELETE = 2 +LISTBOX_DELETE_ALL = 3 +LISTBOX_GET_ITEM = 4 +LISTBOX_SET_ITEM = 5 +LISTBOX_GET_SEL = 10 +LISTBOX_SET_SEL = 11 +LISTBOX_GET_TOP = 14 +LISTBOX_SET_TOP = 15 + LEXER_GET_LIST = 0 LEXER_GET_ENABLED = 1 LEXER_GET_EXT = 2 @@ -328,13 +339,13 @@ def app_api_version(): def app_path(id): return ct.app_path(id) def app_proc(id, text): - return ct.app_proc(id, text) + return ct.app_proc(id, text) def app_log(id, text, tag=0): return ct.app_log(id, text, tag) - + def app_idle(wait=False): - return ct.app_idle(wait) + return ct.app_idle(wait) def msg_box(text, flags): return ct.msg_box(text, flags) @@ -342,11 +353,11 @@ def msg_status(text, process_messages=False): return ct.msg_status(text, process_messages) def msg_status_alt(text, seconds): return ct.msg_status_alt(text, seconds) - + def dlg_input(label, defvalue): return ct.dlg_input(label, defvalue) def dlg_color(value): - return ct.dlg_color(value) + return ct.dlg_color(value) def dlg_input_ex(number, caption, label1 , text1='', label2='', text2='', label3='', text3='', @@ -358,9 +369,9 @@ def dlg_input_ex(number, caption, label4, text4, label5, text5, label6, text6, label7, text7, label8, text8, label9, text9, label10, text10) - + def dlg_menu(id, text, focused=0): - return ct.dlg_menu(id, text, focused) + return ct.dlg_menu(id, text, focused) def dlg_file(is_open, init_filename, init_dir, filters): return ct.dlg_file(is_open, init_filename, init_dir, filters) @@ -372,9 +383,9 @@ def dlg_hotkey(title=''): return ct.dlg_hotkey(title) def dlg_hotkeys(command, lexer=''): return ct.dlg_hotkeys(command, lexer) - -def dlg_custom(title, size_x, size_y, text, focused=-1): - return ct.dlg_custom(title, size_x, size_y, text, focused) + +def dlg_custom(title, size_x, size_y, text, focused=-1): + return ct.dlg_custom(title, size_x, size_y, text, focused) def file_open(filename, group=-1): return ct.file_open(filename, group) @@ -387,19 +398,22 @@ def ed_handles(): def ed_group(n): h = ct.ed_group(n) if h: - return Editor(h) + return Editor(h) def ini_read(filename, section, key, value): return ct.ini_read(filename, section, key, value) def ini_write(filename, section, key, value): return ct.ini_write(filename, section, key, value) - + def lexer_proc(id, value): return ct.lexer_proc(id, value) def tree_proc(id_tree, id_action, id_item=0, index=0, text='', image_index=-1): return ct.tree_proc(id_tree, id_action, id_item, index, text, image_index) - + +def listbox_proc(id_listbox, id_action, index=0, text="", tag=0): + return ct.listbox_proc(id_listbox, id_action, index, text, tag) + #Editor class Editor: @@ -409,7 +423,7 @@ def __init__(self, handle): def get_carets(self): return ct.ed_get_carets(self.h) - + def set_caret(self, x1, y1, x2=-1, y2=-1, id=CARET_SET_ONE): return ct.ed_set_caret(self.h, x1, y1, x2, y2, id) @@ -419,7 +433,7 @@ def get_line_count(self): def get_text_all(self): items = [self.get_text_line(i) for i in range(self.get_line_count())] return '\n'.join(items) - + def set_text_all(self, text): return ct.ed_set_text_all(self.h, text) def get_text_sel(self): @@ -466,7 +480,7 @@ def get_split(self): return ct.ed_get_split(self.h) def set_split(self, state, value): return ct.ed_set_split(self.h, state, value) - + def get_prop(self, id, value=''): if id!=PROP_TAG: return ct.ed_get_prop(self.h, id, value) @@ -489,18 +503,18 @@ def set_prop(self, id, value): js[key] = val js_s = json.dumps(js) return ct.ed_set_prop(self.h, PROP_TAG, js_s) - + def complete(self, text, len1, len2, selected=0, alt_order=False): return ct.ed_complete(self.h, text, len1, len2, selected, alt_order) def complete_alt(self, text, snippet_id, len_chars, selected=0): return ct.ed_complete_alt(self.h, text, snippet_id, len_chars, selected) - + def convert(self, id, x, y, text=''): return ct.ed_convert(self.h, id, x, y, text) - + def get_ranges(self): return ct.ed_get_ranges(self.h) - + def get_sublexer_ranges(self): res = ct.ed_get_sublexer_ranges(self.h) if res is None: return @@ -509,11 +523,11 @@ def get_sublexer_ranges(self): res = res.rstrip(';').split(';') res = [ r.split(',') for (index, r) in enumerate(res) if (index==0) or (res[index]!=res[index-1]) ] res = [ (r[4], int(r[0]), int(r[1]), int(r[2]), int(r[3])) for r in res ] - return res - + return res + def markers(self, id, x=0, y=0, tag=0, len_x=0, len_y=0): return ct.ed_markers(self.h, id, x, y, tag, len_x, len_y) - + def attr(self, id, tag=0, x=0, y=0, len=0, color_font=COLOR_NONE, color_bg=COLOR_NONE, color_border=COLOR_NONE, font_bold=0, font_italic=0, font_strikeout=0, @@ -523,12 +537,12 @@ def attr(self, id, tag=0, x=0, y=0, len=0, color_font = self.get_prop(PROP_COLOR, COLOR_ID_TextFont) if color_border==COLOR_NONE: color_border = self.get_prop(PROP_COLOR, COLOR_ID_TextFont) - return ct.ed_attr(self.h, id, tag, x, y, len, + return ct.ed_attr(self.h, id, tag, x, y, len, color_font, color_bg, color_border, font_bold, font_italic, font_strikeout, border_left, border_right, border_down, border_up ) - + def get_token(self, id, index1, index2): return ct.ed_get_token(self.h, id, index1, index2) #end diff --git a/app/cudatext.app/Contents/Resources/readme/history.txt b/app/cudatext.app/Contents/Resources/readme/history.txt index 6b7643ac36a..86bfc54bfc5 100644 --- a/app/cudatext.app/Contents/Resources/readme/history.txt +++ b/app/cudatext.app/Contents/Resources/readme/history.txt @@ -5,9 +5,9 @@ 1.5.2 -+ api: optimised in 4-5 functions code -- fix: Python lex -- fix: export html ++ api: added, optimised in 5 funcs ++ lex Pascal: hilites for "types", "msgs" +- fix: lex Python 1.5.1 + AddonMan: suggests readme+history diff --git a/app/formmain_py.inc b/app/formmain_py.inc index cfc3d99e7fe..0f4cd5f09a1 100644 --- a/app/formmain_py.inc +++ b/app/formmain_py.inc @@ -2946,7 +2946,7 @@ begin if IndexOk then Result:= Py_BuildValue('(sL)', PChar(Listbox.Items[NIndex]), - Int64(Listbox.Items.Objects[NIndex]) ) + PtrInt(Listbox.Items.Objects[NIndex]) ) else Result:= ReturnNone; end; diff --git a/app/readme/history.txt b/app/readme/history.txt index 1b8fc45398d..86bfc54bfc5 100644 --- a/app/readme/history.txt +++ b/app/readme/history.txt @@ -5,9 +5,9 @@ 1.5.2 -+ api: optimised in 5 functions -+ lex Pascal: keywords hilites for "types", "msgs" -- fix: Python lex ++ api: added, optimised in 5 funcs ++ lex Pascal: hilites for "types", "msgs" +- fix: lex Python 1.5.1 + AddonMan: suggests readme+history