Jedi code format: refactor, remove include file JcfGlobal.inc

components/jcf2/IdePlugin/lazarus/jcfidemain.pas

@@ -31,7 +31,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/IdePlugin/lazarus/jcfideregister.pas

@@ -28,7 +28,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/JcfVersionConsts.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Parse/AsmKeywords.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Parse/BuildParseTree.pas

@@ -35,7 +35,7 @@ See http://www.gnu.org/licenses/gpl.html
  It is much extended via test cases as that is woefully incomplete
 }
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Parse/BuildTokenList.pas

@@ -33,7 +33,7 @@ unit BuildTokenList;
  2017.05.17 ~pktv Added lexing of octal constants (ex. -> const a=&777;)
 }
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 
@@ -44,8 +44,6 @@ uses
 
 type
 
-  EBuildTokenListWarning= type Exception;
-
   TBuildTokenListFlag=(btlOnlyDirectives);
   TBuildTokenListFlags = set of TBuildTokenListFlag;
 

components/jcf2/Parse/ParseError.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 
@@ -51,6 +51,8 @@ type
 
   end;
 
+  EBuildTokenListWarning= type Exception;
+
   procedure CheckNilPointer(aPtr:Pointer);
   procedure CheckNilInstance(aInstance: TObject; aLastValidToken: TObject);
 

components/jcf2/Parse/ParseTreeNode.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Parse/ParseTreeNodeType.pas

@@ -30,7 +30,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Parse/PreProcessor/PreProcessorExpressionParser.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Parse/PreProcessor/PreProcessorExpressionTokenise.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Parse/PreProcessor/PreProcessorExpressionTokens.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Parse/PreProcessor/PreProcessorParseTree.pas

@@ -24,7 +24,7 @@ the GNU General Public License Version 2 or later (the "GPL")
 See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Parse/SourceToken.pas

@@ -28,7 +28,7 @@ unit SourceToken;
 { Created AFS 29 Nov 1999
   Token  - element of source code text }
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Parse/SourceTokenList.pas

@@ -40,7 +40,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Parse/TokenUtils.pas

@@ -32,7 +32,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Parse/Tokens.pas

@@ -45,7 +45,7 @@ unit Tokens;
   ie 'while' -> ttWhile
 }
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Parse/UI/fShowParseTree.pas

@@ -33,7 +33,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Align/AlignAssign.pas

@@ -29,7 +29,7 @@ unit AlignAssign;
  Align the RHS of consecutive assign statements
 }
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Align/AlignBase.pas

@@ -30,7 +30,7 @@ unit AlignBase;
   This is the base class for all aligners
 }
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Align/AlignComment.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Align/AlignConst.pas

@@ -29,7 +29,7 @@ unit AlignConst;
  Align the RHS of consecutive = signs in a const section
 }
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Align/AlignField.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Align/AlignTypedef.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Align/AlignVars.pas

@@ -29,7 +29,7 @@ unit AlignVars;
  Align the RHS of var types
 }
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/AllProcesses.pas

@@ -27,7 +27,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/BaseVisitor.pas

@@ -30,7 +30,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Capitalisation/Capitalisation.pas

@@ -29,7 +29,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Capitalisation/IdentifierCaps.pas

@@ -28,7 +28,7 @@ See http://www.gnu.org/licenses/gpl.html
 { AFS 30 December 2002
     - fix capitalisation on specified words
 }
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Capitalisation/SpecificWordCaps.pas

@@ -28,7 +28,7 @@ See http://www.gnu.org/licenses/gpl.html
 { AFS 30 December 2002
     - fix capitalisation on specified words
 }
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Capitalisation/UnitNameCaps.pas

@@ -28,7 +28,7 @@ See http://www.gnu.org/licenses/gpl.html
 { AFS 16 June 2003
   - fix capitalisation on unit names
 }
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/FormatFlags.pas

@@ -30,7 +30,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Indent/IndentAsmParam.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Indent/Indenter.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Info/BasicStats.pas

@@ -24,7 +24,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Nesting.pas

@@ -26,7 +26,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Obfuscate/FixCase.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Obfuscate/RebreakLines.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Obfuscate/ReduceWhiteSpace.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Obfuscate/RemoveBlankLine.pas

@@ -28,7 +28,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Obfuscate/RemoveComment.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Obfuscate/RemoveConsecutiveWhiteSpace.pas

@@ -32,7 +32,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Obfuscate/RemoveReturn.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Obfuscate/RemoveUnneededWhiteSpace.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Onceoffs/GlobalInclude.pas

@@ -29,7 +29,7 @@ unit GlobalInclude;
  add in the global include
 }
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Onceoffs/MozComment.pas

@@ -33,7 +33,7 @@ unit MozComment;
  The easiest way to fix that, is this code below:
 }
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/RemoveEmptyComment.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Returns/BlockStyles.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Returns/LongLineBreaker.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Returns/NoReturnAfter.pas

@@ -29,7 +29,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Returns/NoReturnBefore.pas

@@ -29,7 +29,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Returns/PropertyOnOneLine.pas

@@ -29,7 +29,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Returns/RemoveBlankLinesAfterProcHeader.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Returns/RemoveBlankLinesInVars.pas

@@ -31,7 +31,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Returns/RemoveConsecutiveReturns.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Returns/RemoveReturnsAfter.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Returns/RemoveReturnsAfterBegin.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Returns/RemoveReturnsBeforeEnd.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Returns/ReturnAfter.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Returns/ReturnBefore.pas

@@ -29,7 +29,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Returns/ReturnChars.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Returns/ReturnsAfterFinalEnd.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Spacing/MaxSpaces.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Spacing/MoveSpaceToBeforeColon.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Spacing/NoSpaceAfter.pas

@@ -28,7 +28,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Spacing/NoSpaceBefore.pas

@@ -30,7 +30,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Spacing/RemoveSpaceAtLineEnd.pas

@@ -29,7 +29,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Spacing/SingleSpaceAfter.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Spacing/SingleSpaceBefore.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Spacing/SpaceBeforeColon.pas

@@ -29,7 +29,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Spacing/SpaceToTab.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Spacing/TabToSpace.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/SwitchableVisitor.pas

@@ -30,7 +30,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Transform/AddBeginEnd.pas

@@ -24,7 +24,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Transform/AddBlockEndSemicolon.pas

@@ -24,7 +24,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Transform/FindReplace.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Transform/SortUses.pas

@@ -24,7 +24,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Transform/SortUsesData.pas

@@ -24,7 +24,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Transform/UsesClauseFindReplace.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Transform/UsesClauseInsert.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Transform/UsesClauseRemove.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/TreeWalker.pas

@@ -26,7 +26,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/VisitSetNesting.pas

@@ -27,7 +27,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/VisitSetXY.pas

@@ -28,7 +28,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/VisitStripEmptySpace.pas

@@ -32,7 +32,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Warnings/WarnAssignToFunctionName.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Warnings/WarnCaseNoElse.pas

@@ -38,7 +38,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Warnings/WarnDestroy.pas

@@ -31,7 +31,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Warnings/WarnEmptyBlock.pas

@@ -31,7 +31,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Warnings/WarnImbalancedComment.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Warnings/WarnRealType.pas

@@ -30,7 +30,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Warnings/WarnUnusedParam.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/Process/Warnings/Warning.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/ReadWrite/CodeReader.pas

@@ -48,7 +48,7 @@ unit CodeReader;
 
 }
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/ReadWrite/CodeWriter.pas

@@ -39,7 +39,7 @@ unit CodeWriter;
   Now called  TCodeWriter not TWriter to avoid a name clash with Classes.Writer
   }
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/ReadWrite/ConvertTypes.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 
 unit ConvertTypes;
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/ReadWrite/Converter.pas

@@ -32,7 +32,7 @@ unit Converter;
   Wrappers will also support the interface IConvert
 }
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/ReadWrite/FileConverter.pas

@@ -25,7 +25,7 @@ See http://www.gnu.org/licenses/gpl.html
 ------------------------------------------------------------------------------*)
 {*)}
 
-{$I ..\Include\JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/ReadWrite/FileReader.pas

@@ -44,7 +44,7 @@ See http://www.gnu.org/licenses/gpl.html
   with the same interface
 }
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface
 

components/jcf2/ReadWrite/FileWriter.pas

@@ -32,7 +32,7 @@ unit FileWriter;
   and writing the file at once
   }
 
-{$I JcfGlobal.inc}
+{$mode delphi}
 
 interface