32e5e776c5
+ Added to the list of contributors:
Carlos Bacco (carlosbacco gmail.com)
Francesco Perillo (fperillo gmail.com)
Istvan Bisz (istvan.bisz t-online.hu)
Tamas Tevesz (ice extreme.hu)
(I accept recommendation about who else should be added,
it's be a while I updated this list)
* contrib/hbide/ideparseexpr.c
% Using hb_parldef().
283 lines
13 KiB
C
283 lines
13 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Compile help & info related functions
|
|
*
|
|
* Copyright 1999-2010 Viktor Szakats (harbour.01 syenar.hu)
|
|
* www - http://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, const 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 %cfn[:[l|u]|-] set filename casing (l=lower u=upper)",
|
|
"\n %cfd[:[l|u]|-] set directory casing (l=lower u=upper)",
|
|
"\n %cfp[:<char>] set path separator",
|
|
"\n %cfs[-] turn filename space trimming on or off (default)",
|
|
"\n %cg<type> output type generated is <type> (see below)",
|
|
"\n %cgc[<type>] output type: C source (.c) (default)",
|
|
"\n <type>: 0=compact (default) 1=normal 2=verbose",
|
|
"\n 3=generate real C code",
|
|
#ifdef HB_GEN_OBJ32
|
|
"\n %cgw output type: Windows/DOS OBJ32 (.obj)",
|
|
#endif
|
|
"\n %cgh output type: Harbour Portable Object (.hrb)",
|
|
"\n %cgd[.<destext>] generate dependencies list into (.d) file",
|
|
"\n %cge[<mode>] error output <mode>: 0=Clipper (default)",
|
|
"\n 1=IDE friendly",
|
|
"\n %ci<path> #include file search path",
|
|
"\n %ci[-|+] disable/enable support for INCLUDE envvar",
|
|
"\n %cj[<file>] generate i18n gettext file (.pot)",
|
|
"\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",
|
|
"\n <type>: 0=no implicit starting procedure",
|
|
"\n 1=no starting procedure at all",
|
|
"\n 2=add starting procedure if necessary",
|
|
"\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 %cq2 disable all output messages",
|
|
"\n %cr:<max> set maximum number of preprocessor iterations",
|
|
/* TODO: "\n %cr[<lib>] request linker to search <lib> (or none)", */
|
|
"\n %cs[m] syntax check only [minimal for dependencies list]",
|
|
/* TODO: "\n %ct<path> path for temp file creation", */
|
|
"\n %cu[<file>] use command def set in <file> (or none)",
|
|
"\n %cu+<file> add command def set from <file>",
|
|
"\n %cundef:<id> #undef <id>",
|
|
"\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;
|
|
|
|
hb_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++ )
|
|
{
|
|
hb_snprintf( buffer, sizeof( buffer ),
|
|
szOptions[ iLine ], HB_OS_OPT_DELIM_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",
|
|
"\n o[-] allow operator optimizations",
|
|
"\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"
|
|
};
|
|
static const int flags[] =
|
|
{
|
|
0,
|
|
HB_COMPFLAG_HARBOUR,
|
|
HB_COMPFLAG_EXTOPT,
|
|
HB_COMPFLAG_HB_INLINE,
|
|
HB_COMPFLAG_RT_MACRO,
|
|
HB_COMPFLAG_ARRSTR,
|
|
HB_COMPFLAG_XBASE,
|
|
~HB_COMPFLAG_OPTJUMP,
|
|
~HB_COMPFLAG_MACROTEXT,
|
|
};
|
|
int iLine;
|
|
|
|
hb_compOutStd( HB_COMP_PARAM,
|
|
"\nCompatibility flags: -k[options]\n" );
|
|
|
|
for( iLine = 0; iLine < ( int ) ( sizeof( szOptions ) / sizeof( char * ) ); iLine++ )
|
|
{
|
|
hb_compOutStd( HB_COMP_PARAM, szOptions[ iLine ] );
|
|
if( iLine < ( int ) ( sizeof( flags ) / sizeof( int ) ) &&
|
|
( flags[ iLine ] < 0 ? HB_COMP_ISSUPPORTED( ~flags[ iLine ] ) == 0 :
|
|
HB_COMP_ISSUPPORTED( flags[ iLine ] ) != 0 ) )
|
|
hb_compOutStd( HB_COMP_PARAM, " (default)" );
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Prints credits
|
|
*/
|
|
void hb_compPrintCredits( HB_COMP_DECL )
|
|
{
|
|
hb_compOutStd( HB_COMP_PARAM,
|
|
"\n"
|
|
"Credits: The Harbour Team at harbour-project.org\n"
|
|
" (replace space with @ in e-mail addresses)\n"
|
|
"\n"
|
|
"Alejandro de Garate (alex_degarate hotmail.com)\n"
|
|
"Alex Shashkov (shashkov ostu.ru)\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"
|
|
"April White (april users.sourceforge.net)\n"
|
|
"Bil Simser (bsimser home.com)\n"
|
|
"Bill Robertson (arcadia2 sbcglobal.net)\n"
|
|
"Brian Hays (bhays abacuslaw.com)\n"
|
|
"Bruno Cantero (bruno issnet.net)\n"
|
|
"Carlos Bacco (carlosbacco gmail.com)\n"
|
|
"Chen Kedem (niki synel.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"
|
|
"Fernando Mancera (fmancera viaopen.com)\n"
|
|
"Francesco Perillo (fperillo gmail.com)\n"
|
|
"Francesco Saverio Giudice (info fsgiudice.com)\n"
|
|
"Giancarlo Niccolai (gc niccolai.ws)\n"
|
|
"Gonzalo A. Diethelm (gonzalo.diethelm iname.com)\n"
|
|
"Gustavo Junior Alves (alves coslinux.com.br)\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"
|
|
"Ilias Lazaridis (ilias lazaridis.com)\n"
|
|
"Istvan Bisz (istvan.bisz t-online.hu)\n"
|
|
"Jacek Kubica (kubica wssk.wroc.pl)\n"
|
|
"Janica Lubos (janica fornax.elf.stuba.sk)\n"
|
|
"Jean-Francois Lefebvre (mafact) (jfl mafact.com)\n"
|
|
"Jon Berg (jmberg pnh10.med.navy.mil)\n"
|
|
"Jorge A. Giraldo (jorgeagiraldo emtelsa.multi.net.co)\n"
|
|
"Jose Lalin (dezac corevia.com)\n"
|
|
"Kwon, Oh-Chul (ohchul fivetech.net)\n"
|
|
"Leslee Griffith (les.griffith vantagesystems.ca)\n"
|
|
"Lorenzo Fiorini (lorenzo.fiorini gmail.com)\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"
|
|
"Mark W. Schumann (catfood underflap.com)\n"
|
|
"Massimo Belgrano (mbelgrano deltain.it)\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"
|
|
"Mitja Podgornik (Yamamoto rocketmail.com)\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"
|
|
"Pritpal Bedi (pritpal vouchcac.com)\n"
|
|
"Przemyslaw Czerpak (druzus priv.onet.pl)\n"
|
|
"Rab Thomson (rthomson synstar.com)\n"
|
|
"Randy Portnoff (randy palmasdev.com)\n"
|
|
"Richard Alexandre Cuylen (racuylen altern.org)\n"
|
|
"Robert Arseniuk (roberta jmpolska.com\n"
|
|
"Ron Pinkas (ron profit-master.com)\n"
|
|
"Ross Presser (ross_presser imtek.com)\n"
|
|
"Ryszard Glab (rglab imid.med.pl)\n"
|
|
"Tamas Tevesz (ice extreme.hu)\n"
|
|
"Teo Fonrouge (teo windtelsoft.dot.com)\n"
|
|
"Tim Stone (timstone mstrlink.com)\n"
|
|
"Tomaz Zupan (tomaz.zupan orpo.si)\n"
|
|
"Vailton Renato (vailtom gmail.com)\n"
|
|
"Viktor Szakats (harbour.01 syenar.hu)\n"
|
|
"Vladimir Kazimirchik (v_kazimirchik yahoo.com)\n"
|
|
"Walter Negro (anegro overnet.com.ar)\n"
|
|
"Xavi (jarabal gmail.com)\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 (c) 1999-2010, http://harbour-project.org/\n" );
|
|
hb_xfree( szVer );
|
|
}
|