Added support for ppo #line tokens

harbour/ChangeLog

@@ -1,3 +1,10 @@
+19990709-18:21 Antonio Linares <alinares@fivetech.com>
+  + source/compiler/harbour.l
+    added support for ppo #line token
+    Described line bug was mine. Fixed!
+  + source/compiler/harbour.y
+    added support for ppo #line syntax (including XBase++ style)
+
 19990709-16:25 Eddie Runia
   * build32.bat; source/runner/runner.c; source/runner/run_exp.h;
     tests/working/hb32.bat; tests/working/runrdos.bat

harbour/source/compiler/harbour.l

@@ -730,7 +730,7 @@ Separator     {SpaceTab}
 %{
 /* ************************************************************************ */
 %}
-"line"         return LINE;
+"#"{Separator}*"line"  return LINE;
 "local"        BEGIN LOCAL_;
 <LOCAL_>{Separator}+[_a-zA-Z]   { /* an identifier after LOCAL */
                  unput( yytext[ yyleng-1 ] );

harbour/source/compiler/harbour.y

@@ -515,6 +515,7 @@ Source     : Crlf
            | MemvarDef
            | Function
            | Statement
+           | Line
            | Source Crlf
            | Source Extern
            | Source Function
@@ -522,6 +523,11 @@ Source     : Crlf
            | Source VarDefs
            | Source FieldsDef
            | Source MemvarDef
+           | Source Line
+           ;
+
+Line       : LINE INTEGER LITERAL Crlf
+           | LINE INTEGER LITERAL '@' LITERAL Crlf   /* XBase++ style */
            ;
 
 Extern     : EXTERN ExtList { _iState =LOOKUP; } Crlf