2006-07-20 12:36 UTC+0100 Viktor Szakats (viktor.szakats syenar.hu)

+ harbour/utils/hbpptest/compare.bat
   + harbour/utils/hbpptest/.cvsignore
   * harbour/utils/hbpptest/pp_test.prg
     + Added batch file to compare PP results between Harbour and
       CA-Cl*pper.
This commit is contained in:
Viktor Szakats
2006-07-20 10:40:32 +00:00
parent 385facd33c
commit fffc205acc
4 changed files with 35 additions and 9 deletions

View File

@@ -8,6 +8,13 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
* harbour/makefile.vc
* harbour/make_vc.bat
! Fixed header description of makefile
* Added INSTALL rule.
+ Added batch file to compare PP results between Harbour and
2006-07-20 12:36 UTC+0100 Viktor Szakats (viktor.szakats syenar.hu)
+ harbour/utils/hbpptest/compare.bat
+ harbour/utils/hbpptest/.cvsignore
* harbour/utils/hbpptest/pp_test.prg
+ Added batch file to compare PP results between Harbour and

View File

@@ -0,0 +1 @@
pp_test.diff

View File

@@ -0,0 +1,18 @@
@echo off
rem
rem $Id$
rem
copy pp_test.prg _pp_hb.prg
copy pp_test.prg _pp_c5x.prg
..\..\bin\harbour.exe -p -s -n _pp_hb.prg
clipper.exe _pp_c5x.prg /p /s /n
del _pp_hb.prg
del _pp_c5x.prg
diff -u -w _pp_hb.ppo _pp_c5x.ppo > pp_test.diff
del _pp_hb.ppo
del _pp_c5x.ppo

View File

@@ -1,20 +1,20 @@
/*
* $Id$
*/
/* Test file to check the preprocessor.
*
* Usage:
* 1) Preprocess it using:
* harbour -p -n pp_test.prg
* 2) Rename generated pp_test.ppo (for example into pp_test.hpp)
* 3) Preprocess it with Clipper using:
* clipper -p -n pp_test.prg
* 4) Compare Clipper generated file pp_test.ppo with file generated
* with Harbour, ignoring number of white spaces, for example:
* diff -u -w pp_test.ppo pp_test.hpp > pp_test.diff
* 1) Run compare.bat for a comparison between Harbour and CA-Cl*pper.
* 2) Results will be stored in pp_test.diff
*
* Notes:
* - clipper.exe and diff.exe needs to be in the path.
*
* Ignore most of errors reported during compilation.
*
*/
PROCEDURE MAIN()
#ifdef __HARBOUR__
@@ -468,4 +468,4 @@ DEFINE CLIPBOARD oC OF oD FORMAT TEXT
&oW.Title := "title"
&oW.f9 := 9
RETURN
RETURN