paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ >< support for fpdoc from Vincent Snijders

Browse Source 
git-svn-id: trunk@2283 -
This commit is contained in:
florian 2006-01-14 13:04:22 +00:00
parent e9b718a0a2
commit c4afc10ebc
2 changed files with 32 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
fcl/passrc/pscanner.pp
View File

@ -40,30 +40,31 @@ type
tkNumber,
tkChar,
// Simple (one-character) tokens
tkBraceOpen, // '('
tkBraceClose, // ')'
tkMul, // '*'
tkPlus, // '+'
tkComma, // ','
tkMinus, // '-'
tkDot, // '.'
tkDivision, // '/'
tkColon, // ':'
tkSemicolon, // ';'
tkLessThan, // '<'
tkEqual, // '='
tkGreaterThan, // '>'
tkAt, // '@'
tkSquaredBraceOpen, // '['
tkSquaredBraceClose,// ']'
tkCaret, // '^'
tkBraceOpen, // '('
tkBraceClose, // ')'
tkMul, // '*'
tkPlus, // '+'
tkComma, // ','
tkMinus, // '-'
tkDot, // '.'
tkDivision, // '/'
tkColon, // ':'
tkSemicolon, // ';'
tkLessThan, // '<'
tkEqual, // '='
tkGreaterThan, // '>'
tkAt, // '@'
tkSquaredBraceOpen, // '['
tkSquaredBraceClose, // ']'
tkCaret, // '^'
// Two-character tokens
tkDotDot, // '..'
tkAssign, // ':='
tkNotEqual, // '<>'
tkLessEqualThan, // '<='
tkGreaterEqualThan, // '>='
tkPower, // '**'
tkDotDot, // '..'
tkAssign, // ':='
tkNotEqual, // '<>'
tkLessEqualThan, // '<='
tkGreaterEqualThan, // '>='
tkPower, // '**'
tkSymmetricalDifference, // '><'
// Reserved words
tkabsolute,
tkand,
@ -248,6 +249,7 @@ const
'<=',
'>=',
'**',
'><',
// Reserved words
'absolute',
'and',
@ -796,6 +798,10 @@ begin
begin
Inc(TokenStr);
Result := tkGreaterEqualThan;
end else if TokenStr[0] = '<' then
begin
Inc(TokenStr);
Result := tkSymmetricalDifference;
end else
Result := tkGreaterThan;
end;

4
utils/fpdoc/dw_html.pp
View File

@ -339,7 +339,9 @@ begin
else if s = '>' then
s := 'greater'
else if s = '>=' then
s := 'greaterthan';
s := 'greaterthan'
else if s = '><' then
s := 'symmetricdifference';
Result := Result + s + '-';
s := '';
i := 1;