Modification of preprocessor files

harbour/ChangeLog

@@ -1,3 +1,9 @@
+19990529-23:46 Alexander Kresin
+  Preprocessor: implementation of #command almost complete
+  Updated:
+   * source/hbpp/hbpp.c - main preprocessor file
+   * source/hbpp/harb.c
+   * source/hbpp/c.prg  - sample file
 19990529-19:45 CET Eddie Runia
   * tests/working/run_exp.h
     hb_f* functions added

harbour/source/hbpp/c.prg

@@ -1,16 +1,20 @@
 #include "std.ch"
+SET PATH TO c:\database\
  @ 1,1,10,10 BOX ORAMKA
- @ 2, 3 SAY "Hello,world"
+ @ 10,10 say "Hello World"
  SET DATE BRITISH
- USE JOUPL SHARED INDEX JOUPI1
+ USE \Sklad\dbskl\JOUPL SHARED INDEX CUST, POSTI, ACCOU
+ SET ORDER TO 2
+ SET RELATION TO STR(NPOST,6) INTO POSTAV
+ SUM NUM, SCHET, PARS TO x1,y1,z1
  SET FILTER TO
  SEEK STR(A->NOMER,10)
  go top
  DO WHILE x>1
-  skip 3
+  SKIP 3
  ENDDO
  LOCATE FOR Family = "Johnson"
  ? "Family:", Family, "--"
  REPLACE PARAM1 WITH 3, PARAM2 WITH "Hello", PARAM3 WITH PARAM4 * 2
- STORE 10 to x,y,z 
+ STORE 10 to x,y,z
 return

harbour/source/hbpp/harb.c

@@ -1,6 +1,8 @@
 #include <stdio.h>
 #include <mem.h>
-#include <alloc.h>
+#ifndef __dj_include_stdio_h_
+ #include <alloc.h>
+#endif
 #include "harb.h"
 /*
  * Split given filename into path, name and extension