fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

19991118-05:29 GMT+1 Victor Szel <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
1999-11-18 04:45:41 +00:00
parent 0dd0d8d93f
commit 53a6b01a56
15 changed files with 255 additions and 202 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/ChangeLog
View File

@@ -1,3 +1,13 @@
19991118-05:29 GMT+1 Victor Szel <info@szelvesz.hu>
- bin\buildexe*.bat
+ bin\bld_tpl.*
* New style build batch file templates added instead of the long-named
ones.
* make_tpl.*
+ Copyright info added.
* include/filesys.h
+ Indenting corrected.
19991117-13:05 GMT+1 Ryszard Glab <rglab@imid.med.pl>
*source/compiler/harbour.y
@@ -153,7 +163,7 @@
source/rtl/text.prg
source/rtl/harbinit.prg
source/rtl/browse.prg
% Optimzalization. (FUNCTION/RETURN NIL->PROCEDURE)
% Optimization. (FUNCTION/RETURN NIL->PROCEDURE)
* tests/memfile.prg
+ Added tests for long variable names.
! Make it possible to compile with CA-Cl*pper.

115
harbour/bin/bld_tpl.bat Normal file
View File

@@ -0,0 +1,115 @@
@echo off
rem
rem $Id$
rem
rem Flavour: DOS/Windows batch file
rem ---------------------------------------------------------------
rem Template to build a final Harbour executable, using Harbour
rem with the C code generation feature, then calling the proper C
rem linker/compiler.
rem
rem Copyright 1999 Victor Szel <info@szelvesz.hu>
rem See doc/license.txt for licensing terms.
rem ---------------------------------------------------------------
rem set HB_ARCHITECTURE=
rem set HB_COMPILER=
:START
if "%HB_ARCHITECTURE%" == "" goto BAD_ARCH
if "%HB_COMPILER%" == "" goto BAD_COMP
if not "%1" == "" goto COMPILE
:HELP
echo.
echo Usage: bld_tpl.bat filename
echo.
echo Notes:
echo.
echo - 'filename' is the .prg filename *without* extension.
echo - Don't forget to make a MAIN() function for you application.
echo - This batch file assumes you are in some directory off the main
echo harbour directory.
echo - Environment variable HB_ARCHITECTURE and HB_COMPILER should be set.
echo The following values are currently supported:
echo.
echo HB_ARCHITECTURE:
echo - dos
echo - w32
echo - linux
echo - os2
echo.
pause
echo HB_COMPILER:
echo - When HB_ARCHITECTURE=dos
echo - bcc31 (Borland C/C++ 3.1, 16-bit DOS)
echo - djgpp (GCC (DJGPP), 32-bit Windows)
echo - watcom
echo - When HB_ARCHITECTURE=w32
echo - bcc32
echo - gcc (GCC (Cygnus), 32-bit Windows)
echo - mingw32 (GCC (Cygnus/MingW32), Windows 32 bit (console mode))
echo - icc
echo - msvc (MSVC v 12.00.8168, Windows 32 bit (console mode))
echo - When HB_ARCHITECTURE=linux
echo - gcc
echo - When HB_ARCHITECTURE=os2
echo - gcc (GCC (EMX), 32-bit OS/2)
echo - icc (ICC (IBM Visual Age C++ 3.0), 32-bit OS/2)
goto END
:BAD_ARCH
echo Error: HB_ARCHITECTURE is not set.
goto HELP
:BAD_COMP
echo Error: HB_COMPILER is not set.
goto HELP
:COMPILE
harbour %1.prg /n /i..\include
if not "%HB_ARCHITECTURE%" == "dos" goto A_W32
if "%HB_COMPILER%" == "bcc31" bcc -O2 -mh -I..\include %1.c ..\lib\common.lib ..\lib\rtl.lib ..\lib\rdd.lib ..\lib\vm.lib ..\lib\rdd.lib ..\lib\rtl.lib ..\lib\dbfntx.lib ..\lib\dbfcdx.lib
if "%HB_COMPILER%" == "djgpp" gcc %1.c -o%1.exe -I..\include -L..\lib -lcommon -lrtl -lrdd -lvm -lrdd -lrtl -ldbfnt -ldbfcd
goto END
:A_W32
if not "%HB_ARCHITECTURE%" == "w32" goto A_OS2
if "%HB_COMPILER%" == "gcc" gcc %1.c -I..\include -L..\lib -lcommon -lrtl -lrdd -lvm -lrdd -lrtl -ldbfntx -ldbfcdx
if "%HB_COMPILER%" == "mingw32" gcc %1.c -mno-cygwin -I..\include -L..\lib -lcommon -lrtl -lrdd -lvm -lrdd -lrtl -ldbfntx -ldbfcdx
if "%HB_COMPILER%" == "msvc" cl -Fd..\bin\harbour -w -Zi -TP -GZ -GA -DHARBOUR_USE_WIN_GTAPI -I..\include %1.c /link /subsystem:CONSOLE ..\lib\harbour.lib ..\lib\terminal.lib ..\lib\hbtools.lib ..\lib\dbfntx.lib ..\lib\dbfcdx.lib ..\lib\debug.lib
if "%HB_COMPILER%" == "msvc" echo Ignore LNK4033 warning
goto END
:A_OS2
if not "%HB_ARCHITECTURE%" == "dos" goto A_LINUX
if "%HB_COMPILER%" == "gcc" gcc %1.c -I..\include -L..\lib -lcommon -lrtl -lrdd -lvm -lrdd -lrtl -ldbfntx -ldbfcdx
if "%HB_COMPILER%" == "icc" icc /Gs+ /W2 /Se /Sd+ /Ti+ -I..\include /C- /Tp %1.c ..\lib\common.lib ..\lib\rtl.lib ..\lib\rdd.lib ..\lib\vm.lib ..\lib\rdd.lib ..\lib\rtl.lib ..\lib\dbfntx.lib ..\lib\dbfcdx.lib
goto END
:A_LINUX
if not "%HB_ARCHITECTURE%" == "linux" goto CLEANUP
if "%HB_COMPILER%" == "gcc" gcc %1.c -I../include -L../lib -lcommon -lrtl -lrdd -lvm -lrdd -lrtl -ldbfntx -ldbfcdx
goto END
:CLEANUP
del %1.c
:END

115
harbour/bin/bld_tpl.cmd Normal file
View File

@@ -0,0 +1,115 @@
@echo off
rem
rem $Id$
rem
rem Flavour: OS/2 command file
rem ---------------------------------------------------------------
rem Template to build a final Harbour executable, using Harbour
rem with the C code generation feature, then calling the proper C
rem linker/compiler.
rem
rem Copyright 1999 Victor Szel <info@szelvesz.hu>
rem See doc/license.txt for licensing terms.
rem ---------------------------------------------------------------
rem set HB_ARCHITECTURE=
rem set HB_COMPILER=
:START
if "%HB_ARCHITECTURE%" == "" goto BAD_ARCH
if "%HB_COMPILER%" == "" goto BAD_COMP
if not "%1" == "" goto COMPILE
:HELP
echo.
echo Usage: bld_tpl.bat filename
echo.
echo Notes:
echo.
echo - 'filename' is the .prg filename *without* extension.
echo - Don't forget to make a MAIN() function for you application.
echo - This batch file assumes you are in some directory off the main
echo harbour directory.
echo - Environment variable HB_ARCHITECTURE and HB_COMPILER should be set.
echo The following values are currently supported:
echo.
echo HB_ARCHITECTURE:
echo - dos
echo - w32
echo - linux
echo - os2
echo.
pause
echo HB_COMPILER:
echo - When HB_ARCHITECTURE=dos
echo - bcc31 (Borland C/C++ 3.1, 16-bit DOS)
echo - djgpp (GCC (DJGPP), 32-bit Windows)
echo - watcom
echo - When HB_ARCHITECTURE=w32
echo - bcc32
echo - gcc (GCC (Cygnus), 32-bit Windows)
echo - mingw32 (GCC (Cygnus/MingW32), Windows 32 bit (console mode))
echo - icc
echo - msvc (MSVC v 12.00.8168, Windows 32 bit (console mode))
echo - When HB_ARCHITECTURE=linux
echo - gcc
echo - When HB_ARCHITECTURE=os2
echo - gcc (GCC (EMX), 32-bit OS/2)
echo - icc (ICC (IBM Visual Age C++ 3.0), 32-bit OS/2)
goto END
:BAD_ARCH
echo Error: HB_ARCHITECTURE is not set.
goto HELP
:BAD_COMP
echo Error: HB_COMPILER is not set.
goto HELP
:COMPILE
harbour %1.prg /n /i..\include
if not "%HB_ARCHITECTURE%" == "dos" goto A_W32
if "%HB_COMPILER%" == "bcc31" bcc -O2 -mh -I..\include %1.c ..\lib\common.lib ..\lib\rtl.lib ..\lib\rdd.lib ..\lib\vm.lib ..\lib\rdd.lib ..\lib\rtl.lib ..\lib\dbfntx.lib ..\lib\dbfcdx.lib
if "%HB_COMPILER%" == "djgpp" gcc %1.c -o%1.exe -I..\include -L..\lib -lcommon -lrtl -lrdd -lvm -lrdd -lrtl -ldbfnt -ldbfcd
goto END
:A_W32
if not "%HB_ARCHITECTURE%" == "w32" goto A_OS2
if "%HB_COMPILER%" == "gcc" gcc %1.c -I..\include -L..\lib -lcommon -lrtl -lrdd -lvm -lrdd -lrtl -ldbfntx -ldbfcdx
if "%HB_COMPILER%" == "mingw32" gcc %1.c -mno-cygwin -I..\include -L..\lib -lcommon -lrtl -lrdd -lvm -lrdd -lrtl -ldbfntx -ldbfcdx
if "%HB_COMPILER%" == "msvc" cl -Fd..\bin\harbour -w -Zi -TP -GZ -GA -DHARBOUR_USE_WIN_GTAPI -I..\include %1.c /link /subsystem:CONSOLE ..\lib\harbour.lib ..\lib\terminal.lib ..\lib\hbtools.lib ..\lib\dbfntx.lib ..\lib\dbfcdx.lib ..\lib\debug.lib
if "%HB_COMPILER%" == "msvc" echo Ignore LNK4033 warning
goto END
:A_OS2
if not "%HB_ARCHITECTURE%" == "dos" goto A_LINUX
if "%HB_COMPILER%" == "gcc" gcc %1.c -I..\include -L..\lib -lcommon -lrtl -lrdd -lvm -lrdd -lrtl -ldbfntx -ldbfcdx
if "%HB_COMPILER%" == "icc" icc /Gs+ /W2 /Se /Sd+ /Ti+ -I..\include /C- /Tp %1.c ..\lib\common.lib ..\lib\rtl.lib ..\lib\rdd.lib ..\lib\vm.lib ..\lib\rdd.lib ..\lib\rtl.lib ..\lib\dbfntx.lib ..\lib\dbfcdx.lib
goto END
:A_LINUX
if not "%HB_ARCHITECTURE%" == "linux" goto CLEANUP
if "%HB_COMPILER%" == "gcc" gcc %1.c -I../include -L../lib -lcommon -lrtl -lrdd -lvm -lrdd -lrtl -ldbfntx -ldbfcdx
goto END
:CLEANUP
del %1.c
:END

28
harbour/bin/buildexe-dos-bcc31.bat
View File

@@ -1,28 +0,0 @@
@echo off
rem
rem $Id$
rem
rem Harbour executable builder batch file
rem
rem Compiler: Borland C/C++ 3.1
rem Platform: 16-bit DOS
rem
rem Adapted from the MINGW32 version created by Victor Szel <info@szelvesz.hu>
rem by David G. Holm <dholm@jsd-llc.com>
if not "%1" == "" goto compile
echo.
echo Usage: buildexe.bat name
echo.
echo - 'name' is the .prg filename *without* extension.
echo - Don't forget to make a MAIN function for you application.
echo - This batch file assumes you are in some directory off the main harbour dir
exit
:compile
harbour %1.prg /n /i..\include
bcc -O2 -mh -I..\include %1.c ..\lib\rtl.lib ..\lib\rdd.lib ..\lib\vm.lib ..\lib\rdd.lib ..\lib\rtl.lib ..\lib\dbfntx.lib ..\lib\dbfcdx.lib
del %1.c

28
harbour/bin/buildexe-dos-djgpp.bat
View File

@@ -1,28 +0,0 @@
@echo off
rem
rem $Id$
rem
rem Harbour executable builder batch file
rem
rem Compiler: GCC (Cygnus)
rem Platform: 32-bit Windows
rem
rem Adapted from the MINGW32 version created by Victor Szel <info@szelvesz.hu>
rem by David G. Holm <dholm@jsd-llc.com>
if not "%1" == "" goto compile
echo.
echo Usage: buildexe.bat name
echo.
echo - 'name' is the .prg filename *without* extension.
echo - Don't forget to make a MAIN function for you application.
echo - This batch file assumes you are in some directory off the main harbour dir
exit
:compile
harbour %1.prg /n /i..\include
gcc %1.c -o%1.exe -I..\include -L..\lib -lrtl -lrdd -lvm -lrdd -lrtl -ldbfnt -ldbfcd
del %1.c

28
harbour/bin/buildexe-os2-gcc.cmd
View File

@@ -1,28 +0,0 @@
@echo off
rem
rem $Id$
rem
rem Harbour executable builder batch file
rem
rem Compiler: GCC (EMX)
rem Platform: 32-bit OS/2
rem
rem Adapted from the MINGW32 version created by Victor Szel <info@szelvesz.hu>
rem by David G. Holm <dholm@jsd-llc.com>
if not "%1" == "" goto compile
echo.
echo Usage: buildexe.bat name
echo.
echo - 'name' is the .prg filename *without* extension.
echo - Don't forget to make a MAIN function for you application.
echo - This batch file assumes you are in some directory off the main harbour dir
exit
:compile
harbour %1.prg /n /i..\include
gcc %1.c -I..\include -L..\lib -lrtl -lrdd -lvm -lrdd -lrtl -ldbfntx -ldbfcdx
del %1.c

28
harbour/bin/buildexe-os2-icc.cmd
View File

@@ -1,28 +0,0 @@
@echo off
rem
rem $Id$
rem
rem Harbour executable builder batch file
rem
rem Compiler: ICC (IBM Visual Age C++ 3.0)
rem Platform: 32-bit OS/2
rem
rem Adapted from the MINGW32 version created by Victor Szel <info@szelvesz.hu>
rem by David G. Holm <dholm@jsd-llc.com>
if not "%1" == "" goto compile
echo.
echo Usage: buildexe.bat name
echo.
echo - 'name' is the .prg filename *without* extension.
echo - Don't forget to make a MAIN function for you application.
echo - This batch file assumes you are in some directory off the main harbour dir
exit
:compile
harbour %1.prg /n /i..\include
icc /Gs+ /W2 /Se /Sd+ /Ti+ -I..\include /C- /Tp %1.c ..\lib\rtl.lib ..\lib\rdd.lib ..\lib\vm.lib ..\lib\rdd.lib ..\lib\rtl.lib ..\lib\dbfntx.lib ..\lib\dbfcdx.lib
del %1.c

28
harbour/bin/buildexe-w32-gcc.bat
View File

@@ -1,28 +0,0 @@
@echo off
rem
rem $Id$
rem
rem Harbour executable builder batch file
rem
rem Compiler: GCC (Cygnus)
rem Platform: 32-bit Windows
rem
rem Adapted from the MINGW32 version created by Victor Szel <info@szelvesz.hu>
rem by David G. Holm <dholm@jsd-llc.com>
if not "%1" == "" goto compile
echo.
echo Usage: buildexe.bat name
echo.
echo - 'name' is the .prg filename *without* extension.
echo - Don't forget to make a MAIN function for you application.
echo - This batch file assumes you are in some directory off the main harbour dir
exit
:compile
harbour %1.prg /n /i..\include
gcc %1.c -I..\include -L..\lib -lrtl -lrdd -lvm -lrdd -lrtl -ldbfntx -ldbfcdx
del %1.c

27
harbour/bin/buildexe-w32-mingw32.bat
View File

@@ -1,27 +0,0 @@
@echo off
rem
rem $Id$
rem
rem Harbour executable builder batch file
rem
rem Compiler: Cygwin GCC compiler / MingW32
rem Platform: Windows 32 bit (console mode)
rem
rem Maintainer: Victor Szel <info@szelvesz.hu>
if not "%1" == "" goto compile
echo.
echo Usage: buildexe.bat name
echo.
echo - 'name' is the .prg filename *without* extension.
echo - Don't forget to make a MAIN function for you application.
echo - This batch file assumes you are in some directory off the main harbour dir
exit
:compile
harbour %1.prg /n /i..\include
gcc %1.c -mno-cygwin -I..\include -L..\lib -lrtl -lrdd -lvm -lrdd -lrtl -ldbfntx -ldbfcdx
del %1.c

28
harbour/bin/buildexe-w32-msvc.bat
View File

@@ -1,28 +0,0 @@
@echo off
rem
rem $Id$
rem
rem Harbour executable builder batch file
rem
rem Compiler: MSVC v 12.00.8168
rem Platform: Windows 32 bit (console mode)
rem
rem Maintainer: Paul Tucker <ptucker@sympatico.ca>
if not "%1" == "" goto compile
echo.
echo Usage: buildexe.bat name
echo.
echo - 'name' is the .prg filename *without* extension.
echo - Don't forget to make a MAIN function for you application.
echo - This batch file assumes you are in some directory off the main harbour dir
exit
:compile
harbour %1.prg /n /i..\include
cl -Fd..\bin\harbour -w -Zi -TP -GZ -GA -DHARBOUR_USE_WIN_GTAPI -I..\include %1.c /link /subsystem:CONSOLE ..\obj\symbols.obj ..\lib\harbour.lib ..\lib\terminal.lib ..\lib\hbtools.lib ..\lib\dbfntx.lib ..\lib\dbfcdx.lib ..\lib\debug.lib
echo Ignore LNK4033 warning
del %1.c

1
harbour/bin/empty
View File

@@ -1 +0,0 @@
empty

8
harbour/include/filesys.h
View File

@@ -79,10 +79,10 @@ typedef int FHANDLE;
/* Filename support */
typedef struct
{
char szBuffer[ _POSIX_PATH_MAX + 3 ];
char * szPath;
char * szName;
char * szExtension;
char szBuffer[ _POSIX_PATH_MAX + 3 ];
char * szPath;
char * szName;
char * szExtension;
} HB_FNAME, * PHB_FNAME, * HB_FNAME_PTR;
extern BOOL hb_fsChDir ( BYTE * pDirName );

3
harbour/make_tpl.bat
View File

@@ -11,6 +11,9 @@ rem the GNU make system for Harbour
rem
rem For further information about the GNU make system please
rem check doc/gmake.txt
rem
rem Copyright 1999 Victor Szel <info@szelvesz.hu>
rem See doc/license.txt for licensing terms.
rem ---------------------------------------------------------------
rem ---------------------------------------------------------------

5
harbour/make_tpl.cmd
View File

@@ -3,7 +3,7 @@ rem
rem $Id$
rem
rem Flavour: OS/2
rem Flavour: OS/2 command file
rem ---------------------------------------------------------------
rem Template to initialize the environment before starting
@@ -11,6 +11,9 @@ rem the GNU make system for Harbour
rem
rem For further information about the GNU make system please
rem check doc/gmake.txt
rem
rem Copyright 1999 Victor Szel <info@szelvesz.hu>
rem See doc/license.txt for licensing terms.
rem ---------------------------------------------------------------
rem ---------------------------------------------------------------

3
harbour/make_tpl.sh
View File

@@ -11,6 +11,9 @@
#
# For further information about the GNU make system please
# check doc/gmake.txt
#
# Copyright 1999 Victor Szel <info@szelvesz.hu>
# See doc/license.txt for licensing terms.
# ---------------------------------------------------------------
# ---------------------------------------------------------------