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

2008-08-19 11:53 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* config/w32/install.cf
   * doc/man/hbdoc.1
   * doc/en/tlabel.txt
   * doc/en/set.txt
   * doc/en/readme.txt
   * doc/hbmake.txt
   * doc/es/tlabel.txt
   * doc/es/rdd.txt
   * doc/es/hbpplib.txt
   * doc/es/treport.txt
   * doc/es/dirstruc.txt
   * doc/es/dir.txt
   * doc/es/file.txt
   * doc/es/readme.txt
   * doc/whatsnew.txt
   * source/rtl/setkey.c
   * source/rtl/tclass.prg
   * source/compiler/cmdcheck.c
   * contrib/hbmysql/utils/dbf2mysq.prg
   * contrib/hbw32ddr/readme.txt
   * contrib/hbodbc/odbc.txt
   * contrib/hbodbc/readme.txt
   * contrib/hbwhat32/_wincdlg.c
   * contrib/hbtpathy/ChangeLog
   * contrib/hbsqlit2/tests/hbsqlite.prg
   * contrib/hbapollo/ChangeLog
   * contrib/hbnf/byteneg.prg
   * contrib/hbnf/savearr.prg
   * contrib/hbnf/fttext.c
   * contrib/hbnf/restsets.prg
   * contrib/hbnf/byt2bit.prg
   * contrib/hbnf/byt2hex.prg
   * contrib/hbnf/ftint86.ch
   * contrib/hbnf/byteand.prg
   * contrib/hbnf/bytexor.prg
   * contrib/hbnf/byteor.prg
   * contrib/hbnf/origin.c
   * contrib/hbnf/bitset.prg
   * contrib/hbnf/popadder.prg
   * contrib/hbnf/menutonf.prg
   * contrib/hbnf/ftattr.c
   * contrib/hbnf/isbit.prg
   * contrib/hbnf/putkey.c
   * contrib/hbnf/getenvrn.c
   * contrib/hbnf/bytenot.prg
   * contrib/hbnf/savesets.prg
   * contrib/hbnf/tbwhile.prg
   * contrib/hbnf/ftmenuto.ch
   * contrib/hbnf/bitclr.prg
   * contrib/hbnf/readme.txt
   * contrib/rddads/doc/en/adsfuncs.txt
   * contrib/rddads/doc/en/readme.txt
   * contrib/rddads/readme.txt
   * contrib/hbgd/ChangeLog
   * contrib/hbgd/readme.txt
   * contrib/hbmisc/hb_f.c
   * contrib/hbtip/utils.c
   * contrib/hbbtree/doc/hb_btree.txt
   * contrib/examples/guestbk/guestbk.txt
   * contrib/examples/hscript/readme.txt
   * utils/hbdoc/genos2.prg
   * utils/hbdoc/genng.prg
   * utils/hbdoc/genasc.prg
   * utils/hbdoc/genchm.prg
   * utils/hbdoc/genhpc.prg
   * utils/hbdoc/html.prg
   * utils/hbdoc/ft_funcs.prg
   * utils/hbdoc/hbdoc.prg
   * utils/hbdoc/genpdf1.prg
   * utils/hbdoc/gentrf.prg
   * utils/hbdoc/genrtf.prg
   * utils/hbmake/checks.prg
   * utils/hbmake/ft_funcs.prg
   * utils/hbmake/radios.prg
   * utils/hbmake/hbmake.prg
     ! Some more filename casing related cleanups.
This commit is contained in:
Viktor Szakats
2008-08-19 10:50:19 +00:00
parent 56e978010a
commit 5532416d15
76 changed files with 419 additions and 349 deletions
Download Patch File Download Diff File Expand all files Collapse all files

78
harbour/ChangeLog
View File

@@ -8,6 +8,84 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-08-19 11:53 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* config/w32/install.cf
* doc/hbmake.txt
* doc/whatsnew.txt
* doc/man/hbdoc.1
* doc/en/tlabel.txt
* doc/en/set.txt
* doc/en/readme.txt
* doc/es/tlabel.txt
* doc/es/rdd.txt
* doc/es/hbpplib.txt
* doc/es/treport.txt
* doc/es/dirstruc.txt
* doc/es/dir.txt
* doc/es/file.txt
* doc/es/readme.txt
* source/rtl/setkey.c
* source/rtl/tclass.prg
* source/compiler/cmdcheck.c
* contrib/hbmysql/utils/dbf2mysq.prg
* contrib/hbw32ddr/readme.txt
* contrib/hbodbc/odbc.txt
* contrib/hbodbc/readme.txt
* contrib/hbwhat32/_wincdlg.c
* contrib/hbtpathy/ChangeLog
* contrib/hbsqlit2/tests/hbsqlite.prg
* contrib/hbapollo/ChangeLog
* contrib/hbnf/byteneg.prg
* contrib/hbnf/savearr.prg
* contrib/hbnf/fttext.c
* contrib/hbnf/restsets.prg
* contrib/hbnf/byt2bit.prg
* contrib/hbnf/byt2hex.prg
* contrib/hbnf/ftint86.ch
* contrib/hbnf/byteand.prg
* contrib/hbnf/bytexor.prg
* contrib/hbnf/byteor.prg
* contrib/hbnf/origin.c
* contrib/hbnf/bitset.prg
* contrib/hbnf/popadder.prg
* contrib/hbnf/menutonf.prg
* contrib/hbnf/ftattr.c
* contrib/hbnf/isbit.prg
* contrib/hbnf/putkey.c
* contrib/hbnf/getenvrn.c
* contrib/hbnf/bytenot.prg
* contrib/hbnf/savesets.prg
* contrib/hbnf/tbwhile.prg
* contrib/hbnf/ftmenuto.ch
* contrib/hbnf/bitclr.prg
* contrib/hbnf/readme.txt
* contrib/rddads/doc/en/adsfuncs.txt
* contrib/rddads/doc/en/readme.txt
* contrib/rddads/readme.txt
* contrib/hbgd/ChangeLog
* contrib/hbgd/readme.txt
* contrib/hbmisc/hb_f.c
* contrib/hbtip/utils.c
* contrib/hbbtree/doc/hb_btree.txt
* contrib/examples/guestbk/guestbk.txt
* contrib/examples/hscript/readme.txt
* utils/hbdoc/genos2.prg
* utils/hbdoc/genng.prg
* utils/hbdoc/genasc.prg
* utils/hbdoc/genchm.prg
* utils/hbdoc/genhpc.prg
* utils/hbdoc/html.prg
* utils/hbdoc/ft_funcs.prg
* utils/hbdoc/hbdoc.prg
* utils/hbdoc/genpdf1.prg
* utils/hbdoc/gentrf.prg
* utils/hbdoc/genrtf.prg
* utils/hbmake/checks.prg
* utils/hbmake/ft_funcs.prg
* utils/hbmake/radios.prg
* utils/hbmake/hbmake.prg
! Some more filename casing related cleanups.
2008-08-17 17:30 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* include/hbstack.h
* include/hbsetup.h

4
harbour/config/w32/install.cf
View File

@@ -8,12 +8,12 @@ INSTALL_RULE = @echo Done
else
ifeq ($(SHLVL),) # COMMAND.COM or CMD.EXE
ifeq ($(SHLVL),) # command.com or cmd.exe
INSTALL_LIST = $(subst /,\,$(INSTALL_OBJS))
ifeq ($(CMD_EXE),yes)
# CMD.EXE no command line size limit
# cmd.exe no command line size limit
INSTALL_RULE = \
$(COMSPEC) /c for %f in ($(INSTALL_LIST)) do copy %f $(subst /,\,$(INSTALL_DIR))
else

16
harbour/contrib/examples/guestbk/guestbk.txt
View File

@@ -4,17 +4,17 @@ Felipe Coury <fcoury@flexsys-ci.com>
How to create and test the Harbour Guestbook
You'll find BLDGUEST.BAT, GUESTBK.PRG, GUESTBK.HTM and
GUESTBK.HTM files. To build the executable, review
GUESTBK.PRG and check the directories for locating
GUESTBK.INI and GUESTBK.HTM correctly.
You'll find bldguest.bat, guestbk.prg, guestbk.htm and
guestbk.htm files. To build the executable, review
guestbk.prg and check the directories for locating
guestbk.ini and guestbk.htm correctly.
With that done, build it using BLDGUEST.BAT. Put the
resulting EXE, the INI and HTM files on a script-
enabled directory and call GUESTBK.EXE via WebBrowser.
With that done, build it using bldguest.bat. Put the
resulting .exe, the .exe and .htm files on a script-
enabled directory and call guestbk.exe via WebBrowser.
The best thing about this guestbook is its highly
configurable architecture. Please review GUESTBK.INI
configurable architecture. Please review guestbk.ini
for configuration options and further explanation.
That's it !!!

8
harbour/contrib/examples/hscript/readme.txt
View File

@@ -9,11 +9,11 @@ I take no responsabilities for any misinformation in any form.
HarbourScript Alfa Edition
--------------------------
Inside this zip file you will find HarbourScript package. This
should be unzipped to TESTS\WORKING\HSCRIPT directory in order
Inside this .zip file you will find HarbourScript package. This
should be unzipped to /tests/working/hscript directory in order
to work w/o any changes.
To make the HarbourScript Translator, hscript.exe, use MAKEHS.BAT.
To make the HarbourScript Translator, hscript.exe, use makehs.bat.
If you are going to test offline, there's no need to make it,
it will be done automatically for you (Batch Power<g>). To test it,
you'll have the following options:
@@ -41,7 +41,7 @@ become more stable.
Testing HarbourScript without a Web Server
------------------------------------------
1. Make the sample scripts with MAKEHTM.
1. Make the sample scripts with makehtm.
2. Browse the resulting .htm files as reported on screen.

172
harbour/contrib/hbapollo/ChangeLog
View File

@@ -1,86 +1,86 @@
/*
* $Id$
*/
/* Use this format for the entry headers:
YYYY-MM-DD HH:MM UTC[-|+]hhmm Your Full Name <your_email@address>
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2002-01-20 13:29 UTC+0100 Patrick Mast <email@patrickmast.com>
+ Added ChangeLog to the /contrib/apollo dir
+ contrib/apollo/test/apollo.ch
+ defines for function sx_SysProp
* contrib/apollo/test/apollo.prg
Added define "Apollo.ch"
* contrib/apollo/apollo1.prg
+ Added function sx_GetVal()
* contrib/apollo/apollo.c
+ Added function sx_SetOrder()
+ Added function sx_Select()
+ Added function sx_SysProp()
2001-12-30 13:47 UTC+0100 Patrick Mast <email@patrickmast.com>
* contrib/apollo/apollo.c
+ Added function sx_GetDateJulian()
+ Added function sx_GetVariant()
+ Added function sx_SetCentury()
+ Added function sx_SetDateFormat()
+ Added function sx_GetLogical()
* modified function sx_Replace()
Note: Replace a logical value with sx_Replace() does not work yet.
* contrib/apollo/test/apollo.prg
* Added added functions in the test application.
* enhanced code
* Added and changed defines
2001-12-28 22:53 UTC+0100 Patrick Mast <email@patrickmast.com>
* contrib/apollo
+ Added function sx_GoBottom()
+ Added function sx_Go()
+ Added function sx_Seek()
+ Added function sx_SetSoftSeek()
+ Added function sx_RLock()
+ Added function sx_Reindex()
+ Added function sx_RecCount()
+ Added function sx_SetMemoBlockSize()
+ Added function sx_CreateNew()
+ Added function sx_CreateField()
+ Added function sx_CreateExec()
* contrib/apollo/test
* Added added functions in the test application.
2001-12-28 20:39 UTC+0100 Patrick Mast <email@patrickmast.com>
* contrib/apollo
+ Added function sx_AppendBlank()
+ Added function sx_Close()
+ Added function sx_Commit()
+ Added function sx_CreateField()
+ Added function sx_Eof()
+ Added function sx_GetString()
+ Added function sx_GoTop()
+ Added function sx_IndexTag()
+ Added function sx_RecNo()
+ Added function sx_Replace()
+ Added function sx_Skip()
+ Added function sx_Use()
+ Added function sx_Zap()
* contrib/apollo/test
* Added functions in a test application.
2001-12-28 18:54 UTC+0100 Patrick Mast <email@patrickmast.com>
* contrib/apollo
+ added readme.txt
* contrib/apollo/test
+ bld.bat
+ bld_b32.bat
* updated apollo.prg
2001-12-28 13:28 UTC+0100 Patrick Mast <email@patrickmast.com>
+ contrib/apollo
* Started Apollo SDE60.DLL connection for accessing
SIXNSX database files
Note: This is only the start.
/*
* $Id: ChangeLog 8851 2008-06-30 10:36:02Z vszakats $
*/
/* Use this format for the entry headers:
YYYY-MM-DD HH:MM UTC[-|+]hhmm Your Full Name <your_email@address>
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2002-01-20 13:29 UTC+0100 Patrick Mast <email@patrickmast.com>
+ Added ChangeLog to the /contrib/apollo dir
+ contrib/apollo/test/apollo.ch
+ defines for function sx_SysProp
* contrib/apollo/test/apollo.prg
Added define "apollo.ch"
* contrib/apollo/apollo1.prg
+ Added function sx_GetVal()
* contrib/apollo/apollo.c
+ Added function sx_SetOrder()
+ Added function sx_Select()
+ Added function sx_SysProp()
2001-12-30 13:47 UTC+0100 Patrick Mast <email@patrickmast.com>
* contrib/apollo/apollo.c
+ Added function sx_GetDateJulian()
+ Added function sx_GetVariant()
+ Added function sx_SetCentury()
+ Added function sx_SetDateFormat()
+ Added function sx_GetLogical()
* modified function sx_Replace()
Note: Replace a logical value with sx_Replace() does not work yet.
* contrib/apollo/test/apollo.prg
* Added added functions in the test application.
* enhanced code
* Added and changed defines
2001-12-28 22:53 UTC+0100 Patrick Mast <email@patrickmast.com>
* contrib/apollo
+ Added function sx_GoBottom()
+ Added function sx_Go()
+ Added function sx_Seek()
+ Added function sx_SetSoftSeek()
+ Added function sx_RLock()
+ Added function sx_Reindex()
+ Added function sx_RecCount()
+ Added function sx_SetMemoBlockSize()
+ Added function sx_CreateNew()
+ Added function sx_CreateField()
+ Added function sx_CreateExec()
* contrib/apollo/test
* Added added functions in the test application.
2001-12-28 20:39 UTC+0100 Patrick Mast <email@patrickmast.com>
* contrib/apollo
+ Added function sx_AppendBlank()
+ Added function sx_Close()
+ Added function sx_Commit()
+ Added function sx_CreateField()
+ Added function sx_Eof()
+ Added function sx_GetString()
+ Added function sx_GoTop()
+ Added function sx_IndexTag()
+ Added function sx_RecNo()
+ Added function sx_Replace()
+ Added function sx_Skip()
+ Added function sx_Use()
+ Added function sx_Zap()
* contrib/apollo/test
* Added functions in a test application.
2001-12-28 18:54 UTC+0100 Patrick Mast <email@patrickmast.com>
* contrib/apollo
+ added readme.txt
* contrib/apollo/test
+ bld.bat
+ bld_b32.bat
* updated apollo.prg
2001-12-28 13:28 UTC+0100 Patrick Mast <email@patrickmast.com>
+ contrib/apollo
* Started Apollo sde60.dll connection for accessing
SIXNSX database files
Note: This is only the start.

2
harbour/contrib/hbbtree/doc/hb_btree.txt
View File

@@ -81,7 +81,7 @@
* compiler called 'Harbour'. This compiler is intended as a replacement </par>
* for a commercial product called 'Clipper' (Computer Associates). If you </par>
* are interested in learning more about Harbour, please see </par>
* http://www.Harbour-Project.org/ </par>
* http://www.harbour-project.org/ </par>
* </par>
* The Harbour project is governed by the GNU Public License [GPL] (please </par>
* see http://www.gnu.org/) with a caveat that applications produced by </par>

3
harbour/contrib/hbgd/ChangeLog
View File

@@ -344,6 +344,5 @@
+ first upload
/*
Please look at README.txt
please look at readme.txt
*/

2
harbour/contrib/hbgd/readme.txt
View File

@@ -43,7 +43,7 @@ Actually platforms supported are:
to build library on Win32 with BCC use:
Download bgd.dll from this link:
http://www.libgd.org/Downloads (Windows.DLL)
http://www.libgd.org/Downloads (Windows DLL)
and put a copy of it in this folder and in tests folder
then
make_b32.bat

2
harbour/contrib/hbmisc/hb_f.c
View File

@@ -320,7 +320,7 @@ HB_FUNC( HB_FREADANDSKIP )
{
/* ------------------------------------------------
Warning: This is a rogue function! It is a first shot at adding the logic
to read .CSV records that respect CRLF embedded within quotes.
to read .csv records that respect CRLF embedded within quotes.
It is very common, especially with Microsoft products, for
comma-separated files to allow a field (usually an address field)
to have hard returns within it. These records appear corrupted to any

4
harbour/contrib/hbmysql/utils/dbf2mysq.prg
View File

@@ -4,7 +4,7 @@
/*
* Harbour Project source code:
* dbf2mysql.prg - converts a .dbf file into a MySQL table
* dbf2mysq.prg - converts a .dbf file into a MySQL table
*
* Copyright 2000 Maurilio Longo <maurilio.longo@libero.it>
* www - http://www.harbour-project.org
@@ -67,7 +67,7 @@ procedure main(c1, c2, c3, c4, c5, c6, c7, c8, c9, c10, c11, c12, c13, c14)
SET EPOCH TO 1960
// At present time (23/10/00) DBFCDX is default RDD and DBFNTX is
// now DBF (I mean the one able to handle .DBTs :-))
// now DBF (I mean the one able to handle .dbt-s :-))
rddSetDefault( "DBF" )
if PCount() < 6

4
harbour/contrib/hbnf/bitclr.prg
View File

@@ -49,8 +49,8 @@
* Note: Calls FT_ISBIT() which is also in this Library.
*
* This function is presented to illustrate that bit-wise operations
* are possible with Clipper code. For greater speed, write .C or
* .ASM versions and use the Clipper Extend system.
* are possible with Clipper code. For greater speed, write .c or
* .asm versions and use the Clipper Extend system.
* $EXAMPLES$
* This code would clear bit 4 in a byte represented by CHR(115):
*

4
harbour/contrib/hbnf/bitset.prg
View File

@@ -50,8 +50,8 @@
* Note: Calls FT_ISBIT() which is also in this Library.
*
* This function is presented to illustrate that bit-wise operations
* are possible with Clipper code. For greater speed, write .C or
* .ASM versions and use the Clipper Extend system.
* are possible with Clipper code. For greater speed, write .c or
* .asm versions and use the Clipper Extend system.
* $EXAMPLES$
* This code would set bit 4 in a byte represented by CHR(107):
*

4
harbour/contrib/hbnf/byt2bit.prg
View File

@@ -47,8 +47,8 @@
* and easy comparison to hexadecimal notation.
*
* This function is presented to illustrate that bit-wise operations
* are possible with Clipper code. For greater speed, write .C or
* .ASM versions and use the Clipper Extend system.
* are possible with Clipper code. For greater speed, write .c or
* .asm versions and use the Clipper Extend system.
* $EXAMPLES$
* These three code lines perform a bitwise AND on bytes with values of
* CHR(20) and CHR(36), and deliver the result as a string in binary (bit)

4
harbour/contrib/hbnf/byt2hex.prg
View File

@@ -44,8 +44,8 @@
* Can be used to show results of bit manipulation, both before and after.
*
* This function is presented to illustrate that bit-wise operations
* are possible with Clipper code. For greater speed, write .C or
* .ASM versions and use the Clipper Extend system.
* are possible with Clipper code. For greater speed, write .c or
* .asm versions and use the Clipper Extend system.
* $EXAMPLES$
* These three code lines perform a bitwise AND on bytes with values of
* CHR(20) and CHR(36), and deliver the result as a string in hexadecimal

4
harbour/contrib/hbnf/byteand.prg
View File

@@ -47,8 +47,8 @@
* bit-by-bit AND operation. Equivalent to AND assembler instruction.
*
* This function is presented to illustrate that bit-wise operations
* are possible with Clipper code. For greater speed, write .C or
* .ASM versions and use the Clipper Extend system.
* are possible with Clipper code. For greater speed, write .c or
* .asm versions and use the Clipper Extend system.
* $EXAMPLES$
* This code would mask out the high nibble (four most significant bits)
* of the byte represented by chr(123) and leave the low nibble bits as in

4
harbour/contrib/hbnf/byteneg.prg
View File

@@ -47,8 +47,8 @@
* assembler instruction.
*
* This function is presented to illustrate that bit-wise operations
* are possible with Clipper code. For greater speed, write .C or
* .ASM versions and use the Clipper Extend system.
* are possible with Clipper code. For greater speed, write .c or
* .asm versions and use the Clipper Extend system.
* $EXAMPLES$
* This code performs a bit-wise NEG on byte represented by CHR(32):
*

4
harbour/contrib/hbnf/bytenot.prg
View File

@@ -49,8 +49,8 @@
* NOT assembler instruction.
*
* This function is presented to illustrate that bit-wise operations
* are possible with Clipper code. For greater speed, write .C or
* .ASM versions and use the Clipper Extend system.
* are possible with Clipper code. For greater speed, write .c or
* .asm versions and use the Clipper Extend system.
* $EXAMPLES$
* This code performs a bitwise NOT on byte represented by CHR(32):
*

4
harbour/contrib/hbnf/byteor.prg
View File

@@ -46,8 +46,8 @@
* bit-by-bit OR operation. Equivalent to OR assembler instruction.
*
* This function is presented to illustrate that bit-wise operations
* are possible with Clipper code. For greater speed, write .C or
* .ASM versions and use the Clipper Extend system.
* are possible with Clipper code. For greater speed, write .c or
* .asm versions and use the Clipper Extend system.
* $EXAMPLES$
* This code performs a bit-wise OR on two bytes represented
* by CHR(20) and CHR(10):

4
harbour/contrib/hbnf/bytexor.prg
View File

@@ -49,8 +49,8 @@
* bit-by-bit XOR operation. Equivalent to XOR assembler instruction.
*
* This function is presented to illustrate that bit-wise operations
* are possible with Clipper code. For greater speed, write .C or
* .ASM versions and use the Clipper Extend system.
* are possible with Clipper code. For greater speed, write .c or
* .asm versions and use the Clipper Extend system.
* $EXAMPLES$
* This code performs a bit-wise XOR on two bytes represented
* by CHR(32) and CHR(55):

4
harbour/contrib/hbnf/ftattr.c
View File

@@ -3,7 +3,7 @@
*/
/*
* File......: SAVEATT.ASM
* File......: saveatt.asm
* Author....: Ted Means
* CIS ID....: 73067,3332
*
@@ -213,7 +213,7 @@ HB_FUNC( FT_SAVEATT )
}
/*
* File......: RESTATT.ASM
* File......: restatt.asm
* Author....: Ted Means
* CIS ID....: 73067,3332
*

4
harbour/contrib/hbnf/ftint86.ch
View File

@@ -3,7 +3,7 @@
*/
/*
* File......: FTINT86.CH - Header file for users of FT_INT86() function
* File......: ftint86.ch - Header file for users of FT_INT86() function
* Author....: Ted Means
* CIS ID....: 73067,3332
*
@@ -33,7 +33,7 @@
*
* Rev 1.1 27 May 1991 13:25:18 GLENN
* Revised for new version of ft_int86() package, which is written in C
* (CINT86.C), assembler (AINT86.ASM).
* (cint86.c), assembler (aint86.asm).
*
* Rev 1.0 01 Apr 1991 01:02:38 GLENN
* Nanforum Toolkit

4
harbour/contrib/hbnf/ftmenuto.ch
View File

@@ -3,7 +3,7 @@
*/
/*
* File......: FTMENUTO.CH
* File......: ftmenuto.ch
* Author....: Ted Means
* CIS ID....: 73067,3332
*
@@ -15,7 +15,7 @@
*
* Rev 1.3 13 Oct 1992 20:43:10 GLENN
* Ted re-wrote the @ prompt / menu to replacement in Clipper and dumped
* the assembler version; this .CH file was updated as well.
* the assembler version; this .ch file was updated as well.
*
* Rev 1.2 15 Aug 1991 23:08:46 GLENN
* Forest Belt proofread/edited/cleaned up doc

10
harbour/contrib/hbnf/fttext.c
View File

@@ -3,7 +3,7 @@
*/
/*
* File......: TEXT.C
* File......: text.c
* Author....: Brice de Ganahl and Steve Larsen
* CIS ID....: 76370,1532
*
@@ -252,7 +252,7 @@ HB_FUNC( FT_FOFFSET )
*
* ^b<nMode>^n is the open mode for the file. Please refer to the
* discussion of open modes under FOPEN() in the Clipper manual
* and FILEIO.CH for a list of allowable open modes. If not
* and fileio.ch for a list of allowable open modes. If not
* specified, the file will be opened with a mode of
* FO_READ + FO_SHARED (64).
*
@@ -1482,7 +1482,7 @@ HB_FUNC( FT_FLASTRE )
*
* $EXAMPLES$
*
* FT_FUSE( "FTTEXT.C" )
* FT_FUSE( "fttext.c" )
*
* ? FT_FEOF() // .F.
*
@@ -1530,7 +1530,7 @@ HB_FUNC( FT_FEOF )
*
* $EXAMPLES$
*
* FT_FUSE( "FTTEXT.C" )
* FT_FUSE( "fttext.c" )
*
* FT_FGOTOP()
*
@@ -1594,7 +1594,7 @@ HB_FUNC( FT_FBOF )
*
* // read 5th line of text from file
*
* ft_fUse( "FTTEXT.C" )
* ft_fUse( "fttext.c" )
*
* ft_fGoTo(5)
*

2
harbour/contrib/hbnf/getenvrn.c
View File

@@ -83,7 +83,7 @@
*
* cEnvBlock := ""
* FT_GETE(@cEnvBlock)
* MEMOWRIT("ENVIRON.TXT", cEnvBlock)
* MEMOWRIT("environ.txt", cEnvBlock)
*
* Get the environment in Array form:
*

4
harbour/contrib/hbnf/isbit.prg
View File

@@ -49,8 +49,8 @@
* one-byte character result of an expression.
*
* This function is presented to illustrate that bit-wise operations
* are possible with Clipper code. For greater speed, write .C or
* .ASM versions and use the Clipper Extend system.
* are possible with Clipper code. For greater speed, write .c or
* .asm versions and use the Clipper Extend system.
* $EXAMPLES$
* This code tests whether bit 3 is set in the byte represented by
* CHR(107):

18
harbour/contrib/hbnf/menutonf.prg
View File

@@ -3,7 +3,7 @@
*/
/*
* File......: MENUTO.PRG
* File......: menuto.prg
* Author....: Ted Means
* CIS ID....: 73067,3332
*
@@ -42,7 +42,7 @@
* $ONELINER$
* Define a menu item for use with FT_MenuTo()
* $SYNTAX$
* #include "FTMENUTO.CH"
* #include "ftmenuto.ch"
*
* @ <nRow>, <nCol> PROMPT <cPrompt> ;
* [COLOR <cColor>] ;
@@ -145,14 +145,14 @@
* syntax. See the entry for FT_PROMPT() for further details.
*
* This enhanced version of @...PROMPT requires the inclusion of
* the header file FTMENUTO.CH in any source file that uses it.
* the header file ftmenuto.ch in any source file that uses it.
* It is may be used in place of the standard Clipper @...PROMPT
* command. However, in the interests of functionality it is NOT
* 100% compatible. No whining! If compatibility is such a big
* deal then use the standard Clipper commands.
*
* $EXAMPLES$
* #include "FTMENUTO.CH"
* #include "ftmenuto.ch"
*
* // Simple prompt
* @ 1, 1 PROMPT "Menu choice #1"
@@ -176,7 +176,7 @@
* // Prompt with right and left arrow keys disabled
* @15, 1 PROMPT "Menu Choice #8" RIGHT 8 LEFT 8
* $INCLUDE$
* FTMENUTO.CH
* ftmenuto.ch
* $SEEALSO$
*
* $END$
@@ -309,7 +309,7 @@ return NIL
* $ONELINER$
* Execute light bar menu using prompts created with @...PROMPT
* $SYNTAX$
* #include "FTMENUTO.CH"
* #include "ftmenuto.ch"
*
* MENU TO <var> [COLD]
* $ARGUMENTS$
@@ -321,7 +321,7 @@ return NIL
* to be selected it only causes the light bar to move to that selection.
* $DESCRIPTION$
* This enhanced version of MENU TO requires the inclusion of the header
* file FTMENUTO.CH in any source file that uses it. It may be used in
* file ftmenuto.ch in any source file that uses it. It may be used in
* place of the standard Clipper MENU TO command. However, in the
* interests of functionality it is NOT 100% compatible (in particular,
* you should make sure that the target memvar exists before executing
@@ -333,14 +333,14 @@ return NIL
* Note that this command can also be called using function-style
* syntax. See the entry for FT_MENUTO() for further details.
* $EXAMPLES$
* #include "FTMENUTO.CH"
* #include "ftmenuto.ch"
*
* // Simple command
*
* MENU TO memvar
*
* $INCLUDE$
* FTMENUTO.CH
* ftmenuto.ch
* $SEEALSO$
* FT_Prompt()
* $END$

2
harbour/contrib/hbnf/origin.c
View File

@@ -49,7 +49,7 @@
* $EXAMPLES$
* cMyFile := FT_ORIGIN()
*
* IF cMyFile <> "C:\APPDIR\MYFILE.EXE"
* IF cMyFile <> "C:\appdir\myfile.exe"
* ?"Incorrect startup file. Please remove/rename and start again"
* QUIT
* ENDIF

6
harbour/contrib/hbnf/popadder.prg
View File

@@ -3,7 +3,7 @@
*/
/*
* File......: Popadder.prg
* File......: popadder.prg
* Author....: Keith A. Wire
* CIS ID....: 73760,2427
*
@@ -18,7 +18,7 @@
*
* Rev 1.3 19 Jan 1993 19:52:52 GLENN
* Removed reference to K_SPACE, as this has been defined in Clipper
* 5.2's INKEY.CH.
* 5.2's inkey.ch.
*
* Rev 1.2 17 Aug 1991 15:44:30 GLENN
* Don Caton fixed some spelling errors in the doc
@@ -107,7 +107,7 @@
* $SEEALSO$
*
* $INCLUDE$
* INKEY.CH, SETCURS.CH, ACHOICE.CH
* inkey.ch, setcurs.ch, achoice.ch
* $END$
*/

4
harbour/contrib/hbnf/putkey.c
View File

@@ -2,7 +2,7 @@
* $Id$
*/
/* File......: PUTKEY.ASM
/* File......: putkey.asm
* Author....: Ted Means
* CIS ID....: 73067,3332
*
@@ -16,7 +16,7 @@
* Just making sure we have Ted's latest revisions.
*
* Rev 1.3 01 Jul 1992 01:07:02 GLENN
* PUTKEY.ASM now bypasses the BIOS completely and uses Clipper's
* putkey.asm now bypasses the BIOS completely and uses Clipper's
* internal event handler to stuff the keystroke. Modifications by
* Ted Means.
*

42
harbour/contrib/hbnf/readme.txt
View File

@@ -6,29 +6,29 @@ This library has been ported to Harbour by Luiz Rafael Culik
//TODO
The follow functions must be rewrite in C
asm\ADAPTER.ASM ; FT_ADAPTER()
asm\DEFAULT.ASM ; FT_DEFAULT()
asm\INP.ASM ; FT_INP()
asm\OUTP.ASM ; FT_OUTP()
asm\REBOOT.ASM ; FT_REBOOT()
asm\RESTATT.ASM ; FT_RESTATT()
asm\SAVEATT.ASM ; FT_SAVEATT()
asm\adapter.asm ; FT_ADAPTER()
asm\default.asm ; FT_DEFAULT()
asm\inp.asm ; FT_INP()
asm\outp.asm ; FT_OUTP()
asm\reboot.asm ; FT_REBOOT()
asm\restatt.asm ; FT_RESTATT()
asm\saveatt.asm ; FT_SAVEATT()
The follow functions need to be fixed.
CINT86.C ; FT_INT86()
cint86.c ; FT_INT86()
The following functions need FT_INT86() or to be rewritten in C:
SETDATE.PRG FT_SETDATE()
SETTIME.PRG FT_SETTIME()
SYSMEM.PRG FT_SYSMEM()
SCANCODE.PRG FT_SCANCODE()
NWSEM.PRG FT_NWSEMOPEN()
NWSEM.PRG FT_NWSEMEX()
NWSEM.PRG FT_NWSEMWAIT()
NWSEM.PRG FT_NWSEMSIG()
NWSEM.PRG FT_NWSEMCLOSE()
NWSEM.PRG FT_NWSEMLOCK()
NWSEM.PRG FT_NWSEMUNLOCK()
NWUID.PRG FT_NWUID()
FLOPTST.PRG FT_FLOPTST()
setdate.prg FT_SETDATE()
settime.prg FT_SETTIME()
sysmem.prg FT_SYSMEM()
scancode.prg FT_SCANCODE()
nwsem.prg FT_NWSEMOPEN()
nwsem.prg FT_NWSEMEX()
nwsem.prg FT_NWSEMWAIT()
nwsem.prg FT_NWSEMSIG()
nwsem.prg FT_NWSEMCLOSE()
nwsem.prg FT_NWSEMLOCK()
nwsem.prg FT_NWSEMUNLOCK()
nwuid.prg FT_NWUID()
floptst.prg FT_FLOPTST()

2
harbour/contrib/hbnf/restsets.prg
View File

@@ -46,7 +46,7 @@
* $EXAMPLES$
* FT_RESTSETS(aOldSets)
* $INCLUDE$
* SET.CH
* set.ch
* $SEEALSO$
* FT_SAVESETS() FT_SETCENTURY()
* $END$

12
harbour/contrib/hbnf/savearr.prg
View File

@@ -41,11 +41,11 @@ MEMVAR lRet
{'Invoice 2', DATE(), 234.98, .F.},;
{'Invoice 3', DATE() + 1, 0, .T.} }, aSave
LOCAL nErrorCode := 0
FT_SAVEARR(aArray,'INVOICE.DAT',@nErrorCode)
FT_SAVEARR(aArray,'invoice.dat',@nErrorCode)
IF nErrorCode = 0
CLS
DispArray(aArray)
aSave := FT_RESTARR('INVOICE.DAT',@nErrorCode)
aSave := FT_RESTARR('invoice.dat',@nErrorCode)
IF nErrorCode = 0
DispArray(aSave)
ELSE
@@ -113,9 +113,9 @@ MEMVAR lRet
* {'Invoice 2',DATE(),234.98,.F.},;
* {'Invoice 3',DATE() + 1,0,.T.} }
* nErrorCode := 0
* FT_SAVEARR(aArray,'INVOICE.DAT',@nErrorCode)
* FT_SAVEARR(aArray,'invoice.dat',@nErrorCode)
* IF nErrorCode = 0
* aSave := FT_RESTARR('INVOICE.DAT',@nErrorCode)
* aSave := FT_RESTARR('invoice.dat',@nErrorCode)
* IF nErrorCode # 0
* ? 'Error restoring array'
* ENDIF
@@ -220,9 +220,9 @@ STATIC FUNCTION _ftsavesub(xMemVar, nHandle, nErrorCode)
* {'Invoice 2',DATE(),234.98,.F.},;
* {'Invoice 3',DATE() + 1,0,.T.} }
* nErrorCode := 0
* FT_SAVEARR(aArray,'INVOICE.DAT',@nErrorCode)
* FT_SAVEARR(aArray,'invoice.dat',@nErrorCode)
* IF nErrorCode = 0
* aSave := FT_RESTARR('INVOICE.DAT',@nErrorCode)
* aSave := FT_RESTARR('invoice.dat',@nErrorCode)
* IF nErrorCode # 0
* ? 'Error restoring array'
* ENDIF

2
harbour/contrib/hbnf/savesets.prg
View File

@@ -49,7 +49,7 @@
* $EXAMPLES$
* aOldSets := FT_SAVESETS()
* $INCLUDE$
* SET.CH
* set.ch
* $SEEALSO$
* FT_RESTSETS() FT_SETCENTURY()
* $END$

12
harbour/contrib/hbnf/tbwhile.prg
View File

@@ -3,7 +3,7 @@
*/
/*
* File......: TBWHILE.PRG
* File......: tbwhile.prg
* Author....: Jim Orlowski
* CIS ID....: ?
*
@@ -68,15 +68,15 @@
#ifdef FT_TEST
/*
* THIS DEMO SHOWS TBNAMES.DBF CONSISTING OF LAST, FIRST, ADDR, CITY,
* THIS DEMO SHOWS tbnames.dbf CONSISTING OF LAST, FIRST, ADDR, CITY,
* STATE, ZIP WITH ACTIVE INDEX ON LAST + FIRST. IT SHOWS LAST NAME,
* FIRST NAME, CITY ONLY FOR THOSE LAST NAMES THAT BEGIN WITH LETTER
* THAT YOU INPUT FOR THE CKEY GET.
*
* TBNAMES.DBF/.NTX ARE AUTOMATICALLY CREATED BY THIS TEST PROGRAM
* tbnames.dbf/.ntx ARE AUTOMATICALLY CREATED BY THIS TEST PROGRAM
*/
#INCLUDE "SETCURS.CH"
#include "setcurs.ch"
FUNCTION TBWHILE()
LOCAL aFields := {}, cKey := "O", cOldColor
@@ -86,13 +86,13 @@
FIELD last, first
MEMVAR GetList
IF ! FILE( "TBNAMES.DBF" )
IF ! FILE( "tbnames.dbf" )
MAKE_DBF()
ENDIF
USE TBNames
IF ! FILE( "TBNAMES.NTX" )
IF ! FILE( "tbnames.ntx" )
INDEX ON last + first TO TBNAMES
ENDIF

14
harbour/contrib/hbodbc/odbc.txt
View File

@@ -8,21 +8,21 @@ Felipe Coury <fcoury@flexsys-ci.com>
How to create ODBC libraries
There are two libraries that must be created: ODBC32.LIB,
There are two libraries that must be created: odbc32.lib,
that is an import functions and links ODBC access functions
prototypes to ODBC32.DLL and HBODBC.LIB, with the HB_*
prototypes to odbc32.dll and hbodbc.lib, with the HB_*
ODBC API container functions.
In order to generate the libraries and run the test, you
need to put all files in HARBOUR\SOURCE\ODBC directory (new),
except hbodbc.b32 and bldodbc.bat that goes on HARBOUR\ root
need to put all files in harbour\source\odbc directory (new),
except hbodbc.b32 and bldodbc.bat that goes on harbour\ root
directory.
To build the libraries, run bldodbc.bat. If everything goes
correct, you'll have HARBOUR\LIBS\ODBC32.LIB and HBODBC.LIB.
correct, you'll have harbour\libs\odbc32.lib and hbodbc.lib.
To build the sample program, go to HARBOUR\SOURCE\ODBC and
To build the sample program, go to harbour\source\odbc and
run hb32 testodbc. Then set your Harbour root directory
into HARBOUR_DIR environmental variable (ie,
SET HARBOUR_DIR=C:\HARBOUR) and run TESTODBC. If everything
SET HARBOUR_DIR=c:\harbour) and run testodbc. If everything
goes ok, you'll see a list of functions.

4
harbour/contrib/hbodbc/readme.txt
View File

@@ -9,12 +9,12 @@ Felipe G. Coury <fcoury@flexsys-ci.com>
This is the very first test of an ODBC class
that I am writing for Harbour. To test it,
simply unzip the contents of this file to
any folder and run ODBCDEMO.EXE. Please note
any folder and run odbcdemo.exe. Please note
that you'll need to have ODBC32 installed on
your machine.
The source code is also included, named
ODBCDEMO.PRG, so you can see how it was
odbcdemo.prg, so you can see how it was
written.
I would like to hear your comments about

12
harbour/contrib/hbsqlit2/tests/hbsqlite.prg
View File

@@ -227,8 +227,8 @@ RETURN // End Main
cOldScreen := SAVESCREEN( 0, 0, MAXROW(), MAXCOL() )
cOldColor := SETCOLOR()
IF VALTYPE( cTable ) != "C" .OR. EMPTY( cTable ) .OR. cTable == NIL
RETURN("")
IF !( VALTYPE( cTable ) == "C" ) .OR. EMPTY( cTable ) .OR. cTable == NIL
RETURN ""
ENDIF
aResult := SQLITE_SYSCOLUMNS( cTable )
@@ -369,7 +369,7 @@ LOCAL cField_Def
LOCAL cHeader
#include "dbstruct.ch"
*COPY STRUCTURE EXTENDED TO struc //.DBF
*COPY STRUCTURE EXTENDED TO struc //.dbf
*USE struc NEW
*LIST field_name, field_type, field_len ,field_dec
aStruct := DBSTRUCT()
@@ -565,8 +565,8 @@ RETURN( IIF( nChoices > 0, aResult[ nChoices ], "") )
cOldColor := SETCOLOR()
* Show all tables inside database
IF VALTYPE( cTable ) != "C" .OR. EMPTY( cTable ) .OR. cTable == NIL
RETURN("")
IF !( VALTYPE( cTable ) == "C" ) .OR. EMPTY( cTable ) .OR. cTable == NIL
RETURN ""
ELSE
aResult := SQLITE_FIELDS( cTable )
ENDIF
@@ -638,7 +638,7 @@ DO CASE
cData := VALTYPE( xData)
ENDCASE
IF nPad == NIL .OR. VALTYPE(nPad ) != "N"
IF nPad == NIL .OR. !( VALTYPE( nPad ) == "N" )
ELSE
cData := PADL( LTRIM(cData), nPad, " ")
ENDIF

2
harbour/contrib/hbtip/utils.c
View File

@@ -287,7 +287,7 @@ static MIME_ENTRY s_mimeTable[ MIME_TABLE_SIZE ] =
/* 43*/ { 0, "#! /usr/local/bin/python", "application/x-python", 0, 0, 0 },
/* 44*/ { 0, "eval \"exec /usr/local/bin/python", "application/x-python", 0, 0, 0 },
/* Unix compress (.Z) */
/* Unix compress (.z) */
/* 45*/ { 0, "\x1F\x9D", "application/x-compress", 0, 0, 0 },
/* Unix gzip */

4
harbour/contrib/hbtpathy/ChangeLog
View File

@@ -44,7 +44,7 @@
+ added a bunch of functions, right now only to OS/2 build
2004-08-31 16:45 UTC+0200 Maurilio Longo <maurilio.longo@libero.it>
* tp_/TELEPATH.CH
* tp_/telepath.ch
- removed UPPERCASE file
+ added telepath.ch
@@ -74,7 +74,7 @@
+ bcc32 makefile
+ tp_/make_b32.bat
+ win32 makefile
+ tp_/TELEPATH.CH
+ tp_/telepath.ch
+ .prg level defines for telepathy compatibility
/* At this time, on win32, I can ask to my modem its name :) */

24
harbour/contrib/hbw32ddr/readme.txt
View File

@@ -24,7 +24,7 @@
-----------------------------------------------------------------------------------
0)._ What are supported, what coming soon
1)._ What do you need for make/run the samples.
2)._ Files in this distribution. ( HDx01.zip )
2)._ Files in this distribution. ( hdx01.zip )
3)._ Building the sample
4)._ Reminder
-----------------------------------------------------------------------------------
@@ -74,30 +74,30 @@
2)._ Files in this distribution.
/DirectX/HB_DDraw.h -> header file
/hbw32ddr/hb_ddraw.h -> header file
/DirectX/HB_DDraw.cpp -> Source file for DDraw
/hbw32ddr/hb_ddraw.cpp -> Source file for DDraw
/DirectX/DirectX.lib -> Lib for Harbour
/hbw32ddr/directx.lib -> Lib for Harbour
/DirectX/lib/Ddraw.lib -> Lib from MS for VC ( DirectX SDK )
/hbw32ddr/lib/ddraw.lib -> Lib from MS for VC ( DirectX SDK )
/DirectX/BuVcDx.Bat -> Bat file for Build the sample for MSVC 6.0
/hbw32ddr/buvcdx.bat -> Bat file for Build the sample for MSVC 6.0
/DirectX/Samples/TestDX.Prg -> a BreakOut like sample Game
/hbw32ddr/samples/testdx.prg -> a BreakOut like sample Game
/DirectX/Media -> Media files for the sample ( .bmp files )
/hbw32ddr/media -> Media files for the sample ( .bmp files )
3)._ Building the sample
copy TestDx.prg to /harbour/tests/working/
copy BuVcDx.bat ro /harbour/tests/working/
copy testdx.prg to /harbour/tests/working/
copy buvcdx.bat ro /harbour/tests/working/
1) harbour testdx
2) BuVcDx testdx
2) buvcdx testdx
3) copy .exe to a directory with media files
Run the EXE!
Run the .exe!
Keys for the sample:

8
harbour/contrib/hbwhat32/_wincdlg.c
View File

@@ -53,7 +53,7 @@ HB_FUNC( CHOOSEFONT )
//----------------------------------------------------------------------------
// to be called called via FindText (in WinCDlg.Prg)
// to be called called via FindText (in wincdlg.prg)
HB_FUNC( _FINDTEXT )
{
@@ -78,7 +78,7 @@ HB_FUNC( _FINDTEXT )
//----------------------------------------------------------------------------
// to be called called via FindText (in WinCDlg.Prg)
// to be called called via FindText (in wincdlg.prg)
HB_FUNC( _REPLACETEXT )
{
@@ -192,7 +192,7 @@ HB_FUNC( CHOOSECOLOR )
//----------------------------------------------------------------------------
// to be called via GetOpenFileName in WinCDlg.Prg
// to be called via GetOpenFileName in wincdlg.prg
HB_FUNC( _GETOPENFILENAME )
{
@@ -231,7 +231,7 @@ HB_FUNC( _GETOPENFILENAME )
//----------------------------------------------------------------------------
// to be called via GetSaveFileName in WinCDlg.Prg
// to be called via GetSaveFileName in wincdlg.prg
HB_FUNC( _GETSAVEFILENAME )
{

54
harbour/contrib/rddads/doc/en/adsfuncs.txt
View File

@@ -34,7 +34,7 @@
* $RETURNS$
* <lSuccess> True if the file is successfully written.
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* ADSBlob2File() is a wrapper for AdsBinaryToFile.
* $EXAMPLES$
* $TESTS$
@@ -73,7 +73,7 @@
* $RETURNS$
* <lSuccess> True if the file is successfully written.
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* ADSFile2Blob() is a wrapper for AdsFileToBinary.
* Use of this function is illegal in an ADS transaction.
* $EXAMPLES$
@@ -106,7 +106,7 @@
* $RETURNS$
* NIL
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* $EXAMPLES$
* $TESTS$
* $STATUS$
@@ -175,7 +175,7 @@
* filter expressions ".T." and ".F." both result in fully optimized AOFs
* regardless of available indexes.
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* $EXAMPLES$
* $TESTS$
* $STATUS$
@@ -210,7 +210,7 @@
* IMPORTANT NOTE: These values are NOT the same as those returned
* by dbOrderInfo().
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* $EXAMPLES$
* $TESTS$
* $STATUS$
@@ -243,7 +243,7 @@
* Values are defined in ads.ch:
* ADS_OPTIMIZED_FULL, ADS_OPTIMIZED_PART, ADS_OPTIMIZED_NONE.
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* $EXAMPLES$
* $TESTS$
* $STATUS$
@@ -274,7 +274,7 @@
* $RETURNS$
* <cFilter> The filter expression used in the call to AdsSetAOF.
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* $EXAMPLES$
* $TESTS$
* $STATUS$
@@ -306,7 +306,7 @@
* <cFilterFragment> If an AOF filter expression is not fully optimizable,
* the non-optimizable part of the expression can be retrieved with this function.
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* $EXAMPLES$
* $TESTS$
* $STATUS$
@@ -337,7 +337,7 @@
* $RETURNS$
* NIL
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* If record updates occur after an AOF is set, the updated records may
* or may not be valid records for the filter. ADSRefreshAOF()
* re-evaluates the data to include or exclude changed records.
@@ -376,7 +376,7 @@
* $RETURNS$
* <lSuccess> True if AOF is created.
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* $EXAMPLES$
* $TESTS$
* $STATUS$
@@ -407,7 +407,7 @@
* $RETURNS$
* True if the record satisfies the filter criteria.
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* $EXAMPLES$
* $TESTS$
* $STATUS$
@@ -446,7 +446,7 @@
*
* This is the recommended function for positioning a scrollbar
* or other "coarse" position interface.
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* $EXAMPLES$
* $TESTS$
* $STATUS$
@@ -484,7 +484,7 @@
*
* This is the recommended function for re-positioning in reaction to
* a dragged scrollbar thumb or other "coarse" navigation interface.
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* $EXAMPLES$
* $TESTS$
* $STATUS$
@@ -533,7 +533,7 @@
* $RETURNS$
* <nKeyCount> The number of keys within the current index.
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* $EXAMPLES$
* $TESTS$
* $STATUS$
@@ -581,7 +581,7 @@
* $RETURNS$
* <nKeyNo> The logical key number of the current record in the given index.
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.</par>
* See ace.hlp for full details about the Advantage Database Server.</par>
* Wrapper for AdsGetKeyNum. </par>
* This function may be slow on a large database with
* ADS_RESPECTFILTERS set because it walks through the keys to get the
@@ -617,7 +617,7 @@
* $RETURNS$
* <lPriorSetting> .T. if prior setting was for the proprietary mode.
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* The Advantage Database Server has a fast Proprietary locking mode that
* is more efficient than traditional network locking. It is only available
* when using the remote server (not the local server).
@@ -662,7 +662,7 @@
* $RETURNS$
* <lPriorSetting>
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* ADSRightsCheck() is a Get/Set function for the "rights checking" mode.
* If the setting is .T. when a file is opened, then the Advantage
* Database Server will use the rights of the connected user when
@@ -707,8 +707,8 @@
* $RETURNS$
* <nil>
* $DESCRIPTION$
* See ACE.HLP for full details on AdsRegisterProgressCallback.
* ACE32.DLL does not support the EVAL/EVERY clauses. Remember, there
* See ace.hlp for full details on AdsRegisterProgressCallback.
* ace32.dll does not support the EVAL/EVERY clauses. Remember, there
* is an external process doing the indexing that knows nothing of
* Harbour expressions or codeblocks. Even with Local Server it's the
* DLLs doing all the indexing. So to do progress meters
@@ -946,7 +946,7 @@
* $RETURNS$
* <nPriorSetting>
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* This sets the usCharType parameter used when ADS opens a table.
* $EXAMPLES$
* $TESTS$
@@ -1027,7 +1027,7 @@
* call, not a server request, and should be fast, it will be
* called for EACH FIELD as it is assigned a value.
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* $EXAMPLES$
* $TESTS$
* $STATUS$
@@ -1058,7 +1058,7 @@
* $RETURNS$
* The error code generated by the most recent ADS API call. Zero for success.
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* $EXAMPLES$
* $TESTS$
* $STATUS$
@@ -1092,7 +1092,7 @@
* used in indexes, filters, scopes, etc. Unlike internal RDDs like DBFNTX,
* the server is independent of the applications code, so it cannot understand
* references to PUBLIC variables or User-Defined Functions (UDFs).
* (See ACE.HLP under Advantage Expression Engine for a list of functions
* (See ace.hlp under Advantage Expression Engine for a list of functions
* allowed by ADS.)
* Call AdsIsExprValid() to determine if the server can process the expression.
@@ -1145,7 +1145,7 @@
* This function identifies the type of server used by a connection handle.
* Note that after a table is opened, the type of connection used for
* that workarea can be retrieved with AdsGetTableConType().
* See ACE.HLP for full details.
* See ace.hlp for full details.
* $EXAMPLES$
* $TESTS$
* $STATUS$
@@ -1215,7 +1215,7 @@
* $RETURNS$
* <lSuccess> -> .T. if file was added, otherwise .F.
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* AdsDDAddTable() adds a new table to an ADS data dictionary.
* To add the table you must be connected as ADSSYS user using the AdsConnect60() function
* $EXAMPLES$
@@ -1288,7 +1288,7 @@
* <lSuccess> True if connected, otherwise False.
* $DESCRIPTION$
* Adsconnect60() makes the connection to an advantage database server.
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* $EXAMPLES$
* IF adsConnect60("xharbour.add", 7/* All types of connection*/, "ADSSYS", "",)
* // Add one user
@@ -1439,7 +1439,7 @@
* $RETURNS$
* <lPriorSetting>
* $DESCRIPTION$
* See ACE.HLP for full details about the Advantage Database Server.
* See ace.hlp for full details about the Advantage Database Server.
* ADSRightsCheck() is a Get/Set function for the "rights checking" mode.
* $EXAMPLES$
* $TESTS$

20
harbour/contrib/rddads/doc/en/readme.txt
View File

@@ -19,12 +19,12 @@
* Your Harbour application can access a remote database server for a
* true client/server architecture, or it can use the "local server"
* ADSLOC32.DLL for stand-alone or even small network installations.
* adsloc32.dll for stand-alone or even small network installations.
*
* <b>For using this RDD you need to have: </b></par>
* <b>ACE32.DLL ( Advantage Client Engine ), </b></par>
* <b>AXCWS32.DLL ( communication layer for remote server ) or </b></par>
* <b>ADSLOC32.DLL ( local server ) </b></par>
* <b>ace32.dll ( Advantage Client Engine ), </b></par>
* <b>axcws32.dll ( communication layer for remote server ) or </b></par>
* <b>adsloc32.dll ( local server ) </b></par>
*
* You need also to create ace32.lib with the help of implib.exe:
* implib ace32.lib ace32.dll
@@ -51,21 +51,21 @@
* SET FILETYPE TO CDX
*
* or functions AdsSetServerType(), AdsSetFileType().
* See the header file ADS.CH for details.
* See the header file ads.ch for details.
*
* Note that the default local server (ADSLOC32.DLL) is useable for
* Note that the default local server (adsloc32.dll) is useable for
* file sharing on a small network. The default DLL is limited to
* 5 users, but an unlimited version is available from Extended Systems.
*
* MAX OPEN TABLES: The server (even local) has its own setting for
* Max Tables allowed open. For the Local Server, it can be set in
* ADSLOCAL.CFG. The default is only 50!
* adslocal.cfg. The default is only 50!
* For the Windows Remote Servers, use the Configuration Utility, or
* increase the setting for the TABLES configuration value in the Advantage
* Database Server configuration registry key using the Registry Editor.
* For NetWare, edit the configuration file ADS.CFG.
* For NetWare, edit the configuration file ads.cfg.
* See ACE.HLP under ADSLOCAL.CFG, or the Advantage Error Guide for
* See ace.hlp under adslocal.cfg, or the Advantage Error Guide for
* error 7005.
* SPEED AND PERFORMANCE ISSUES
@@ -120,7 +120,7 @@
* setting to match Harbour's.
* INDEXING and Progress Displays:
* ACE32.DLL does not support the EVAL/EVERY clauses. Remember, there
* ace32.dll does not support the EVAL/EVERY clauses. Remember, there
* is an external process doing the indexing that knows nothing of
* Harbour expressions or codeblocks. Even with Local Server it's the
* DLLs doing all the indexing. So to do progress meters

4
harbour/contrib/rddads/readme.txt
View File

@@ -8,8 +8,8 @@
For using this RDD you need to have:
ace32.dll ( Advantage Client Engine ),
AXCWS32.DLL ( communication layer for remote server ) or
ADSLOC32.DLL ( local server )
axcws32.dll ( communication layer for remote server ) or
adsloc32.dll ( local server )
You need also to create ace32.lib with the help of implib.exe:
implib ace32.lib ace32.dll

2
harbour/doc/en/readme.txt
View File

@@ -74,7 +74,7 @@
* <b>--- LICENCE ---</b> </par>
*
* Information about the License for usage of Harbour is available in the
* file LICENCE.TXT (when we have a license) </par>
* file licence.txt (when we have a license) </par>
*
* <b>--- DISCLAIMER ---</b> </par>
*

2
harbour/doc/en/set.txt
View File

@@ -998,7 +998,7 @@
* This command toggles and output console information to the alternate
* file <cFile>,provided that the command is toggled on or the condition
* <lAlter> is set to a logical true (.T.). If <cFile> does not has a
* file extension, .TXT will be assumed.The file name may optionally
* file extension, .txt will be assumed.The file name may optionally
* have a drive letter and/or directory path.If none is speficied, the
* current drive and directory will be used.
* If the ALTERNATE file is created but no ALTERNATE ON command is

2
harbour/doc/en/tlabel.txt
View File

@@ -42,7 +42,7 @@
* If the TO FILE clause is specified, the name of the ASCII text file
* containing the generated labels will be <cFile>. </par>
*
* If no file extension is specified a .TXT extension is added.
* If no file extension is specified a .txt extension is added.
* <cScope> is the scope condition for this command. Valid scopes
* include NEXT <expN> (number of records to be displayed, where <expN>
* is the number of records), RECORD <expN> (a specific record to be

6
harbour/doc/es/dir.txt
View File

@@ -35,7 +35,7 @@
* __Dir() siempre retorna NIL.
* $DESCRIPTION$
* Si ninguna <cFileMask> es dada, __Dir() muestra informaci¢n acerca de
* todos los *.DBF en la ruta SET DEFAULT. Esta informaci¢n contiene:
* todos los *.dbf en la ruta SET DEFAULT. Esta informaci¢n contiene:
* - Nombre del archivo
* - Numero de registros
* - Fecha de la ultima actualizaci¢n
@@ -101,7 +101,7 @@
* entonces SET DEFAULT es usado para mostrar archivos en la m scara.
* $DESCRIPTION$
* Si ninguna <cFileMask> es dada, __Dir() muestra informaci¢n acerca de
* todos los *.DBF en la ruta SET DEFAULT. esta informaci¢n contiene:
* todos los *.dbf en la ruta SET DEFAULT. esta informaci¢n contiene:
* - Nombre del archivo
* - N£mero de registros
* - Fecha de la ultima actualizaci¢n
@@ -212,7 +212,7 @@
* $EXAMPLES$
* <fixed>
* LOCAL aNombre, aTamano, aFecha, aHora, aAtrib, nLen, i
* nLen := ADIR( "*.JPG" ) // Nro de archivos JPG files en directorio
* nLen := ADIR( "*.jpg" ) // Nro de archivos JPG files en directorio
*
* IF nLen > 0
* aNombre := Array( nLen ) // hace lugar para guardar la informac.

12
harbour/doc/es/dirstruc.txt
View File

@@ -38,9 +38,7 @@ busca de remover directorios vac
| (cambios hist¢ricos)
|
+---bin - Ejecutables y batch de construcci¢n
| | deber¡a contener HARBOUR.EXE y otros ejecutables (*)
| |
| +---b16 - aqui se construye los binarios 16 bits Borland
| | deber¡a contener harbour.exe y otros ejecutables (*)
| |
| +---b32 - aqui se construye los binarios 32 bits Borland
| |
@@ -235,7 +233,7 @@ busca de remover directorios vac
|
+---hbdoc - Herramienta generadora de Documentaci¢n
|
+---hbextern - generador de HBEXTERN.CH
+---hbextern - generador de hbextern.ch
|
+---hbmake - Utilidad Make de Harbour
|
@@ -260,7 +258,5 @@ directorio est
que se construyen los ejecutables y las librer¡as.
si Ud. construye el compilador Harbour.
(#3) (.HRB), Archivos de formato Harbour Portable Object
(#3) (.hrb), Archivos de formato Harbour Portable Object

32
harbour/doc/es/file.txt
View File

@@ -873,19 +873,19 @@
* TYPE.
* $EXAMPLES$
* Los siguientes ejemplos asumen que un archivo con el nombre
* MiTexto.DAT existe en todos los caminos especificados, un error de
* mitexto.dat existe en todos los caminos especificados, un error de
* ejecuci¢n podr¡a ser visualizado de no ser as¡.
*
* // Visualiza el archivo MiTexto.DAT en la pantalla
* __TYPEFILE( "MiTexto.DAT" )
* // Visualiza el archivo mitexto.dat en la pantalla
* __TYPEFILE( "mitexto.dat" )
*
* // Visualiza el archivo MiTexto.DAT en la pantalla e impresora
* __TYPEFILE( "MiTexto.DAT", .T. )
* // Visualiza el archivo mitexto.dat en la pantalla e impresora
* __TYPEFILE( "mitexto.dat", .T. )
*
* // Visualiza el archivo MiTexto.DAT en la impresora solamente
* // Visualiza el archivo mitexto.dat en la impresora solamente
* SET CONSOLE OFF
*
* __TYPEFILE( "MiTexto.DAT", .T. )
* __TYPEFILE( "mitexto.dat", .T. )
*
* SET CONSOLE ON
* </fixed>
@@ -947,25 +947,25 @@
* tecla para continuar.
* $EXAMPLES$
* Los siguientes ejemplos asumen que un archivo con el nombre
* MiTexto.DAT existe en todos los caminos especificados, un error de
* mitexto.dat existe en todos los caminos especificados, un error de
* ejecuci¢n podr¡a ser visualizado de no ser as¡.
*
* // Visualiza el archivo MiTexto.DAT en la pantalla
* TYPE MiTexto.DAT
* // Visualiza el archivo mitexto.dat en la pantalla
* TYPE mitexto.dat
*
* // Visualiza el archivo MiTexto.DAT en la pantalla e impresora
* TYPE MiTexto.DAT TO PRINTER
* // Visualiza el archivo mitexto.dat en la pantalla e impresora
* TYPE mitexto.dat TO PRINTER
*
* // Visualiza el archivo MiTexto.DAT en la impresora solamente
* // Visualiza el archivo mitexto.dat en la impresora solamente
* SET CONSOLE OFF
*
* TYPE MiTexto.DAT TO PRINTER
* TYPE mitexto.dat TO PRINTER
*
* SET CONSOLE ON
*
* // Visualiza el archivo MiTexto.DAT en la pantalla y lo env¡a al
* // Visualiza el archivo mitexto.dat en la pantalla y lo env¡a al
* // archivo MiReporte.txt
* TYPE MiTexto.DAT TO FILE MiReporte
* TYPE mitexto.dat TO FILE MiReporte
* </fixed>
* $STATUS$
* R

9
harbour/doc/es/hbpplib.txt
View File

@@ -34,14 +34,11 @@ En orden de crear y testear esta librer
- testpre.prg y bld32exe.bat en el directorio \harbour\tests\working ;
- hbpplib.txt en el directorio \harbour\doc ;
Entonces, Ud. necesita correr bldhbpp.bat para crear HBPP.LIB sobre
el directorio \HARBOUR\LIBS\B32. Note que por ahora el £nico makefile
Entonces, Ud. necesita correr bldhbpp.bat para crear hbpp.lib sobre
el directorio \harbour\libs\b32. Note que por ahora el £nico makefile
es para compilar con los compiladores de Borland.
Se solicita a quienes tienen otros compiladores/entornos colaboren
escribiendo los makefiles faltantes. Gracias.
Para testear testpre.prg Ud. s¢lo necesita ir al subdirectorio
HARBOUR\TEST\WORKING y hacerlo usando TESTPRE.
harbour\test\working y hacerlo usando TESTPRE.

2
harbour/doc/es/rdd.txt
View File

@@ -88,7 +88,7 @@
* $SEEALSO$
* RDDNAME()
* $INCLUDE$
* El archivo de cabecera es RDDSYS.CH
* El archivo de cabecera es rddsys.ch
* $END$
*/

2
harbour/doc/es/readme.txt
View File

@@ -96,7 +96,7 @@
* <b>--- LICENCIA ---</b>
*
* Informaci¢n sobre la Licencia de uso de Harbour est  disponible en
* el archivo LICENSE.TXT
* el archivo license.txt
*
*
* <b>--- RENUNCIA ---</b>

2
harbour/doc/es/tlabel.txt
View File

@@ -48,7 +48,7 @@
* Si la cl usula TO FILE es especificada, el nombre del archivo de
* texto ASCII conteniendo las etiquetas generadas ser  <cArchivo>.
*
* Si ninguna extensi¢n de archivo es especificada, la extensi¢n .TXT
* Si ninguna extensi¢n de archivo es especificada, la extensi¢n .txt
* es agregada.
*
* <cAlcance> es la condici¢n de alcance para este comando. Alcances

2
harbour/doc/es/treport.txt
View File

@@ -62,7 +62,7 @@
*
* Si la cl usula TO FILE es especificada, el nombre de un archivo
* alterno es especificado en <cArchivo>.
* Si ninguna extensi¢n de archivo es especificada, la extensi¢n .TXT
* Si ninguna extensi¢n de archivo es especificada, la extensi¢n .txt
* es agregada.
*
* <cAlcance> es la condici¢n de alcance para este comando. Alcances

11
harbour/doc/hbmake.txt
View File

@@ -10,9 +10,9 @@ the creation of the make file.
Hbmake support the follow Switchs
-b Use Bcc as the C compiler.This options is default under Win32
-g Use Gcc as the C compiler.This options is default under OS/2
-gl Use Gcc as the C compiler on Linux
-b Use BCC as the C compiler.This options is default under Win32
-g Use GCC as the C compiler.This options is default under OS/2
-gl Use GCC as the C compiler on Linux
-v Use MSVC as the C compiler
-D Define an macro. Multiple macros can be used in an single line
Ex:
@@ -26,7 +26,7 @@ and also Multiple -D is also supported
-elx Open the editor mode for creating librariesin extented mode.
-i Ignore errors returned by commands
-r Recurse directories for source code
The hbmake dont support old styles .RMK/.Lnk Files. hbmake create it own when the editor mode is used with include both compile and link sections on the same file.
The hbmake dont support old styles .rmk/.lnk Files. hbmake create it own when the editor mode is used with include both compile and link sections on the same file.
Now How to use the editor mode
@@ -36,7 +36,7 @@ call hbmake <filename>.bc -e
this will evoke hbmake editor mode.
then select your OS,C Compiler
If you need an Graphic library such as FWH or C4W, select the appropiate box, if you also use rddads. also check this box.
If you need an Graphic library such as FWH or C4W, select the appropiate box, if you also use rddads. also check this box.
Select the harbour compiler options that you also what to use, along
with
@@ -55,4 +55,3 @@ CC=gcc
CFLAGS=-c -I/usr/include/harbour (this line must match your harbour include directory)
VERBOSE=YES
DELTMP=YES

4
harbour/doc/man/hbdoc.1
View File

@@ -25,9 +25,9 @@ OS/2 help source code For OS/2
.IP "\fB-htm\fP" 10
Generate HTML output
.IP "\fB-chm\fP" 10
Generate HTML source files for Windows .CHM Help files
Generate HTML source files for Windows .chm Help files
.IP "\fB-pdf\fP" 10
Generate an Adobe Portable Document (.PDF)
Generate an Adobe Portable Document (.pdf)
.IP "\fB-trf\fP" 10
Generate Linux TROFF code
.IP "\fB-doc\fP" 10

20
harbour/doc/whatsnew.txt
View File

@@ -929,9 +929,9 @@ Contrib
General
-------
- Updated build process for Debian Linux distribution (.DEB) packages.
- Updated build process for Debian Linux distribution (.deb) packages.
Now hb* scripts and shared libs are created by standard make install
- Added support for Solaris (SunOS) and Darwin (Mac OS-X).
- Added support for Solaris (SunOS) and Darwin (Mac OS X).
- Added support for Hewlett Packard Unix (HP_UX) and ALPHA DEC.
- Many adds and fix in compilation scripts on all platforms.
- Fixed some error messages
@@ -1146,7 +1146,7 @@ Version 0.38 Alpha Build 38 (2001-12-15) tag: build38
- New function __ClsGetProperties() added. Syntax:
__ClsGetProperties( <nClassHandle> ) --> <aPropertiesNames>
- Harbour Profiler foundation functions added
- New Apollo.lib for SIXNSX database connection via SDE60.DLL
- New apollo.lib for SIXNSX database connection via sde60.dll
- RDD Scope handling was changed to handle non-character
scopes correctly. Numeric scopes now work in RDDADS, but
scopes are not yet supported in DBFCDX.
@@ -1173,9 +1173,9 @@ Version 0.38 Alpha Build 38 (2001-12-15) tag: build38
- Some debugger fixes - it is now really usable.
- Hbmake enhacements
- On Win32 platforms, Harbour now supports the ability to create and
use .DLL files. These .DLL files can be used as pcode storage,
use .dll files. These .dll files can be used as pcode storage,
Harbour Runtime storage, or both, and if both, can be made callable
from other languages that use .DLL's as fully functional standalone
from other languages that use .dll's as fully functional standalone
modules
- Extended run-time preprocessing possibilities
@@ -1221,8 +1221,8 @@ Version 0.35 Alpha Build 35 (2000-08-15)
- New language modules: IT, DE, PL
- Slang support enhanced
- MemoEdit()/TEditor enhancements
- .NTX support started (creation now works)
- HBDOC .CHM output
- .ntx support started (creation now works)
- HBDOC .chm output
- Garbage collector added
- Compiler -u, -m support, support for automatically compiled files for
DO, SET FORMAT TO, etc., memory usage optimizations
@@ -1507,7 +1507,7 @@ Version 0.26 Alpha Build 26 (1999-06-12)
- Better support for different platforms and compilers.
- New Inifiles class
- Support for IBM C++ compiler for OS/2
- Harb26.Zip includes Runner.exe now
- harb26.zip includes runner.exe now
So NO NEED for any external software to run Harbour PRG's!
- Many resolved Bugs
- Many new functions
@@ -1535,8 +1535,8 @@ Version 0.24 Alpha Build 24 (1999-06-03)
Version 0.23 Alpha Build 23 (1999-05-19)
- Harbour.exe for DOS/Windows is included now
- The Windows libs are also included (HBW.BAT to build Windows EXE's)
- HRB files! These files can be run with the Runner.exe (Source included)
- The Windows libs are also included (hbw.bat to build Windows .exe's)
- .hrb files! These files can be run with the runner.exe (Source included)
- No need for a C compiler anymore to run Harbour source!
- New MAKE and BUILD files for IBM C++ 3.0 for OS/2
- Many fixes, Many enhancements (See ChangeLog in the Harbour directory)

2
harbour/source/compiler/cmdcheck.c
View File

@@ -865,7 +865,7 @@ void hb_compChkCompilerSwitch( HB_COMP_DECL, int iArg, char *Args[] )
Args[i] += ( j - 1 );
hb_compChkEnvironVar( HB_COMP_PARAM, Args[i] );
/* Accept rest as part of .CH Path or "undef:<id>" and continue with next Args[]. */
/* Accept rest as part of .ch Path or "undef:<id>" and continue with next Args[]. */
j = strlen( Args[i] );
continue;

2
harbour/source/rtl/setkey.c
View File

@@ -53,7 +53,7 @@
/*
Either way you have to clean up the memory on exit. The best way to
do this is to add a hb_setkeyInit() and hb_setkeyExit() function
and call them from CONSOLE.C Init/Exit functions.
and call them from console.c Init/Exit functions.
*/
#include "hbvm.h"

2
harbour/source/rtl/tclass.prg
View File

@@ -146,7 +146,7 @@ FUNCTION HBClass()
//----------------------------------------------------------------------------//
// xSuper is used here as the new preprocessor file (HBCLASS.CH) send here
// xSuper is used here as the new preprocessor file (hbclass.ch) send here
// always an array (if no superclass, this will be an empty one)
// In case of direct class creation (without the help of preprocessor) xSuper can be
// either NIL or contain the name of the superclass.

2
harbour/utils/hbdoc/ft_funcs.prg
View File

@@ -4,7 +4,7 @@
/*
* Harbour Project source code:
* FT_FUNCS.Prg File support Functions For hbdoc
* ft_funcs.prg File support Functions For hbdoc
*
* Copyright 2000 Luiz Rafael Culik <culik@sl.conex.net>
* www - http://www.harbour-project.org

2
harbour/utils/hbdoc/genasc.prg
View File

@@ -182,7 +182,7 @@ FUNCTION ASCIIFiles()
// Open file for input
nCommentLen := IIF( AT( ".ASM", UPPER( aDirList[ i, F_NAME ] ) ) > 0, 2, 3 )
nCommentLen := IIF( AT( ".asm", Lower( aDirList[ i, F_NAME ] ) ) > 0, 2, 3 )
nReadHandle := FT_FUSE( aDirList[ i, F_NAME ] )
@ INFILELINE, 33 CLEAR TO INFILELINE, MAXCOL()
@ INFILELINE, 33 SAY PAD( aDirList[ i, F_NAME ], 47 )

4
harbour/utils/hbdoc/genchm.prg
View File

@@ -199,7 +199,7 @@ FUNCTION ProcessChm()
// Open file for input
nCommentLen := IIF( AT( ".ASM", UPPER( aDirList[ i, F_NAME ] ) ) > 0, 2, 4 )
nCommentLen := IIF( AT( ".asm", Lower( aDirList[ i, F_NAME ] ) ) > 0, 2, 4 )
nReadHandle := FT_FUSE( aDirList[ i, F_NAME ] )
@ INFILELINE, 33 CLEAR TO INFILELINE, MAXCOL()
@ INFILELINE, 33 SAY PAD( aDirList[ i, F_NAME ], 47 )
@@ -827,7 +827,7 @@ FUNCTION ProcessChm2()
FOR nTemp1 := 1 TO LEN(aDirList)
// Calculate the amount of characters the source files uses each line
nCommentLen := IIF(AT(".ASM", UPPER(aDirList[nTemp1, F_NAME])) > 0, 2, 4)
nCommentLen := IIF(AT(".asm", Lower(aDirList[nTemp1, F_NAME])) > 0, 2, 4)
// Select the file to read from
nReadHandle := FT_FUSE(aDirList[nTemp1, F_NAME])

2
harbour/utils/hbdoc/genhpc.prg
View File

@@ -177,7 +177,7 @@ FUNCTION ProcessFiles()
// Open file for input
nCommentLen := IIF( AT( ".ASM", UPPER( aDirList[ i, F_NAME ] ) ) > 0, 2, 3 )
nCommentLen := IIF( AT( ".asm", Lower( aDirList[ i, F_NAME ] ) ) > 0, 2, 3 )
nReadHandle := FT_FUSE( aDirList[ i, F_NAME ] )
@ INFILELINE, 33 CLEAR TO INFILELINE, MAXCOL()
@ INFILELINE, 33 SAY PAD( aDirList[ i, F_NAME ], 47 )

2
harbour/utils/hbdoc/genng.prg
View File

@@ -184,7 +184,7 @@ FUNCTION ProcessiNg()
asiTable := {}
// Open file for input
nCommentLen := IIF( AT( ".ASM", UPPER( aDirList[ i, F_NAME ] ) ) > 0, 2, 4 )
nCommentLen := IIF( AT( ".asm", Lower( aDirList[ i, F_NAME ] ) ) > 0, 2, 4 )
nReadHandle := FT_FUSE( aDirList[ i, F_NAME ] )
@ INFILELINE, 33 CLEAR TO INFILELINE, MAXCOL()
@ INFILELINE, 33 SAY PAD( aDirList[ i, F_NAME ], 47 )

2
harbour/utils/hbdoc/genos2.prg
View File

@@ -188,7 +188,7 @@ FUNCTION ProcessOs2()
// Open file for input
nCommentLen := IIF( AT( ".ASM", UPPER( aDirList[ i, F_NAME ] ) ) > 0, 2, 4 )
nCommentLen := IIF( AT( ".asm", Lower( aDirList[ i, F_NAME ] ) ) > 0, 2, 4 )
nReadHandle := FT_FUSE( aDirList[ i, F_NAME ] )
@ INFILELINE, 33 CLEAR TO INFILELINE, MAXCOL()
@ INFILELINE, 33 SAY PAD( aDirList[ i, F_NAME ], 47 )

2
harbour/utils/hbdoc/genpdf1.prg
View File

@@ -207,7 +207,7 @@ local hhh
asiTable := {}
// Open file for input
nCommentLen := IIF( AT( ".ASM", UPPER( aDirList[ i, F_NAME ] ) ) > 0, 2, 4 )
nCommentLen := IIF( AT( ".asm", Lower( aDirList[ i, F_NAME ] ) ) > 0, 2, 4 )
nReadHandle := FT_FUSE( aDirList[ i, F_NAME ] )
@ INFILELINE, 33 CLEAR TO INFILELINE, MAXCOL()
@ INFILELINE, 33 SAY PAD( aDirList[ i, F_NAME ], 47 )

2
harbour/utils/hbdoc/genrtf.prg
View File

@@ -187,7 +187,7 @@ FUNCTION ProcessRtf()
// Open file for input
nCommentLen := IIF( AT( ".ASM", UPPER( aDirList[ i, F_NAME ] ) ) > 0, 2, 4 )
nCommentLen := IIF( AT( ".asm", Lower( aDirList[ i, F_NAME ] ) ) > 0, 2, 4 )
nReadHandle := FT_FUSE( aDirList[ i, F_NAME ] )
@ INFILELINE, 33 CLEAR TO INFILELINE, MAXCOL()
@ INFILELINE, 33 SAY PAD( aDirList[ i, F_NAME ], 47 )

2
harbour/utils/hbdoc/gentrf.prg
View File

@@ -167,7 +167,7 @@ FUNCTION ProcessTroff
// Open file for input
nCommentLen := IIF( AT( ".ASM", UPPER( aDirList[ i, F_NAME ] ) ) > 0, 2, 3 )
nCommentLen := IIF( AT( ".asm", Lower( aDirList[ i, F_NAME ] ) ) > 0, 2, 3 )
nReadHandle := FT_FUSE( aDirList[ i, F_NAME ] )
@ INFILELINE, 33 CLEAR TO INFILELINE, MAXCOL()
@ INFILELINE, 33 SAY PAD( aDirList[ i, F_NAME ], 47 )

19
harbour/utils/hbdoc/hbdoc.prg
View File

@@ -97,14 +97,14 @@
*
* V1.06
* 2000/01/25 Fixed some error that was not generating a valid RTF File
* Removed Call TO HB_OEMTOANSI() on the rountines to generate the .Ngi
* and Rtf files.
* Added support to generate the Docs from .Txt files, See doc\Subcodes.txt
* Removed Call TO HB_OEMTOANSI() on the rountines to generate the .ngi
* and .rtf files.
* Added support to generate the Docs from .txt files, See doc\subcodes.txt
* for header file.
*
* V1.07
* Added back the "<" and ">" symbols
* Fixed the links on the Harbour.htm file
* Fixed the links on the harbour.htm file
* Fixed the help text when hbdoc is called with out any parameter
*/
@@ -1728,7 +1728,7 @@ FUNCTION fill_link_info( cLinkName )
IF AT( "!MENU", cBuffer ) > 0
lMenuMode := .T.
cBuffer := UPPER( ReadLN( @lEof ) )
cBuffer := ReadLN( @lEof )
ELSEIF LEFT( cBuffer, 1 ) == "!"
lMenuMode := .F.
ENDIF
@@ -1740,12 +1740,13 @@ FUNCTION fill_link_info( cLinkName )
IF .NOT. EMPTY( cBuffer ) .AND. lMenuMode
cSpace := AT( " ", cBuffer )
cCategory := UPPER( RTRIM( LEFT( cBuffer, cSpace - 1 ) ) )
cFile := UPPER( LTRIM( SUBSTR( cBuffer, cSpace ) ) )
cFile := LTRIM( SUBSTR( cBuffer, cSpace ) )
IF lGetType
cCompiler := IIF( ".NGO" $ cFile, "NGXC", "EHC" )
lGetType := .NOT. ( ".NGO" $ cFile .OR. "EHO" $ cFile )
cCompiler := IIF( ".ngo" $ Lower( cFile ), "NGXC", "EHC" )
lGetType := .NOT. ( ".ngo" $ Lower( cFile ) .OR. ".eho" $ Lower( cFile ) )
ENDIF
cFile := STRTRAN( cFile, IIF( cCompiler = "NGXC", ".NGO", ".EHO" ), ".TXT" )
cFile := STRTRAN( cFile, IIF( cCompiler == "NGXC", ".ngo", ".eho" ), ".txt" )
cFile := STRTRAN( cFile, IIF( cCompiler == "NGXC", ".NGO", ".EHO" ), ".txt" )
AADD( aLinkInfo, { cCategory, cFile, .F. } )
ENDIF

6
harbour/utils/hbdoc/html.prg
View File

@@ -5,7 +5,7 @@
/*
* Harbour Project source code:
* HTML Support Code For HBDOC
* HTML .CMH support code for HBDOC
* HTML .chm support code for HBDOC
*
* Copyright 2000 Luiz Rafael Culik <Culik@sl.conex.net>
* www - http://www.harbour-project.org
@@ -76,7 +76,7 @@ CLASS THTML
METHOD WriteText( cText )
METHOD WriteMetaTag(cTag,cDescription)
METHOD CLOSE()
// The Follow methods is for html source files for .CHM help
// The Follow methods is for html source files for .chm help
METHOD NewChm( cFile ,aMetaContents,cFuncName)
METHOD ADDoBJECT(cType,cClassid)
METHOD ADDPARAM(cName,cValue)
@@ -211,7 +211,7 @@ METHOD WriteMetaTag(cTag,cDescription) Class THtml
fWrite(Self:nHandle,'<META NAME="'+cTag+'" CONTENT="'+cDescription+'">'+CRLF)
return Self
/////////////////////Method for .CHM html source files support////////////////
/////////////////////Method for .chm html source files support////////////////
METHOD NewChm( cFile ,aMetaContents,cFuncName) CLASS THTML
Local nCount

2
harbour/utils/hbmake/checks.prg
View File

@@ -4,7 +4,7 @@
/*
* Harbour Project source code:
* checks.Prg checks gets for hbmake
* checks.prg checks gets for hbmake
*
* Copyright 2000 Luiz Rafael Culik <culik@sl.conex.net>
* www - http://www.harbour-project.org

2
harbour/utils/hbmake/ft_funcs.prg
View File

@@ -4,7 +4,7 @@
/*
* Harbour Project source code:
* FT_FUNCS.Prg File support Functions For hbdoc
* ft_funcs.prg File support Functions For hbdoc
*
* Copyright 2000 Luiz Rafael Culik <culik@sl.conex.net>
* www - http://www.harbour-project.org

2
harbour/utils/hbmake/hbmake.prg
View File

@@ -3135,7 +3135,7 @@ Endif // Create and compile
// C-sources: .c
IF Len( s_aCFiles ) = Len( s_aObjsC )
Attention("Scanning .C sources...",19)
Attention("Scanning .c sources...",19)
FOR nPos := 1 to Len(s_aCFiles)
cIncl := ScanInclude( s_aCFiles[ nPos ], lScanIncRecursive, cExcludeExts )
// Only add in list if dependencies exist

2
harbour/utils/hbmake/radios.prg
View File

@@ -3,7 +3,7 @@
*/
/*
* Harbour Project source code:
* radios.Prg radios gets for hbmake
* radios.prg radios gets for hbmake
*
* Copyright 2000 Luiz Rafael Culik <culik@sl.conex.net>
* www - http://www.harbour-project.org