+ >< support for fpdoc from Vincent Snijders

git-svn-id: trunk@2283 -

fcl/passrc/pscanner.pp

@@ -64,6 +64,7 @@ type
     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;

utils/fpdoc/dw_html.pp

@@ -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;