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

20000505-02:03 GMT+1 Victor Szakats <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
2000-05-05 00:04:35 +00:00
parent 20f9dd010b
commit 30511d52a8
9 changed files with 113 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
harbour/ChangeLog
View File

@@ -1,3 +1,15 @@
20000505-02:03 GMT+1 Victor Szakats <info@szelvesz.hu>
* make_gnu.*
- Removed output redirection.
* config/dos/bcc16.cf
* config/dos/djgpp.cf
! echo -> echo.
* contrib/hbclip/*
+ HB_ARGC(), HB_ARGV() added.
20000505-00:27 GMT+2 Maurilio Longo <maurilio.longo@libero.it>
* source/rtl/teditor.prg
@@ -26,7 +38,6 @@
* changed to access pointers via hb_vmPushPointer/hb_itemGetPtr
instead of passing them using values of long type
20000504-04:05 GMT-8 Ron Pinkas <Ron@Profit-Master.com>
* source/compiler/hbpcode.c

10
harbour/config/dos/bcc16.cf
View File

@@ -29,13 +29,13 @@ CFLAGS = -O2 -mh -d
#Note: The empty line below HAVE TO exist!
define link_file
echo $(file) >> __link__.tmp
echo. $(file) >> __link__.tmp
endef
define link_exe_file
echo $(LDFLAGS) -e$@ > __link__.tmp
echo. $(LDFLAGS) -e$@ > __link__.tmp
$(foreach file, $^, $(link_file))
$(foreach file, $(LINKLIBS), $(link_file))
-$(LD) @__link__.tmp
@@ -71,14 +71,14 @@ endif
#Note: The empty line below HAVE TO exist!
define lib_object
echo -+$(file) &>> __lib__.tmp
echo. -+$(file) &>> __lib__.tmp
endef
define create_library
echo $@ &> __lib__.tmp
echo. $@ &> __lib__.tmp
$(foreach file, $^, $(lib_object))
echo ,, >> __lib__.tmp
echo. ,, >> __lib__.tmp
$(AR) $(ARFLAGS) @__lib__.tmp
del __lib__.tmp
endef

12
harbour/config/dos/djgpp.cf
View File

@@ -41,28 +41,28 @@ endif
# NOTE: The empty line directly before 'endef' HAVE TO exist!
# It causes that every echo command will be separated by LF
define lib_object
echo ADDMOD $(file) >> __lib__.tmp
echo. ADDMOD $(file) >> __lib__.tmp
endef
# We have to use script to overcome the DOS limit of max 128 characters
# in commmand line
define create_library
echo CREATE $@ > __lib__.tmp
echo. CREATE $@ > __lib__.tmp
$(foreach file, $^, $(lib_object))
echo SAVE >> __lib__.tmp
echo END >> __lib__.tmp
echo. SAVE >> __lib__.tmp
echo. END >> __lib__.tmp
$(AR) -M < __lib__.tmp
endef
# NOTE: The empty line below HAVE TO exist!
define link_file
echo $(file) >> __link__.tmp
echo. $(file) >> __link__.tmp
endef
define link_exe_file
echo $(LDFLAGS) $(LD_OUT)$@ > __link__.tmp
echo. $(LDFLAGS) $(LD_OUT)$@ > __link__.tmp
$(foreach file, $^, $(link_file))
$(foreach file, $(LINKPATHS), $(link_file))
$(foreach file, $(LINKLIBS), $(link_file))

56
harbour/contrib/hbclip/hbarg.c Normal file
View File

@@ -0,0 +1,56 @@
/*
* $Id$
*/
/*
* Harbour Compatibility Library for CA-Cl*pper source code:
* HB_ARGC(), HB_ARGV() functions
*
* Copyright 2000 Victor Szakats <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version, with one exception:
*
* The exception is that if you link the Harbour Runtime Library (HRL)
* and/or the Harbour Virtual Machine (HVM) with other files to produce
* an executable, this does not by itself cause the resulting executable
* to be covered by the GNU General Public License. Your use of that
* executable is in no way restricted on account of linking the HRL
* and/or HVM code into it.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
* their web site at http://www.gnu.org/).
*
*/
#include "extend.h"
extern int __argc;
extern char ** __argv;
CLIPPER HB_ARGC( void )
{
_retni( __argc - 1 );
}
CLIPPER HB_ARGV( void )
{
if( ISNUM( 1 ) )
{
int argc = _parni( 1 );
_retc( ( argc >= 0 && argc < __argc ) ? __argv[ argc ] : "" );
}
else
_retc( "" );
}

61
harbour/contrib/hbclip/hbclip.ch
View File

@@ -52,8 +52,6 @@
#xtranslate HB_ARGCHECK( <s> ) => ( .F. )
#xtranslate HB_ARGSTRING( <s> ) => ""
#xtranslate HB_ARGC() => 0
#xtranslate HB_ARGV( <n> ) => ""
#xtranslate HB_FNAMESPLIT( <s> ) => NIL
#xtranslate HB_FNAMEMERGE( <s1>[, <s2>[, <s3>[, <s4>]]] ) => ""
#xtranslate HB_PVALUE( <n> ) => NIL
@@ -61,46 +59,45 @@
#xtranslate HB_SETKEYSAVE( [<a>] ) => ( {} )
#xtranslate HB_SETKEYCHECK( <n>[, <x1>[, <x2>[, <x3>]]] ) => ( .F. )
#TRANSLATE AS CHAR ARRAY =>
#TRANSLATE AS CHARACTER ARRAY =>
#TRANSLATE AS STRING ARRAY =>
#translate AS CHAR ARRAY =>
#translate AS CHARACTER ARRAY =>
#translate AS STRING ARRAY =>
#TRANSLATE AS NUM ARRAY =>
#TRANSLATE AS NUMERIC ARRAY =>
#translate AS NUM ARRAY =>
#translate AS NUMERIC ARRAY =>
#TRANSLATE AS DATE ARRAY =>
#TRANSLATE AS ARRAY ARRAY =>
#TRANSLATE AS BLOCK ARRAY =>
#TRANSLATE AS OBJECT ARRAY =>
#translate AS DATE ARRAY =>
#translate AS ARRAY ARRAY =>
#translate AS BLOCK ARRAY =>
#translate AS OBJECT ARRAY =>
#TRANSLATE AS BOOL ARRAY =>
#TRANSLATE AS BOOLEAN ARRAY =>
#TRANSLATE AS LOGICAL ARRAY =>
#translate AS BOOL ARRAY =>
#translate AS BOOLEAN ARRAY =>
#translate AS LOGICAL ARRAY =>
#TRANSLATE AS VAR ARRAY =>
#TRANSLATE AS VARIANT ARRAY =>
#translate AS VAR ARRAY =>
#translate AS VARIANT ARRAY =>
#translate AS CHAR =>
#translate AS CHARACTER =>
#translate AS STRING =>
#TRANSLATE AS CHAR =>
#TRANSLATE AS CHARACTER =>
#TRANSLATE AS STRING =>
#translate AS NUM =>
#translate AS NUMERIC =>
#TRANSLATE AS NUM =>
#TRANSLATE AS NUMERIC =>
#translate AS DATE =>
#translate AS ARRAY =>
#translate AS BLOCK =>
#translate AS OBJECT =>
#TRANSLATE AS DATE =>
#TRANSLATE AS ARRAY =>
#TRANSLATE AS BLOCK =>
#TRANSLATE AS OBJECT =>
#translate AS BOOL =>
#translate AS BOOLEAN =>
#translate AS LOGICAL =>
#TRANSLATE AS BOOL =>
#TRANSLATE AS BOOLEAN =>
#TRANSLATE AS LOGICAL =>
#translate AS VAR =>
#translate AS VARIANT =>
#TRANSLATE AS VAR =>
#TRANSLATE AS VARIANT =>
#COMMAND DECLARE FUNCTION <*x*> =>
#command DECLARE FUNCTION <*x*> =>
#endif /* HB_CLIP_CH_ */

2
harbour/contrib/hbclip/make_clp.bat
View File

@@ -8,6 +8,7 @@ clipper hbkeyput.prg /n
clipper hbshadow.prg /n
clipper hbvaltoc.prg /n
cl /c /AL /Zl /Oalt /Gs /W3 hbarg.c
cl /c /AL /Zl /Oalt /Gs /W3 hbcolind.c
cl /c /AL /Zl /Oalt /Gs /W3 hbstod.c
cl /c /AL /Zl /Oalt /Gs /W3 hbstodx.c
@@ -19,6 +20,7 @@ lib hbclip -+ hbkeyput.obj ,,
lib hbclip -+ hbshadow.obj ,,
lib hbclip -+ hbvaltoc.obj ,,
lib hbclip -+ hbarg.obj ,,
lib hbclip -+ hbcolind.obj ,,
lib hbclip -+ hbstod.obj ,,
lib hbclip -+ hbstodx.obj ,,

2
harbour/make_gnu.bat
View File

@@ -109,7 +109,7 @@ if "%HB_INC_INSTALL%" == "" set HB_INC_INSTALL=include\
rem ---------------------------------------------------------------
rem Start the GNU make system
make %1 %2 %3 %4 %5 %6 %7 %8 %9 2> make_gnu.log
make %1 %2 %3 %4 %5 %6 %7 %8 %9
goto END
:END

2
harbour/make_gnu.cmd
View File

@@ -109,7 +109,7 @@ if "%HB_INC_INSTALL%" == "" set HB_INC_INSTALL=include\
rem ---------------------------------------------------------------
rem Start the GNU make system
make %1 %2 %3 %4 %5 %6 %7 %8 %9 2> make_gnu.log
make %1 %2 %3 %4 %5 %6 %7 %8 %9
goto END
:END

2
harbour/make_gnu.sh
View File

@@ -99,6 +99,6 @@ else
# ---------------------------------------------------------------
# Start the GNU make system
make $* > make_gnu.log
make $*
fi