paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:29:26 +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, tkNumber,
tkChar, tkChar,
// Simple (one-character) tokens // Simple (one-character) tokens
tkBraceOpen, // '(' tkBraceOpen, // '('
tkBraceClose, // ')' tkBraceClose, // ')'
tkMul, // '*' tkMul, // '*'
tkPlus, // '+' tkPlus, // '+'
tkComma, // ',' tkComma, // ','
tkMinus, // '-' tkMinus, // '-'
tkDot, // '.' tkDot, // '.'
tkDivision, // '/' tkDivision, // '/'
tkColon, // ':' tkColon, // ':'
tkSemicolon, // ';' tkSemicolon, // ';'
tkLessThan, // '<' tkLessThan, // '<'
tkEqual, // '=' tkEqual, // '='
tkGreaterThan, // '>' tkGreaterThan, // '>'
tkAt, // '@' tkAt, // '@'
tkSquaredBraceOpen, // '[' tkSquaredBraceOpen, // '['
tkSquaredBraceClose,// ']' tkSquaredBraceClose, // ']'
tkCaret, // '^' tkCaret, // '^'
// Two-character tokens // Two-character tokens
tkDotDot, // '..' tkDotDot, // '..'
tkAssign, // ':=' tkAssign, // ':='
tkNotEqual, // '<>' tkNotEqual, // '<>'
tkLessEqualThan, // '<=' tkLessEqualThan, // '<='
tkGreaterEqualThan, // '>=' tkGreaterEqualThan, // '>='
tkPower, // '**' tkPower, // '**'
tkSymmetricalDifference, // '><'
// Reserved words // Reserved words
tkabsolute, tkabsolute,
tkand, tkand,
@ -248,6 +249,7 @@ const
'<=', '<=',
'>=', '>=',
'**', '**',
'><',
// Reserved words // Reserved words
'absolute', 'absolute',
'and', 'and',
@ -796,6 +798,10 @@ begin
begin begin
Inc(TokenStr); Inc(TokenStr);
Result := tkGreaterEqualThan; Result := tkGreaterEqualThan;
end else if TokenStr[0] = '<' then
begin
Inc(TokenStr);
Result := tkSymmetricalDifference;
end else end else
Result := tkGreaterThan; Result := tkGreaterThan;
end; end;

4
utils/fpdoc/dw_html.pp
View File

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