b5d010fbeb
* harbour/source/rtl/errorapi.c
+ added protection against possible GPF when some assign methods
were called without parameters
* harbour/source/rdd/workarea.c
* initialize uiFalgs also when DBS_FLAGS is not set
* harbour/contrib/bmdbfcdx/bmdbfcdx1.c
* fixed hb_cdxSkipFilter() declaration - it should be 'static' function
* harbour/source/pp/ppcore.c
* harbour/source/compiler/ppcomp.c
+ added support for changing all -k? switches by #pragma, f.e.;
#pragma -ks+
#pragma -kM-
#pragma -kx1
#pragma -kJ0
* harbour/source/compiler/hbusage.c
* changed -ks description
* harbour/include/hbexpra.c
* harbour/include/hbexprb.c
* do not generate error message for negative indexes and
[] operators are used for simple types when -ks option
is used
* harbour/include/hbvmpub.h
* harbour/include/hbapi.h
* harbour/source/vm/hvm.c
* harbour/source/vm/extend.c
* harbour/source/vm/itemapi.c
* harbour/source/vm/memvars.c
+ added HB_IT_DEFAULT flags - it allows to check if item was changed
* harbour/source/vm/memvars.c
* harbour/include/hbvm.h
! fixed HB_IT_MEMOFLAG updating to be Clipper compatible. Here we are
not Clipper compatible in one place: in clodeblock local parameters
with memo values are marked as MEMO but if you leave function where
codeblock were created then Clipper during detaching removes MEMO
flag. In Harbour memo flag is kept.
* harbour/include/hbvm.h
* harbour/source/vm/classes.c
* harbour/source/vm/hvm.c
% improved speed of extended references used for SETGET methods
and overloaded [] operators
* harbour/include/hbapi.h
* harbour/include/hbsetup.ch
* harbour/source/compiler/hbcomp.c
* harbour/source/vm/hvm.c
* harbour/source/vm/macro.c
* harbour/source/vm/cmdarg.c
* removed HB_COMPAT_XHB flags - only one HB_COMPAT_XHB still exist
in HVM in hashes.c - it will be removed soon.
* harbour/source/common/hbverdsp.c
* removed information about xHarbour compatibility mode - it's not
longer used. We are emulating xHarbour behavior using external
XHB library and standard compiler/HVM features
* harbour/contrib/xhb/xhb.ch
* harbour/contrib/xhb/xhbfunc.c
* harbour/source/vm/arrayshb.c
* moved XHB_AINS(), XHB_ADEL() from XHB lib to HVM as HB_AINS(), HB_ADEL()
* harbour/contrib/xhb/xhb.ch
+ added #pragma -ks+
+ added transaltion for hb_enumindex( <enumvar> )
+ harbour/contrib/xhb/xhbenum.c
+ added emulation for HB_EUMMINDEX()
* harbour/contrib/xhb/xhbfunc.c
* do not add INET*() function wrappers for DOS builds or when
HB_NO_DEFAULT_INET macro is set
* harbour/contrib/xhb/xhbmsgs.c
* added comment
* harbour/contrib/Makefile
+ added TIP and XHB
* harbour/make_rpm.sh
* harbour/harbour.spec
* removed HB_COMPAT_XHB, --with tip, --with xhb
they are not longer necessary
227 lines
10 KiB
C
227 lines
10 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Compile help & info related functions
|
|
*
|
|
* Copyright 1999-2001 Viktor Szakats <viktor.szakats@syenar.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, or (at your option)
|
|
* any later version.
|
|
*
|
|
* 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 software; see the file COPYING. If not, write to
|
|
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
|
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries 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 Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
*/
|
|
|
|
#include "hbcomp.h"
|
|
|
|
/*
|
|
* Prints available options
|
|
*/
|
|
void hb_compPrintUsage( HB_COMP_DECL, char * szSelf )
|
|
{
|
|
static const char * szOptions [] =
|
|
{
|
|
"\nOptions: %ca automatic memvar declaration",
|
|
"\n %cb debug info",
|
|
"\n %cbuild display detailed version info",
|
|
"\n %ccredits display credits",
|
|
"\n %cd<id>[=<val>] #define <id>",
|
|
"\n %ces[<level>] set exit severity",
|
|
"\n %cg<type> output type generated is <type> (see below)",
|
|
"\n %cgc[<type>] output type: C source (.c) (default)",
|
|
"\n <type>: 0=compact 1=normal 2=verbose (default)",
|
|
"\n 3=generate real C code",
|
|
"\n %cgo output type: Platform dependant object module",
|
|
"\n %cgw output type: Windows/DOS OBJ32 (.obj)",
|
|
"\n %cgh output type: Harbour Portable Object (.hrb)",
|
|
"\n %cgj output type: Java source (.java)",
|
|
"\n %cgi output type: .NET platform (.il)",
|
|
"\n %ci<path> #include file search path",
|
|
"\n %ck compilation mode (type -k? for more data)",
|
|
"\n %cl suppress line number information",
|
|
"\n %cm compile module only",
|
|
"\n %cn[<type>] no implicit starting procedure (default)",
|
|
"\n <type>: 0=no implicit starting procedure",
|
|
"\n 1=no starting procedure at all",
|
|
"\n %co<path> object file drive and/or path",
|
|
"\n %cp[<path>] generate pre-processed output (.ppo) file",
|
|
"\n %cp+ generate pre-processor trace (.ppt) file",
|
|
"\n %cq quiet",
|
|
"\n %cq0 quiet and don't display program header",
|
|
"\n %cr=<max> set maximum number of preprocessor iterations",
|
|
/* TODO: "\n %cr[<lib>] request linker to search <lib> (or none)", */
|
|
"\n %cs syntax check only",
|
|
/* TODO: "\n %ct<path> path for temp file creation", */
|
|
"\n %cu[<file>] use command def set in <file> (or none)",
|
|
"\n %cv variables are assumed M->",
|
|
"\n %cw[<level>] set warning level number (0..3, default 1)",
|
|
"\n %cx[<prefix>] set symbol init function name prefix (for .c only)",
|
|
#ifdef YYDEBUG
|
|
"\n %cy trace lex & yacc activity",
|
|
#endif
|
|
"\n %cz suppress shortcutting (.and. & .or.)",
|
|
"\n @<file> compile list of modules in <file>",
|
|
"\n"
|
|
};
|
|
char buffer[ 256 ];
|
|
int iLine;
|
|
|
|
snprintf( buffer, sizeof( buffer ),
|
|
"\nSyntax: %s <file[s][.prg]|@file> [options]\n", szSelf );
|
|
hb_compOutStd( HB_COMP_PARAM, buffer );
|
|
|
|
for( iLine = 0; iLine < ( int ) ( sizeof( szOptions ) / sizeof( char * ) ); iLine++ )
|
|
{
|
|
snprintf( buffer, sizeof( buffer ),
|
|
szOptions[ iLine ], OS_OPT_DELIMITER_LIST[ 0 ] );
|
|
hb_compOutStd( HB_COMP_PARAM, buffer );
|
|
}
|
|
}
|
|
|
|
/*
|
|
* List of compatibility/features modes
|
|
*/
|
|
void hb_compPrintModes( HB_COMP_DECL )
|
|
{
|
|
static const char * szOptions [] =
|
|
{
|
|
"\nOptions: c clear all flags (strict Clipper mode)",
|
|
"\n h Harbour mode (default)",
|
|
"\n i enable support for HB_INLINE",
|
|
"\n r runtime settings enabled",
|
|
"\n s allow indexed assignment on all types",
|
|
"\n x extended xbase mode",
|
|
"\n J turn off jump optimization in pcode",
|
|
"\n M turn off macrotext substitution",
|
|
"\n ? this info",
|
|
"\n"
|
|
};
|
|
int iLine;
|
|
|
|
hb_compOutStd( HB_COMP_PARAM,
|
|
"\nCompatibility flags (lowercase/uppercase significant): -k[options]\n" );
|
|
|
|
for( iLine = 0; iLine < ( int ) ( sizeof( szOptions ) / sizeof( char * ) ); iLine++ )
|
|
hb_compOutStd( HB_COMP_PARAM, szOptions[ iLine ] );
|
|
}
|
|
|
|
/*
|
|
* Prints credits
|
|
*/
|
|
void hb_compPrintCredits( HB_COMP_DECL )
|
|
{
|
|
hb_compOutStd( HB_COMP_PARAM,
|
|
"\n"
|
|
"Credits: The Harbour Team at www.harbour-project.org\n"
|
|
" (replace space with @ in e-mail addresses)\n"
|
|
"\n"
|
|
"April White <awhite mail.rosecom.ca>\n"
|
|
"Alejandro de Garate <alex_degarate hotmail.com>\n"
|
|
"Alexander S. Kresin <alex belacy.belgorod.su>\n"
|
|
"Andi Jahja <xharbour cbn.net.id>\n"
|
|
"Antonio Carlos Pantaglione <toninho fwi.com.br>\n"
|
|
"Antonio Linares <alinares fivetechsoft.com>\n"
|
|
"Bil Simser <bsimser home.com>\n"
|
|
"Brian Hays <bhays abacuslaw.com>\n"
|
|
"Bruno Cantero <bruno issnet.net>\n"
|
|
"Chen Kedem <niki actcom.co.il>\n"
|
|
"Dave Pearson <davep davep.org>\n"
|
|
"David Arturo Macias Corona <dmacias mail.udg.mx>\n"
|
|
"David G. Holm <dholm jsd-llc.com>\n"
|
|
"Davor Siklic <siki msoft.cz>\n"
|
|
"Dmitry V. Korzhov <dk april26.spb.ru>\n"
|
|
"Eddie Runia <eddie runia.com>\n"
|
|
"Enrico Maria Giordano <e.m.giordano emagsoftware.it>\n"
|
|
"Felipe G. Coury <fcoury creation.com.br>\n"
|
|
"Francesco Saverio Giudice <info fsgiudice.com>\n"
|
|
"Giancarlo Niccolai <gc niccolai.ws>\n"
|
|
"Gonzalo A. Diethelm <gonzalo.diethelm iname.com>\n"
|
|
"Hannes Ziegler <hz knowleXbase.com>\n"
|
|
"Horacio D. Roldan Kasimatis <harbour_ar yahoo.com.ar>\n"
|
|
"Ignacio Ortiz de Zuniga <ignacio fivetech.com>\n"
|
|
"Janica Lubos <janica fornax.elf.stuba.sk>\n"
|
|
"Jean-Francois Lefebvre (mafact) <jfl mafact.com>\n"
|
|
"Jose Lalin <dezac corevia.com>\n"
|
|
"Leslee Griffith <les.griffith vantagesystems.ca>\n"
|
|
"Lorenzo Fiorini <lorenzo_fiorini teamwork.it>\n"
|
|
"Luis Krause Mantilla <lkrausem shaw.ca>\n"
|
|
"Luiz Rafael Culik <culik sl.conex.net>\n"
|
|
"Manuel Ruiz <mrt joca.es>\n"
|
|
"Marek Paliwoda <paliwoda inetia.pl>\n"
|
|
"Martin Vogel <vogel inttec.de>\n"
|
|
"Matteo Baccan <baccan isanet.it>\n"
|
|
"Matthew Hamilton <mhamilton bunge.com.au>\n"
|
|
"Mauricio Abre <maurifull datafull.com>\n"
|
|
"Maurilio Longo <maurilio.longo libero.it>\n"
|
|
"Miguel Angel Marchuet Frutos <miguelangel marchuet.net>\n"
|
|
"Mindaugas Kavaliauskas <dbtopas dbtopas.lt>\n"
|
|
"Nicolas del Pozo <niko geroa.com>\n"
|
|
"Patrick Mast <harbour winfakt.com>\n"
|
|
"Paul Tucker <ptucker sympatico.ca>\n"
|
|
"Pavel Tsarenko <tpe2 mail.ru>\n"
|
|
"Peter Rees <peter rees.co.nz>\n"
|
|
"Peter Townsend <cephas tpgi.com.au>\n"
|
|
"Phil Barnett <philb iag.net>\n"
|
|
"Phil Krylov <phil newstar.rinet.ru>\n"
|
|
"Przemyslaw Czerpak <druzus priv.onet.pl>\n"
|
|
"Ron Pinkas <ron profit-master.com>\n"
|
|
"Ryszard Glab <rglab imid.med.pl>\n"
|
|
"Tim Stone <timstone mstrlink.com>\n"
|
|
"Toma¾ Zupan <tomaz.zupan orpo.si>\n"
|
|
"Viktor Szakats <harbour.01 syenar.hu>\n"
|
|
"Vladimir Kazimirchik <v_kazimirchik yahoo.com>\n"
|
|
"Walter Negro <anegro overnet.com.ar>\n"
|
|
);
|
|
}
|
|
|
|
/*
|
|
* Prints logo
|
|
*/
|
|
void hb_compPrintLogo( HB_COMP_DECL )
|
|
{
|
|
char * szVer = hb_verHarbour();
|
|
|
|
hb_compOutStd( HB_COMP_PARAM, szVer );
|
|
hb_compOutStd( HB_COMP_PARAM,
|
|
"\nCopyright 1999-2007, http://www.harbour-project.org/\n" );
|
|
hb_xfree( szVer );
|
|
}
|