See ChangeLog entry 19990604-23:15 EDT David G. Holm <dholm@jsd-llc.com>

harbour/ChangeLog

@@ -1,3 +1,19 @@
+19990604-23:15 EDT David G. Holm <dholm@jsd-llc.com>
+  + include/version.h
+    - New file to specify version info. A future revision will be
+      to specify where to find the version information, so that it
+      may be pulled from other modules and/or the CVS.
+  * source/rtl/environ.c
+    - Modified HARBOUR OS() function to work with DJGPP.
+    - Modified HARBOUR VERSION() function to format the version info
+      similar to how Clipper does it (version, build, and date).
+  * source/rtl/set.c
+    - Added #include <unistd.h> for DJGPP.
+  * tests/working/makefile.dos
+    - Added compiler and library to the PRG to C dependency.
+  + tests/working/version.prg
+    - Added new module to test the VERSION function.
+
 19990604-22:07 EST Les. Griffith
   added logic for msguk.c and msguk.obj to makefile.b32
 

harbour/include/version.h

@@ -0,0 +1,27 @@
+/*
+ * $Id$
+ */
+
+#ifndef _VERSION_H
+#define _VERSION_H
+
+/*
+   extern int hb_major;
+   extern int hb_minor;
+   extern char * hb_revision;
+   extern int hb_build;
+   extern int hb_year;
+   extern int hb_month;
+   extern int hb_day;
+*/
+
+   #define hb_major 	0	/* Major version number */
+   #define hb_minor 	0	/* Minor version number */
+   #define hb_revision 	"a"	/* Revision letter */
+   #define hb_build 	219	/* Build number */
+   #define hb_year 	1999	/* Build year */
+   #define hb_month 	6	/* Build month */
+   #define hb_day       4	/* Build day */
+
+#endif
+

harbour/source/rtl/environ.c

@@ -7,8 +7,9 @@
 #endif
 
 #include <extend.h>
+#include <version.h>
 
-#if defined(__TURBOC__) || defined(__BORLANDC__)
+#if defined(__TURBOC__) || defined(__BORLANDC__)  || defined(__DJGPP__)
   #include <dos.h>
 #endif
 
@@ -46,7 +47,7 @@ HARBOUR OS()
 
 #else
 
-#ifdef __GNUC__
+#if defined(__GNUC__) && !defined(__DJGPP__)
 
 #else
 
@@ -166,7 +167,10 @@ HARBOUR OS()
 
 HARBOUR VERSION()
 {
-   _retc( "Harbour alpha version" );
+   char hb_ver[ 80 ];
+   sprintf( hb_ver, "Harbour %d.%d%s Intl. (Build %d)  (%04d.%02d.%02d)",
+      hb_major, hb_minor, hb_revision, hb_build, hb_year, hb_month, hb_day );
+   _retc( hb_ver );
 }
 
 HARBOUR GETENV()

harbour/source/rtl/set.c

@@ -6,6 +6,9 @@
 #include <extend.h>
 #include <fcntl.h>
 #include <io.h>
+#ifdef __DJGPP__
+   #include <unistd.h>
+#endif
 #include <sys/stat.h>
 #include <set.h>
 #include <errno.h>

harbour/tests/working/makefile.dos

@@ -13,7 +13,7 @@ $(TARGET): $(TARGET).exe
 $(TARGET).exe: $(TARGET).o
 	$(CC) $? -L$(HARBOURDIR)/libs -lharb -o $@ 
 
-$(TARGET).c: $(TARGET).prg
+$(TARGET).c: $(TARGET).prg $(HARBOURDIR)/bin/harbour.exe $(HARBOURDIR)/libs/libharb.a
 	$(HARBOURDIR)/bin/harbour $(TARGET).prg -n
 
 $(TARGET).o: $(TARGET).c

harbour/tests/working/version.prg

@@ -0,0 +1,7 @@
+// Testing the VERSION function
+
+function Main()
+
+   QOUT( VERSION() )
+
+return nil