19991005-14:41 GMT+1

harbour/.cvsignore

@@ -4,5 +4,5 @@ linux
 linux/*
 os2
 os2/*
-win32
-win32/*
+w32
+w32/*

harbour/ChangeLog

@@ -1,3 +1,19 @@
+19991005-14:41 GMT+1 Victor Szel <info@szelvesz.hu>
+  * tests/run_tsta.bat
+    tests/test_all.prg
+    ! Fixed, HB32 changed to RUN_PRG, filename cases adjusted, using header
+      files, date format set to standard.
+  * .cvsignore
+    make_tpl.*
+    config/win32/* moved to config/w32/*
+    * The GNU platform name for Windows 32bit has changed to "w32" from
+      "win32", the only reason is that the new one is shorter. This way all the 
+      paths will be shorter, and the binary release filenames will be also 
+      shorter.
+
+      Please update your GNU make starter batch files to use w32 instead of 
+      win32 in HB_ARCHITECTURE.
+
 19991005-13:59 GMT+1 Victor Szel <info@szelvesz.hu>
   * source/compiler/harbour.y
     source/pp/stdalone/hbpp.c

harbour/make_tpl.bat

@@ -32,7 +32,7 @@ set HB_INC_INSTALL=include\
 rem ---------------------------------------------------------------
 rem The following HB_ARCHITECTURE values are currently supported:
 rem  - dos
-rem  - win32
+rem  - w32
 rem  - linux
 rem  - os2
 
@@ -44,7 +44,7 @@ rem  - When HB_ARCHITECTURE=dos
 rem    - bcc31
 rem    - djgpp
 rem    - watcom
-rem  - When HB_ARCHITECTURE=win32
+rem  - When HB_ARCHITECTURE=w32
 rem    - bcc32
 rem    - gcc
 rem    - mingw32

harbour/make_tpl.cmd

@@ -32,7 +32,7 @@ set HB_INC_INSTALL=include\
 rem ---------------------------------------------------------------
 rem The following HB_ARCHITECTURE values are currently supported:
 rem  - dos
-rem  - win32
+rem  - w32
 rem  - linux
 rem  - os2
 
@@ -44,7 +44,7 @@ rem  - When HB_ARCHITECTURE=dos
 rem    - bcc31
 rem    - djgpp
 rem    - watcom
-rem  - When HB_ARCHITECTURE=win32
+rem  - When HB_ARCHITECTURE=w32
 rem    - bcc32
 rem    - gcc
 rem    - mingw32

harbour/make_tpl.sh

@@ -32,7 +32,7 @@ export HB_INC_INSTALL=include/
 # ---------------------------------------------------------------
 # The following HB_ARCHITECTURE values are currently supported:
 #  - dos
-#  - win32
+#  - w32
 #  - linux
 #  - os2
 
@@ -44,7 +44,7 @@ export HB_ARCHITECTURE=linux
 #    - bcc31
 #    - djgpp
 #    - watcom
-#  - When HB_ARCHITECTURE=win32
+#  - When HB_ARCHITECTURE=w32
 #    - bcc32
 #    - gcc
 #    - mingw32

harbour/tests/harbour.ini

@@ -8,7 +8,7 @@ so there!!!=
 another=section
 
 [Date Test]
-Today=19990917
+Today=19991005
 
 [Bool Test]
 True=.t.

harbour/tests/run_tsta.bat

@@ -3,6 +3,6 @@ rem
 rem $Id$
 rem 
 
-call run_prg.bat test_all.prg
-call testall.bat
-del testall.bat
+call run_prg.bat test_all
+call test_all.bat
+del test_all.bat

harbour/tests/test_all.prg

@@ -7,19 +7,23 @@
 // Patrick Mast and David G. Holm
 // Compiler independent, but not platform independent (creates a DOS style batch file).
 // Specify the hbxxx batch file name to use to build with on the command line.
-// Defaults to HB32.
-// The TESTALL.BAT batch file has restart capability. For example, if there is an error
-// in testgt.prg, find and fix the problem, then restart by running "TESTALL TESTGT".
+// Defaults to "run_prg".
+// The TEST_ALL.BAT batch file has restart capability. For example, if there is an error
+// in testgt.prg, find and fix the problem, then restart by running "TEST_ALL TESTGT".
+
+#include "directry.ch"
+#include "fileio.ch"
 
 Function Main( cOption, cCmd )
-LOCAL aDir,f,n,o,p,cRead
+   LOCAL aDir,f,n,o,p,cRead
 
-   aDir:=Directory("*.PRG")
-   o=fCreate("TestAll.Bat")
+   SET DATE ANSI
+   SET CENTURY ON
+
+   aDir := Directory("*.prg")
+   o := fCreate("test_all.bat")
    IF Empty( cOption )
-      cOption:="HB32"
-   ELSEIF Upper( cOption ) == "HRB"
-      fWrite(o,"del test_all.out"+chr(13)+chr(10))
+      cOption:="run_prg"
    ENDIF
    IF Empty( cCmd )
       cCmd := "call "
@@ -35,15 +39,8 @@ LOCAL aDir,f,n,o,p,cRead
          IF p > 1
             n := Left(aDir[f][1],p-1)
             fWrite(o,":" + n + Chr(13) + Chr(10))
-            IF !Empty( cOption ) .and. Upper( cOption ) == "HRB"
-               fWrite(o,;
-                  "..\bin\harbour "+aDir[f][1]+" /n /gHRB /i..\include >> test_all.out"+Chr(13)+Chr(10)+;
-                  "if errorlevel 1 goto end"+Chr(13)+Chr(10)+;
-                  "hbrun "+Left(aDir[f][1],Len(aDir[f][1])-4)+".hrb >> test_all.out"+Chr(13)+Chr(10) )
-            ELSE
-               fWrite(o,cCmd + cOption + " " + n + Chr(13) + Chr(10);
+            fWrite(o,cCmd + cOption + " " + n + Chr(13) + Chr(10);
                 + "if errorlevel 1 goto end" + Chr(13) + Chr(10) + Chr(13) + Chr(10))
-            ENDIF
          ENDIF
       ENDIF
    NEXT
@@ -62,11 +59,11 @@ LOCAL nH1,lRetu,nH2
 
    IF !lRetu
       IF !File("NotTestd.txt")
-         nH2=fCreate("NotTestd.txt")
+         nH2=fCreate("nottestd.txt")
       ELSE
-         nH2=fOpen("NotTestd.txt",1)
+         nH2=fOpen("nottestd.txt", FO_WRITE)
       ENDIF
-      fSeek(nH2,0,2)
+      fSeek(nH2, 0, FS_END)
       fWrite(nH2,DtoC(Date())+"  "+Time()+"  "+cFile+Chr(13)+Chr(10))
       fClose(nH2)
    ENDIF