From eee08cdcb5b1dbc3f86157ec3c8db6f52207361c Mon Sep 17 00:00:00 2001 From: Luiz Rafael Culik Date: Sat, 16 Dec 2000 00:14:47 +0000 Subject: [PATCH] See changelog 2000-12-15 22:10 GMT -3 --- harbour/ChangeLog | 13 +++++ harbour/utils/hbmake/checks.prg | 8 +-- harbour/utils/hbmake/fclass1.prg | 2 +- harbour/utils/hbmake/ffile1.prg | 2 +- harbour/utils/hbmake/ft_funcs.prg | 2 +- harbour/utils/hbmake/hbdocdef.ch | 82 +++++++++++++++++++++++++++++++ harbour/utils/hbmake/prb_stak.prg | 2 +- harbour/utils/hbmake/radios.prg | 8 +-- 8 files changed, 107 insertions(+), 12 deletions(-) create mode 100644 harbour/utils/hbmake/hbdocdef.ch diff --git a/harbour/ChangeLog b/harbour/ChangeLog index d8d63aea16..63fcdfcd16 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,16 @@ +2000-12-15 22:10 GMT -3 Luiz Rafael Culik +*utils/hbmake/radios.prg + utils/hbmake/checks.prg + utils/hbmake/pickarry.prg + utils/hbmake/pickfile.prg + utils/hbmake/prb_stak.prg + utils/hbmake/fclass1.prg + utils/hbmake/ft_funcs.prg + utils/hbmake/ffile1.prg + *lower case all include files names to be linux compatible + +utils/hbmake/hbdocdef.ch + *include file need by the File class engine + 2000-12-15 21:40 GMT -3 Luiz Rafael Culik *utils/hbmake/hbmake.prg diff --git a/harbour/utils/hbmake/checks.prg b/harbour/utils/hbmake/checks.prg index c0942423e0..16c58b0210 100644 --- a/harbour/utils/hbmake/checks.prg +++ b/harbour/utils/hbmake/checks.prg @@ -34,10 +34,10 @@ */ -#include "Getexit.ch" -#include "InKey.ch" -#include "Checks.ch" -#include "Checkdef.ch" +#include "getexit.ch" +#include "inkey.ch" +#include "checks.ch" +#include "checkdef.ch" FUNCTION CheckGetNew(bVar, cVar, cStr) diff --git a/harbour/utils/hbmake/fclass1.prg b/harbour/utils/hbmake/fclass1.prg index f3b24f0bc3..2391a6819d 100644 --- a/harbour/utils/hbmake/fclass1.prg +++ b/harbour/utils/hbmake/fclass1.prg @@ -35,7 +35,7 @@ #include "hbclass.ch" #include 'common.ch' -#include '..\hbdoc\hbdocdef.ch' +#include 'hbdocdef.ch' *+北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北 *+ diff --git a/harbour/utils/hbmake/ffile1.prg b/harbour/utils/hbmake/ffile1.prg index e35c9ada01..23eefd3fcb 100644 --- a/harbour/utils/hbmake/ffile1.prg +++ b/harbour/utils/hbmake/ffile1.prg @@ -35,7 +35,7 @@ #include "hbclass.ch" #include 'common.ch' -#include '..\hbdoc\hbdocdef.ch' +#include 'hbdocdef.ch' *+北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北 *+ diff --git a/harbour/utils/hbmake/ft_funcs.prg b/harbour/utils/hbmake/ft_funcs.prg index 73ddb5213d..a8b05289b2 100644 --- a/harbour/utils/hbmake/ft_funcs.prg +++ b/harbour/utils/hbmake/ft_funcs.prg @@ -35,7 +35,7 @@ #include "directry.ch" #include "fileio.ch" #include "inkey.ch" -#include '..\hbdoc\hbdocdef.ch' +#include 'hbdocdef.ch' #include 'common.ch' #define xReadBuffer 4096 diff --git a/harbour/utils/hbmake/hbdocdef.ch b/harbour/utils/hbmake/hbdocdef.ch new file mode 100644 index 0000000000..806a0113c6 --- /dev/null +++ b/harbour/utils/hbmake/hbdocdef.ch @@ -0,0 +1,82 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Header file common definition of HBDOc + * + * Copyright 2000 Luiz Rafael Culik + * 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/). + * + */ +#ifndef _HBDOCDEF_CH_ +#define _HBDOCDEF_CH_ + +#define CRLF HB_OSNewLine() +// The delimiter +#define DELIM "$" // keyword delimiter + +#xtranslate UPPERLOWER() => (UPPER(SUBSTR(,1,1))+LOWER(SUBSTR(,2))) +#define D_NORMAL 1 +#define D_ARG 2 +#define D_SYNTAX 3 +#define D_IGNORE 4 +#define D_SEEALSO 5 +#define D_INCLUDE 6 +#define D_ONELINE 7 +#define D_STATUS 8 +#define D_DATALINK 10 +#define D_METHODLINK 11 +#define D_EXAMPLE 12 +#define D_DESCRIPTION 13 +#define D_RETURN 14 +#define D_COMPLIANCE 15 +#define pDOS_HANDLE 1 +#define pDOS_FILE 2 +#define pDOS_PATH 3 +#define pARRAY "A" +#define pBLOCK "B" +#define pCHARACTER "C" +#define pDATE "D" +#define pLOGICAL "L" +#define pMEMO "M" +#define pNUMERIC "N" +#define pOBJECT "O" +#define pTRUE .t. +#define pFALSE .f. +#define pCRLF HB_OSNEWLINE() + +#xtranslate DOSFILENAME() => substr( , rat("\",)+1 ) + + +#xcommand IF IS => if valtype() = +#xcommand IF IS NOT => if valtype() != +#xcommand IF IS IN => if !(len( ) \< ) +#xcommand IF IS NOT IN => if len( ) \< +#xtranslate ( IS ) => ( valtype() = ) +#xtranslate ( IS NOT ) => ( valtype() != ) +#define pBUFFER_LENGTH 4096 +#endif diff --git a/harbour/utils/hbmake/prb_stak.prg b/harbour/utils/hbmake/prb_stak.prg index 09c8b734f3..15a17934ac 100644 --- a/harbour/utils/hbmake/prb_stak.prg +++ b/harbour/utils/hbmake/prb_stak.prg @@ -42,7 +42,7 @@ *+ *+膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊膊 -#include "COMMON.CH" +#include "common.ch" static SCR := {} static CNT := 0 diff --git a/harbour/utils/hbmake/radios.prg b/harbour/utils/hbmake/radios.prg index dd75c4ff03..a2ae88687b 100644 --- a/harbour/utils/hbmake/radios.prg +++ b/harbour/utils/hbmake/radios.prg @@ -34,11 +34,11 @@ * */ -#include "Getexit.ch" -#include "InKey.ch" -#include "Radios.ch" +#include "getexit.ch" +#include "inkey.ch" +#include "radios.ch" -#include "Radiodef.ch" +#include "radiodef.ch" FUNCTION RadioGets(bVar, cVar, aChoices, aGetList)