-----------------------------------------------------------------------} { } { Subprogram Name: mwPasToHtml } { Purpose: mwPasToHtml } { Source Language: Delphi } { Author Name and Contact Information: } { Modified by Greg Nixon } { Martin Waldenburg's mwPasToRtf } { Copyright 1997-1998, all rights reserved. } { } {-----------------------------------------------------------------------} { } { Description: } { Pas to Html converter for syntax highlighting etc. } { FreeWare } { DISCLAIMER: This is provided as is, expressly without a } { warranty of any kind. You use it at your own risc. } { } {-----------------------------------------------------------------------} { } { Revision History } { v# ,Date ,Author Name ,Description } { 1.00 ,04/03/1998 ,Greg Nixon ,Start } { 1.01 ,05/03/1998 ,Greg Nixon ,Added Color } { 1.02 ,05/03/1998 ,Greg Nixon ,Add NotDelphi } { 1.03 ,6/03/1998 ,Greg Nixon ,Special Chars } { } {-----------------------------------------------------------------------TPasConversion -
TCommentState
TTokenState
DiffKeys
Directives
Keywords
TCommentState = (csAnsi, csBor, csNo, csSlashes);
TTokenState = (tsAssembler, tsComment, tsCRLF, tsDirective, tsIdentifier,
tsKeyWord, tsNumber, tsSpace, tsString, tsSymbol, tsUnknown);
DiffKeys =
('END', 'FUNCTION', 'PRIVATE', 'PROCEDURE', 'PRODECTED', 'PUBLIC', 'PUBLISHED')
Directives =
('AUTOMATED', 'INDEX', 'NAME', 'NODEFAULT', 'READ', 'READONLY',
'RESIDENT', 'STORED', 'STRINGRECOURCE', 'WRITE', 'WRITEONLY')
Keywords =
('ABSOLUTE', 'ABSTRACT', 'AND', 'ARRAY', 'AS', 'ASM', 'ASSEMBLER',
'AUTOMATED', 'BEGIN', 'CASE', 'CDECL', 'CLASS', 'CONST', 'CONSTRUCTOR',
'DEFAULT', 'DESTRUCTOR', 'DISPID', 'DISPINTERFACE', 'DIV', 'DO',
'DOWNTO', 'DYNAMIC', 'ELSE', 'END', 'EXCEPT', 'EXPORT', 'EXPORTS',
'EXTERNAL', 'FAR', 'FILE', 'FINALIZATION', 'FINALLY', 'FOR', 'FORWARD',
'FUNCTION', 'GOTO', 'IF', 'IMPLEMENTATION', 'IN', 'INDEX', 'INHERITED',
'INITIALIZATION', 'INLINE', 'INTERFACE', 'IS', 'LABEL', 'LIBRARY',
'MESSAGE', 'MOD', 'NAME', 'NEAR', 'NIL', 'NODEFAULT', 'NOT', 'OBJECT',
'OF', 'OR', 'OUT', 'OVERRIDE', 'PACKED', 'PASCAL', 'PRIVATE', 'PROCEDURE',
'PROGRAM', 'PROPERTY', 'PROTECTED', 'PUBLIC', 'PUBLISHED', 'RAISE',
'READ', 'READONLY', 'RECORD', 'REGISTER', 'REPEAT', 'RESIDENT',
'RESOURCESTRING', 'SAFECALL', 'SET', 'SHL', 'SHR', 'STDCALL', 'STORED',
'STRING', 'STRINGRESOURCE', 'THEN', 'THREADVAR', 'TO', 'TRY', 'TYPE',
'UNIT', 'UNTIL', 'USES', 'VAR', 'VIRTUAL', 'WHILE', 'WITH', 'WRITE',
'WRITEONLY', 'XOR')