/* * $Id$ */ /* * Harbour Project source code: * Harbour Make (alias hbmk/hbmk2) * * Copyright 1999-2012 Viktor Szakats (harbour syenar.net) * 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 of the License, 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 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/). * * License extensions: * - This source code must be kept and distributed as part * of the Harbour package and/or the placement of the tool sources * and files must reflect that it is part of Harbour Project. * - Copyright information must always be presented by * projects including this tool or help text. * - Modified versions of the tool must clearly state this * fact on the copyright screen. * - Source code modifications shall always be made available * along with binaries. * - Help text and documentation is licensed under * Creative Commons Attribution-ShareAlike 3.0: * http://creativecommons.org/licenses/by-sa/3.0/ * */ /* * The following parts are Copyright of the individual authors. * www - http://harbour-project.org * * Copyright 2003-2007 Przemyslaw Czerpak * gcc and *nix configuration elements. * bash script with similar purpose for gcc family. * entry point override method and detection code for gcc. * rtlink/blinker link script parsers. * POTMerge(), LoadPOTFilesAsHash(), GenHBL() and AutoTrans(). * (with local modifications by main author) * optimized header time scan algorithm * runner core logic * * See COPYING for licensing terms. * */ /* Optimizations */ #pragma -km+ #pragma -ko+ /* Program Library HOWTO: http://www.linux.org/docs/ldp/howto/Program-Library-HOWTO/index.html Man page HOWTO: http://www.schweikhardt.net/man_page_howto.html Groff manual: http://www.gnu.org/software/groff/manual/html_node/index.html http://www.gnu.org/software/groff/manual/groff.pdf Troff manual: http://cm.bell-labs.com/sys/doc/troff.pdf */ #include "directry.ch" #include "error.ch" #include "fileio.ch" #include "set.ch" /* needed for -u */ #include "simpleio.ch" /* Don't delete this, it's useful for development. */ #include "hbgtinfo.ch" #include "hbhrb.ch" #include "hbver.ch" /* NOTE: Keep this code clean from any kind of contribs and Harbour level 3rd party library/tool information. This component shall only contain hard-wired knowledge on Harbour _core_ (official interfaces preferred), C compilers and OS details on the smallest possible level. Instead, 3rd party Harbour packages are recommended to maintain and provide .hbc files themselves, as part of their standard distribution packages. You can find a few such .hbc examples in the 'examples' directory. For Harbour contribs, the recommended method is to supply and maintain .hbc files in their respective directories, usually under tests (or utils, examples). As of this writing, most of them has one created. Thank you. [vszakats] */ /* TODOs: - Support debug/release modes. Some default setting can be set accordingly, and user can use it to further tweak settings. - Further clean hbmk context var usage (global scope, project scope, adding rest of variables). - Add a way to fallback to stop if required headers couldn't be found. This needs a way to spec what key headers to look for. - Clean up compiler autodetection and add those few feature only found in GNU Make / global.mk, like *nix native autodetection, autodetection of watcom cross-build setups, poccarm/pocc64 setups, clang, etc. - Consider renaming the tool to simply 'hb'. - Turn off lib grouping by default - Avoid adding certain options and input files twice - Next gen compiler autodetection: 1. Gather supported compilers by Harbour installation (look for lib//*[/] subdirs) Show error if nothing is found 2. Look if any supported compilers are found embedded, in PATH or on HB_CCPATH for target . Show error if nothing is found 3. If HB_COMPILER is set to one of them, select it. (TODO: handle multiple installations of the same compiler. F.e. embedded mingw and one in PATH, or two versions of MSVC) 4. If HB_COMPILER is set, but not to one of them, show warning and use the highest one on the priority list. 5. If HB_COMPILER is not set, use the highest one on the priority list. NOTES: - Priority list: HB_CCPATH, PATH, embedded. - Priority list: mingw, msvc, bcc, watcom, pocc, xcc - Compilers of native CPU target have higher priority. (extra) On x64 Windows: msvc64, msvc, msvcia64, mingw64, mingw, ... On x86 Windows: msvc, msvc64, msvcia64, mingw, mingw64, ... On IA64 Windows: msvcia64, msvc, msvc64, mingw, mingw64, ... */ #ifndef _HBMK_EMBEDDED_ #include "hbextcdp.ch" #include "hbextlng.ch" /* For -u support we use 'WHILE' instead of 'DO WHILE', 'EXTERNAL' instead of 'REQUEST' 'END' instead of 'END SEQUENCE' */ ANNOUNCE HB_GTSYS EXTERNAL HB_GT_CGI_DEFAULT /* Include these for -pause support. */ #if defined( __PLATFORM__WINCE ) EXTERNAL HB_GT_WVT #elif defined( __PLATFORM__WINDOWS ) EXTERNAL HB_GT_WIN #elif defined( __PLATFORM__DOS ) EXTERNAL HB_GT_DOS #elif defined( __PLATFORM__OS2 ) EXTERNAL HB_GT_OS2 #elif defined( __PLATFORM__UNIX ) .AND. ! defined( __PLATFORM__VXWORKS ) .AND. ! defined( __PLATFORM__SYMBIAN ) EXTERNAL HB_GT_TRM #endif #endif /* _HBMK_EMBEDDED_ */ EXTERNAL hbmk_KEYW /* needed for -u */ #undef HB_SYMBOL_UNUSED #define HB_SYMBOL_UNUSED( symbol ) ( ( symbol ) ) #define _SELF_NAME_ "hbmk2" #define I_( x ) hb_UTF8ToStr( hb_i18n_gettext( x ) ) #define _TARG_PLAT 1 #define _TARG_COMP 2 #define _TARG_CPU 3 #define _PAR_cParam 1 #define _PAR_cFileName 2 #define _PAR_nLine 3 #define _WARN_DEF 0 /* Don't set any explicit warning level */ #define _WARN_MAX 1 #define _WARN_YES 2 /* Default level in Harbour build */ #define _WARN_LOW 3 /* Low level, used for 3rd party code in Harbour build */ #define _WARN_NO 4 /* Explicitly disable warnings */ #define _COMPR_OFF 0 #define _COMPR_DEF 1 #define _COMPR_MIN 2 #define _COMPR_MAX 3 #define _HEAD_OFF 0 #define _HEAD_FULL 1 #define _HEAD_NATIVE 2 #define _HEAD_DEP 3 #define _COMPDET_bBlock 1 #define _COMPDET_cCOMP 2 #define _COMPDET_cCCPREFIX 3 /* optional */ #define _COMPDET_cCCPOSTFIX 4 /* optional */ #define _COMPDET_cPLAT 5 /* optional */ #define _COMPDETE_bBlock 1 #define _COMPDETE_cPLAT 2 #define _COMPDETE_cCOMP 3 #define _COMPDETE_cCCPREFIX 4 #define _COMPDETE_cCCPATH 5 #define _COMPDETE_bSetup 6 #define _HBMODE_NATIVE 0xFFFFFF #define _HBMODE_HB10 0x010000 #define _HBMODE_HB20 0x020000 #define _HBMODE_XHB -0x010200 #define _HBMODE_RAW_C -1 #define _HBMODE_IS_HB( n ) ( n >= _HBMODE_HB10 ) #define _HBMODE_IS_OLDHB( n ) ( n >= _HBMODE_HB10 .AND. n < _HBMODE_NATIVE ) #define _HBMODE_IS_XHB( n ) ( n <= _HBMODE_XHB ) /* Not implemented yet */ #define _CONF_RELEASE 0 /* No debug */ #define _CONF_DEBUG 1 /* Harbour level debug */ #define _CONF_FULLDEBUG 2 /* Harbour + C level debug */ #define _ESC_NONE 0 #define _ESC_DBLQUOTE 1 #define _ESC_SGLQUOTE_WATCOM 2 #define _ESC_NIX 3 #define _ESC_BCKSLASH 4 #define _FNF_BCKSLASH 0 #define _FNF_FWDSLASH 1 #define _FNF_FWDSLASHCYGWIN 2 #define _FNF_FWDSLASHMSYS 3 #define _MACRO_NO_PREFIX "" #define _MACRO_NORM_PREFIX "$" #define _MACRO_LATE_PREFIX "%" #define _MACRO_PREFIX_ALL ( _MACRO_NORM_PREFIX + _MACRO_LATE_PREFIX ) #define _MACRO_OPEN "{" #define _MACRO_CLOSE "}" #define _CMDSUBST_OPEN "`" #define _CMDSUBST_CLOSE _CMDSUBST_OPEN #define _LNG_MARKER ( _MACRO_LATE_PREFIX + _MACRO_OPEN + "hb_lng" + _MACRO_CLOSE ) #define _HBMK_ENV_NAME "HBMK_OPTIONS" #define _HBMK_AUTOHBC_NAME "hbmk.hbc" #define _HBMK_AUTOHBM_NAME "hbmk.hbm" #define _HBMK_WITH_TPL "HBMK_WITH_%1$s" #define _HBMK_HAS_TPL "HBMK_HAS_%1$s" #define _HBMK_HAS_TPL_LOCAL "HBMK_HAS_%1$s_LOCAL" #define _HBMK_DIR_TPL "HBMK_DIR_%1$s" #define _HBMK_PLUGIN "__HBSCRIPT__HBMK_PLUGIN" #define _HBMK_SHELL "__HBSCRIPT__HBSHELL" #define _HBMK_IMPLIB_EXE_POST "_exe" #define _HBMK_IMPLIB_DLL_POST "_dll" #define _HBMK_TARGENAME_ADHOC ".adhoc." #define _HBMK_REGEX_INCLUDE '(^|;)[[:blank:]]*#[[:blank:]]*(incl|inclu|includ|include|import)[[:blank:]]*(\".+?\"|<.+?>'+"|['`].+?'"+')' #define _HBMK_REGEX_REQUIRE '(^|;)[[:blank:]]*#[[:blank:]]*(require)[[:blank:]]*(\".+?\"'+"|'.+?'"+')' #define _HBMK_NEST_MAX 10 #define _HBMK_HEAD_NEST_MAX 10 #define _VAR_MODE_SET 1 #define _VAR_MODE_APPEND 2 #define _VAR_MODE_INSERT 3 #define _VAR_MODE_DELETE 4 #define _COMPEMBED_BASE_ ( "comp" + hb_ps() ) #if defined( __PLATFORM__DOS ) #define _WORKDIR_BASE_ "~hbmk" #else #define _WORKDIR_BASE_ ".hbmk" #endif #define _WORKDIR_DEF_ ( _WORKDIR_BASE_ + hb_ps() + hbmk[ _HBMK_cPLAT ] + hb_ps() + hbmk[ _HBMK_cCOMP ] ) #define _BCC_BIN_DETECT() FindInPath( "bcc32.exe" ) #define HB_ISALPHA( c ) ( hb_asciiUpper( c ) >= "A" .AND. hb_asciiUpper( c ) <= "Z" ) #define HB_ISFIRSTIDCHAR( c ) ( HB_ISALPHA( c ) .OR. ( c ) == '_' ) #define HB_ISNEXTIDCHAR( c ) ( HB_ISFIRSTIDCHAR(c) .OR. hb_asciiIsDigit( c ) ) #define LEFTEQUAL( l, r ) ( Left( l, Len( r ) ) == r ) /* Logic (hack) to automatically add some libs to their right place in the liblist. In case of 'unicows' lib, this should be after all app lib and before any Windows system libs. [vszakats] */ #define _IS_AUTOLIBSYSPRE( c ) ( hbmk[ _HBMK_cPLAT ] == "win" .AND. Lower( hb_FNameName( c ) ) == "unicows" ) #define _CHR_EOL Chr( 10 ) #define _OUT_EOL Chr( 10 ) #define _HBMK_IMPLIB_NOTFOUND ( -1 ) #define _HBMK_IMPLIB_OK 0 #define _HBMK_IMPLIB_FAILED 1 #define _CCOMP_PASS_C 1 #define _CCOMP_PASS_CPP 2 #define _HBMK_lQuiet 1 #define _HBMK_lInfo 2 #define _HBMK_nMaxCol 3 #define _HBMK_cPLAT 4 #define _HBMK_cCOMP 5 #define _HBMK_cCPU 6 #define _HBMK_cBUILD 7 #define _HBMK_cGTDEFAULT 8 #define _HBMK_aLIBCOREGT 9 #define _HBMK_aLIBCOREGTDEF 10 #define _HBMK_cGT 11 #define _HBMK_cHB_INSTALL_BIN 12 #define _HBMK_cHB_INSTALL_LIB 13 #define _HBMK_cHB_INSTALL_LI3 14 #define _HBMK_cHB_INSTALL_DYN 15 #define _HBMK_cHB_INSTALL_INC 16 #define _HBMK_cHB_INSTALL_ADD 17 #define _HBMK_lGUI 18 #define _HBMK_lMT 19 #define _HBMK_lPIC 20 #define _HBMK_lDEBUG 21 #define _HBMK_nHEAD 22 #define _HBMK_aINCPATH 23 #define _HBMK_lREBUILD 24 #define _HBMK_lCLEAN 25 #define _HBMK_lTRACE 26 #define _HBMK_lDONTEXEC 27 #define _HBMK_nHBMODE 28 #define _HBMK_cUILNG 29 #define _HBMK_aLIBUSER 30 #define _HBMK_aLIBUSERFWK 31 #define _HBMK_aLIBUSERGT 32 #define _HBMK_aLIBUSERSYS 33 #define _HBMK_aLIBUSERSYSPRE 34 #define _HBMK_aLIBFILTEROUT 35 #define _HBMK_aLIBPATH 36 #define _HBMK_aINSTPATH 37 #define _HBMK_aOPTC 38 #define _HBMK_aOPTCUSER 39 #define _HBMK_aOPTCX 40 #define _HBMK_aOPTCPPX 41 #define _HBMK_aOPTPRG 42 #define _HBMK_aOPTRES 43 #define _HBMK_aOPTL 44 #define _HBMK_aOPTLPOST 45 #define _HBMK_aOPTA 46 #define _HBMK_aOPTD 47 #define _HBMK_aOPTDPOST 48 #define _HBMK_aOPTI 49 #define _HBMK_lCPP 50 #define _HBMK_lSHARED 51 #define _HBMK_lSTATICFULL 52 #define _HBMK_lSHAREDDIST 53 #define _HBMK_lNULRDD 54 #define _HBMK_lMAP 55 #define _HBMK_lBEEP 56 #define _HBMK_lSTRIP 57 #define _HBMK_lOPTIM 58 #define _HBMK_nCOMPR 59 #define _HBMK_nWARN 60 #define _HBMK_lRUN 61 #define _HBMK_lINC 62 #define _HBMK_lREBUILDPO 63 #define _HBMK_lMINIPO 64 #define _HBMK_lWINUNI 65 #define _HBMK_nCONF 66 #define _HBMK_lIGNOREERROR 67 #define _HBMK_lIMPLIB 68 #define _HBMK_lHBCPPMM 69 #define _HBMK_hDEP 70 #define _HBMK_lCreateLib 71 #define _HBMK_lCreateDyn 72 #define _HBMK_lCreateImpLib 73 #define _HBMK_lCreatePPO 74 #define _HBMK_lCreateHRB 75 #define _HBMK_lDynVM 76 #define _HBMK_lBLDFLGP 77 #define _HBMK_lBLDFLGC 78 #define _HBMK_lBLDFLGL 79 #define _HBMK_cFIRST 80 #define _HBMK_aPRG 81 #define _HBMK_aC 82 #define _HBMK_aCPP 83 #define _HBMK_aRESSRC 84 #define _HBMK_aRESCMP 85 #define _HBMK_aOBJUSER 86 #define _HBMK_aICON 87 #define _HBMK_cMANIFEST 88 #define _HBMK_aIMPLIBSRC 89 #define _HBMK_aDEF 90 #define _HBMK_aINSTFILE 91 #define _HBMK_hDEPTS 92 #define _HBMK_aREQUEST 93 #define _HBMK_aPO 94 #define _HBMK_cHBL 95 #define _HBMK_cHBLDir 96 #define _HBMK_aLNG 97 #define _HBMK_cPO 98 #define _HBMK_hPLUGINHRB 99 #define _HBMK_hPLUGINVars 100 #define _HBMK_aPLUGINPars 101 #define _HBMK_hPLUGINExt 102 #define _HBMK_lDEBUGTIME 103 #define _HBMK_lDEBUGINC 104 #define _HBMK_lDEBUGSTUB 105 #define _HBMK_lDEBUGI18N 106 #define _HBMK_lDEBUGDEPD 107 #define _HBMK_lDEBUGPARS 108 #define _HBMK_cCCPATH 109 #define _HBMK_cCCPREFIX 110 #define _HBMK_cCCPOSTFIX 111 #define _HBMK_cCCEXT 112 #define _HBMK_cWorkDir 113 #define _HBMK_cWorkDirDynSub 114 #define _HBMK_nCmd_Esc 115 #define _HBMK_nScr_Esc 116 #define _HBMK_nCmd_FNF 117 #define _HBMK_nScr_FNF 118 #define _HBMK_nErrorLevel 119 #define _HBMK_cPROGDIR 120 #define _HBMK_cPROGNAME 121 #define _HBMK_hAUTOHBC 122 /* trigger header => .hbc associations */ #define _HBMK_hAUTOHBCFOUND 123 /* trigger headers found */ #define _HBMK_aDEPTHBC 124 /* .hbc references found */ #define _HBMK_hDEPTSDIR 125 /* Header dirs found for dependencies */ #define _HBMK_lStopAfterInit 126 #define _HBMK_lStopAfterHarbour 127 #define _HBMK_nCOMPVer 128 #define _HBMK_lDEPIMPLIB 129 /* Generate import libs configured in dependecy specification */ #define _HBMK_lInstForce 130 /* Force to install target even if was up to date */ #define _HBMK_lAutoHBM 131 /* Toggles processing of hbmk.hbm file in current directory */ #define _HBMK_lContainer 132 /* Target type: container */ #define _HBMK_lShowLevel 133 /* Show project nesting level in all output lines */ #define _HBMK_hFiles 134 /* Cache for the header parser (common for C and Harbour) */ #define _HBMK_cDynLibPrefix 135 /* Dynamic lib filename prefix */ #define _HBMK_cDynLibExt 136 /* Dynamic lib filename extension */ #define _HBMK_aLINK 137 /* Links to be created and pointing to the target */ #define _HBMK_hDEPTMACRO 138 /* Links to be created and pointing to the target */ #define _HBMK_cC 139 /* C dialect */ #define _HBMK_cCPP 140 /* C++ dialect */ #define _HBMK_aLIB_BASE_WARN 141 #define _HBMK_aArgs 142 #define _HBMK_nArgTarget 143 #define _HBMK_lPause 144 #define _HBMK_nLevel 145 #define _HBMK_cHBX 146 #define _HBMK_aGT 147 #define _HBMK_cCPPRG 148 #define _HBMK_MAX_ 148 #define _HBMK_DEP_CTRL_MARKER ".control." /* must be an invalid path */ #define _HBMKDEP_cName 1 #define _HBMKDEP_aPKG 2 #define _HBMKDEP_aKeyHeader 3 #define _HBMKDEP_cControl 4 #define _HBMKDEP_lOptional 5 #define _HBMKDEP_cINCROOT 6 #define _HBMKDEP_aINCPATH 7 #define _HBMKDEP_aINCPATHLOCAL 8 #define _HBMKDEP_aIMPLIBSRC 9 #define _HBMKDEP_cIMPLIBDST 10 #define _HBMKDEP_cFound 11 #define _HBMKDEP_lFound 12 #define _HBMKDEP_lFoundLOCAL 13 #define _HBMKDEP_cVersion 14 #define _HBMKDEP_lForced 15 #define _HBMKDEP_lDetected 16 #define _HBMKDEP_MAX_ 16 #define _ERRLEV_OK 0 #define _ERRLEV_UNKNPLAT 1 #define _ERRLEV_UNKNCOMP 2 #define _ERRLEV_FAILHBDETECT 3 #define _ERRLEV_STUBCREATE 5 #define _ERRLEV_COMPPRG 6 #define _ERRLEV_RUNRES 6 #define _ERRLEV_COMPC 6 #define _ERRLEV_RUNLINKER 7 #define _ERRLEV_RUNLIB 7 #define _ERRLEV_UNSUPPORTED 8 #define _ERRLEV_WORKDIRCREATE 9 #define _ERRLEV_HELP 19 #define _ERRLEV_MISSDEPT 10 #define _ERRLEV_PLUGINPREALL 20 #define _ERRLEV_DEEPPROJNESTING 30 #define _ERRLEV_STOP 50 #define HBMK_IS_IN( str, list ) ( "|" + str + "|" $ "|" + list + "|" ) #define HBMK_ISPLAT( list ) HBMK_IS_IN( hbmk[ _HBMK_cPLAT ], list ) #define HBMK_ISCOMP( list ) HBMK_IS_IN( hbmk[ _HBMK_cCOMP ], list ) #define PathMakeAbsolute( cPathR, cPathA ) hb_PathJoin( cPathA, cPathR ) /* NOTE: Security token to protect against plugins accessing our internal structures referenced from context variable */ STATIC s_cSecToken := NIL #ifndef _HBMK_EMBEDDED_ /* Request for runner and shell */ EXTERNAL __HB_EXTERN__ /* Request some functions for plugins */ EXTERNAL HBCLASS EXTERNAL __CLSLOCKDEF EXTERNAL __HBDOC_LOADDIR EXTERNAL __HBDOC_TOSOURCE EXTERNAL __HBDOC_SAVEHBD EXTERNAL HB_REGEX EXTERNAL HB_SHA1 EXTERNAL HB_SHA256 EXTERNAL HB_SHA512 EXTERNAL HB_MD5 EXTERNAL HB_CRC32 EXTERNAL HB_BLOWFISHKEY EXTERNAL HB_BLOWFISHENCRYPT EXTERNAL HB_JSONENCODE EXTERNAL HB_JSONDECODE EXTERNAL HB_LIBEXT EXTERNAL HB_HKEYAT EXTERNAL HB_HDELAT EXTERNAL HB_HKEYS EXTERNAL HB_HKEEPORDER EXTERNAL HB_FGETATTR EXTERNAL HB_FSETATTR /* For hbshell */ STATIC s_cDirBase_hbshell STATIC s_cProgName_hbshell STATIC s_hLibExt := { => } #define HB_HISTORY_LEN 500 #define HB_LINE_LEN 256 STATIC s_nRow STATIC s_nCol := 0 STATIC s_aHistory := {} STATIC s_lPreserveHistory := .T. STATIC s_lWasLoad := .F. PROCEDURE _APPMAIN( ... ) LOCAL aArgsProc LOCAL nResult LOCAL tmp, tmp1 LOCAL lPause := hb_gtInfo( HB_GTI_ISGRAPHIC ) LOCAL aArgsTarget LOCAL nTarget LOCAL nTargetTO_DO LOCAL nTargetPos LOCAL lHadTarget /* for temp debug messages */ Set( _SET_DATEFORMAT, "yyyy.mm.dd" ) /* Expand wildcard project specs */ IF ( Right( Lower( hb_FNameName( hb_argv( 0 ) ) ), 5 ) == "hbrun" .OR. ; Left( Lower( hb_FNameName( hb_argv( 0 ) ) ), 5 ) == "hbrun" .OR. ; hb_PValue( 1 ) == "." .OR. ; HBMK_IS_IN( Lower( hb_FNameExt( hb_PValue( 1 ) ) ), ".hb|.hrb|.dbf" ) ) .AND. ; !( ! Empty( hb_PValue( 1 ) ) .AND. ; ( Left( hb_PValue( 1 ), 6 ) == "-hbreg" .OR. ; Left( hb_PValue( 1 ), 8 ) == "-hbunreg" ) ) __hbshell( ... ) RETURN ENDIF aArgsProc := {} FOR EACH tmp IN hb_AParams() DO CASE CASE !( Left( tmp, 1 ) $ "-@" ) .AND. Lower( hb_FNameExt( tmp ) ) == ".hbp" FOR EACH tmp1 IN FN_Expand( tmp, .T. ) AAdd( aArgsProc, tmp1 ) NEXT CASE Empty( hb_FNameExt( tmp ) ) .AND. hb_FileExists( hb_FNameExtSet( tmp, ".hbp" ) ) AAdd( aArgsProc, hb_FNameExtSet( tmp, ".hbp" ) ) CASE Lower( Left( tmp, Len( "-target=" ) ) ) == "-target=" FOR EACH tmp1 IN FN_Expand( SubStr( tmp, Len( "-target=" ) + 1 ), .F. ) AAdd( aArgsProc, "-target=" + tmp1 ) NEXT OTHERWISE AAdd( aArgsProc, tmp ) ENDCASE NEXT /* Emulate -hbcmp, -hbcc, -hblnk switches when certain self names are detected. For compatibility with hbmk script aliases. */ IF ! Empty( aArgsProc ) hb_FNameSplit( hb_argv( 0 ),, @tmp ) tmp := Lower( tmp ) IF Left( tmp, 1 ) == "x" tmp := SubStr( tmp, 2 ) hb_AIns( aArgsProc, 1, "-xhb", .T. ) ELSEIF Right( tmp, 2 ) == "10" hb_AIns( aArgsProc, 1, "-hb10", .T. ) ELSEIF Right( tmp, 2 ) == "20" hb_AIns( aArgsProc, 1, "-hb20", .T. ) ENDIF DO CASE CASE tmp == "harbour" ; hb_AIns( aArgsProc, 1, "-hbraw", .T. ) CASE Right( tmp, 5 ) == "hbcmp" .OR. ; Left( tmp, 5 ) == "hbcmp" .OR. ; tmp == "clipper" ; hb_AIns( aArgsProc, 1, "-hbcmp", .T. ) CASE Right( tmp, 4 ) == "hbcc" .OR. ; Left( tmp, 4 ) == "hbcc" ; hb_AIns( aArgsProc, 1, "-hbcc", .T. ) CASE Right( tmp, 5 ) == "hblnk" .OR. ; Left( tmp, 5 ) == "hblnk" ; hb_AIns( aArgsProc, 1, "-hblnk", .T. ) CASE tmp == "rtlink" .OR. ; tmp == "exospace" .OR. ; tmp == "blinker" ; hb_AIns( aArgsProc, 1, "-rtlink", .T. ) CASE Right( tmp, 5 ) == "hbexe" .OR. ; Left( tmp, 5 ) == "hbexe" ; AAdd( aArgsProc, "-hbexe" ) CASE Right( tmp, 5 ) == "hblib" .OR. ; Left( tmp, 5 ) == "hblib" ; AAdd( aArgsProc, "-hblib" ) CASE Right( tmp, 5 ) == "hbdyn" .OR. ; Left( tmp, 5 ) == "hbdyn" ; AAdd( aArgsProc, "-hbdyn" ) ENDCASE ENDIF /* Handle multitarget command lines */ hb_FSetDevMode( hb_gtInfo( HB_GTI_OUTPUTFD ), FD_TEXT ) hb_FSetDevMode( hb_gtInfo( HB_GTI_ERRORFD ), FD_TEXT ) nTargetTO_DO := 1 WHILE .T. aArgsTarget := {} nTarget := 0 nTargetPos := 0 lHadTarget := .F. FOR EACH tmp IN aArgsProc DO CASE CASE !( Left( tmp, 1 ) $ "-@" ) .AND. ; Lower( hb_FNameExt( tmp ) ) == ".hbp" .AND. ; ! lHadTarget ++nTarget IF nTarget == nTargetTO_DO AAdd( aArgsTarget, tmp ) nTargetPos := Len( aArgsTarget ) ENDIF CASE Lower( Left( tmp, Len( "-target=" ) ) ) == "-target=" ++nTarget IF nTarget == nTargetTO_DO AAdd( aArgsTarget, SubStr( tmp, Len( "-target=" ) + 1 ) ) nTargetPos := Len( aArgsTarget ) ENDIF OTHERWISE IF ! lHadTarget .OR. nTarget == nTargetTO_DO AAdd( aArgsTarget, tmp ) ENDIF ENDCASE NEXT /* Exit if there was no more targets found on the command line */ IF nTarget < nTargetTO_DO .AND. nTargetTO_DO != 1 EXIT ENDIF /* Build one target */ nResult := hbmk( aArgsTarget, nTargetPos, @lPause, 1 ) /* Exit on first failure */ IF nResult != 0 EXIT ENDIF ++nTargetTO_DO ENDDO IF nResult != 0 .AND. lPause OutStd( I_( "Press any key to continue..." ) ) Inkey( 0 ) ENDIF ErrorLevel( nResult ) RETURN #endif /* _HBMK_EMBEDDED_ */ STATIC PROCEDURE hbmk_COMP_Setup( cARCH, cCOMP, cBasePath ) /* TODO: Use HB_CCPREFIX instead of PATH modification, where possible. */ /* NOTE: We have to retain existing PATH as we may need some tools from it, like upx compressor. [vszakats] */ cBasePath := hb_PathNormalize( cBasePath ) DO CASE CASE cARCH == "dos" .AND. cCOMP == "djgpp" hb_SetEnv( "DJGPP", cBasePath + hb_ps() + "djgpp.env" ) hb_SetEnv( "PATH", cBasePath + hb_ps() + "bin" + hb_osPathListSeparator() + hb_GetEnv( "PATH" ) ) CASE cARCH == "win" .AND. cCOMP == "mingw" hb_SetEnv( "PATH", cBasePath + hb_ps() + "bin" + hb_osPathListSeparator() + hb_GetEnv( "PATH" ) ) CASE cARCH == "win" .AND. cCOMP == "pocc" hb_SetEnv( "PATH", cBasePath + hb_ps() + "Bin" + hb_osPathListSeparator() + hb_GetEnv( "PATH" ) ) hb_SetEnv( "INCLUDE", cBasePath + hb_ps() + "Include" + hb_osPathListSeparator() + cBasePath + hb_ps() + "Include" + hb_ps() + "Win" ) hb_SetEnv( "LIB", cBasePath + hb_ps() + "Lib" + hb_osPathListSeparator() + cBasePath + hb_ps() + "Lib" + hb_ps() + "Win" ) CASE cARCH == "win" .AND. cCOMP == "pocc64" hb_SetEnv( "PATH", cBasePath + hb_ps() + "Bin" + hb_osPathListSeparator() + hb_GetEnv( "PATH" ) ) hb_SetEnv( "INCLUDE", cBasePath + hb_ps() + "Include" + hb_osPathListSeparator() + cBasePath + hb_ps() + "Include" + hb_ps() + "Win" ) hb_SetEnv( "LIB", cBasePath + hb_ps() + "Lib" + hb_osPathListSeparator() + cBasePath + hb_ps() + "Lib" + hb_ps() + "Win64" ) CASE cARCH == "wce" .AND. cCOMP == "poccarm" hb_SetEnv( "PATH", cBasePath + hb_ps() + "Bin" + hb_osPathListSeparator() + hb_GetEnv( "PATH" ) ) hb_SetEnv( "INCLUDE", cBasePath + hb_ps() + "Include" + hb_ps() + "WinCE" + hb_osPathListSeparator() + cBasePath + hb_ps() + "Include" ) hb_SetEnv( "LIB", cBasePath + hb_ps() + "Lib" + hb_osPathListSeparator() + cBasePath + hb_ps() + "Lib" + hb_ps() + "WinCE" ) CASE cCOMP == "watcom" hb_SetEnv( "WATCOM", cBasePath ) hb_SetEnv( "EDPATH", cBasePath + hb_ps() + "eddat" ) #if defined( __PLATFORM__WINDOWS ) hb_SetEnv( "PATH", cBasePath + hb_ps() + "binnt" + hb_osPathListSeparator() + cBasePath + hb_ps() + "binw" + hb_osPathListSeparator() + hb_GetEnv( "PATH" ) ) #elif defined( __PLATFORM__OS2 ) hb_SetEnv( "PATH", cBasePath + hb_ps() + "binp" + hb_osPathListSeparator() + cBasePath + hb_ps() + "binw" + hb_osPathListSeparator() + hb_GetEnv( "PATH" ) ) #elif defined( __PLATFORM__DOS ) hb_SetEnv( "PATH", cBasePath + hb_ps() + "binw" + hb_osPathListSeparator() + hb_GetEnv( "PATH" ) ) #elif defined( __PLATFORM__LINUX ) hb_SetEnv( "PATH", cBasePath + hb_ps() + "binl" + hb_osPathListSeparator() + hb_GetEnv( "PATH" ) ) #endif DO CASE CASE cARCH == "win" hb_SetEnv( "INCLUDE", cBasePath + hb_ps() + "h" + hb_osPathListSeparator() + cBasePath + hb_ps() + "h" + hb_ps() + "nt" ) CASE cARCH == "os2" hb_SetEnv( "INCLUDE", cBasePath + hb_ps() + "h" + hb_osPathListSeparator() + cBasePath + hb_ps() + "h" + hb_ps() + "os2" ) hb_SetEnv( "BEGINLIBPATH", cBasePath + hb_ps() + "binp" + hb_ps() + "dll" ) CASE cARCH == "dos" hb_SetEnv( "INCLUDE", cBasePath + hb_ps() + "h" ) CASE cARCH == "linux" hb_SetEnv( "INCLUDE", cBasePath + hb_ps() + "lh" ) ENDCASE ENDCASE RETURN STATIC FUNCTION hbmk_new() LOCAL hbmk[ _HBMK_MAX_ ] hbmk[ _HBMK_cBUILD ] := "" hbmk[ _HBMK_lStopAfterInit ] := .F. hbmk[ _HBMK_lStopAfterHarbour ] := .F. hbmk[ _HBMK_nErrorLevel ] := _ERRLEV_OK hbmk[ _HBMK_cWorkDir ] := NIL hbmk[ _HBMK_lCreateLib ] := .F. Set_lCreateDyn( hbmk, .F. ) hbmk[ _HBMK_lCreateImpLib ] := .F. hbmk[ _HBMK_lCreatePPO ] := .F. hbmk[ _HBMK_lCreateHRB ] := .F. hbmk[ _HBMK_lDynVM ] := .F. hbmk[ _HBMK_lQuiet ] := .F. hbmk[ _HBMK_lInfo ] := .F. hbmk[ _HBMK_nMaxCol ] := MaxCol() hbmk[ _HBMK_cPLAT ] := "" hbmk[ _HBMK_cCOMP ] := "" hbmk[ _HBMK_lCPP ] := NIL hbmk[ _HBMK_lGUI ] := .F. hbmk[ _HBMK_lMT ] := .F. hbmk[ _HBMK_lPIC ] := .F. hbmk[ _HBMK_lDEBUG ] := .F. hbmk[ _HBMK_nHEAD ] := _HEAD_FULL hbmk[ _HBMK_lREBUILD ] := .F. hbmk[ _HBMK_lCLEAN ] := .F. hbmk[ _HBMK_lTRACE ] := .F. hbmk[ _HBMK_lDONTEXEC ] := .F. hbmk[ _HBMK_nHBMODE ] := _HBMODE_NATIVE hbmk[ _HBMK_lSHAREDDIST ] := NIL hbmk[ _HBMK_lNULRDD ] := .F. hbmk[ _HBMK_lMAP ] := .F. hbmk[ _HBMK_lBEEP ] := .F. hbmk[ _HBMK_lSTRIP ] := .F. hbmk[ _HBMK_lOPTIM ] := .T. hbmk[ _HBMK_nWARN ] := _WARN_YES hbmk[ _HBMK_nCOMPR ] := _COMPR_OFF hbmk[ _HBMK_lRUN ] := .F. hbmk[ _HBMK_lINC ] := .F. hbmk[ _HBMK_lREBUILDPO ] := .F. hbmk[ _HBMK_lMINIPO ] := .F. hbmk[ _HBMK_nCONF ] := _CONF_RELEASE hbmk[ _HBMK_lIGNOREERROR ] := .F. hbmk[ _HBMK_lIMPLIB ] := .F. hbmk[ _HBMK_lHBCPPMM ] := .F. hbmk[ _HBMK_hDEP ] := { => } hbmk[ _HBMK_hAUTOHBC ] := { => } hbmk[ _HBMK_hAUTOHBCFOUND ] := { => } hbmk[ _HBMK_aDEPTHBC ] := {} hbmk[ _HBMK_lDEPIMPLIB ] := .T. hb_HSetCaseMatch( hbmk[ _HBMK_hDEP ], .F. ) hbmk[ _HBMK_lBLDFLGP ] := .F. hbmk[ _HBMK_lBLDFLGC ] := .F. hbmk[ _HBMK_lBLDFLGL ] := .F. hbmk[ _HBMK_hPLUGINHRB ] := { => } hbmk[ _HBMK_hPLUGINVars ] := { => } hbmk[ _HBMK_aPLUGINPars ] := {} hbmk[ _HBMK_hPLUGINExt ] := { => } hb_HSetCaseMatch( hbmk[ _HBMK_hPLUGINExt ], .F. ) hbmk[ _HBMK_lDEBUGTIME ] := .F. hbmk[ _HBMK_lDEBUGINC ] := .F. hbmk[ _HBMK_lDEBUGSTUB ] := .F. hbmk[ _HBMK_lDEBUGI18N ] := .F. hbmk[ _HBMK_lDEBUGDEPD ] := .F. hbmk[ _HBMK_lDEBUGPARS ] := .F. hbmk[ _HBMK_nCmd_Esc ] := NIL hbmk[ _HBMK_nScr_Esc ] := NIL hbmk[ _HBMK_nCmd_FNF ] := NIL hbmk[ _HBMK_hDEPTSDIR ] := { => } hbmk[ _HBMK_hDEPTMACRO ] := { => } hbmk[ _HBMK_lInstForce ] := .F. hbmk[ _HBMK_lAutoHBM ] := .T. hbmk[ _HBMK_lContainer ] := .F. hbmk[ _HBMK_lShowLevel ] := .F. hbmk[ _HBMK_aLINK ] := {} hbmk[ _HBMK_cC ] := "" hbmk[ _HBMK_cCPP ] := "" hbmk[ _HBMK_aINCPATH ] := {} hbmk[ _HBMK_aLIBPATH ] := {} RETURN hbmk STATIC PROCEDURE hbmk_init_stage2( hbmk ) hbmk[ _HBMK_aPRG ] := {} hbmk[ _HBMK_aC ] := {} hbmk[ _HBMK_aCPP ] := {} hbmk[ _HBMK_hDEPTS ] := { => } hbmk[ _HBMK_aOPTPRG ] := {} hbmk[ _HBMK_aOPTC ] := {} hbmk[ _HBMK_aOPTCUSER ] := {} hbmk[ _HBMK_aOPTCX ] := {} hbmk[ _HBMK_aOPTCPPX ] := {} hbmk[ _HBMK_aOPTRES ] := {} hbmk[ _HBMK_aOPTL ] := {} hbmk[ _HBMK_aOPTLPOST ] := {} hbmk[ _HBMK_aOPTA ] := {} hbmk[ _HBMK_aOPTD ] := {} hbmk[ _HBMK_aOPTDPOST ] := {} hbmk[ _HBMK_aOPTI ] := {} hbmk[ _HBMK_aRESSRC ] := {} hbmk[ _HBMK_aRESCMP ] := {} hbmk[ _HBMK_aLIBUSER ] := {} hbmk[ _HBMK_aLIBUSERFWK ] := {} hbmk[ _HBMK_aLIBUSERGT ] := {} hbmk[ _HBMK_aLIBUSERSYS ] := {} hbmk[ _HBMK_aLIBUSERSYSPRE ] := {} hbmk[ _HBMK_aLIBFILTEROUT ] := {} hbmk[ _HBMK_aOBJUSER ] := {} hbmk[ _HBMK_aGT ] := {} hbmk[ _HBMK_aICON ] := {} hbmk[ _HBMK_cMANIFEST ] := NIL hbmk[ _HBMK_aIMPLIBSRC ] := {} hbmk[ _HBMK_aDEF ] := {} hbmk[ _HBMK_aINSTFILE ] := {} hbmk[ _HBMK_aREQUEST ] := {} hbmk[ _HBMK_cPROGDIR ] := NIL hbmk[ _HBMK_cPROGNAME ] := NIL hbmk[ _HBMK_cFIRST ] := NIL hbmk[ _HBMK_aPO ] := {} hbmk[ _HBMK_cHBL ] := NIL hbmk[ _HBMK_cHBLDir ] := "" hbmk[ _HBMK_cPO ] := NIL hbmk[ _HBMK_aLNG ] := {} hbmk[ _HBMK_aINSTPATH ] := {} hbmk[ _HBMK_lWINUNI ] := .F. hbmk[ _HBMK_cHBX ] := NIL RETURN STATIC FUNCTION hbmk_harbour_dirlayout_detect( hbmk, /* @ */ l_cHB_INSTALL_PREFIX, lIgnoreEnvVar ) LOCAL tmp hbmk[ _HBMK_cHB_INSTALL_LI3 ] := "" IF lIgnoreEnvVar l_cHB_INSTALL_PREFIX := "" hbmk[ _HBMK_cHB_INSTALL_BIN ] := "" hbmk[ _HBMK_cHB_INSTALL_LIB ] := "" hbmk[ _HBMK_cHB_INSTALL_INC ] := "" ELSE l_cHB_INSTALL_PREFIX := MacroProc( hbmk, PathSepToSelf( GetEnv( "HB_INSTALL_PREFIX" ) ), NIL, _MACRO_NO_PREFIX ) hbmk[ _HBMK_cHB_INSTALL_BIN ] := PathSepToSelf( GetEnv( "HB_INSTALL_BIN" ) ) hbmk[ _HBMK_cHB_INSTALL_LIB ] := PathSepToSelf( GetEnv( "HB_INSTALL_LIB" ) ) hbmk[ _HBMK_cHB_INSTALL_INC ] := PathSepToSelf( GetEnv( "HB_INSTALL_INC" ) ) ENDIF IF Empty( l_cHB_INSTALL_PREFIX ) l_cHB_INSTALL_PREFIX := hb_DirSepAdd( hb_DirBase() ) + ".." ENDIF IF hb_FileExists( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + "include" +; hb_ps() + "hbvm.h" ) /* do nothing */ /* Detect special non-installed dir layout (after simple 'make') */ ELSEIF hb_FileExists( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + ".." + hb_ps() + ".." + hb_ps() + "include" +; hb_ps() + "hbvm.h" ) l_cHB_INSTALL_PREFIX := hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + ".." + hb_ps() + ".." + hb_ps() /* Detect special multi-host dir layout */ ELSEIF hb_FileExists( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + ".." + hb_ps() + "include" +; hb_ps() + "hbvm.h" ) l_cHB_INSTALL_PREFIX := hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + ".." + hb_ps() /* Detect non-installed dir layout with build name containing sub-dirs */ ELSEIF PathSepCount( hbmk[ _HBMK_cBUILD ] ) > 0 .AND. ; hb_FileExists( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + Replicate( ".." + hb_ps(), PathSepCount( hbmk[ _HBMK_cBUILD ] ) ) + ".." + hb_ps() + ".." + hb_ps() + "include" +; hb_ps() + "hbvm.h" ) l_cHB_INSTALL_PREFIX := hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + Replicate( ".." + hb_ps(), PathSepCount( hbmk[ _HBMK_cBUILD ] ) ) + ".." + hb_ps() + ".." + hb_ps() /* Detect special *nix dir layout (/bin, /lib/harbour, /lib64/harbour, /include/harbour) */ ELSEIF hb_FileExists( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + "include" +; hb_ps() + iif( _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ), "xharbour", "harbour" ) +; hb_ps() + "hbvm.h" ) IF Empty( hbmk[ _HBMK_cHB_INSTALL_BIN ] ) hbmk[ _HBMK_cHB_INSTALL_BIN ] := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + "bin" ) ENDIF IF Empty( hbmk[ _HBMK_cHB_INSTALL_LIB ] ) IF hb_DirExists( tmp := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + "lib64" + hb_ps() + iif( _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ), "xharbour", "harbour" ) ) ) hbmk[ _HBMK_cHB_INSTALL_LIB ] := tmp ELSE hbmk[ _HBMK_cHB_INSTALL_LIB ] := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + "lib" + hb_ps() + iif( _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ), "xharbour", "harbour" ) ) ENDIF ENDIF IF Empty( hbmk[ _HBMK_cHB_INSTALL_INC ] ) hbmk[ _HBMK_cHB_INSTALL_INC ] := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + "include" + hb_ps() + iif( _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ), "xharbour", "harbour" ) ) ENDIF ELSEIF ! hb_FileExists( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + hb_ps() + "include" +; hb_ps() + "hbvm.h" ) RETURN .F. ENDIF RETURN .T. /* This stage needs COMP and PLAT to be filled */ STATIC PROCEDURE hbmk_harbour_dirlayout_init( hbmk, l_cHB_INSTALL_PREFIX ) LOCAL tmp IF Empty( hbmk[ _HBMK_cHB_INSTALL_BIN ] ) /* Autodetect multi-compiler/platform bin structure (also .dlls are in bin dir on non-*nix platforms) */ IF hb_DirExists( tmp := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) ) + "bin" +; hb_ps() + hbmk[ _HBMK_cPLAT ] +; hb_ps() + hbmk[ _HBMK_cCOMP ] +; PathSepToSelf( hbmk[ _HBMK_cBUILD ] ) ) hbmk[ _HBMK_cHB_INSTALL_BIN ] := tmp ELSE hbmk[ _HBMK_cHB_INSTALL_BIN ] := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + "bin" ) ENDIF ENDIF IF Empty( hbmk[ _HBMK_cHB_INSTALL_LIB ] ) /* Autodetect multi-compiler/platform lib structure */ IF hb_DirExists( tmp := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) ) + "lib" +; hb_ps() + hbmk[ _HBMK_cPLAT ] +; hb_ps() + hbmk[ _HBMK_cCOMP ] +; PathSepToSelf( hbmk[ _HBMK_cBUILD ] ) ) hbmk[ _HBMK_cHB_INSTALL_LIB ] := tmp ELSE hbmk[ _HBMK_cHB_INSTALL_LIB ] := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + "lib" ) ENDIF ENDIF IF Empty( hbmk[ _HBMK_cHB_INSTALL_LI3 ] ) IF hbmk[ _HBMK_cPLAT ] == "win" .AND. ; hb_DirExists( tmp := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) ) + "lib" +; hb_ps() + "3rd" +; hb_ps() + hbmk[ _HBMK_cPLAT ] +; hb_ps() + hbmk[ _HBMK_cCOMP ] ) hbmk[ _HBMK_cHB_INSTALL_LI3 ] := tmp ENDIF ENDIF IF Empty( hbmk[ _HBMK_cHB_INSTALL_INC ] ) hbmk[ _HBMK_cHB_INSTALL_INC ] := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + "include" ) ENDIF IF hbmk[ _HBMK_cHB_INSTALL_DYN ] == NIL IF HBMK_ISPLAT( "win|wce|os2|dos|cygwin" ) hbmk[ _HBMK_cHB_INSTALL_DYN ] := hbmk[ _HBMK_cHB_INSTALL_BIN ] ELSE hbmk[ _HBMK_cHB_INSTALL_DYN ] := hbmk[ _HBMK_cHB_INSTALL_LIB ] ENDIF ENDIF /* Make a copy to hbmk structure so that we can use it in deeper functions. The only reason I kept the local version is to keep above code parts easier to read. [vszakats] */ hbmk[ _HBMK_cHB_INSTALL_BIN ] := hb_DirSepDel( PathSepToSelf( hbmk[ _HBMK_cHB_INSTALL_BIN ] ) ) hbmk[ _HBMK_cHB_INSTALL_LIB ] := hb_DirSepDel( PathSepToSelf( hbmk[ _HBMK_cHB_INSTALL_LIB ] ) ) hbmk[ _HBMK_cHB_INSTALL_LI3 ] := hb_DirSepDel( PathSepToSelf( hbmk[ _HBMK_cHB_INSTALL_LI3 ] ) ) hbmk[ _HBMK_cHB_INSTALL_DYN ] := hb_DirSepDel( PathSepToSelf( hbmk[ _HBMK_cHB_INSTALL_DYN ] ) ) hbmk[ _HBMK_cHB_INSTALL_INC ] := hb_DirSepDel( PathSepToSelf( hbmk[ _HBMK_cHB_INSTALL_INC ] ) ) /* Add main Harbour library dir to lib path list */ AAddNotEmpty( hbmk[ _HBMK_aLIBPATH ], hbmk[ _HBMK_cHB_INSTALL_LIB ] ) /* Locally hosted 3rd party binary libraries */ AAddNotEmpty( hbmk[ _HBMK_aLIBPATH ], hbmk[ _HBMK_cHB_INSTALL_LI3 ] ) IF ! Empty( hbmk[ _HBMK_cHB_INSTALL_DYN ] ) .AND. ; !( hbmk[ _HBMK_cHB_INSTALL_DYN ] == hbmk[ _HBMK_cHB_INSTALL_LIB ] ) .AND. ; ! HBMK_ISPLAT( "win|wce|os2|dos|cygwin" ) AAddNotEmpty( hbmk[ _HBMK_aLIBPATH ], hbmk[ _HBMK_cHB_INSTALL_DYN ] ) ENDIF /* Add main Harbour header dir to header path list */ AAddNotEmpty( hbmk[ _HBMK_aINCPATH ], hbmk[ _HBMK_cHB_INSTALL_INC ] ) /* Add custom search paths for .hbc files */ IF ! Empty( hbmk[ _HBMK_cHB_INSTALL_ADD ] := GetEnv( "HB_INSTALL_ADDONS" ) ) #if defined( __PLATFORM__WINDOWS ) .OR. ; defined( __PLATFORM__DOS ) .OR. ; defined( __PLATFORM__OS2 ) FOR EACH tmp IN hb_ATokens( hbmk[ _HBMK_cHB_INSTALL_ADD ], hb_osPathListSeparator(), .T., .T. ) #else FOR EACH tmp IN hb_ATokens( hbmk[ _HBMK_cHB_INSTALL_ADD ], hb_osPathListSeparator() ) #endif IF ! Empty( tmp ) AAdd( hbmk[ _HBMK_aLIBPATH ], hb_PathNormalize( hb_DirSepAdd( PathSepToSelf( tmp ) ) ) + "%{hb_name}" ) ENDIF NEXT ENDIF /* Add default search paths for .hbc files */ AAdd( hbmk[ _HBMK_aLIBPATH ], hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) ) + "contrib" + hb_ps() + "%{hb_name}" ) AAdd( hbmk[ _HBMK_aLIBPATH ], hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) ) + "addons" + hb_ps() + "%{hb_name}" ) #if defined( __PLATFORM__UNIX ) IF hb_DirExists( "/opt/harbour" ) AAdd( hbmk[ _HBMK_aLIBPATH ], "/opt/harbour/contrib/%{hb_name}" ) AAdd( hbmk[ _HBMK_aLIBPATH ], "/opt/harbour/addons/%{hb_name}" ) ENDIF IF hb_DirExists( "/usr/local/share/harbour" ) AAdd( hbmk[ _HBMK_aLIBPATH ], "/usr/local/share/harbour/contrib/%{hb_name}" ) AAdd( hbmk[ _HBMK_aLIBPATH ], "/usr/local/share/harbour/addons/%{hb_name}" ) ENDIF IF hb_DirExists( "/usr/share/harbour" ) AAdd( hbmk[ _HBMK_aLIBPATH ], "/usr/share/harbour/contrib/%{hb_name}" ) AAdd( hbmk[ _HBMK_aLIBPATH ], "/usr/share/harbour/addons/%{hb_name}" ) ENDIF #endif RETURN FUNCTION hbmk( aArgs, nArgTarget, /* @ */ lPause, nLevel ) LOCAL hbmk LOCAL aLIB_BASE_EXTERN LOCAL aLIB_BASE_DEBUG LOCAL aLIB_BASE_1 LOCAL aLIB_BASE_1_MT LOCAL aLIB_BASE_2 LOCAL aLIB_BASE_2_MT LOCAL aLIB_BASE_GT LOCAL aLIB_BASE_NULRDD LOCAL aLIB_BASE_RDD LOCAL aLIB_BASE_RDD_MT LOCAL aLIB_BASE_CPLR LOCAL aLIB_BASE_3 LOCAL aLIB_BASE_3_MT LOCAL cLIB_BASE_PCRE LOCAL cLIB_BASE_ZLIB LOCAL l_cCSTUB LOCAL l_cCPPSTUB LOCAL l_cRESSTUB LOCAL l_cHB_INSTALL_PREFIX LOCAL l_aPRG_TO_DO LOCAL l_aC_TO_DO LOCAL l_aCPP_TO_DO LOCAL l_aCGEN_TO_DO LOCAL l_aRESSRC_TO_DO LOCAL l_aLIBSHARED LOCAL l_aLIBSHAREDPOST := {} LOCAL l_aLIB LOCAL l_aLIBA LOCAL l_aLIBRAW LOCAL l_aLIBHB LOCAL l_aLIBHBBASE_2 := {} LOCAL l_aLIBHBGT LOCAL l_aLIB3RD LOCAL l_aLIBSYS LOCAL l_aLIBSYSCORE := {} LOCAL l_aLIBSYSMISC := {} LOCAL l_aLIBSTATICPOST := {} LOCAL l_aOPTRUN LOCAL l_cLIBSELF LOCAL l_cIMPLIBDIR LOCAL l_cIMPLIBNAME LOCAL l_lIMPLIBToProcess := .F. LOCAL l_aOBJ LOCAL l_aOBJA LOCAL l_aCLEAN LOCAL l_cMAIN := NIL LOCAL l_cVCSDIR LOCAL l_cVCSHEAD LOCAL l_cTSHEAD LOCAL l_cHBPOSTFIX := "" LOCAL l_lNOHBLIB := .F. LOCAL l_lLIBSYSMISC := .T. LOCAL l_cCMAIN := NIL LOCAL l_lTargetSelected := .F. LOCAL l_cDynLibDir /* lib ordering tries to satisfy linkers which require this (mingw*, linux/gcc, bsd/gcc and dos/djgpp), but this won't solve potential problems when users are speccing custom libs themselves and expect them to work the same way on all supported platforms/compilers. So I decided to readd this feature until we find a solution which doesn't have such bad side-effect. [vszakats] */ LOCAL l_lLIBGROUPING := .T. LOCAL l_nJOBS := 1 LOCAL aCOMPDET := NIL LOCAL aCOMPDET_EMBED LOCAL aCOMPSUP LOCAL cLibPrefix LOCAL cLibExt LOCAL cObjPrefix LOCAL cObjExt LOCAL cLibLibExt := "" LOCAL cLibLibPrefix := "" LOCAL cLibObjPrefix LOCAL cDynObjPrefix := NIL LOCAL cDefPrefix := NIL LOCAL cLibPathPrefix LOCAL cLibPathSep LOCAL cImpLibExt := "" LOCAL cResPrefix LOCAL cResExt LOCAL cBinExt LOCAL cOptPrefix LOCAL cOptIncMask LOCAL cBin_Cprs LOCAL cOpt_Cprs LOCAL cOpt_CprsMin LOCAL cOpt_CprsMax LOCAL cBin_Post := NIL LOCAL cOpt_Post LOCAL nOpt_Esc LOCAL nOpt_FNF LOCAL lCHD_Comp := .F. LOCAL cCHD_DirOld LOCAL cBin_Sign LOCAL cOpt_Sign LOCAL cOpt_SignID LOCAL cOpt_SignPass LOCAL cCommand LOCAL aCommand LOCAL cOpt_CompC LOCAL cOpt_CompCPass LOCAL cOpt_CompCLoop LOCAL cOpt_Link LOCAL cOpt_Res LOCAL cOpt_Lib LOCAL cOpt_Dyn LOCAL cOpt_LibHBX LOCAL cBin_CompPRG LOCAL cBin_CompC LOCAL cBin_CompCPP LOCAL cBin_CompCGEN LOCAL cBin_Link LOCAL cBin_Res LOCAL cBin_Lib LOCAL cBin_Dyn LOCAL cBin_LibHBX LOCAL cLibHBX_Regex LOCAL bBlk_ImpLib LOCAL cPath_CompC LOCAL tmp, tmp1, tmp2, tmp3, tmp4, array LOCAL cLibBCC_CRTL LOCAL cScriptFile LOCAL fhnd LOCAL cFile LOCAL lSysLoc LOCAL cPostfix LOCAL aOBJLIST LOCAL cHarbourDyn LOCAL lSkipBuild := .F. LOCAL lStopAfterCComp := .F. LOCAL lAcceptCFlag := .F. LOCAL lAcceptLDFlag := .F. LOCAL lAcceptLDClipper := .F. LOCAL lAcceptIFlag := .F. LOCAL lHarbourInfo := .F. LOCAL lDumpInfo := .F. LOCAL lDumpInfoNested := .F. LOCAL nHarbourPPO := 0 LOCAL cHarbourOutputExt LOCAL cHarbourOutputDir LOCAL cHarbourPPODir := "" LOCAL aParams LOCAL aParam LOCAL cParam LOCAL cParamL LOCAL cEnv LOCAL tTarget LOCAL lTargetUpToDate LOCAL cDir, cName, cExt LOCAL cDL_Version_Alter LOCAL cDL_Version LOCAL aTO_DO LOCAL aThreads LOCAL thread LOCAL nStart := hb_milliSeconds() LOCAL lDoSupportDetection LOCAL lDeleteWorkDir := .F. LOCAL lHBMAINDLLP IF s_cSecToken == NIL s_cSecToken := StrZero( hb_rand32(), 10, 0 ) ENDIF hbmk := hbmk_new() hbmk[ _HBMK_aArgs ] := aArgs hbmk[ _HBMK_nArgTarget ] := nArgTarget hbmk[ _HBMK_lPause ] := lPause hbmk[ _HBMK_nLevel ] := nLevel SetUILang( hbmk[ _HBMK_cUILNG ] := GetUILang() ) IF Empty( aArgs ) ShowHeader( hbmk ) ShowHelp( hbmk ) RETURN _ERRLEV_HELP ENDIF /* Process environment */ cEnv := GetEnv( _HBMK_ENV_NAME ) /* Compatibility */ FOR EACH tmp IN ListToArray( PathSepToSelf( GetEnv( "HB_USER_LIBPATHS" ) ) ) cEnv += " -L" + tmp NEXT FOR EACH tmp IN ListToArray( PathSepToSelf( GetEnv( "HB_USER_LIBS" ) ) ) cEnv += " -l" + tmp NEXT IF ! Empty( GetEnv( "HB_PLATFORM" ) ) cEnv += " -platform=" + GetEnv( "HB_PLATFORM" ) ENDIF IF ! Empty( GetEnv( "HB_COMPILER" ) ) cEnv += " -compiler=" + GetEnv( "HB_COMPILER" ) ENDIF IF ! Empty( GetEnv( "HB_CPU" ) ) cEnv += " -cpu=" + GetEnv( "HB_CPU" ) ENDIF IF ! Empty( GetEnv( "HB_BUILD_NAME" ) ) cEnv += " -build=" + PathSepToSelf( GetEnv( "HB_BUILD_NAME" ) ) ENDIF cEnv := AllTrim( cEnv ) IF ! Empty( cEnv ) aArgs := ArrayJoin( ListToArray( cEnv ), aArgs ) ENDIF /* ; */ FOR EACH cParam IN aArgs cParamL := Lower( cParam ) /* NOTE: Don't forget to make these ignored in the main option processing loop. */ DO CASE CASE cParamL == "-quiet" .OR. ; cParamL == "--hbdirbin" .OR. ; cParamL == "--hbdirdyn" .OR. ; cParamL == "--hbdirlib" .OR. ; cParamL == "--hbdirinc" .OR. ; Left( cParamL, Len( "--hbinfo" ) ) == "--hbinfo" hbmk[ _HBMK_lQuiet ] := .T. ; hbmk[ _HBMK_lInfo ] := .F. CASE cParamL == "-quiet-" ; hbmk[ _HBMK_lQuiet ] := .F. CASE Left( cParamL, 6 ) == "-comp=" ; ParseCOMPPLATCPU( hbmk, SubStr( cParam, 7 ), _TARG_COMP ) CASE Left( cParamL, 10 ) == "-compiler=" ; ParseCOMPPLATCPU( hbmk, SubStr( cParam, 11 ), _TARG_COMP ) CASE Left( cParamL, 6 ) == "-plat=" ; ParseCOMPPLATCPU( hbmk, SubStr( cParam, 7 ), _TARG_PLAT ) CASE Left( cParamL, 10 ) == "-platform=" ; ParseCOMPPLATCPU( hbmk, SubStr( cParam, 11 ), _TARG_PLAT ) CASE Left( cParamL, 6 ) == "-arch=" ; ParseCOMPPLATCPU( hbmk, SubStr( cParam, 7 ), _TARG_PLAT ) /* Compatibility */ CASE Left( cParamL, 5 ) == "-cpu=" ; ParseCOMPPLATCPU( hbmk, SubStr( cParam, 6 ), _TARG_CPU ) CASE Left( cParamL, 7 ) == "-build=" ; hbmk[ _HBMK_cBUILD ] := StrTran( PathSepToSelf( SubStr( cParam, 8 ) ), hb_ps() ) CASE Left( cParamL, 6 ) == "-build" ; hbmk[ _HBMK_lStopAfterHarbour ] := .T. CASE Left( cParamL, 6 ) == "-lang=" ; SetUILang( hbmk[ _HBMK_cUILNG ] := SubStr( cParam, 7 ) ) CASE Left( cParamL, 4 ) == "-shl" ; hbmk[ _HBMK_lShowLevel ] := .T. CASE Left( cParamL, 7 ) == "-width=" tmp := Val( SubStr( cParam, 8 ) ) IF tmp > 40 hbmk[ _HBMK_nMaxCol ] := tmp ELSEIF tmp == 0 hbmk[ _HBMK_nMaxCol ] := 65535 ENDIF CASE cParamL == "-hbrun" ; lSkipBuild := .T. ; hbmk[ _HBMK_lRUN ] := .T. CASE cParamL == "-hbraw" ; hbmk[ _HBMK_lInfo ] := .F. ; hbmk[ _HBMK_lStopAfterHarbour ] := .T. ; lStopAfterCComp := .T. ; hbmk[ _HBMK_lCreateLib ] := .F. ; Set_lCreateDyn( hbmk, .F. ) ; lAcceptCFlag := .F. ; lAcceptLDFlag := .F. CASE cParamL == "-hbcmp" .OR. ; cParamL == "-clipper" ; hbmk[ _HBMK_lInfo ] := .F. ; hbmk[ _HBMK_lStopAfterHarbour ] := .F. ; lStopAfterCComp := .T. ; hbmk[ _HBMK_lCreateLib ] := .F. ; Set_lCreateDyn( hbmk, .F. ) ; lAcceptCFlag := .F. ; lAcceptLDFlag := .F. CASE cParamL == "-hbcc" ; hbmk[ _HBMK_lInfo ] := .F. ; hbmk[ _HBMK_lStopAfterHarbour ] := .F. ; lStopAfterCComp := .F. ; lAcceptCFlag := .T. CASE cParamL == "-hblnk" ; hbmk[ _HBMK_lInfo ] := .F. ; hbmk[ _HBMK_lStopAfterHarbour ] := .F. ; lStopAfterCComp := .F. ; lAcceptLDFlag := .T. CASE cParamL == "-rtlink" .OR. ; cParamL == "-exospace" .OR. ; cParamL == "-blinker" ; hbmk[ _HBMK_lInfo ] := .F. ; hbmk[ _HBMK_lStopAfterHarbour ] := .F. ; lStopAfterCComp := .F. ; lAcceptLDClipper := .T. CASE cParamL == "-info" ; hbmk[ _HBMK_lInfo ] := .T. CASE cParamL == "-autohbm" ; hbmk[ _HBMK_lAutoHBM ] := .T. CASE cParamL == "-autohbm-" ; hbmk[ _HBMK_lAutoHBM ] := .F. CASE cParamL == "-xhb" ; hbmk[ _HBMK_nHBMODE ] := _HBMODE_XHB CASE cParamL == "-hb10" ; hbmk[ _HBMK_nHBMODE ] := _HBMODE_HB10 CASE cParamL == "-hb20" ; hbmk[ _HBMK_nHBMODE ] := _HBMODE_HB20 CASE cParamL == "-hbc" ; hbmk[ _HBMK_nHBMODE ] := _HBMODE_RAW_C ; lAcceptCFlag := .T. /* -env options used on command line, process only once (=do not process again for subprojects) */ CASE Left( cParamL, 5 ) == "-env:" .AND. hbmk[ _HBMK_nLevel ] == 1 ProcEnvOption( SubStr( cParam, 6 ) ) CASE cParamL == "-help" .OR. ; cParamL == "--help" ShowHeader( hbmk ) ShowHelp( hbmk, .T. ) RETURN _ERRLEV_HELP CASE Left( cParamL, 8 ) == "-hbmake=" convert_hbmake_to_hbp( hbmk, SubStr( cParam, 9 ) ) RETURN _ERRLEV_OK CASE Left( cParamL, 5 ) == "-xbp=" convert_xbp_to_hbp( hbmk, SubStr( cParam, 6 ) ) RETURN _ERRLEV_OK CASE Left( cParamL, 5 ) == "-xhp=" convert_xhp_to_hbp( hbmk, SubStr( cParam, 6 ) ) RETURN _ERRLEV_OK #if defined( __PLATFORM__WINDOWS ) CASE Left( cParamL, 6 ) == "-hbreg" IF __hbshell_win_reg_self( .T., SubStr( cParamL, 6 + 1 ) == "=global" ) _hbmk_OutStd( hbmk, "Harbour Script (.hb) registered" ) ELSE _hbmk_OutErr( hbmk, "Error: Registering Harbour Script (.hb)" ) ENDIF RETURN _ERRLEV_OK CASE Left( cParamL, 8 ) == "-hbunreg" IF __hbshell_win_reg_self( .F., SubStr( cParamL, 8 + 1 ) == "=global" ) _hbmk_OutStd( hbmk, "Harbour Script (.hb) unregistered" ) ELSE _hbmk_OutErr( hbmk, "Error: Unregistering Harbour Script (.hb)" ) ENDIF RETURN _ERRLEV_OK #endif CASE cParamL == "--version" ShowHeader( hbmk ) RETURN _ERRLEV_OK ENDCASE NEXT IF nLevel > _HBMK_NEST_MAX _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Cannot nest projects deeper than %1$d levels" ), _HBMK_NEST_MAX ) ) RETURN _ERRLEV_DEEPPROJNESTING ENDIF IF nLevel > 1 IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Building sub-project (level %1$d): %2$s" ), nLevel, hbmk[ _HBMK_aArgs ][ hbmk[ _HBMK_nArgTarget ] ] ) ) ENDIF ENDIF IF ! Empty( cEnv ) IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Processing environment options: %1$s" ), cEnv ) ) ENDIF ENDIF /* Initialize Harbour libs */ IF ! _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ) IF hbmk[ _HBMK_nHBMODE ] == _HBMODE_NATIVE cDL_Version_Alter := "-" +; hb_ntos( hb_Version( HB_VERSION_MAJOR ) ) +; hb_ntos( hb_Version( HB_VERSION_MINOR ) ) cDL_Version := "." +; hb_ntos( hb_Version( HB_VERSION_MAJOR ) ) + "." +; hb_ntos( hb_Version( HB_VERSION_MINOR ) ) + "." +; hb_ntos( hb_Version( HB_VERSION_RELEASE ) ) ELSE cDL_Version_Alter := "-" +; hb_ntos( hb_bitAnd( hb_bitShift( hbmk[ _HBMK_nHBMODE ], -16 ), 0xFF ) ) +; hb_ntos( hb_bitAnd( hb_bitShift( hbmk[ _HBMK_nHBMODE ], -8 ), 0xFF ) ) cDL_Version := "." +; hb_ntos( hb_bitAnd( hb_bitShift( hbmk[ _HBMK_nHBMODE ], -16 ), 0xFF ) ) + "." +; hb_ntos( hb_bitAnd( hb_bitShift( hbmk[ _HBMK_nHBMODE ], -8 ), 0xFF ) ) + "." +; hb_ntos( hb_bitAnd( hb_bitShift( hbmk[ _HBMK_nHBMODE ], 0 ), 0xFF ) ) ENDIF aLIB_BASE_EXTERN := { "hbextern" } aLIB_BASE_DEBUG := { "hbdebug" } aLIB_BASE_1 := { "hbvm", "hbrtl", "hblang", "hbcpage" } aLIB_BASE_1_MT := iif( hbmk[ _HBMK_nHBMODE ] != _HBMODE_HB10, { "hbvmmt", "hbrtl", "hblang", "hbcpage" }, aLIB_BASE_1 ) aLIB_BASE_2 := { "hbrtl", "hbvm" } aLIB_BASE_2_MT := iif( hbmk[ _HBMK_nHBMODE ] != _HBMODE_HB10, { "hbrtl", "hbvmmt" }, aLIB_BASE_2 ) aLIB_BASE_GT := { "gtcgi", "gtpca", "gtstd" } aLIB_BASE_NULRDD := { "hbnulrdd" } /* Double 'hbrdd' is required for linkers which otherwise need lib grouping. */ IF hbmk[ _HBMK_nHBMODE ] == _HBMODE_HB10 aLIB_BASE_RDD := { "hbrdd", "hbusrrdd", "rddntx", "rddcdx", "rddfpt", "hbrdd", "hbhsx", "hbsix" } ELSE aLIB_BASE_RDD := { "hbrdd", "hbuddall", "hbusrrdd", "rddntx", "rddcdx", "rddnsx", "rddfpt", "hbrdd", "hbhsx", "hbsix" } ENDIF aLIB_BASE_RDD_MT := aLIB_BASE_RDD aLIB_BASE_CPLR := { "hbcplr" } aLIB_BASE_3 := { "hbmacro", "hbcplr", "hbpp", "hbcommon" } aLIB_BASE_3_MT := aLIB_BASE_3 cLIB_BASE_PCRE := "hbpcre" cLIB_BASE_ZLIB := "hbzlib" ELSE cDL_Version_Alter := "" cDL_Version := "" aLIB_BASE_EXTERN := {} aLIB_BASE_DEBUG := { "debug" } aLIB_BASE_1 := { "vm" , "rtl" , "lang", "codepage" } aLIB_BASE_1_MT := { "vmmt", "rtlmt", "lang", "codepage" } aLIB_BASE_2 := { "rtl" , "vm" } aLIB_BASE_2_MT := { "rtlmt", "vmmt" } aLIB_BASE_GT := { "gtcgi", "gtpca", "gtstd" } aLIB_BASE_NULRDD := { "nulsys" } aLIB_BASE_RDD := { "rdd" , "usrrdd", "dbfntx", "dbfcdx", "dbfnsx", "dbffpt", "rdd" , "hsx", "hbsix" } aLIB_BASE_RDD_MT := { "rddmt", "usrrdd", "dbfntx", "dbfcdx", "dbfnsx", "dbffpt", "rddmt", "hsx", "hbsix" } aLIB_BASE_CPLR := {} aLIB_BASE_3 := { "macro" , "pp", "common" } aLIB_BASE_3_MT := { "macromt", "pp", "common" } cLIB_BASE_PCRE := "pcrepos" cLIB_BASE_ZLIB := "zlib" /* NOTE: 'dbfnsx' was added to xhb on 2009-01-08. We chose to prioritize on newer xhb versions, so for older versions, a dummy lib should be created. [vszakats] */ ENDIF hbmk[ _HBMK_aLIB_BASE_WARN ] := ArrayAJoin( {; aLIB_BASE_EXTERN ,; aLIB_BASE_DEBUG ,; aLIB_BASE_1 ,; aLIB_BASE_1_MT ,; aLIB_BASE_2 ,; aLIB_BASE_2_MT ,; aLIB_BASE_NULRDD ,; aLIB_BASE_RDD ,; aLIB_BASE_RDD_MT ,; aLIB_BASE_CPLR ,; aLIB_BASE_3 ,; aLIB_BASE_3_MT ,; { cLIB_BASE_PCRE } ,; { cLIB_BASE_ZLIB } } ) hbmk[ _HBMK_nCOMPVer ] := Val( GetEnv( "HB_COMPILER_VER" ) ) /* Format: <15><00>[.<00>] = [.] */ /* Autodetect platform */ IF Empty( hbmk[ _HBMK_cPLAT ] ) /* NOTE: Keep this in sync manually. All compilers should be listed here, which are supported on one platform only. In the future this should be automatically extracted from a comp/plat matrix. */ SWITCH hbmk[ _HBMK_cCOMP ] CASE "mingw" CASE "mingw64" CASE "msvc" CASE "msvc64" CASE "msvcia64" CASE "bcc" CASE "xcc" CASE "pocc" CASE "pocc64" hbmk[ _HBMK_cPLAT ] := "win" EXIT CASE "mingwarm" CASE "msvcarm" CASE "poccarm" hbmk[ _HBMK_cPLAT ] := "wce" EXIT CASE "djgpp" hbmk[ _HBMK_cPLAT ] := "dos" EXIT OTHERWISE hbmk[ _HBMK_cPLAT ] := hb_Version( HB_VERSION_BUILD_PLAT ) ENDSWITCH IF ! Empty( hbmk[ _HBMK_cPLAT ] ) IF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Autodetected platform: %1$s" ), hbmk[ _HBMK_cPLAT ] ) ) ENDIF ENDIF ENDIF hbmk[ _HBMK_cCCPATH ] := GetEnv( "HB_CCPATH" ) hbmk[ _HBMK_cCCPREFIX ] := GetEnv( "HB_CCPREFIX" ) hbmk[ _HBMK_cCCPOSTFIX ] := GetEnv( "HB_CCPOSTFIX" ) #if defined( __PLATFORM__UNIX ) #if ! defined( __PLATFORM__CYGWIN ) hbmk[ _HBMK_cCCEXT ] := "" #else hbmk[ _HBMK_cCCEXT ] := ".exe" #endif #else hbmk[ _HBMK_cCCEXT ] := ".exe" #endif /* Setup platform dependent data */ cBin_CompPRG := "harbour" + l_cHBPOSTFIX DO CASE CASE HBMK_ISPLAT( "darwin|bsd|hpux|sunos|beos|qnx|android|vxworks|symbian|linux|cygwin|minix|aix" ) DO CASE CASE hbmk[ _HBMK_cPLAT ] == "linux" aCOMPSUP := { "gcc", "clang", "icc", "watcom", "sunpro", "open64", "pcc" } CASE hbmk[ _HBMK_cPLAT ] == "darwin" aCOMPSUP := { "gcc", "clang", "icc", "pcc" } CASE hbmk[ _HBMK_cPLAT ] == "bsd" aCOMPSUP := { "gcc", "clang", "pcc" } CASE hbmk[ _HBMK_cPLAT ] == "sunos" aCOMPSUP := { "gcc", "sunpro", "pcc" } CASE hbmk[ _HBMK_cPLAT ] == "android" aCOMPSUP := { "gcc", "gccarm" } CASE hbmk[ _HBMK_cPLAT ] == "vxworks" aCOMPSUP := { "gcc", "diab" } CASE hbmk[ _HBMK_cPLAT ] == "aix" aCOMPSUP := { "gcc", "icc" } CASE hbmk[ _HBMK_cPLAT ] == "minix" aCOMPSUP := { "gcc", "clang", "ack" } OTHERWISE aCOMPSUP := { "gcc" } ENDCASE IF hbmk[ _HBMK_cPLAT ] == "symbian" hbmk[ _HBMK_cDynLibPrefix ] := "" ELSEIF hbmk[ _HBMK_cPLAT ] == "cygwin" hbmk[ _HBMK_cDynLibPrefix ] := "cyg" ELSE hbmk[ _HBMK_cDynLibPrefix ] := "lib" ENDIF DO CASE CASE hbmk[ _HBMK_cPLAT ] == "vxworks" l_aLIBHBGT := {} hbmk[ _HBMK_cGTDEFAULT ] := "gtstd" cBinExt := ".vxe" CASE hbmk[ _HBMK_cPLAT ] == "symbian" l_aLIBHBGT := {} hbmk[ _HBMK_cGTDEFAULT ] := "gtstd" cBinExt := ".exe" OTHERWISE l_aLIBHBGT := { "gttrm" } hbmk[ _HBMK_cGTDEFAULT ] := "gttrm" cBinExt := "" ENDCASE cOptPrefix := "-" SWITCH hbmk[ _HBMK_cPLAT ] CASE "darwin" ; hbmk[ _HBMK_cDynLibExt ] := ".dylib" ; EXIT CASE "hpux" ; hbmk[ _HBMK_cDynLibExt ] := ".sl" ; EXIT CASE "symbian" ; hbmk[ _HBMK_cDynLibExt ] := ".dll" ; EXIT CASE "cygwin" ; hbmk[ _HBMK_cDynLibExt ] := ".dll" ; EXIT OTHERWISE ; hbmk[ _HBMK_cDynLibExt ] := ".so" ENDSWITCH CASE hbmk[ _HBMK_cPLAT ] == "dos" #if ! defined( __PLATFORM__UNIX ) aCOMPDET := { { {|| FindInPath( "gcc" ) }, "djgpp" },; { {|| FindInPath( "wcc386" ) }, "watcom" } } #endif aCOMPSUP := { "djgpp", "gcc", "watcom" } l_aLIBHBGT := { "gtdos" } hbmk[ _HBMK_cGTDEFAULT ] := "gtdos" hbmk[ _HBMK_cDynLibPrefix ] := "" hbmk[ _HBMK_cDynLibExt ] := "" /* NOTE: This will be reset later if djgpp is detected. */ cBinExt := ".exe" cOptPrefix := "-/" CASE hbmk[ _HBMK_cPLAT ] == "os2" #if ! defined( __PLATFORM__UNIX ) aCOMPDET := { { {|| FindInPath( "gcc" ) }, "gcc" },; { {|| FindInPath( "wcc386" ) }, "watcom" } } #endif aCOMPSUP := { "gcc", "gccomf", "watcom" } l_aLIBHBGT := { "gtos2" } hbmk[ _HBMK_cGTDEFAULT ] := "gtos2" hbmk[ _HBMK_cDynLibPrefix ] := "" hbmk[ _HBMK_cDynLibExt ] := ".dll" cBinExt := ".exe" cOptPrefix := "-/" CASE hbmk[ _HBMK_cPLAT ] == "win" /* Order is significant. watcom also keeps a cl.exe in its binary dir. */ #if ! defined( __PLATFORM__UNIX ) aCOMPDET := { { {|| FindInPath( "arm-mingw32ce-gcc" ) }, "mingwarm", "arm-mingw32ce-",, "wce" } ,; { {|| FindInPath( "arm-wince-mingw32ce-gcc" ) }, "mingwarm", "arm-wince-mingw32ce-",, "wce" } ,; { {|| FindInSamePath( "cygstart.exe", "gcc" ) }, "gcc",,, "cygwin" },; { {|| FindInPath( "gcc-dw2" ) }, "mingw", "", "-dw2" },; /* tdragon DWARF-2 build */ { {|| FindInPath( "x86_64-pc-mingw32-gcc" ) }, "mingw64" },; /* Equation Solution build */ { {|| FindInPath( "i686-w64-mingw32-gcc" ) }, "mingw64", "i686-w64-mingw32-" },; /* mingw-w64 build */ { {|| FindInSamePath( "x86_64-w64-mingw32-gcc.exe", "gcc" ) }, "mingw64" },; /* mingw-w64 TDM build */ { {|| FindInPath( "x86_64-w64-mingw32-gcc" ) }, "mingw64", "x86_64-w64-mingw32-" },; /* mingw-w64 build */ { {|| FindInPath( hbmk[ _HBMK_cCCPREFIX ] + "gcc" + hbmk[ _HBMK_cCCPOSTFIX ] ) }, "mingw" },; { {|| iif( ! Empty( GetEnv( "WATCOM" ) ),; FindInPath( "wcc386" ),; NIL ) }, "watcom" },; { {|| FindInPath( "clarm.exe" ) }, "msvcarm" },; { {|| FindInPath( "armasm.exe" ) }, "msvcarm" },; { {|| FindInPath( "ml64.exe" ) }, "msvc64" },; { {|| FindInPath( "ias.exe" ) }, "msvcia64" },; { {|| iif( FindInPath( "wcc386" ) == NIL,; FindInPath( "cl.exe" ),; NIL ) }, "msvc" },; { {|| _BCC_BIN_DETECT() }, "bcc" },; { {|| iif( FindInPath( "dbgeng.lib", GetEnv( "LIB" ) ) != NIL .AND. ( tmp1 := FindInPath( "pocc.exe" ) ) != NIL, tmp1, NIL ) }, "pocc64" },; { {|| FindInPath( "pocc.exe" ) }, "pocc" },; { {|| iif( ( tmp1 := FindInPath( "icl.exe" ) ) != NIL .AND. "itanium" $ Lower( tmp1 ), tmp1, NIL ) }, "iccia64" },; { {|| FindInPath( "icl.exe" ) }, "icc" },; { {|| FindInPath( "xCC.exe" ) }, "xcc" },; { {|| FindInPath( "dmc.exe" ) }, "dmc" }} #endif aCOMPSUP := { "mingw", "msvc", "bcc", "watcom", "icc", "pocc", "xcc",; "mingw64", "msvc64", "msvcia64", "iccia64", "pocc64" } l_aLIBHBGT := { "gtwin", "gtwvt", "gtgui" } hbmk[ _HBMK_cGTDEFAULT ] := "gtwin" hbmk[ _HBMK_cDynLibPrefix ] := "" hbmk[ _HBMK_cDynLibExt ] := ".dll" cBinExt := ".exe" cOptPrefix := "-/" /* NOTE: Some targets (watcom, pocc/xcc) need kernel32 explicitly. */ l_aLIBSYSCORE := { "kernel32", "user32", "gdi32", "advapi32", "ws2_32" } l_aLIBSYSMISC := { "winspool", "comctl32", "comdlg32", "shell32", "uuid", "ole32", "oleaut32", "mpr", "winmm", "mapi32", "imm32", "msimg32", "wininet" } CASE hbmk[ _HBMK_cPLAT ] == "wce" #if ! defined( __PLATFORM__UNIX ) aCOMPDET := { { {|| FindInPath( "clarm.exe" ) }, "msvcarm" },; { {|| FindInPath( "armasm.exe" ) }, "msvcarm" },; { {|| FindInPath( "pocc.exe" ) }, "poccarm" },; { {|| FindInPath( "arm-mingw32ce-gcc" ) }, "mingwarm", "arm-mingw32ce-" } ,; { {|| FindInPath( "arm-wince-mingw32ce-gcc" ) }, "mingwarm", "arm-wince-mingw32ce-" } ,; { {|| FindInPath( "i386-mingw32ce-gcc" ) }, "mingw" , "i386-mingw32ce-" } ,; { {|| iif( ! Empty( hbmk[ _HBMK_cCCPREFIX ] ) .OR. ! Empty( hbmk[ _HBMK_cCCPOSTFIX ] ),; FindInPath( hbmk[ _HBMK_cCCPREFIX ] + "gcc" + hbmk[ _HBMK_cCCPOSTFIX ] ),; NIL ) }, "mingwarm" } } #endif aCOMPSUP := { "mingwarm", "msvcarm", "poccarm" } l_aLIBHBGT := { "gtwvt", "gtgui" } hbmk[ _HBMK_cGTDEFAULT ] := "gtwvt" hbmk[ _HBMK_cDynLibPrefix ] := "" hbmk[ _HBMK_cDynLibExt ] := ".dll" cBinExt := ".exe" cOptPrefix := "-/" l_aLIBSYSCORE := { "coredll", "ws2" } l_aLIBSYSMISC := { "ceshell", "uuid", "ole32", "oleaut32", "wininet", "commdlg", "commctrl" } OTHERWISE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Platform value unknown: %1$s" ), hbmk[ _HBMK_cPLAT ] ) ) RETURN _ERRLEV_UNKNPLAT ENDCASE hbmk[ _HBMK_aLIBCOREGTDEF ] := ArrayJoin( aLIB_BASE_GT, l_aLIBHBGT ) hbmk[ _HBMK_aLIBCOREGT ] := hbmk[ _HBMK_aLIBCOREGTDEF ] /* Setup GUI state for Harbour default */ SetupForGT( hbmk[ _HBMK_cGTDEFAULT ], NIL, @hbmk[ _HBMK_lGUI ] ) /* Autodetect Harbour environment */ IF hbmk[ _HBMK_nHBMODE ] != _HBMODE_RAW_C IF ! hbmk_harbour_dirlayout_detect( hbmk, @l_cHB_INSTALL_PREFIX, .F. ) hbmk_OutErr( hbmk, I_( "Error: HB_INSTALL_PREFIX not set, failed to autodetect.\nRun this tool from its original location inside the Harbour installation or set HB_INSTALL_PREFIX environment variable to Harbour's root directory." ) ) RETURN _ERRLEV_FAILHBDETECT ENDIF #if defined( __PLATFORM__UNIX ) /* Detect system locations to enable shared library option by default */ IF hbmk[ _HBMK_cPLAT ] == "beos" lSysLoc := LEFTEQUAL( hbmk[ _HBMK_cHB_INSTALL_BIN ], "/boot/common" ) .OR. ; LEFTEQUAL( hbmk[ _HBMK_cHB_INSTALL_BIN ], "/boot/system" ) .OR. ; LEFTEQUAL( hbmk[ _HBMK_cHB_INSTALL_BIN ], "/boot/home/config" ) .OR. ; AScan( ListToArray( GetEnv( "LIBRARY_PATH" ), ":" ), {| tmp | LEFTEQUAL( hbmk[ _HBMK_cHB_INSTALL_LIB ], tmp ) } ) > 0 ELSE lSysLoc := LEFTEQUAL( hbmk[ _HBMK_cHB_INSTALL_BIN ], "/usr/local/bin" ) .OR. ; LEFTEQUAL( hbmk[ _HBMK_cHB_INSTALL_BIN ], "/usr/bin" ) .OR. ; AScan( ListToArray( GetEnv( "LD_LIBRARY_PATH" ), ":" ), {| tmp | LEFTEQUAL( hbmk[ _HBMK_cHB_INSTALL_LIB ], tmp ) } ) > 0 ENDIF #else lSysLoc := .F. #endif ELSE lSysLoc := .F. hbmk[ _HBMK_cHB_INSTALL_LI3 ] := "" hbmk[ _HBMK_cHB_INSTALL_BIN ] := "" hbmk[ _HBMK_cHB_INSTALL_LIB ] := "" hbmk[ _HBMK_cHB_INSTALL_INC ] := "" l_cHB_INSTALL_PREFIX := "" ENDIF aCOMPDET_EMBED := {} IF HBMK_ISPLAT( "win|wce|dos|os2|linux" ) #if defined( __PLATFORM__WINDOWS ) tmp3 := NIL; HB_SYMBOL_UNUSED( tmp3 ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "mingw" + hb_ps() + "bin" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "gcc" + hbmk[ _HBMK_cCCEXT ] ), tmp1, NIL ) }, "win" , "mingw" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "mingw64" + hb_ps() + "bin" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "gcc" + hbmk[ _HBMK_cCCEXT ] ), tmp1, NIL ) }, "win" , "mingw64" , "i686-w64-mingw32-" , NIL, NIL } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "mingw64" + hb_ps() + "bin" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "gcc" + hbmk[ _HBMK_cCCEXT ] ), tmp1, NIL ) }, "win" , "mingw64" , "x86_64-w64-mingw32-" , NIL, NIL } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "mingwarm" + hb_ps() + "bin" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "gcc" + hbmk[ _HBMK_cCCEXT ] ), tmp1, NIL ) }, "wce" , "mingwarm", "arm-mingw32ce-" , NIL, NIL } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "mingwarm" + hb_ps() + "bin" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "gcc" + hbmk[ _HBMK_cCCEXT ] ), tmp1, NIL ) }, "wce" , "mingwarm", "arm-wince-mingw32ce-", NIL, NIL } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "mingwarm" + hb_ps() + "bin" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "gcc" + hbmk[ _HBMK_cCCEXT ] ), tmp1, NIL ) }, "wce" , "mingw" , "i386-mingw32ce-" , NIL, NIL } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "djgpp" + hb_ps() + "bin" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "gcc.exe" ), tmp1, NIL ) }, "dos" , "djgpp" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "watcom" + hb_ps() + "binnt" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "wcc386.exe" ), tmp1, NIL ) }, "win" , "watcom" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "watcom" + hb_ps() + "binnt" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "wcc386.exe" ), tmp1, NIL ) }, "dos" , "watcom" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "watcom" + hb_ps() + "binnt" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "wcc386.exe" ), tmp1, NIL ) }, "os2" , "watcom" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "watcom" + hb_ps() + "binnt" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "wcc386.exe" ), tmp1, NIL ) }, "linux", "watcom" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "pocc" + hb_ps() + "Bin" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "pocc.exe" ), tmp1, NIL ) }, "win" , "pocc" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "pocc" + hb_ps() + "Bin" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "pocc.exe" ), tmp1, NIL ) }, "win" , "pocc64" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "pocc" + hb_ps() + "Bin" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "pocc.exe" ), tmp1, NIL ) }, "wce" , "poccarm" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) #elif defined( __PLATFORM__DOS ) tmp3 := NIL; HB_SYMBOL_UNUSED( tmp3 ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "djgpp" + hb_ps() + "bin" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "gcc.exe" ), tmp1, NIL ) }, "dos" , "djgpp" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "watcom" + hb_ps() + "binw" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "wcc386.exe" ), tmp1, NIL ) }, "dos" , "watcom" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "watcom" + hb_ps() + "binw" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "wcc386.exe" ), tmp1, NIL ) }, "win" , "watcom" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "watcom" + hb_ps() + "binw" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "wcc386.exe" ), tmp1, NIL ) }, "os2" , "watcom" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "watcom" + hb_ps() + "binw" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "wcc386.exe" ), tmp1, NIL ) }, "linux", "watcom" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) #elif defined( __PLATFORM__OS2 ) tmp3 := NIL; HB_SYMBOL_UNUSED( tmp3 ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "watcom" + hb_ps() + "binp" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "wcc386.exe" ), tmp1, NIL ) }, "os2" , "watcom" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "watcom" + hb_ps() + "binp" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "wcc386.exe" ), tmp1, NIL ) }, "win" , "watcom" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "watcom" + hb_ps() + "binp" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "wcc386.exe" ), tmp1, NIL ) }, "dos" , "watcom" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) AAdd( aCOMPDET_EMBED, { {| cPrefix | tmp1 := hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) + _COMPEMBED_BASE_ + "watcom" + hb_ps() + "binp" ), iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "wcc386.exe" ), tmp1, NIL ) }, "linux", "watcom" , "" , NIL, {| cARCH, cCOMP, cPathBin | hbmk_COMP_Setup( cARCH, cCOMP, cPathBin + hb_ps() + ".." ) } } ) #elif defined( __PLATFORM__UNIX ) IF Empty( hbmk[ _HBMK_cCCPATH ] ) .AND. ; Empty( hbmk[ _HBMK_cCCPREFIX ] ) .AND. ; Empty( hbmk[ _HBMK_cCCPOSTFIX ] ) DO CASE CASE hbmk[ _HBMK_cCOMP ] == "mingw64" FOR EACH tmp IN { "/usr", "/usr/local", "/usr/local/mingw32", "/opt/xmingw", "/opt/cross" } FOR EACH tmp2 IN { "amd64-mingw32msvc" } AAdd( aCOMPDET_EMBED, { {| cPrefix, tmp1 | iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "gcc" + hbmk[ _HBMK_cCCEXT ] ), tmp1, NIL ) }, "win", "mingw64", tmp2 + "-", tmp + hb_ps() + "bin", NIL } ) AAdd( aCOMPDET_EMBED, { {| cPrefix, tmp1 | iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "gcc" + hbmk[ _HBMK_cCCEXT ] ), tmp1, NIL ) }, "win", "mingw64", "", tmp + hb_ps() + tmp2 + hb_ps() + "bin", NIL } ) NEXT NEXT CASE hbmk[ _HBMK_cPLAT ] == "win" .OR. hbmk[ _HBMK_cCOMP ] == "mingw" FOR EACH tmp IN { "/usr", "/usr/local", "/usr/local/mingw32", "/opt/xmingw", "/opt/cross" } FOR EACH tmp2 IN { "i?86-mingw", "i?86-pc-mingw", "i?86-mingw32", "i?86-pc-mingw32", "i?86-mingw32msvc", "i?86-pc-mingw32msvc" } FOR tmp3 := 3 TO 6 AAdd( aCOMPDET_EMBED, { {| cPrefix, tmp1 | iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "gcc" + hbmk[ _HBMK_cCCEXT ] ), tmp1, NIL ) }, "win", "mingw", StrTran( tmp2, "?", hb_ntos( tmp3 ) ) + "-", tmp + hb_ps() + "bin", NIL } ) AAdd( aCOMPDET_EMBED, { {| cPrefix, tmp1 | iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "gcc" + hbmk[ _HBMK_cCCEXT ] ), tmp1, NIL ) }, "win", "mingw", "", tmp + hb_ps() + StrTran( tmp2, "?", hb_ntos( tmp3 ) ) + hb_ps() + "bin", NIL } ) NEXT NEXT NEXT CASE hbmk[ _HBMK_cPLAT ] == "wce" AAdd( aCOMPDET_EMBED, { {| cPrefix, tmp1 | iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "gcc" + hbmk[ _HBMK_cCCEXT ] ), tmp1, NIL ) }, "wce", "mingwarm", "arm-mingw32ce-" , "/opt/mingw32ce/bin" , NIL } ) AAdd( aCOMPDET_EMBED, { {| cPrefix, tmp1 | iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "gcc" + hbmk[ _HBMK_cCCEXT ] ), tmp1, NIL ) }, "wce", "mingwarm", "arm-wince-mingw32ce-", "/opt/mingw32ce/bin" , NIL } ) AAdd( aCOMPDET_EMBED, { {| cPrefix, tmp1 | iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "gcc" + hbmk[ _HBMK_cCCEXT ] ), tmp1, NIL ) }, "wce", "mingw" , "i386-mingw32ce-" , "/opt/x86mingw32ce/bin", NIL } ) CASE hbmk[ _HBMK_cPLAT ] == "dos" AAdd( aCOMPDET_EMBED, { {| cPrefix, tmp1 | iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "gcc" + hbmk[ _HBMK_cCCEXT ] ), tmp1, NIL ) }, "dos", "djgpp" , "i586-pc-msdosdjgpp-" , NIL , NIL } ) AAdd( aCOMPDET_EMBED, { {| cPrefix, tmp1 | iif( hb_FileExists( tmp1 + hb_ps() + cPrefix + "gcc" + hbmk[ _HBMK_cCCEXT ] ), tmp1, NIL ) }, "dos", "djgpp" , "i586-pc-msdosdjgpp-" , "/usr/local" , NIL } ) ENDCASE ENDIF #endif ENDIF /* Autodetect compiler */ cPath_CompC := NIL IF hbmk[ _HBMK_lStopAfterHarbour ] /* If we're just compiling .prg to .c we don't need a C compiler. */ hbmk[ _HBMK_cCOMP ] := "" ELSE IF Empty( hbmk[ _HBMK_cCOMP ] ) .OR. hbmk[ _HBMK_cCOMP ] == "bld" IF Len( aCOMPSUP ) == 1 hbmk[ _HBMK_cCOMP ] := aCOMPSUP[ 1 ] ELSEIF HBMK_ISPLAT( "darwin|bsd|hpux|sunos|beos|qnx|android|vxworks|linux|cygwin|minix|aix" ) .OR. ; hbmk[ _HBMK_cCOMP ] == "bld" hbmk[ _HBMK_cCOMP ] := hb_Version( HB_VERSION_BUILD_COMP ) IF AScan( aCOMPSUP, {| tmp | tmp == hbmk[ _HBMK_cCOMP ] } ) == 0 hbmk[ _HBMK_cCOMP ] := NIL ENDIF ELSE IF Empty( hbmk[ _HBMK_cCOMP ] ) .AND. ! Empty( aCOMPDET ) lDoSupportDetection := Empty( hbmk[ _HBMK_cHB_INSTALL_LIB ] ) .AND. ; hb_DirExists( hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) ) + "lib" + hb_ps() + hbmk[ _HBMK_cPLAT ] ) /* Check compilers */ FOR tmp := 1 TO Len( aCOMPDET ) IF ! Empty( cPath_CompC := Eval( aCOMPDET[ tmp ][ _COMPDET_bBlock ] ) ) IF ! lDoSupportDetection .OR. ; hb_DirExists( hb_PathNormalize( hb_DirSepAdd( l_cHB_INSTALL_PREFIX ) ) + "lib" +; hb_ps() + hbmk[ _HBMK_cPLAT ] +; hb_ps() + aCOMPDET[ tmp ][ _COMPDET_cCOMP ] +; PathSepToSelf( hbmk[ _HBMK_cBUILD ] ) ) hbmk[ _HBMK_cCOMP ] := aCOMPDET[ tmp ][ _COMPDET_cCOMP ] IF Len( aCOMPDET[ tmp ] ) >= _COMPDET_cCCPREFIX .AND. aCOMPDET[ tmp ][ _COMPDET_cCCPREFIX ] != NIL hbmk[ _HBMK_cCCPREFIX ] := aCOMPDET[ tmp ][ _COMPDET_cCCPREFIX ] ENDIF IF Len( aCOMPDET[ tmp ] ) >= _COMPDET_cCCPOSTFIX .AND. aCOMPDET[ tmp ][ _COMPDET_cCCPOSTFIX ] != NIL hbmk[ _HBMK_cCCPOSTFIX ] := aCOMPDET[ tmp ][ _COMPDET_cCCPOSTFIX ] ENDIF tmp1 := hbmk[ _HBMK_cPLAT ] IF Len( aCOMPDET[ tmp ] ) >= _COMPDET_cPLAT .AND. aCOMPDET[ tmp ][ _COMPDET_cPLAT ] != NIL hbmk[ _HBMK_cPLAT ] := aCOMPDET[ tmp ][ _COMPDET_cPLAT ] ENDIF /* Hack autodetect watcom platform by looking at the header path config. TODO: Do it properly */ IF hbmk[ _HBMK_cCOMP ] == "watcom" DO CASE CASE FindInPath( "os2.h", GetEnv( "INCLUDE" ) ) != NIL hbmk[ _HBMK_cPLAT ] := "os2" CASE FindInPath( "dirent.h", GetEnv( "INCLUDE" ) ) != NIL hbmk[ _HBMK_cPLAT ] := "linux" CASE FindInPath( "windows.h", GetEnv( "INCLUDE" ) ) != NIL hbmk[ _HBMK_cPLAT ] := "win" OTHERWISE hbmk[ _HBMK_cPLAT ] := "dos" ENDCASE ENDIF IF !( hbmk[ _HBMK_cPLAT ] == tmp1 ) .AND. hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Autodetected platform: %1$s (adjusted)" ), hbmk[ _HBMK_cPLAT ] ) ) ENDIF EXIT ELSE IF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Autodetected C compiler '%1$s' skipped because required Harbour core libraries are not found." ), aCOMPDET[ tmp ][ _COMPDET_cCOMP ] ) ) ENDIF ENDIF ENDIF NEXT ENDIF ENDIF IF Empty( hbmk[ _HBMK_cCOMP ] ) /* Autodetect embedded installations */ FOR tmp := 1 TO Len( aCOMPDET_EMBED ) IF hbmk[ _HBMK_cPLAT ] == aCOMPDET_EMBED[ tmp ][ _COMPDETE_cPLAT ] .AND. ; ! Empty( cPath_CompC := Eval( aCOMPDET_EMBED[ tmp ][ _COMPDETE_bBlock ], aCOMPDET_EMBED[ tmp ][ _COMPDETE_cCCPREFIX ], aCOMPDET_EMBED[ tmp ][ _COMPDETE_cCCPATH ] ) ) hbmk[ _HBMK_cCOMP ] := aCOMPDET_EMBED[ tmp ][ _COMPDETE_cCOMP ] hbmk[ _HBMK_cCCPREFIX ] := aCOMPDET_EMBED[ tmp ][ _COMPDETE_cCCPREFIX ] hbmk[ _HBMK_cCCPATH ] := cPath_CompC IF HB_ISBLOCK( aCOMPDET_EMBED[ tmp ][ _COMPDETE_bSetup ] ) Eval( aCOMPDET_EMBED[ tmp ][ _COMPDETE_bSetup ], hbmk[ _HBMK_cPLAT ], hbmk[ _HBMK_cCOMP ], cPath_CompC ) ENDIF EXIT ENDIF NEXT ENDIF IF ! Empty( hbmk[ _HBMK_cCOMP ] ) IF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Autodetected C compiler: %1$s" ), hbmk[ _HBMK_cCOMP ] ) ) ENDIF ELSE IF Empty( aCOMPDET ) _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Choose a C compiler by using -compiler= option.\nYou have the following choices on your platform: %1$s" ), ArrayToList( aCOMPSUP, ", " ) ) ) ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Could not detect any supported C compiler in your PATH.\nSetup one or set -compiler= option to one of these values: %1$s" ), ArrayToList( aCOMPSUP, ", " ) ) ) ENDIF RETURN _ERRLEV_UNKNCOMP ENDIF ELSE IF AScan( aCOMPSUP, {| tmp | tmp == hbmk[ _HBMK_cCOMP ] } ) == 0 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Compiler value unknown: %1$s" ), hbmk[ _HBMK_cCOMP ] ) ) RETURN _ERRLEV_UNKNCOMP ENDIF /* Detect cross platform CCPREFIX and CCPATH if embedded installation is detected */ FOR tmp := 1 TO Len( aCOMPDET_EMBED ) IF aCOMPDET_EMBED[ tmp ][ _COMPDETE_cPLAT ] == hbmk[ _HBMK_cPLAT ] .AND. ; aCOMPDET_EMBED[ tmp ][ _COMPDETE_cCOMP ] == hbmk[ _HBMK_cCOMP ] .AND. ; ! Empty( cPath_CompC := Eval( aCOMPDET_EMBED[ tmp ][ _COMPDETE_bBlock ], aCOMPDET_EMBED[ tmp ][ _COMPDETE_cCCPREFIX ], aCOMPDET_EMBED[ tmp ][ _COMPDETE_cCCPATH ] ) ) hbmk[ _HBMK_cCCPATH ] := cPath_CompC hbmk[ _HBMK_cCCPREFIX ] := aCOMPDET_EMBED[ tmp ][ _COMPDETE_cCCPREFIX ] IF HB_ISBLOCK( aCOMPDET_EMBED[ tmp ][ _COMPDETE_bSetup ] ) Eval( aCOMPDET_EMBED[ tmp ][ _COMPDETE_bSetup ], hbmk[ _HBMK_cPLAT ], hbmk[ _HBMK_cCOMP ], cPath_CompC ) ENDIF EXIT ENDIF NEXT ENDIF ENDIF IF Empty( hbmk[ _HBMK_cCPU ] ) hbmk[ _HBMK_cCPU ] := hbmk_CPU( hbmk ) ENDIF /* Tweaks to compiler/platform environments */ IF hbmk[ _HBMK_cCOMP ] == "bcc" /* NOTE: Hack to tweak bcc setup to include one additional compiler lib dir to lib search path. */ IF Empty( cPath_CompC ) cPath_CompC := _BCC_BIN_DETECT() ENDIF IF ! Empty( cPath_CompC ) /* NOTE: Automatically configure bcc installation with missing configuration. [vszakats] Permanently enabled. Apparently this is still top problem for bcc users. It's also in sync this way with Harbour core build system. */ IF .T. .OR. ; ! hb_FileExists( hb_FNameDir( cPath_CompC ) + ".." + hb_ps() + "Bin" + hb_ps() + "bcc32.cfg" ) .OR. ; ! hb_FileExists( hb_FNameDir( cPath_CompC ) + ".." + hb_ps() + "Bin" + hb_ps() + "ilink32.cfg" ) /* NOTE: BCC 5.8 has different casing: 'include', 'lib', 'psdk' respectively. */ AAdd( hbmk[ _HBMK_aINCPATH ], hb_PathNormalize( hb_FNameDir( cPath_CompC ) + ".." + hb_ps() + "Include" ) ) AAdd( hbmk[ _HBMK_aLIBPATH ], hb_PathNormalize( hb_FNameDir( cPath_CompC ) + ".." + hb_ps() + "Lib" ) ) /* NOTE: BCC 5.8 (and upper ?) thing */ tmp := hb_PathNormalize( hb_FNameDir( cPath_CompC ) + ".." + hb_ps() + "Include" + hb_ps() + "dinkumware" ) IF hb_DirExists( tmp ) AAdd( hbmk[ _HBMK_aINCPATH ], tmp ) ENDIF ENDIF AAdd( hbmk[ _HBMK_aLIBPATH ], hb_PathNormalize( hb_FNameDir( cPath_CompC ) + ".." + hb_ps() + "Lib" + hb_ps() + "PSDK" ) ) ENDIF ENDIF DO CASE CASE hbmk[ _HBMK_cPLAT ] == "vxworks" AAdd( hbmk[ _HBMK_aINCPATH ], PathSepToSelf( GetEnv( "WIND_BASE" ) + "/target/usr/h" ) ) AAdd( hbmk[ _HBMK_aINCPATH ], PathSepToSelf( GetEnv( "WIND_BASE" ) + "/target/usr/h/wrn/coreip" ) ) #if 0 CASE hbmk[ _HBMK_cPLAT ] == "bsd" IF hb_DirExists( "/usr/local/lib" ) /* For ports */ AAddNew( hbmk[ _HBMK_aLIBPATH ], "/usr/local/lib" ) ENDIF IF hb_DirExists( "/usr/local/include" ) AAdd( hbmk[ _HBMK_aINCPATH ], "/usr/local/include" ) ENDIF IF hb_DirExists( "/usr/pkg/lib" ) /* For pkgsrc */ AAddNew( hbmk[ _HBMK_aLIBPATH ], "/usr/pkg/lib" ) ENDIF IF hb_DirExists( "/usr/pkg/include" ) AAdd( hbmk[ _HBMK_aINCPATH ], "/usr/pkg/include" ) ENDIF #endif ENDCASE /* Tweaks to compiler setup */ IF hbmk[ _HBMK_cCOMP ] == "djgpp" hbmk[ _HBMK_cDynLibExt ] := ".dxe" ENDIF /* Detect compiler version (where applicable) */ IF hbmk[ _HBMK_nCOMPVer ] == 0 .AND. ! Empty( cPath_CompC ) DO CASE CASE ( hbmk[ _HBMK_cPLAT ] == "cygwin" .AND. hbmk[ _HBMK_cCOMP ] == "gcc" ) IF File( hb_FNameDir( cPath_CompC ) + "i686-pc-cygwin-gcc-3.4" + hb_osFileMask() ) hbmk[ _HBMK_nCOMPVer ] := 34 ENDIF CASE ( hbmk[ _HBMK_cPLAT ] == "win" .AND. hbmk[ _HBMK_cCOMP ] == "gcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "win" .AND. hbmk[ _HBMK_cCOMP ] == "mingw" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "win" .AND. hbmk[ _HBMK_cCOMP ] == "mingw64" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "wce" .AND. hbmk[ _HBMK_cCOMP ] == "mingw" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "wce" .AND. hbmk[ _HBMK_cCOMP ] == "mingwarm" ) DO CASE CASE File( hb_FNameDir( cPath_CompC ) + "mingw32-gcc-4.5" + hb_osFileMask() ) .OR. ; File( hb_FNameDir( cPath_CompC ) + "i686-w64-mingw32-gcc-4.5" + hb_osFileMask() ) .OR. ; File( hb_FNameDir( cPath_CompC ) + "x86_64-pc-mingw32-gcc-4.5" + hb_osFileMask() ) .OR. ; File( hb_FNameDir( cPath_CompC ) + "x86_64-w64-mingw32-gcc-4.5" + hb_osFileMask() ) hbmk[ _HBMK_nCOMPVer ] := 45 CASE File( hb_FNameDir( cPath_CompC ) + "mingw32-gcc-4.4" + hb_osFileMask() ) hbmk[ _HBMK_nCOMPVer ] := 44 CASE File( hb_FNameDir( cPath_CompC ) + "mingw32-gcc-4.3" + hb_osFileMask() ) hbmk[ _HBMK_nCOMPVer ] := 43 CASE File( hb_FNameDir( cPath_CompC ) + "mingw32-gcc-3.4" + hb_osFileMask() ) hbmk[ _HBMK_nCOMPVer ] := 34 CASE File( hb_FNameDir( cPath_CompC ) + "mingw32-gcc-4.6" + hb_osFileMask() ) .OR. ; File( hb_FNameDir( cPath_CompC ) + "i686-w64-mingw32-gcc-4.6" + hb_osFileMask() ) .OR. ; File( hb_FNameDir( cPath_CompC ) + "x86_64-pc-mingw32-gcc-4.6" + hb_osFileMask() ) .OR. ; File( hb_FNameDir( cPath_CompC ) + "x86_64-w64-mingw32-gcc-4.6" + hb_osFileMask() ) hbmk[ _HBMK_nCOMPVer ] := 46 ENDCASE CASE ( hbmk[ _HBMK_cPLAT ] == "win" .AND. HBMK_ISCOMP( "msvc|msvc64|msvcia64|icc|iccia64" ) ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "wce" .AND. hbmk[ _HBMK_cCOMP ] == "msvcarm" ) /* NOTE: Cross-platform: wce/ARM on win/x86 */ /* Compatibility with Harbour GNU Make system */ IF hbmk[ _HBMK_cCOMP ] == "msvcarm" .AND. "clarm.exe" $ cPath_CompC hbmk[ _HBMK_nCOMPVer ] := 1310 /* Visual Studio .NET 2003 */ ELSE DO CASE CASE "VC98" $ cPath_CompC hbmk[ _HBMK_nCOMPVer ] := 1200 CASE "2003" $ cPath_CompC hbmk[ _HBMK_nCOMPVer ] := 1300 CASE "8" + hb_ps() $ cPath_CompC /* Visual Studio 2005 */ hbmk[ _HBMK_nCOMPVer ] := 1400 CASE "9.0" $ cPath_CompC /* Visual Studio 2008 or Windows SDK 7.0 */ hbmk[ _HBMK_nCOMPVer ] := 1500 CASE "10.0" $ cPath_CompC /* Visual Studio 2010 or Windows SDK 7.1 */ hbmk[ _HBMK_nCOMPVer ] := 1600 OTHERWISE hbmk[ _HBMK_nCOMPVer ] := 1400 ENDCASE ENDIF ENDCASE ENDIF /* Finish detecting bin/lib/include dirs */ hbmk_harbour_dirlayout_init( hbmk, l_cHB_INSTALL_PREFIX ) /* Display detection results */ IF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Using Harbour: %1$s %2$s %3$s %4$s" ), hbmk[ _HBMK_cHB_INSTALL_BIN ], hbmk[ _HBMK_cHB_INSTALL_INC ], hbmk[ _HBMK_cHB_INSTALL_LIB ], hbmk[ _HBMK_cHB_INSTALL_DYN ] ) ) IF ! Empty( cPath_CompC ) IF Empty( hbmk[ _HBMK_cCCPREFIX ] ) .AND. ; Empty( hbmk[ _HBMK_cCCPOSTFIX ] ) _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Using C compiler: %1$s" ), cPath_CompC ) ) ELSE _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Using C compiler: %1$s [%2$s...%3$s]" ), cPath_CompC, hbmk[ _HBMK_cCCPREFIX ], hbmk[ _HBMK_cCCPOSTFIX ] ) ) ENDIF ENDIF ENDIF /* Build with shared libs by default, if we're installed to default system locations. */ IF lSysLoc .AND. HBMK_ISPLAT( "darwin|bsd|hpux|sunos|beos|qnx|android|vxworks|linux|cygwin|aix" ) hbmk[ _HBMK_lSHARED ] := .T. hbmk[ _HBMK_lSTATICFULL ] := .F. ELSE hbmk[ _HBMK_lSHARED ] := .F. hbmk[ _HBMK_lSTATICFULL ] := .F. ENDIF /* Process command line */ hbmk_init_stage2( hbmk ) l_aOPTRUN := {} l_aOBJA := {} l_cLIBSELF := NIL l_cIMPLIBDIR := NIL l_cIMPLIBNAME := NIL aParams := {} /* Process build-time configuration */ #if defined( HB_HAS_WATT ) IF hbmk[ _HBMK_cPLAT ] == "dos" SWITCH hbmk[ _HBMK_cCOMP ] CASE "djgpp" ; AAdd( hbmk[ _HBMK_aLIBUSERSYS ], "watt" ) ; EXIT CASE "watcom" ; AAdd( hbmk[ _HBMK_aLIBUSERSYS ], "wattcpwf" ) ; EXIT ENDSWITCH IF hb_DirExists( tmp := PathSepToSelf( GetEnv( "WATT_ROOT" ) ) + hb_ps() + "lib" ) AAdd( hbmk[ _HBMK_aLIBPATH ], tmp ) ENDIF ENDIF #endif /* Process automatic make files in current dir. */ IF hbmk[ _HBMK_lAutoHBM ] .AND. hb_FileExists( _HBMK_AUTOHBM_NAME ) IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Processing local make script: %1$s" ), _HBMK_AUTOHBM_NAME ) ) ENDIF HBM_Load( hbmk, aParams, _HBMK_AUTOHBM_NAME, 1, .F. ) /* Do not allow sub-projects in automatic make file */ ENDIF /* Collect all command line parameters */ FOR EACH cParam IN aArgs DO CASE CASE !( Left( cParam, 1 ) == "-" ) .AND. Len( cParam ) >= 1 .AND. Left( cParam, 1 ) == "@" .AND. ; !( Lower( hb_FNameExt( cParam ) ) == ".clp" ) cParam := SubStr( cParam, 2 ) IF Empty( hb_FNameExt( cParam ) ) cParam := hb_FNameExtSet( cParam, ".hbm" ) ENDIF IF !( Lower( hb_FNameExt( cParam ) ) == ".hbm" ) .AND. lAcceptLDClipper rtlnk_process( hbmk, MemoRead( PathSepToSelf( cParam ) ), @hbmk[ _HBMK_cPROGNAME ], @hbmk[ _HBMK_aOBJUSER ], @hbmk[ _HBMK_aLIBUSER ] ) IF ! Empty( hbmk[ _HBMK_aOBJUSER ] ) hb_default( @hbmk[ _HBMK_cFIRST ], hbmk[ _HBMK_aOBJUSER ][ 1 ] ) ENDIF ELSE tmp := HBM_Load( hbmk, aParams, PathSepToSelf( cParam ), 1, .T. ) /* Load parameters from script file */ IF tmp != _ERRLEV_OK .AND. ; tmp != _ERRLEV_STOP RETURN tmp ENDIF ENDIF CASE !( Left( cParam, 1 ) == "-" ) .AND. ; ( Lower( hb_FNameExt( cParam ) ) == ".hbm" .OR. ; Lower( hb_FNameExt( cParam ) ) == ".hbp" ) cParam := PathSepToSelf( cParam ) /* search for .hbp files in macro libpaths */ IF Lower( hb_FNameExt( cParam ) ) == ".hbp" .AND. ! hbmk_hb_FileExists( cParam ) FOR EACH tmp IN hbmk[ _HBMK_aLIBPATH ] IF ( _MACRO_LATE_PREFIX + _MACRO_OPEN ) $ tmp .AND. hbmk_hb_FileExists( hb_DirSepAdd( PathSepToSelf( MacroProc( hbmk, tmp, cParam, _MACRO_LATE_PREFIX ) ) ) + hb_FNameNameExt( cParam ) ) cParam := hb_DirSepAdd( PathSepToSelf( MacroProc( hbmk, tmp, cParam, _MACRO_LATE_PREFIX ) ) ) + hb_FNameNameExt( cParam ) IF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Found project reference on library search path: %1$s" ), cParam ) ) ENDIF EXIT ENDIF NEXT ENDIF tmp := HBM_Load( hbmk, aParams, cParam, 1, .T. ) /* Load parameters from script file */ IF tmp != _ERRLEV_OK .AND. ; tmp != _ERRLEV_STOP RETURN tmp ENDIF OTHERWISE AAdd( aParams, { cParam, "", 0 } ) ENDCASE NEXT /* Process automatic control files. */ HBC_ProcessAuto( hbmk ) /* Process command line (2nd pass) */ FOR EACH aParam IN aParams cParam := ArchCompFilter( hbmk, aParam[ _PAR_cParam ], aParam[ _PAR_cFileName ] ) cParamL := Lower( cParam ) DO CASE CASE Empty( cParam ) /* do nothing */ CASE Left( cParamL, 6 ) == "-comp=" .OR. ; Left( cParamL, 10 ) == "-compiler=" .OR. ; Left( cParamL, 6 ) == "-plat=" .OR. ; Left( cParamL, 10 ) == "-platform=" .OR. ; Left( cParamL, 6 ) == "-arch=" .OR. ; /* Compatibility */ Left( cParamL, 5 ) == "-cpu=" .OR. ; Left( cParamL, 7 ) == "-build=" .OR. ; Left( cParamL, 6 ) == "-lang=" .OR. ; Left( cParamL, 4 ) == "-shl" .OR. ; Left( cParamL, 7 ) == "-width=" .OR. ; cParamL == "-autohbm" .OR. ; cParamL == "-autohbm-" .OR. ; cParamL == "-hbrun" .OR. ; cParamL == "-hbraw" .OR. ; cParamL == "-hbcmp" .OR. ; cParamL == "-hbcc" .OR. ; cParamL == "-hblnk" .OR. ; cParamL == "-nohbc" .OR. ; /* Ignore it for compatibility */ cParamL == "-xhb" .OR. ; cParamL == "-hb10" .OR. ; cParamL == "-hb20" .OR. ; cParamL == "-hbc" .OR. ; cParamL == "-clipper" .OR. ; cParamL == "-rtlink" .OR. ; cParamL == "-blinker" .OR. ; cParamL == "-exospace" /* Simply ignore. They were already processed in the first pass. */ /* -env options used inside makefiles */ CASE Left( cParamL, 5 ) == "-env:" IF ! Empty( aParam[ _PAR_cFileName ] ) ProcEnvOption( SubStr( cParam, 6 ) ) ENDIF CASE cParamL == "-quiet" ; hbmk[ _HBMK_lQuiet ] := .T. ; hbmk[ _HBMK_lInfo ] := .F. CASE cParamL == "-quiet-" IF ! lDumpInfo hbmk[ _HBMK_lQuiet ] := .F. ENDIF CASE cParamL == "-info" IF ! lDumpInfo hbmk[ _HBMK_lInfo ] := .T. ENDIF CASE cParamL == "-pause" ; lPause := .T. CASE cParamL == "-hbexe" IF ! l_lTargetSelected l_lTargetSelected := .T. hbmk[ _HBMK_lStopAfterHarbour ] := .F. ; lStopAfterCComp := .F. ; hbmk[ _HBMK_lCreateLib ] := .F. ; Set_lCreateDyn( hbmk, .F. ) ; hbmk[ _HBMK_lCreateImpLib ] := .F. ENDIF CASE cParamL == "-hblib" IF ! l_lTargetSelected l_lTargetSelected := .T. hbmk[ _HBMK_lStopAfterHarbour ] := .F. ; lStopAfterCComp := .T. ; hbmk[ _HBMK_lCreateLib ] := .T. ; Set_lCreateDyn( hbmk, .F. ) ; hbmk[ _HBMK_lCreateImpLib ] := .F. ENDIF CASE cParamL == "-hbdyn" IF ! l_lTargetSelected l_lTargetSelected := .T. hbmk[ _HBMK_lStopAfterHarbour ] := .F. ; lStopAfterCComp := .T. ; hbmk[ _HBMK_lCreateLib ] := .F. ; Set_lCreateDyn( hbmk, .T. ) ; hbmk[ _HBMK_lCreateImpLib ] := .F. ; hbmk[ _HBMK_lDynVM ] := .F. ; l_lNOHBLIB := .T. ENDIF CASE cParamL == "-hbdynvm" IF ! l_lTargetSelected l_lTargetSelected := .T. hbmk[ _HBMK_lStopAfterHarbour ] := .F. ; lStopAfterCComp := .T. ; hbmk[ _HBMK_lCreateLib ] := .F. ; Set_lCreateDyn( hbmk, .T. ) ; hbmk[ _HBMK_lCreateImpLib ] := .F. ; hbmk[ _HBMK_lDynVM ] := .T. ; l_lNOHBLIB := .F. ENDIF CASE cParamL == "-hbcontainer" IF ! l_lTargetSelected l_lTargetSelected := .T. hbmk[ _HBMK_lContainer ] := .T. ; hbmk[ _HBMK_lStopAfterInit ] := .T. ; hbmk[ _HBMK_lCreateLib ] := .F. ; Set_lCreateDyn( hbmk, .F. ) ; hbmk[ _HBMK_lCreateImpLib ] := .F. ENDIF CASE cParamL == "-hbimplib" IF ! l_lTargetSelected l_lTargetSelected := .T. hbmk[ _HBMK_lCreateImpLib ] := .T. ; lAcceptIFlag := .T. ENDIF CASE cParamL == "-gui" .OR. ; cParamL == "-mwindows" ; hbmk[ _HBMK_lGUI ] := .T. /* Compatibility */ CASE cParamL == "-std" .OR. ; cParamL == "-mconsole" ; hbmk[ _HBMK_lGUI ] := .F. /* Compatibility */ CASE cParamL == "-mt" ; hbmk[ _HBMK_lMT ] := .T. CASE cParamL == "-st" ; hbmk[ _HBMK_lMT ] := .F. CASE cParamL == "-shared" ; hbmk[ _HBMK_lSHARED ] := .T. ; hbmk[ _HBMK_lSTATICFULL ] := .F. ; hbmk[ _HBMK_lSHAREDDIST ] := NIL CASE cParamL == "-fullshared" ; hbmk[ _HBMK_lSHARED ] := .T. ; hbmk[ _HBMK_lSTATICFULL ] := .F. ; hbmk[ _HBMK_lSHAREDDIST ] := .T. CASE cParamL == "-fixshared" ; hbmk[ _HBMK_lSHARED ] := .T. ; hbmk[ _HBMK_lSTATICFULL ] := .F. ; hbmk[ _HBMK_lSHAREDDIST ] := .F. CASE cParamL == "-static" ; hbmk[ _HBMK_lSHARED ] := .F. ; hbmk[ _HBMK_lSTATICFULL ] := .F. ; hbmk[ _HBMK_lSHAREDDIST ] := NIL CASE cParamL == "-fullstatic" ; hbmk[ _HBMK_lSHARED ] := .F. ; hbmk[ _HBMK_lSTATICFULL ] := .T. ; hbmk[ _HBMK_lSHAREDDIST ] := NIL CASE cParamL == "-pic" ; hbmk[ _HBMK_lPIC ] := .T. CASE cParamL == "-pic-" ; hbmk[ _HBMK_lPIC ] := .F. CASE cParamL == "-nohblib" ; l_lNOHBLIB := .T. CASE cParamL == "-nohblib-" ; l_lNOHBLIB := .F. CASE cParamL == "-nomiscsyslib" ; l_lLIBSYSMISC := .F. CASE cParamL == "-nomiscsyslib-" ; l_lLIBSYSMISC := .T. CASE cParamL == "-nolibgrouping" ; l_lLIBGROUPING := .F. CASE cParamL == "-nolibgrouping-" ; l_lLIBGROUPING := .T. CASE cParamL == "-bldf" ; hbmk[ _HBMK_lBLDFLGP ] := hbmk[ _HBMK_lBLDFLGC ] := hbmk[ _HBMK_lBLDFLGL ] := .T. CASE cParamL == "-bldf-" ; hbmk[ _HBMK_lBLDFLGP ] := hbmk[ _HBMK_lBLDFLGC ] := hbmk[ _HBMK_lBLDFLGL ] := .F. CASE Left( cParamL, 6 ) == "-bldf=" cParam := SubStr( cParam, 7 ) hbmk[ _HBMK_lBLDFLGP ] := "p" $ cParam hbmk[ _HBMK_lBLDFLGC ] := "c" $ cParam hbmk[ _HBMK_lBLDFLGL ] := "l" $ cParam CASE cParamL == "-debug" ; hbmk[ _HBMK_lDEBUG ] := .T. CASE cParamL == "-debug-" .OR. ; cParamL == "-nodebug" ; hbmk[ _HBMK_lDEBUG ] := .F. CASE cParamL == "-optim" ; hbmk[ _HBMK_lOPTIM ] := .T. CASE cParamL == "-optim-" .OR. ; cParamL == "-noopt" ; hbmk[ _HBMK_lOPTIM ] := .F. CASE cParamL == "-debugtime" ; hbmk[ _HBMK_lDEBUGTIME ] := .T. CASE cParamL == "-debuginc" ; hbmk[ _HBMK_lDEBUGINC ] := .T. CASE cParamL == "-debugstub" ; hbmk[ _HBMK_lDEBUGSTUB ] := .T. CASE cParamL == "-debugi18n" ; hbmk[ _HBMK_lDEBUGI18N ] := .T. CASE cParamL == "-debugdepd" ; hbmk[ _HBMK_lDEBUGDEPD ] := .T. CASE cParamL == "-debugpars" ; hbmk[ _HBMK_lDEBUGPARS ] := .T. CASE cParamL == "-debugrte" ; nLevel += cParamL /* invalid code to trigger RTE */ CASE cParamL == "-nulrdd" ; hbmk[ _HBMK_lNULRDD ] := .T. CASE cParamL == "-nulrdd-" ; hbmk[ _HBMK_lNULRDD ] := .F. CASE cParamL == "-nodefgt" ; hbmk[ _HBMK_aLIBCOREGT ] := {} CASE cParamL == "-nodefgt-" ; hbmk[ _HBMK_aLIBCOREGT ] := hbmk[ _HBMK_aLIBCOREGTDEF ] CASE cParamL == "-map" ; hbmk[ _HBMK_lMAP ] := .T. CASE cParamL == "-map-" .OR. ; cParamL == "-nomap" ; hbmk[ _HBMK_lMAP ] := .F. CASE cParamL == "-implib" ; hbmk[ _HBMK_lIMPLIB ] := .T. CASE cParamL == "-implib-" .OR. ; cParamL == "-noimplib" ; hbmk[ _HBMK_lIMPLIB ] := .F. CASE cParamL == "-winuni" ; hbmk[ _HBMK_lWINUNI ] := .T. CASE cParamL == "-winuni-" ; hbmk[ _HBMK_lWINUNI ] := .F. CASE cParamL == "-beep" ; hbmk[ _HBMK_lBEEP ] := .T. CASE cParamL == "-beep-" .OR. ; cParamL == "-nobeep" ; hbmk[ _HBMK_lBEEP ] := .F. CASE cParamL == "-rebuild" hbmk[ _HBMK_lINC ] := .T. IF nLevel == 1 hbmk[ _HBMK_lREBUILD ] := .T. ENDIF CASE cParamL == "-rebuildall" hbmk[ _HBMK_lINC ] := .T. hbmk[ _HBMK_lREBUILD ] := .T. CASE cParamL == "-rebuildpo" ; hbmk[ _HBMK_lREBUILDPO ] := .T. CASE cParamL == "-minipo" ; hbmk[ _HBMK_lMINIPO ] := .T. CASE cParamL == "-minipo-" .OR. ; cParamL == "-nominipo" ; hbmk[ _HBMK_lMINIPO ] := .F. CASE cParamL == "-clean" ; hbmk[ _HBMK_lINC ] := .T. ; hbmk[ _HBMK_lCLEAN ] := .T. CASE cParamL == "-inc" ; hbmk[ _HBMK_lINC ] := .T. CASE cParamL == "-inc-" .OR. ; cParamL == "-noinc" ; hbmk[ _HBMK_lINC ] := .F. CASE cParamL == "-ignore" ; hbmk[ _HBMK_lIGNOREERROR ] := .T. CASE cParamL == "-ignore-" .OR. ; cParamL == "-noignore" ; hbmk[ _HBMK_lIGNOREERROR ] := .F. CASE cParamL == "-hbcppmm" ; hbmk[ _HBMK_lHBCPPMM ] := .T. CASE cParamL == "-hbcppmm-" .OR. ; cParamL == "-nohbcppmm" ; hbmk[ _HBMK_lHBCPPMM ] := .F. CASE cParamL == "-strip" ; hbmk[ _HBMK_lSTRIP ] := .T. CASE cParamL == "-strip-" .OR. ; cParamL == "-nostrip" ; hbmk[ _HBMK_lSTRIP ] := .F. CASE cParamL == "-depimplib" ; hbmk[ _HBMK_lDEPIMPLIB ] := .T. CASE cParamL == "-depimplib-" ; hbmk[ _HBMK_lDEPIMPLIB ] := .F. CASE cParamL == "-instforce" ; hbmk[ _HBMK_lInstForce ] := .T. CASE cParamL == "-instforce-" ; hbmk[ _HBMK_lInstForce ] := .F. CASE cParamL == "--harbourhelp" ; AAdd( hbmk[ _HBMK_aOPTPRG ], "--help" ) ; lHarbourInfo := .T. CASE cParamL == "-harbourhelp" ; AAdd( hbmk[ _HBMK_aOPTPRG ], "--help" ) ; lHarbourInfo := .T. CASE cParamL == "-build" ; AAdd( hbmk[ _HBMK_aOPTPRG ], "-build" ) ; lHarbourInfo := .T. CASE cParamL == "-warn" .OR. ; Left( cParamL, 6 ) == "-warn=" DO CASE CASE SubStr( cParamL, 7 ) == "def" ; hbmk[ _HBMK_nWARN ] := _WARN_DEF CASE SubStr( cParamL, 7 ) == "no" ; hbmk[ _HBMK_nWARN ] := _WARN_NO CASE SubStr( cParamL, 7 ) == "low" ; hbmk[ _HBMK_nWARN ] := _WARN_LOW CASE SubStr( cParamL, 7 ) == "max" ; hbmk[ _HBMK_nWARN ] := _WARN_MAX OTHERWISE ; hbmk[ _HBMK_nWARN ] := _WARN_YES ENDCASE CASE cParamL == "-warn-" .OR. ; cParamL == "-nowarn" ; hbmk[ _HBMK_nWARN ] := _WARN_NO CASE cParamL == "-compr" .OR. ; Left( cParamL, 7 ) == "-compr=" DO CASE CASE SubStr( cParamL, 8 ) == "min" ; hbmk[ _HBMK_nCOMPR ] := _COMPR_MIN CASE SubStr( cParamL, 8 ) == "max" ; hbmk[ _HBMK_nCOMPR ] := _COMPR_MAX OTHERWISE ; hbmk[ _HBMK_nCOMPR ] := _COMPR_DEF ENDCASE CASE cParamL == "-compr-" .OR. ; cParamL == "-nocompr" ; hbmk[ _HBMK_nCOMPR ] := _COMPR_OFF CASE cParamL == "-head" .OR. ; Left( cParamL, 6 ) == "-head=" DO CASE CASE SubStr( cParamL, 7 ) == "off" ; hbmk[ _HBMK_nHEAD ] := _HEAD_OFF CASE SubStr( cParamL, 7 ) == "full" ; hbmk[ _HBMK_nHEAD ] := _HEAD_FULL CASE SubStr( cParamL, 7 ) == "native" ; hbmk[ _HBMK_nHEAD ] := _HEAD_NATIVE CASE SubStr( cParamL, 7 ) == "dep" ; hbmk[ _HBMK_nHEAD ] := _HEAD_DEP OTHERWISE ; hbmk[ _HBMK_nHEAD ] := _HEAD_FULL ENDCASE CASE cParamL == "-head-" .OR. ; cParamL == "-nohead" ; hbmk[ _HBMK_nHEAD ] := _HEAD_OFF CASE Left( cParamL, 5 ) == "-cpp=" DO CASE CASE SubStr( cParamL, 6 ) == "def" ; hbmk[ _HBMK_lCPP ] := NIL CASE SubStr( cParamL, 6 ) == "yes" ; hbmk[ _HBMK_lCPP ] := .T. CASE SubStr( cParamL, 6 ) == "no" ; hbmk[ _HBMK_lCPP ] := .F. CASE SubStr( cParamL, 6 ) == "iso98" ; hbmk[ _HBMK_cCPP ] := "iso98" CASE SubStr( cParamL, 6 ) == "iso03" ; hbmk[ _HBMK_cCPP ] := "iso03" CASE SubStr( cParamL, 6 ) == "iso0x" ; hbmk[ _HBMK_cCPP ] := "iso0x" CASE SubStr( cParamL, 6 ) == "gnu98" ; hbmk[ _HBMK_cCPP ] := "gnu98" CASE SubStr( cParamL, 6 ) == "gnu0x" ; hbmk[ _HBMK_cCPP ] := "gnu0x" CASE SubStr( cParamL, 6 ) == "" ; hbmk[ _HBMK_cCPP ] := "" ENDCASE /* dangerous? disable it */ hbmk[ _HBMK_cCPP ] := "" CASE Left( cParamL, 3 ) == "-c=" DO CASE CASE SubStr( cParamL, 4 ) == "iso90" ; hbmk[ _HBMK_cC ] := "iso90" CASE SubStr( cParamL, 4 ) == "iso99" ; hbmk[ _HBMK_cC ] := "iso99" CASE SubStr( cParamL, 4 ) == "iso1x" ; hbmk[ _HBMK_cC ] := "iso1x" CASE SubStr( cParamL, 4 ) == "gnu90" ; hbmk[ _HBMK_cC ] := "gnu90" CASE SubStr( cParamL, 4 ) == "gnu99" ; hbmk[ _HBMK_cC ] := "gnu99" CASE SubStr( cParamL, 4 ) == "gnu1x" ; hbmk[ _HBMK_cC ] := "gnu1x" CASE SubStr( cParamL, 4 ) == "" ; hbmk[ _HBMK_cC ] := "" ENDCASE /* dangerous? disable it */ hbmk[ _HBMK_cC ] := "" CASE cParamL == "-cpp" ; hbmk[ _HBMK_lCPP ] := .T. CASE cParamL == "-cpp-" .OR. ; cParamL == "-nocpp" ; hbmk[ _HBMK_lCPP ] := .F. CASE cParamL == "-run" IF hbmk[ _HBMK_nLevel ] == 1 hbmk[ _HBMK_lRUN ] := .T. ENDIF CASE cParamL == "-run-" .OR. ; cParamL == "-norun" ; hbmk[ _HBMK_lRUN ] := .F. CASE cParamL == "-trace" ; hbmk[ _HBMK_lTRACE ] := .T. CASE cParamL == "-trace-" .OR. ; cParamL == "-notrace" ; hbmk[ _HBMK_lTRACE ] := .F. CASE cParamL == "-traceonly" ; hbmk[ _HBMK_lTRACE ] := .T. ; hbmk[ _HBMK_lDONTEXEC ] := .T. CASE cParamL == "--hbdirbin" ; hbmk[ _HBMK_lStopAfterInit ] := .T. OutStd( hbmk[ _HBMK_cHB_INSTALL_BIN ] ) CASE cParamL == "--hbdirdyn" ; hbmk[ _HBMK_lStopAfterInit ] := .T. OutStd( hbmk[ _HBMK_cHB_INSTALL_DYN ] ) CASE cParamL == "--hbdirlib" ; hbmk[ _HBMK_lStopAfterInit ] := .T. OutStd( hbmk[ _HBMK_cHB_INSTALL_LIB ] ) CASE cParamL == "--hbdirinc" ; hbmk[ _HBMK_lStopAfterInit ] := .T. OutStd( hbmk[ _HBMK_cHB_INSTALL_INC ] ) CASE Left( cParamL, Len( "--hbinfo" ) ) == "--hbinfo" lDumpInfo := .T. lDumpInfoNested := ( SubStr( cParamL, Len( "--hbinfo" ) + 1 ) == "=nested" ) hbmk[ _HBMK_lQuiet ] := .T. hbmk[ _HBMK_lInfo ] := .F. CASE Left( cParamL, Len( "-jobs=" ) ) == "-jobs=" cParam := SubStr( cParam, Len( "-jobs=" ) + 1 ) IF hb_mtvm() .AND. Val( cParam ) > 0 l_nJOBS := Val( cParam ) ENDIF HB_SYMBOL_UNUSED( l_nJOBS ) CASE Left( cParamL, 5 ) == "-lng=" cParam := SubStr( cParam, 6 ) IF ! Empty( cParam ) hbmk[ _HBMK_aLNG ] := ListToArray( cParam, "," ) ENDIF CASE Left( cParamL, 5 ) == "-hbl=" hbmk[ _HBMK_cHBL ] := PathSepToSelf( SubStr( cParam, 6 ) ) hbmk[ _HBMK_cHBLDir ] := hb_FNameDir( aParam[ _PAR_cFileName ] ) CASE Left( cParamL, 4 ) == "-po=" hbmk[ _HBMK_cPO ] := PathMakeAbsolute( PathSepToSelf( SubStr( cParam, 5 ) ), hb_FNameDir( aParam[ _PAR_cFileName ] ) ) CASE Left( cParamL, 4 ) == "-hbl" hbmk[ _HBMK_cHBL ] := "" hbmk[ _HBMK_cHBLDir ] := "" CASE Left( cParamL, 5 ) == "-hbx=" cParam := MacroProc( hbmk, SubStr( cParam, 6 ), aParam[ _PAR_cFileName ] ) IF Empty( cParam ) hbmk[ _HBMK_cHBX ] := NIL ELSE hbmk[ _HBMK_cHBX ] := PathMakeAbsolute( PathSepToSelf( cParam ), hb_FNameDir( aParam[ _PAR_cFileName ] ) ) ENDIF CASE Left( cParamL, 6 ) == "-main=" IF IsValidHarbourID( cParam := SubStr( cParam, 7 ) ) l_cMAIN := "@" + cParam ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Invalid -main value ignored: %1$s" ), cParam ) ) ENDIF CASE Left( cParamL, 9 ) == "-request=" IF IsValidHarbourID( cParam := SubStr( cParam, 10 ) ) AAddNew( hbmk[ _HBMK_aREQUEST ], Upper( cParam ) ) ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Invalid -request value ignored: %1$s" ), cParam ) ) ENDIF CASE Left( cParamL, 3 ) == "-gt" cParam := MacroProc( hbmk, SubStr( cParam, 2 ), aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) IF hbmk[ _HBMK_cGT ] == NIL IF ! SetupForGT( cParam, @hbmk[ _HBMK_cGT ], @hbmk[ _HBMK_lGUI ] ) _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Invalid -gt value ignored: %1$s" ), cParam ) ) cParam := NIL ENDIF ENDIF IF ! Empty( cParam ) .AND. !( Lower( cParam ) == "gtnul" ) IF AScan( hbmk[ _HBMK_aLIBCOREGT ], {| tmp | Lower( tmp ) == Lower( cParam ) } ) == 0 .AND. ; AScan( hbmk[ _HBMK_aLIBUSERGT ], {| tmp | Lower( tmp ) == Lower( cParam ) } ) == 0 AAddNotEmpty( hbmk[ _HBMK_aLIBUSERGT ], PathSepToSelf( cParam ) ) ENDIF IF AScan( hbmk[ _HBMK_aGT ], {| tmp | Lower( tmp ) == Lower( cParam ) } ) == 0 AAddNotEmpty( hbmk[ _HBMK_aGT ], PathSepToSelf( cParam ) ) ENDIF ENDIF ENDIF #if ! defined( __PLATFORM__UNIX ) CASE Left( cParamL, 2 ) == "/o" .AND. ! hbmk[ _HBMK_lStopAfterHarbour ] /* Swallow this switch. We don't pass it to Harbour, as it may badly interact with hbmk. */ #endif CASE Left( cParam, 2 ) == "-o" tmp := SubStr( cParam, 3 ) IF hbmk[ _HBMK_lStopAfterHarbour ] tmp := MacroProc( hbmk, tmp, aParam[ _PAR_cFileName ] ) IF ! Empty( tmp ) AAddNotEmpty( hbmk[ _HBMK_aOPTPRG ], "-o" + hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( tmp ), aParam[ _PAR_cFileName ] ) ) ) ENDIF ELSE IF ! Empty( tmp ) tmp := MacroProc( hbmk, tmp, aParam[ _PAR_cFileName ] ) IF ! Empty( tmp ) tmp := PathSepToSelf( tmp ) hb_FNameSplit( tmp, @cDir, @cName, @cExt ) DO CASE CASE Empty( cDir ) tmp := hb_PathNormalize( PathMakeAbsolute( tmp, aParam[ _PAR_cFileName ] ) ) hb_FNameSplit( tmp, @cDir, @cName, @cExt ) IF hbmk[ _HBMK_cPROGDIR ] == NIL hbmk[ _HBMK_cPROGDIR ] := cDir ENDIF hbmk[ _HBMK_cPROGNAME ] := hb_FNameNameExt( tmp ) CASE ! Empty( cDir ) .AND. Empty( cName ) .AND. Empty( cExt ) hbmk[ _HBMK_cPROGDIR ] := hb_PathNormalize( PathMakeAbsolute( cDir, aParam[ _PAR_cFileName ] ) ) OTHERWISE /* ! Empty( cDir ) .AND. !( Empty( cName ) .AND. Empty( cExt ) ) */ hbmk[ _HBMK_cPROGDIR ] := hb_PathNormalize( PathMakeAbsolute( cDir, aParam[ _PAR_cFileName ] ) ) hbmk[ _HBMK_cPROGNAME ] := hb_FNameNameExt( tmp ) ENDCASE ENDIF ELSE hbmk[ _HBMK_cPROGDIR ] := NIL hbmk[ _HBMK_cPROGNAME ] := NIL ENDIF ENDIF CASE Left( cParamL, Len( "-implib=" ) ) == "-implib=" hbmk[ _HBMK_lIMPLIB ] := .T. tmp := SubStr( cParam, Len( "-implib=" ) + 1 ) IF ! Empty( tmp ) tmp := MacroProc( hbmk, tmp, aParam[ _PAR_cFileName ] ) IF ! Empty( tmp ) tmp := PathSepToSelf( tmp ) hb_FNameSplit( tmp, @cDir, @cName, @cExt ) DO CASE CASE Empty( cDir ) tmp := hb_PathNormalize( PathMakeAbsolute( tmp, aParam[ _PAR_cFileName ] ) ) hb_FNameSplit( tmp, @cDir, @cName, @cExt ) IF l_cIMPLIBDIR == NIL l_cIMPLIBDIR := cDir ENDIF l_cIMPLIBNAME := hb_FNameNameExt( tmp ) CASE ! Empty( cDir ) .AND. Empty( cName ) .AND. Empty( cExt ) l_cIMPLIBDIR := hb_PathNormalize( PathMakeAbsolute( cDir, aParam[ _PAR_cFileName ] ) ) OTHERWISE /* ! Empty( cDir ) .AND. !( Empty( cName ) .AND. Empty( cExt ) ) */ l_cIMPLIBDIR := hb_PathNormalize( PathMakeAbsolute( cDir, aParam[ _PAR_cFileName ] ) ) l_cIMPLIBNAME := hb_FNameNameExt( tmp ) ENDCASE ENDIF ELSE l_cIMPLIBDIR := NIL l_cIMPLIBNAME := NIL ENDIF /* NOTE: Using ':' as value separator to emulate Harbour compiler options */ /* EXPERIMENTAL */ CASE Left( cParamL, Len( "-ku:" ) ) == "-ku:" IF hbmk[ _HBMK_nHBMODE ] == _HBMODE_NATIVE cParam := MacroProc( hbmk, SubStr( cParam, Len( "-ku:" ) + 1 ), aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) SWITCH Lower( cParam ) CASE "utf8" hbmk[ _HBMK_cCPPRG ] := "UTF8" EXIT OTHERWISE hbmk[ _HBMK_cCPPRG ] := NIL FOR EACH tmp IN hb_cdpList() IF Lower( cParam ) == Lower( hb_cdpUniID( tmp ) ) hbmk[ _HBMK_cCPPRG ] := tmp EXIT ENDIF NEXT IF Empty( hbmk[ _HBMK_cCPPRG ] ) IF hbmk[ _HBMK_lInfo ] _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Ignored unsupported codepage value: %1$s" ), cParam ) ) ENDIF ENDIF ENDSWITCH ENDIF ELSE IF hbmk[ _HBMK_lInfo ] _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Option available only when using embedded Harbour compiler: %1$s" ), cParam ) ) ENDIF ENDIF CASE Left( cParamL, Len( "-sign=" ) ) == "-sign=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-sign=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) cOpt_SignID := cParam ENDIF CASE Left( cParamL, Len( "-signpw=" ) ) == "-signpw=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-signpw=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) cOpt_SignPass := cParam ENDIF CASE Left( cParamL, Len( "-ln=" ) ) == "-ln=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-ln=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) AAddNewNotEmpty( hbmk[ _HBMK_aLINK ], PathSepToSelf( cParam ) ) ENDIF CASE Left( cParam, 2 ) == "-L" .AND. ; Len( cParam ) > 2 cParam := MacroProc( hbmk, SubStr( cParam, 3 ), aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) FOR EACH tmp IN hb_ATokens( cParam, ";" ) /* intentionally not using hb_osPathListSeparator() to keep value portable */ IF ! Empty( tmp ) tmp := hb_DirSepDel( PathMakeAbsolute( PathSepToSelf( tmp ), aParam[ _PAR_cFileName ] ) ) IF ( _MACRO_LATE_PREFIX + _MACRO_OPEN ) $ tmp .OR. hb_DirExists( tmp ) AAdd( hbmk[ _HBMK_aLIBPATH ], tmp ) ENDIF ENDIF NEXT ENDIF CASE Left( cParamL, Len( "-instfile=" ) ) == "-instfile=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-instfile=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF inst_split_arg( cParam, @tmp, @cParam ) FOR EACH cParam IN FN_Expand( PathMakeAbsolute( cParam, aParam[ _PAR_cFileName ] ), Empty( aParam[ _PAR_cFileName ] ) ) AAddNewINST( hbmk[ _HBMK_aINSTFILE ], { tmp, cParam } ) NEXT ENDIF CASE Left( cParamL, Len( "-instpath=" ) ) == "-instpath=" .AND. ; Len( cParamL ) > Len( "-instpath=" ) cParam := MacroProc( hbmk, SubStr( cParam, Len( "-instpath=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF inst_split_arg( cParam, @tmp, @cParam ) AAddNewINST( hbmk[ _HBMK_aINSTPATH ], { tmp, hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ) ) } ) ENDIF CASE Left( cParamL, Len( "-incpath=" ) ) == "-incpath=" .AND. ; Len( cParamL ) > Len( "-incpath=" ) cParam := MacroProc( hbmk, SubStr( cParam, Len( "-incpath=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) AAddNew( hbmk[ _HBMK_aINCPATH ], hb_DirSepDel( hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ) ) ) ) ENDIF CASE Left( cParamL, Len( "-icon=" ) ) == "-icon=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-icon=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) AAdd( hbmk[ _HBMK_aICON ], hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ) ) ) ENDIF CASE Left( cParamL, Len( "-manifest=" ) ) == "-manifest=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-manifest=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) hbmk[ _HBMK_cMANIFEST ] := hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ) ) ENDIF CASE Left( cParamL, Len( "-iflag=" ) ) == "-iflag=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-iflag=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF Left( cParam, 1 ) $ cOptPrefix AAdd( hbmk[ _HBMK_aOPTI ], PathSepToSelf( cParam, 2 ) ) ENDIF CASE Left( cParamL, 2 ) == "-i" .AND. ; Len( cParamL ) > 2 .AND. !( cParamL == "-i-" ) cParam := MacroProc( hbmk, SubStr( cParam, 3 ), aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) FOR EACH tmp IN hb_ATokens( cParam, ";" ) /* intentionally not using hb_osPathListSeparator() to keep value portable */ IF ! Empty( tmp ) AAddNew( hbmk[ _HBMK_aINCPATH ], hb_DirSepDel( hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( tmp ), aParam[ _PAR_cFileName ] ) ) ) ) ENDIF NEXT ENDIF CASE Left( cParamL, Len( "-stop" ) ) == "-stop" hbmk[ _HBMK_lStopAfterInit ] := .T. hbmk[ _HBMK_lRUN ] := .F. hbmk[ _HBMK_nErrorLevel ] := _ERRLEV_STOP IF Left( cParamL, Len( "-stop=" ) ) == "-stop=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-stop=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) OutStd( hb_StrFormat( I_( "%1$s" ), cParam ) + _OUT_EOL ) ENDIF ENDIF EXIT CASE Left( cParamL, Len( "-echo=" ) ) == "-echo=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-echo=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) OutStd( hb_StrFormat( I_( "%1$s" ), cParam ) + _OUT_EOL ) ENDIF CASE Left( cParamL, Len( "-prgflag=" ) ) == "-prgflag=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-prgflag=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF Left( cParam, 1 ) $ cOptPrefix IF SubStr( cParamL, 2 ) == "gh" hbmk[ _HBMK_lStopAfterHarbour ] := .T. hbmk[ _HBMK_lCreateHRB ] := .T. ENDIF IF !( SubStr( cParamL, 2, 1 ) == "o" ) AAddNewNotEmpty( hbmk[ _HBMK_aOPTPRG ], PathSepToSelf( cParam, 2 ) ) ENDIF ENDIF CASE Left( cParamL, Len( "-cflag=" ) ) == "-cflag=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-cflag=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF Left( cParam, 1 ) $ cOptPrefix AAdd( hbmk[ _HBMK_aOPTC ], PathSepToSelf( cParam, 2 ) ) ENDIF CASE Left( cParamL, Len( "-cflag+=" ) ) == "-cflag+=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-cflag+=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF Left( cParam, 1 ) $ cOptPrefix AAdd( hbmk[ _HBMK_aOPTCUSER ], PathSepToSelf( cParam, 2 ) ) ENDIF CASE Left( cParamL, Len( "-resflag=" ) ) == "-resflag=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-resflag=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF Left( cParam, 1 ) $ cOptPrefix AAdd( hbmk[ _HBMK_aOPTRES ], PathSepToSelf( cParam, 2 ) ) ENDIF CASE Left( cParamL, Len( "-ldflag=" ) ) == "-ldflag=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-ldflag=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF Left( cParam, 1 ) $ cOptPrefix AAdd( hbmk[ _HBMK_aOPTL ], PathSepToSelf( cParam, 2 ) ) ENDIF CASE Left( cParamL, Len( "-ldflag+=" ) ) == "-ldflag+=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-ldflag+=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF Left( cParam, 1 ) $ cOptPrefix AAdd( hbmk[ _HBMK_aOPTLPOST ], PathSepToSelf( cParam, 2 ) ) ENDIF CASE Left( cParamL, Len( "-dflag=" ) ) == "-dflag=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-dflag=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF Left( cParam, 1 ) $ cOptPrefix AAdd( hbmk[ _HBMK_aOPTD ], PathSepToSelf( cParam, 2 ) ) ENDIF CASE Left( cParamL, Len( "-dflag+=" ) ) == "-dflag+=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-dflag+=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF Left( cParam, 1 ) $ cOptPrefix AAdd( hbmk[ _HBMK_aOPTDPOST ], PathSepToSelf( cParam, 2 ) ) ENDIF CASE Left( cParamL, Len( "-aflag=" ) ) == "-aflag=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-aflag=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF Left( cParam, 1 ) $ cOptPrefix AAdd( hbmk[ _HBMK_aOPTA ], PathSepToSelf( cParam, 2 ) ) ENDIF CASE Left( cParamL, Len( "-runflag=" ) ) == "-runflag=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-runflag=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) AAdd( l_aOPTRUN, cParam ) ENDIF CASE Left( cParamL, Len( "-pflag=" ) ) == "-pflag=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-pflag=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF Left( cParam, 1 ) $ cOptPrefix AAdd( hbmk[ _HBMK_aPLUGINPars ], PathSepToSelf( cParam, 2 ) ) ENDIF CASE Left( cParamL, Len( "-pi=" ) ) == "-pi=" cParam := PathSepToSelf( MacroProc( hbmk, SubStr( cParam, Len( "-pi=" ) + 1 ), aParam[ _PAR_cFileName ] ) ) FOR EACH cParam IN FN_Expand( PathMakeAbsolute( cParam, aParam[ _PAR_cFileName ] ), Empty( aParam[ _PAR_cFileName ] ) ) AAdd( hbmk[ _HBMK_aPLUGINPars ], cParam ) NEXT CASE Left( cParamL, Len( "-3rd=" ) ) == "-3rd=" /* Silently ignore these. These options can be used to store options processed by other tools allowing them to keep additional information in .hb? script files. */ CASE Left( cParamL, Len( "-workdir=" ) ) == "-workdir=" hbmk[ _HBMK_cWorkDir ] := hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( MacroProc( hbmk, SubStr( cParam, Len( "-workdir=" ) + 1 ), aParam[ _PAR_cFileName ] ) ), aParam[ _PAR_cFileName ] ) ) CASE Left( cParamL, Len( "-vcshead=" ) ) == "-vcshead=" l_cVCSDIR := hb_FNameDir( aParam[ _PAR_cFileName ] ) l_cVCSHEAD := PathMakeAbsolute( PathSepToSelf( MacroProc( hbmk, SubStr( cParam, Len( "-vcshead=" ) + 1 ), aParam[ _PAR_cFileName ] ) ), aParam[ _PAR_cFileName ] ) IF Empty( hb_FNameExt( l_cVCSHEAD ) ) l_cVCSHEAD := hb_FNameExtSet( l_cVCSHEAD, ".ch" ) ENDIF CASE Left( cParamL, Len( "-tshead=" ) ) == "-tshead=" l_cTSHEAD := PathMakeAbsolute( PathSepToSelf( MacroProc( hbmk, SubStr( cParam, Len( "-tshead=" ) + 1 ), aParam[ _PAR_cFileName ] ) ), aParam[ _PAR_cFileName ] ) IF Empty( hb_FNameExt( l_cTSHEAD ) ) l_cTSHEAD := hb_FNameExtSet( l_cTSHEAD, ".ch" ) ENDIF CASE Left( cParamL, Len( "-plugin=" ) ) == "-plugin=" cParam := PathMakeAbsolute( PathSepToSelf( MacroProc( hbmk, SubStr( cParam, Len( "-plugin=" ) + 1 ), aParam[ _PAR_cFileName ] ) ), aParam[ _PAR_cFileName ] ) IF ( tmp := FindInPathPlugIn( cParam ) ) != NIL PlugIn_Load( hbmk, tmp ) ELSE IF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Warning: Plugin not found: %1$s" ), cParam ) ) ENDIF ENDIF CASE Left( cParam, 2 ) == "-l" .AND. ; Len( cParam ) > 2 .AND. ; !( cParam == "-l-" ) cParam := MacroProc( hbmk, SubStr( cParam, 3 ), aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) cParam := PathSepToSelf( cParam ) IF Left( cParam, 1 ) == "-" IF CheckLibParam( hbmk, SubStr( cParam, 2 ) ) AAdd( hbmk[ _HBMK_aLIBFILTEROUT ], SubStr( cParam, 2 ) ) ENDIF ELSE IF CheckLibParam( hbmk, cParam ) IF _IS_AUTOLIBSYSPRE( cParam ) AAdd( hbmk[ _HBMK_aLIBUSERSYSPRE ], cParam ) ELSE AAdd( hbmk[ _HBMK_aLIBUSER ], cParam ) ENDIF ENDIF ENDIF ENDIF CASE Left( cParam, 2 ) == "-F" .AND. ; Len( cParam ) > 2 cParam := MacroProc( hbmk, SubStr( cParam, 3 ), aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) AAdd( hbmk[ _HBMK_aLIBUSERFWK ], hb_FNameExtSet( PathSepToSelf( cParam ) ) ) ENDIF CASE Left( cParam, Len( "-autohbc=" ) ) == "-autohbc=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-autohbc=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF autohbc_split_arg( cParam, @tmp, @cParam ) cParam := PathMakeAbsolute( PathSepToSelf( MacroProc( hbmk, cParam, aParam[ _PAR_cFileName ] ) ), aParam[ _PAR_cFileName ] ) IF Empty( hb_FNameExt( tmp ) ) tmp := hb_FNameExtSet( tmp, ".ch" ) ENDIF IF Empty( hb_FNameExt( cParam ) ) cParam := hb_FNameExtSet( cParam, ".hbc" ) ENDIF IF ! hb_FileExists( cParam ) FOR EACH tmp IN hbmk[ _HBMK_aLIBPATH ] IF hb_FileExists( hb_DirSepAdd( PathSepToSelf( MacroProc( hbmk, tmp, cParam, _MACRO_LATE_PREFIX ) ) ) + hb_FNameNameExt( cParam ) ) cParam := hb_DirSepAdd( PathSepToSelf( MacroProc( hbmk, tmp, cParam, _MACRO_LATE_PREFIX ) ) ) + hb_FNameNameExt( cParam ) EXIT ENDIF NEXT ENDIF hbmk[ _HBMK_hAUTOHBC ][ AllTrim( StrTran( tmp, "\", "/" ) ) ] := cParam ENDIF CASE Left( cParam, Len( "-deppkgname=" ) ) == "-deppkgname=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-deppkgname=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF dep_split_arg( hbmk, cParam, @cParam, @tmp ) AAddNew( hbmk[ _HBMK_hDEP ][ cParam ][ _HBMKDEP_aPKG ], AllTrim( tmp ) ) ENDIF CASE Left( cParam, Len( "-depkeyhead=" ) ) == "-depkeyhead=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-depkeyhead=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF dep_split_arg( hbmk, cParam, @cParam, @tmp ) AAddNew( hbmk[ _HBMK_hDEP ][ cParam ][ _HBMKDEP_aKeyHeader ], AllTrim( StrTran( tmp, "\", "/" ) ) ) ENDIF CASE Left( cParam, Len( "-depoptional=" ) ) == "-depoptional=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-depoptional=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF dep_split_arg( hbmk, cParam, @cParam, @tmp ) DO CASE CASE Lower( tmp ) == "yes" ; hbmk[ _HBMK_hDEP ][ cParam ][ _HBMKDEP_lOptional ] := .T. CASE Lower( tmp ) == "no" ; hbmk[ _HBMK_hDEP ][ cParam ][ _HBMKDEP_lOptional ] := .F. ENDCASE ENDIF CASE Left( cParam, Len( "-depcontrol=" ) ) == "-depcontrol=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-depcontrol=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF dep_split_arg( hbmk, cParam, @cParam, @tmp ) hbmk[ _HBMK_hDEP ][ cParam ][ _HBMKDEP_cControl ] := AllTrim( tmp ) AAddNew( hbmk[ _HBMK_hDEP ][ cParam ][ _HBMKDEP_aINCPATH ], _HBMK_DEP_CTRL_MARKER ) ENDIF CASE Left( cParam, Len( "-depincroot=" ) ) == "-depincroot=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-depincroot=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF dep_split_arg( hbmk, cParam, @cParam, @tmp ) hbmk[ _HBMK_hDEP ][ cParam ][ _HBMKDEP_cINCROOT ] := hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( tmp ), aParam[ _PAR_cFileName ] ) ) ENDIF CASE Left( cParam, Len( "-depincpath=" ) ) == "-depincpath=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-depincpath=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF dep_split_arg( hbmk, cParam, @cParam, @tmp ) FOR EACH tmp1 IN hb_ATokens( tmp, ";" ) /* intentionally not using hb_osPathListSeparator() to keep value portable */ AAddNew( hbmk[ _HBMK_hDEP ][ cParam ][ _HBMKDEP_aINCPATH ], hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( tmp1 ), aParam[ _PAR_cFileName ] ) ) ) NEXT ENDIF CASE Left( cParam, Len( "-depincpathlocal=" ) ) == "-depincpathlocal=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-depincpathlocal=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF dep_split_arg( hbmk, cParam, @cParam, @tmp ) AAddNew( hbmk[ _HBMK_hDEP ][ cParam ][ _HBMKDEP_aINCPATHLOCAL ], hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( tmp ), aParam[ _PAR_cFileName ] ) ) ) ENDIF CASE Left( cParam, Len( "-depimplibs=" ) ) == "-depimplibs=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-depimplibs=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF dep_split_arg( hbmk, cParam, @cParam, @tmp ) FOR EACH tmp1 IN hb_ATokens( tmp, ";" ) /* intentionally not using hb_osPathListSeparator() to keep value portable */ AAddNew( hbmk[ _HBMK_hDEP ][ cParam ][ _HBMKDEP_aIMPLIBSRC ], PathSepToSelf( tmp1 ) ) NEXT ENDIF CASE Left( cParam, Len( "-depimplibd=" ) ) == "-depimplibd=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-depimplibd=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF dep_split_arg( hbmk, cParam, @cParam, @tmp ) hbmk[ _HBMK_hDEP ][ cParam ][ _HBMKDEP_cIMPLIBDST ] := hb_FNameNameExt( PathSepToSelf( tmp ) ) ENDIF CASE Left( cParam, Len( "-depfinish=" ) ) == "-depfinish=" cParam := MacroProc( hbmk, SubStr( cParam, Len( "-depfinish=" ) + 1 ), aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) .AND. cParam $ hbmk[ _HBMK_hDEP ] dep_try_detection( hbmk, hbmk[ _HBMK_hDEP ][ cParam ] ) ENDIF CASE Left( cParam, 1 ) $ cOptPrefix DO CASE CASE lAcceptLDFlag AAddNotEmpty( hbmk[ _HBMK_aOPTL ], PathSepToSelf( cParam, 2 ) ) CASE lAcceptCFlag IF SubStr( cParamL, 2 ) == "c" lStopAfterCComp := .T. ELSE AAddNotEmpty( hbmk[ _HBMK_aOPTC ], PathSepToSelf( cParam, 2 ) ) ENDIF CASE lAcceptIFlag AAddNotEmpty( hbmk[ _HBMK_aOPTI ], PathSepToSelf( cParam, 2 ) ) OTHERWISE IF SubStr( cParamL, 2 ) == "gh" hbmk[ _HBMK_lStopAfterHarbour ] := .T. hbmk[ _HBMK_lCreateHRB ] := .T. /* Detect if Harbour is only used as preprocessor (-p + -s options) */ ELSEIF SubStr( cParamL, 2 ) == "p" ++nHarbourPPO tmp := MacroProc( hbmk, SubStr( cParam, 3 ), aParam[ _PAR_cFileName ] ) IF ! Empty( tmp ) tmp := PathMakeAbsolute( PathSepToSelf( tmp ), aParam[ _PAR_cFileName ] ) hb_FNameSplit( tmp, @cDir, @cName, @cExt ) cHarbourPPODir := cDir ENDIF ELSEIF SubStr( cParamL, 2 ) == "s" hbmk[ _HBMK_lStopAfterHarbour ] := .T. ++nHarbourPPO ENDIF IF nHarbourPPO >= 2 hbmk[ _HBMK_lCreatePPO ] := .T. ENDIF AAddNewNotEmpty( hbmk[ _HBMK_aOPTPRG ], PathSepToSelf( MacroProc( hbmk, cParam, aParam[ _PAR_cFileName ] ), 2 ) ) ENDCASE CASE hbmk[ _HBMK_lCreateImpLib ] cParam := MacroProc( hbmk, cParam, aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) AAdd( hbmk[ _HBMK_aIMPLIBSRC ], hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ) ) ) ENDIF CASE hb_FNameExt( cParamL ) == ".lib" .OR. ; ( ! Empty( hbmk[ _HBMK_cDynLibExt ] ) .AND. hb_FNameExt( cParamL ) == hbmk[ _HBMK_cDynLibExt ] ) cParam := PathSepToSelf( cParam ) IF hb_FNameExt( cParamL ) == ".lib" cParam := FNameDirName( cParam ) ENDIF IF CheckLibParam( hbmk, cParam ) IF _IS_AUTOLIBSYSPRE( cParam ) AAdd( hbmk[ _HBMK_aLIBUSERSYSPRE ], cParam ) ELSE AAdd( hbmk[ _HBMK_aLIBUSER ], cParam ) ENDIF ENDIF CASE hb_FNameExt( cParamL ) == ".framework" AAdd( hbmk[ _HBMK_aLIBUSERFWK ], hb_FNameExtSet( PathSepToSelf( cParam ) ) ) CASE hb_FNameExt( cParamL ) == ".hbc" cParam := tmp1 := MacroProc( hbmk, cParam, aParam[ _PAR_cFileName ] ) cParam := PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ) IF ! Empty( cParam ) IF ! HBC_Find( hbmk, cParam ) IF Empty( aParam[ _PAR_cFileName ] ) _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Cannot find %1$s" ), tmp1 ) ) ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Cannot find %1$s (referenced from %2$s)" ), tmp1, aParam[ _PAR_cFileName ] ) ) ENDIF ENDIF ENDIF CASE hb_FNameExt( cParamL ) == ".hrb" cParam := PathMakeAbsolute( PathSepToSelf( MacroProc( hbmk, cParam, aParam[ _PAR_cFileName ] ) ), aParam[ _PAR_cFileName ] ) IF ( tmp := FindInPathPlugIn( cParam ) ) != NIL PlugIn_Load( hbmk, tmp ) ELSE IF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Warning: Plugin not found: %1$s" ), cParam ) ) ENDIF ENDIF CASE hb_FNameExt( cParamL ) == ".prg" .OR. ; hb_FNameExt( cParamL ) == ".hb" FOR EACH cParam IN FN_Expand( PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ), Empty( aParam[ _PAR_cFileName ] ) ) AAdd( hbmk[ _HBMK_aPRG ], cParam ) hb_default( @hbmk[ _HBMK_cFIRST ], cParam ) NEXT CASE hb_FNameExt( cParamL ) == ".rc" FOR EACH cParam IN FN_Expand( PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ), Empty( aParam[ _PAR_cFileName ] ) ) AAdd( hbmk[ _HBMK_aRESSRC ], cParam ) NEXT CASE hb_FNameExt( cParamL ) == ".res" IF HBMK_ISCOMP( "mingw|mingw64|mingwarm" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "os2" .AND. HBMK_ISCOMP( "gcc|gccomf" ) ) /* For MinGW/EMX GCC family add .res files as source input, as they will need to be converted to coff format with windres (just like plain .rc files) before feeding them to gcc. */ FOR EACH cParam IN FN_Expand( PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ), Empty( aParam[ _PAR_cFileName ] ) ) AAdd( hbmk[ _HBMK_aRESSRC ], cParam ) NEXT ELSE FOR EACH cParam IN FN_Expand( PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ), Empty( aParam[ _PAR_cFileName ] ) ) AAdd( hbmk[ _HBMK_aRESCMP ], cParam ) NEXT ENDIF CASE hb_FNameExt( cParamL ) == ".a" cParam := PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ) AAdd( l_aOBJA, cParam ) CASE hb_FNameExt( cParamL ) == ".def" FOR EACH cParam IN FN_Expand( PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ), Empty( aParam[ _PAR_cFileName ] ) ) AAdd( hbmk[ _HBMK_aDEF ], cParam ) NEXT CASE hb_FNameExt( cParamL ) == ".o" .OR. ; hb_FNameExt( cParamL ) == ".obj" FOR EACH cParam IN FN_Expand( PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ), Empty( aParam[ _PAR_cFileName ] ) ) AAdd( hbmk[ _HBMK_aOBJUSER ], cParam ) hb_default( @hbmk[ _HBMK_cFIRST ], cParam ) NEXT CASE hb_FNameExt( cParamL ) == ".cpp" .OR. ; hb_FNameExt( cParamL ) == ".cc" .OR. ; hb_FNameExt( cParamL ) == ".cxx" .OR. ; hb_FNameExt( cParamL ) == ".cx" FOR EACH cParam IN FN_Expand( PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ), Empty( aParam[ _PAR_cFileName ] ) ) AAdd( hbmk[ _HBMK_aCPP ], cParam ) hb_default( @hbmk[ _HBMK_cFIRST ], cParam ) NEXT CASE hb_FNameExt( cParamL ) == ".c" .OR. ; hb_FNameExt( cParamL ) == ".m" FOR EACH cParam IN FN_Expand( PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ), Empty( aParam[ _PAR_cFileName ] ) ) AAdd( hbmk[ _HBMK_aC ], cParam ) hb_default( @hbmk[ _HBMK_cFIRST ], cParam ) NEXT CASE hb_FNameExt( cParamL ) == ".d" FOR EACH cParam IN FN_Expand( PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ), Empty( aParam[ _PAR_cFileName ] ) ) deplst_read( hbmk, hbmk[ _HBMK_hDEPTS ], cParam ) NEXT CASE hb_FNameExt( cParamL ) == ".po" .OR. ; hb_FNameExt( cParamL ) == ".pot" FOR EACH cParam IN FN_Expand( PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ), Empty( aParam[ _PAR_cFileName ] ) ) AAdd( hbmk[ _HBMK_aPO ], cParam ) NEXT CASE hb_FNameExt( cParamL ) == ".hbl" hbmk[ _HBMK_cHBL ] := PathSepToSelf( cParam ) hbmk[ _HBMK_cHBLDir ] := hb_FNameDir( aParam[ _PAR_cFileName ] ) CASE hb_FNameExt( cParamL ) $ hbmk[ _HBMK_hPLUGINExt ] cParam := PathSepToSelf( MacroProc( hbmk, cParam, aParam[ _PAR_cFileName ] ) ) FOR EACH cParam IN FN_Expand( PathMakeAbsolute( cParam, aParam[ _PAR_cFileName ] ), Empty( aParam[ _PAR_cFileName ] ) ) AAdd( hbmk[ _HBMK_aPLUGINPars ], cParam ) NEXT OTHERWISE cParam := PathMakeAbsolute( PathSepToSelf( cParam ), aParam[ _PAR_cFileName ] ) IF Empty( hb_FNameExt( cParam ) ) cParam := hb_FNameExtSet( cParam, ".prg" ) ELSEIF hb_FNameExt( cParamL ) == ".hbx" IF hb_FileExists( cParam ) AAddNew( hbmk[ _HBMK_aOPTPRG ], "-D__HBEXTREQ__" ) AAdd( hbmk[ _HBMK_aPRG ], cParam ) ENDIF LOOP ENDIF AAdd( hbmk[ _HBMK_aPRG ], cParam ) hb_default( @hbmk[ _HBMK_cFIRST ], cParam ) ENDCASE NEXT IF hbmk[ _HBMK_lDEBUGPARS ] FOR EACH aParam IN aParams _hbmk_OutStd( hbmk, hb_StrFormat( "debugpars: %1$3d '%2$s' (%3$s:%4$d)", aParam:__enumIndex(), aParam[ _PAR_cParam ], aParam[ _PAR_cFileName ], aParam[ _PAR_nLine ] ) ) NEXT ENDIF IF ! l_lLIBSYSMISC l_aLIBSYSMISC := {} ENDIF IF lHarbourInfo IF hbmk[ _HBMK_nHBMODE ] == _HBMODE_NATIVE /* Use integrated compiler */ hbmk_hb_compile( hbmk, "harbour", hbmk[ _HBMK_aOPTPRG ] ) ELSE /* Use external compiler */ cCommand := FNameEscape( hb_DirSepAdd( PathSepToSelf( hbmk[ _HBMK_cHB_INSTALL_BIN ] ) ) + cBin_CompPRG + cBinExt, hbmk[ _HBMK_nCmd_Esc ] ) +; iif( ! Empty( hbmk[ _HBMK_aOPTPRG ] ), " " + ArrayToList( hbmk[ _HBMK_aOPTPRG ] ), "" ) hb_processRun( AllTrim( cCommand ) ) ENDIF RETURN _ERRLEV_OK ENDIF /* Strip leading @ char of .clp files */ IF ! Empty( hbmk[ _HBMK_cFIRST ] ) .AND. Left( hbmk[ _HBMK_cFIRST ], 1 ) == "@" .AND. Lower( hb_FNameExt( hbmk[ _HBMK_cFIRST ] ) ) == ".clp" hbmk[ _HBMK_cFIRST ] := SubStr( hbmk[ _HBMK_cFIRST ], 2 ) ENDIF IF hbmk[ _HBMK_lCreateDyn ] hbmk[ _HBMK_lPIC ] := .T. ENDIF #if 0 /* Disabled to experiment with '-hbdyn -shared' combination. */ IF hbmk[ _HBMK_lCreateDyn ] .AND. hbmk[ _HBMK_lSHARED ] hbmk[ _HBMK_lSHARED ] := .F. ENDIF #endif /* Force MT mode off in 1.0.x and xhb/dos compatibility modes. */ IF hbmk[ _HBMK_nHBMODE ] == _HBMODE_HB10 .OR. ; ( _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ) .AND. hbmk[ _HBMK_cPLAT ] == "dos" ) hbmk[ _HBMK_lMT ] := .F. ENDIF IF hbmk[ _HBMK_cPLAT ] == "wce" hbmk[ _HBMK_lWINUNI ] := .T. ENDIF /* Start doing the make process. */ IF ! hbmk[ _HBMK_lStopAfterInit ] .AND. ! hbmk[ _HBMK_lCreateImpLib ] .AND. ; ( Len( hbmk[ _HBMK_aPLUGINPars ] ) + Len( hbmk[ _HBMK_aPRG ] ) + Len( hbmk[ _HBMK_aC ] ) + Len( hbmk[ _HBMK_aCPP ] ) + Len( hbmk[ _HBMK_aRESSRC ] ) + Len( hbmk[ _HBMK_aRESCMP ] ) + Len( hbmk[ _HBMK_aOBJUSER ] ) + Len( l_aOBJA ) ) == 0 .AND. ! hbmk[ _HBMK_lContainer ] IF hbmk[ _HBMK_lInfo ] _hbmk_OutErr( hbmk, I_( "Warning: No source files were specified." ) ) ENDIF ENDIF /* Decide about output name */ IF ! hbmk[ _HBMK_lStopAfterInit ] .AND. ! hbmk[ _HBMK_lCreateImpLib ] IF ! hbmk[ _HBMK_lCreateHRB ] /* If -o with full name wasn't specified, let's make it the first source file specified. */ hb_default( @hbmk[ _HBMK_cPROGNAME ], hb_FNameName( hbmk[ _HBMK_cFIRST ] ) ) /* Combine output dir with output name. */ IF ! Empty( hbmk[ _HBMK_cPROGDIR ] ) hb_FNameSplit( hbmk[ _HBMK_cPROGNAME ], @cDir, @cName, @cExt ) hbmk[ _HBMK_cPROGNAME ] := hb_FNameMerge( iif( Empty( cDir ), hbmk[ _HBMK_cPROGDIR ], cDir ), cName, cExt ) ENDIF ENDIF ENDIF /* Decide about working dir */ IF ! hbmk[ _HBMK_lStopAfterInit ] .AND. ! hbmk[ _HBMK_lCreateImpLib ] .AND. ! lDumpInfo IF hbmk[ _HBMK_lINC ] hb_default( @hbmk[ _HBMK_cWorkDir ], hb_FNameDir( hbmk[ _HBMK_cPROGNAME ] ) + _WORKDIR_DEF_ + hbmk[ _HBMK_cWorkDirDynSub ] ) IF ! Empty( hbmk[ _HBMK_cWorkDir ] ) IF ! hb_DirBuild( hbmk[ _HBMK_cWorkDir ] ) _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Working directory cannot be created: %1$s" ), hbmk[ _HBMK_cWorkDir ] ) ) IF hbmk[ _HBMK_lBEEP ] DoBeep( .F. ) ENDIF RETURN _ERRLEV_WORKDIRCREATE ENDIF #if ! defined( __PLATFORM__UNIX ) tmp := hb_AtI( _WORKDIR_BASE_ + hb_ps(), hbmk[ _HBMK_cWorkDir ] + hb_ps() ) IF tmp > 0 hb_FSetAttr( Left( hbmk[ _HBMK_cWorkDir ], tmp - 1 ) + _WORKDIR_BASE_, FC_HIDDEN ) ENDIF #endif ENDIF ELSE IF hbmk[ _HBMK_lStopAfterInit ] .OR. ; hbmk[ _HBMK_lStopAfterHarbour ] .OR. ; ( lStopAfterCComp .AND. ! hbmk[ _HBMK_lCreateLib ] .AND. ! hbmk[ _HBMK_lCreateDyn ] ) /* It's controlled by -o option in these cases */ hbmk[ _HBMK_cWorkDir ] := "" ELSE IF hbmk[ _HBMK_cWorkDir ] == NIL FClose( hb_FTempCreateEx( @hbmk[ _HBMK_cWorkDir ], NIL, "hbmk_", ".dir" ) ) FErase( hbmk[ _HBMK_cWorkDir ] ) IF hb_DirCreate( hbmk[ _HBMK_cWorkDir ] ) != 0 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Temporary Working directory cannot be created: %1$s" ), hbmk[ _HBMK_cWorkDir ] ) ) IF hbmk[ _HBMK_lBEEP ] DoBeep( .F. ) ENDIF RETURN _ERRLEV_WORKDIRCREATE ENDIF lDeleteWorkDir := .T. ENDIF ENDIF ENDIF ENDIF IF ! hbmk[ _HBMK_lStopAfterInit ] .AND. ! hbmk[ _HBMK_lStopAfterHarbour ] .AND. ! hbmk[ _HBMK_lCreateImpLib ] /* /boot/common/include (beos) /boot/develop/headers/3rdparty (beos) /usr/local/include (darwin Homebrew) /opt/local/include (darwin MacPorts/DarwinPorts) /sw/include (darwin Fink) /Library/Frameworks/.framework/Headers (darwin) /usr//include (FHS) /usr/include (FHS) /opt//include (FHS) /opt/include (FHS) /usr/local//include (FHS) /usr/local/include (FHS) */ /* Process any package requirements */ FOR EACH tmp IN hbmk[ _HBMK_hDEP ] dep_try_detection( hbmk, tmp ) NEXT ENDIF IF ! hbmk[ _HBMK_lStopAfterInit ] .AND. ! hbmk[ _HBMK_lStopAfterHarbour ] IF hbmk[ _HBMK_cGT ] != NIL .AND. hbmk[ _HBMK_cGT ] == hbmk[ _HBMK_cGTDEFAULT ] hbmk[ _HBMK_cGT ] := NIL ENDIF /* Merge user libs from command line and envvar. Command line has priority. */ hbmk[ _HBMK_aLIBUSER ] := ArrayAJoin( { hbmk[ _HBMK_aLIBUSERGT ], hbmk[ _HBMK_aLIBUSER ] } ) IF hbmk[ _HBMK_cPLAT ] == "darwin" FOR EACH tmp IN hbmk[ _HBMK_aLIBUSERFWK ] AAdd( hbmk[ _HBMK_aOPTL ], "-framework " + tmp ) AAdd( hbmk[ _HBMK_aOPTD ], "-framework " + tmp ) NEXT ENDIF hb_default( @hbmk[ _HBMK_lSHAREDDIST ], lSysLoc ) IF hbmk[ _HBMK_lSHAREDDIST ] .OR. ! HBMK_ISCOMP( "gcc|clang|open64" ) l_cDynLibDir := "" ELSE /* Only supported by gcc, clang, open64 compilers. */ l_cDynLibDir := hb_DirSepAdd( hbmk[ _HBMK_cHB_INSTALL_DYN ] ) ENDIF #if 1 cPostfix := "" HB_SYMBOL_UNUSED( cDL_Version ) #else cPostfix := cDL_Version #endif IF hbmk[ _HBMK_lMT ] .AND. hbmk[ _HBMK_nHBMODE ] <= _HBMODE_HB20 cHarbourDyn := iif( HBMK_ISPLAT( "win|os2" ), "harbourm", "harbourmt" ) ELSE /* ST mode or newer than Harbour 2.0, where there is only one harbour lib, built in MT mode by default. */ cHarbourDyn := "harbour" ENDIF DO CASE CASE HBMK_ISPLAT( "darwin|bsd|linux|hpux|beos|qnx|android|vxworks|sunos|minix|aix" ) IF Empty( l_cDynLibDir ) l_aLIBSHARED := { cHarbourDyn + cPostfix } ELSE l_aLIBSHARED := { l_cDynLibDir + hbmk[ _HBMK_cDynLibPrefix ] + cHarbourDyn + cPostfix + hbmk[ _HBMK_cDynLibExt ] } ENDIF CASE HBMK_ISPLAT( "os2|win|wce" ) l_aLIBSHARED := { hbmk[ _HBMK_cDynLibPrefix ] + cHarbourDyn } OTHERWISE l_aLIBSHARED := NIL ENDCASE /* C compilation/linking */ l_aLIB3RD := {} l_aLIBSYS := {} l_aCLEAN := {} cOptIncMask := "-I{DI}" /* Command macros: {LC} list of C files {LR} list of resource source files (Windows specific) {LS} list of resource binary files (Windows specific) {LO} list of object files {LA} list of object archive (.a) files {LL} list of lib files {LF} list of lib files (as flag) {LB} list of lib files with paths {FC} flags for C compiler (user + automatic) {FL} flags for linker (user + automatic) {OW} working dir (when in -inc mode) {OD} output dir {OO} output object (when in -hbcmp mode) {OE} output executable {OM} output map name {OI} output implib name {DB} dir for binaries {DI} dir for includes {DL} dirs for libs {SCRIPT} save command line to script and pass it to command as @ */ /* Assemble library list */ IF ! Empty( hbmk[ _HBMK_cGT ] ) .AND. !( Lower( hbmk[ _HBMK_cGT ] ) == "gtnul" ) IF AScan( hbmk[ _HBMK_aLIBCOREGT ], {| tmp | Lower( tmp ) == Lower( hbmk[ _HBMK_cGT ] ) } ) == 0 .AND. ; AScan( hbmk[ _HBMK_aLIBUSERGT ], {| tmp | Lower( tmp ) == Lower( hbmk[ _HBMK_cGT ] ) } ) == 0 AAdd( hbmk[ _HBMK_aLIBUSERGT ], hbmk[ _HBMK_cGT ] ) ENDIF IF AScan( hbmk[ _HBMK_aGT ], {| tmp | Lower( tmp ) == Lower( hbmk[ _HBMK_cGT ] ) } ) == 0 AAddNotEmpty( hbmk[ _HBMK_aGT ], hbmk[ _HBMK_cGT ] ) ENDIF ENDIF IF l_lNOHBLIB aLIB_BASE_EXTERN := {} aLIB_BASE_DEBUG := {} aLIB_BASE_1 := {} aLIB_BASE_1_MT := {} aLIB_BASE_2 := {} aLIB_BASE_2_MT := {} aLIB_BASE_NULRDD := {} aLIB_BASE_RDD := {} aLIB_BASE_RDD_MT := {} aLIB_BASE_CPLR := {} aLIB_BASE_3 := {} aLIB_BASE_3_MT := {} cLIB_BASE_PCRE := NIL cLIB_BASE_ZLIB := NIL hbmk[ _HBMK_aLIBCOREGT ] := {} ENDIF #define _HBLIB_FULLPATH( cName ) ( hb_DirSepAdd( hbmk[ _HBMK_cHB_INSTALL_LIB ] ) + hb_ps() + cLibLibPrefix + cName + cLibLibExt ) cLibHBX_Regex := "[[:space:]]_?HB_FUN_([A-Z0-9_]*)[[:space:]]" DO CASE /* GCC family */ CASE ( hbmk[ _HBMK_cPLAT ] == "bsd" .AND. hbmk[ _HBMK_cCOMP ] == "gcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "darwin" .AND. hbmk[ _HBMK_cCOMP ] == "gcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "hpux" .AND. hbmk[ _HBMK_cCOMP ] == "gcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "sunos" .AND. hbmk[ _HBMK_cCOMP ] == "gcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "linux" .AND. hbmk[ _HBMK_cCOMP ] == "gcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "linux" .AND. hbmk[ _HBMK_cCOMP ] == "icc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "darwin" .AND. hbmk[ _HBMK_cCOMP ] == "icc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "linux" .AND. hbmk[ _HBMK_cCOMP ] == "clang" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "darwin" .AND. hbmk[ _HBMK_cCOMP ] == "clang" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "bsd" .AND. hbmk[ _HBMK_cCOMP ] == "clang" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "minix" .AND. hbmk[ _HBMK_cCOMP ] == "clang" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "beos" .AND. hbmk[ _HBMK_cCOMP ] == "gcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "qnx" .AND. hbmk[ _HBMK_cCOMP ] == "gcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "android" .AND. hbmk[ _HBMK_cCOMP ] == "gcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "android" .AND. hbmk[ _HBMK_cCOMP ] == "gccarm" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "vxworks" .AND. hbmk[ _HBMK_cCOMP ] == "gcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "symbian" .AND. hbmk[ _HBMK_cCOMP ] == "gcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "cygwin" .AND. hbmk[ _HBMK_cCOMP ] == "gcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "linux" .AND. hbmk[ _HBMK_cCOMP ] == "open64" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "bsd" .AND. hbmk[ _HBMK_cCOMP ] == "pcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "darwin" .AND. hbmk[ _HBMK_cCOMP ] == "pcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "linux" .AND. hbmk[ _HBMK_cCOMP ] == "pcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "sunos" .AND. hbmk[ _HBMK_cCOMP ] == "pcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "minix" .AND. hbmk[ _HBMK_cCOMP ] == "gcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "aix" .AND. hbmk[ _HBMK_cCOMP ] == "gcc" ) #if defined( __PLATFORM__UNIX ) hbmk[ _HBMK_nCmd_Esc ] := _ESC_NIX #elif defined( __PLATFORM__WINDOWS ) hbmk[ _HBMK_nCmd_Esc ] := _ESC_DBLQUOTE #endif IF hbmk[ _HBMK_lDEBUG ] AAdd( hbmk[ _HBMK_aOPTC ], "-g" ) ENDIF /* TODO: Symbian cross-tools on Windows better "likes" forward slashes. [vszakats] */ IF hbmk[ _HBMK_cPLAT ] == "vxworks" vxworks_env_init( hbmk ) ENDIF IF hbmk[ _HBMK_cPLAT ] == "symbian" cLibLibPrefix := "" ELSE cLibLibPrefix := "lib" ENDIF cLibPrefix := "-l" cLibExt := "" cObjExt := ".o" IF hbmk[ _HBMK_cPLAT ] == "darwin" cBin_Lib := "libtool" cOpt_Lib := "-static {FA} -o {OL} {LO}" ELSE DO CASE CASE hbmk[ _HBMK_cCOMP ] == "icc" cBin_Lib := "xiar" CASE hbmk[ _HBMK_cPLAT ] == "vxworks" cBin_Lib := hbmk[ _HBMK_cCCPREFIX ] + "ar" + hbmk[ _HBMK_cCCPOSTFIX ] OTHERWISE cBin_Lib := hbmk[ _HBMK_cCCPREFIX ] + "ar" ENDCASE IF HBMK_ISPLAT( "hpux|sunos" ) cOpt_Lib := "{FA} rc {OL} {LO}" ELSE cOpt_Lib := "{FA} rcs {OL} {LO}" ENDIF ENDIF DO CASE CASE hbmk[ _HBMK_cCOMP ] == "icc" cBin_CompCPP := "icpc" cBin_CompC := iif( hbmk[ _HBMK_lCPP ] != NIL .AND. hbmk[ _HBMK_lCPP ], cBin_CompCPP, "icc" ) AAdd( hbmk[ _HBMK_aOPTC ], "-D_GNU_SOURCE" ) CASE hbmk[ _HBMK_cCOMP ] == "clang" cBin_CompC := hbmk[ _HBMK_cCCPREFIX ] + "clang" + hbmk[ _HBMK_cCCPOSTFIX ] cBin_CompCPP := cBin_CompC CASE hbmk[ _HBMK_cCOMP ] == "pcc" cBin_CompC := hbmk[ _HBMK_cCCPREFIX ] + "pcc" + hbmk[ _HBMK_cCCPOSTFIX ] CASE hbmk[ _HBMK_cCOMP ] == "open64" cBin_CompCPP := "openCC" cBin_CompC := iif( hbmk[ _HBMK_lCPP ] != NIL .AND. hbmk[ _HBMK_lCPP ], cBin_CompCPP, "opencc" ) CASE hbmk[ _HBMK_cPLAT ] == "vxworks" cBin_CompCPP := hbmk[ _HBMK_cCCPREFIX ] + "g++" + hbmk[ _HBMK_cCCPOSTFIX ] cBin_CompC := iif( hbmk[ _HBMK_lCPP ] != NIL .AND. hbmk[ _HBMK_lCPP ], cBin_CompCPP, hbmk[ _HBMK_cCCPREFIX ] + "cc" + hbmk[ _HBMK_cCCPOSTFIX ] ) OTHERWISE cBin_CompCPP := hbmk[ _HBMK_cCCPREFIX ] + "g++" + hbmk[ _HBMK_cCCPOSTFIX ] cBin_CompC := iif( hbmk[ _HBMK_lCPP ] != NIL .AND. hbmk[ _HBMK_lCPP ], cBin_CompCPP, hbmk[ _HBMK_cCCPREFIX ] + "gcc" + hbmk[ _HBMK_cCCPOSTFIX ] ) ENDCASE cOpt_CompC := "-c" IF hbmk[ _HBMK_lOPTIM ] cOpt_CompC += " -O3" ENDIF IF hbmk[ _HBMK_cCOMP ] == "icc" SWITCH hbmk[ _HBMK_nWARN ] CASE _WARN_MAX CASE _WARN_YES /* AAdd( hbmk[ _HBMK_aOPTC ], "-w2 -Wall" ); EXIT */ CASE _WARN_LOW CASE _WARN_NO ENDSWITCH ELSE SWITCH hbmk[ _HBMK_nWARN ] CASE _WARN_MAX ; AAdd( hbmk[ _HBMK_aOPTC ], "-W -Wall -pedantic" ) ; EXIT CASE _WARN_YES ; AAdd( hbmk[ _HBMK_aOPTC ], "-W -Wall" ) ; EXIT CASE _WARN_LOW AAdd( hbmk[ _HBMK_aOPTC ], "-Wmissing-braces -Wreturn-type -Wformat" ) IF hbmk[ _HBMK_lCPP ] != NIL .AND. ! hbmk[ _HBMK_lCPP ] AAdd( hbmk[ _HBMK_aOPTC ], "-Wimplicit-int -Wimplicit-function-declaration" ) ENDIF EXIT CASE _WARN_NO ; AAdd( hbmk[ _HBMK_aOPTC ], "-w" ) ; EXIT ENDSWITCH ENDIF IF hbmk[ _HBMK_cPLAT ] == "vxworks" AAdd( hbmk[ _HBMK_aOPTC ], "-mrtp" ) AAdd( hbmk[ _HBMK_aOPTL ], "-mrtp" ) AAdd( hbmk[ _HBMK_aOPTD ], "-mrtp" ) AAdd( hbmk[ _HBMK_aOPTC ], "-fno-strict-aliasing" ) /* TOFIX: Potential collision with -cpp=/-c= options */ AAdd( hbmk[ _HBMK_aOPTC ], "-D_C99" ) AAdd( hbmk[ _HBMK_aOPTC ], "-D_HAS_C9X" ) ENDIF IF hbmk[ _HBMK_cPLAT ] == "minix" AAdd( hbmk[ _HBMK_aOPTC ], "-D_MINIX=1" ) AAdd( hbmk[ _HBMK_aOPTC ], "-D_POSIX_SOURCE=1" ) ENDIF cOpt_CompC += " {FC}" IF ! Empty( hbmk[ _HBMK_cWorkDir ] ) /* Symbian gcc cross-compiler (on Windows) crashes if compiling multiple files at once */ IF !( hbmk[ _HBMK_cPLAT ] == "symbian" ) /* EXPERIMENTAL */ lCHD_Comp := .T. cOpt_CompC += " {LC}" ELSE IF HBMK_ISPLAT( "linux|bsd" ) .AND. hbmk[ _HBMK_cCOMP ] == "clang" /* NOTE: It's also accepted by darwin/clang */ cOpt_CompC += " {IC} -o{OO}" ELSE cOpt_CompC += " {IC} -o {OO}" ENDIF ENDIF IF HBMK_ISCOMP( "icc|gcc" ) AAdd( hbmk[ _HBMK_aOPTC ], "-pipe" ) ENDIF ELSE cOpt_CompC += " {LC}" ENDIF AAddNotEmpty( hbmk[ _HBMK_aOPTCX ], gcc_opt_lngc_fill( hbmk ) ) AAddNotEmpty( hbmk[ _HBMK_aOPTCPPX ], gcc_opt_lngcpp_fill( hbmk ) ) IF hbmk[ _HBMK_cPLAT ] == "darwin" cBin_Dyn := cBin_Lib cOpt_Dyn := "-dynamic -o {OD} -flat_namespace -undefined suppress -single_module {FD} {DL} {LO} {LS}" /* NOTE: -single_module is now the default in ld/libtool. */ ELSE cBin_Dyn := cBin_CompC cOpt_Dyn := "-shared -o {OD} {LO} {FD} {DL} {LS}" ENDIF cBin_Link := cBin_CompC cOpt_Link := "{LO} {LA} {FL} {DL}" cLibPathPrefix := "-L" cLibPathSep := " " IF hbmk[ _HBMK_cPLAT ] == "symbian" cLibLibExt := ".lib" ELSE cLibLibExt := ".a" ENDIF cBin_LibHBX := hbmk[ _HBMK_cCCPREFIX ] + "nm" cOpt_LibHBX := "-g" + iif( hbmk[ _HBMK_cPLAT ] == "darwin", "", " --defined-only -C" ) + " {LI}" IF hbmk[ _HBMK_cPLAT ] == "darwin" cLibHBX_Regex := "[[:space:]]T" + cLibHBX_Regex ENDIF IF l_lLIBGROUPING .AND. ; ( hbmk[ _HBMK_cPLAT ] == "linux" .OR. ; hbmk[ _HBMK_cPLAT ] == "beos" .OR. ; hbmk[ _HBMK_cPLAT ] == "qnx" .OR. ; hbmk[ _HBMK_cPLAT ] == "android" .OR. ; hbmk[ _HBMK_cPLAT ] == "vxworks" .OR. ; hbmk[ _HBMK_cPLAT ] == "cygwin" .OR. ; hbmk[ _HBMK_cPLAT ] == "bsd" ) AAdd( hbmk[ _HBMK_aOPTL ], "-Wl,--start-group {LL} {LB} {LF} -Wl,--end-group" ) AAdd( hbmk[ _HBMK_aOPTD ], "-Wl,--start-group {LL} {LB} {LF} -Wl,--end-group" ) ELSE AAdd( hbmk[ _HBMK_aOPTL ], "{LL} {LB} {LF}" ) AAdd( hbmk[ _HBMK_aOPTD ], "{LL} {LB} {LF}" ) l_aLIBHBBASE_2 := iif( hbmk[ _HBMK_lMT ], aLIB_BASE_2_MT, aLIB_BASE_2 ) ENDIF IF hbmk[ _HBMK_lMAP ] IF hbmk[ _HBMK_cPLAT ] == "darwin" AAdd( hbmk[ _HBMK_aOPTL ], "-Wl,-map,{OM}" ) AAdd( hbmk[ _HBMK_aOPTD ], "-Wl,-map,{OM}" ) ELSE AAdd( hbmk[ _HBMK_aOPTL ], "-Wl,-Map,{OM}" ) AAdd( hbmk[ _HBMK_aOPTD ], "-Wl,-Map,{OM}" ) ENDIF ENDIF IF hbmk[ _HBMK_lSTATICFULL ] AAdd( hbmk[ _HBMK_aOPTL ], "-static" ) ENDIF IF hbmk[ _HBMK_cPLAT ] == "darwin" .AND. hbmk[ _HBMK_cCOMP ] == "gcc" /* It's to avoid warning message generated when 'long double' is used remove it if you have newer compiler version */ /* AAdd( hbmk[ _HBMK_aOPTC ], "-Wno-long-double" ) */ IF hbmk[ _HBMK_lSHARED ] AAdd( hbmk[ _HBMK_aOPTL ], "-bind_at_load" ) ENDIF ENDIF IF hbmk[ _HBMK_cPLAT ] == "vxworks" IF hbmk[ _HBMK_lSHARED ] AAdd( hbmk[ _HBMK_aOPTL ], "-shared" ) /* TOFIX: no entry point */ ENDIF ENDIF IF hbmk[ _HBMK_lSTRIP ] IF hbmk[ _HBMK_lCreateLib ] .OR. HBMK_ISPLAT( "darwin|sunos" ) DO CASE CASE hbmk[ _HBMK_cPLAT ] == "vxworks" cBin_Post := "strip" + hbmk[ _HBMK_cCCPOSTFIX ] CASE hbmk[ _HBMK_cPLAT ] == "symbian" cBin_Post := hbmk[ _HBMK_cCCPREFIX ] + "strip" OTHERWISE cBin_Post := "strip" ENDCASE IF hbmk[ _HBMK_lCreateDyn ] .OR. hbmk[ _HBMK_lCreateLib ] cOpt_Post := "-S {OB}" ELSE cOpt_Post := "{OB}" ENDIF ELSE AAdd( hbmk[ _HBMK_aOPTL ], "-s" ) AAdd( hbmk[ _HBMK_aOPTD ], "-s" ) ENDIF ENDIF IF lStopAfterCComp IF ! hbmk[ _HBMK_lCreateLib ] .AND. ! hbmk[ _HBMK_lCreateDyn ] .AND. ( Len( hbmk[ _HBMK_aPRG ] ) + Len( hbmk[ _HBMK_aC ] ) + Len( hbmk[ _HBMK_aCPP ] ) ) == 1 IF HBMK_ISPLAT( "darwin|sunos" ) .OR. HBMK_ISCOMP( "pcc" ) AAdd( hbmk[ _HBMK_aOPTC ], "-o {OO}" ) ELSE AAdd( hbmk[ _HBMK_aOPTC ], "-o{OO}" ) ENDIF ENDIF ELSE IF HBMK_ISPLAT( "darwin|sunos" ) .OR. HBMK_ISCOMP( "pcc" ) AAdd( hbmk[ _HBMK_aOPTL ], "-o {OE}" ) ELSE AAdd( hbmk[ _HBMK_aOPTL ], "-o{OE}" ) ENDIF ENDIF IF hbmk[ _HBMK_lPIC ] .AND. ! HBMK_ISPLAT( "darwin|cygwin" ) IF HBMK_ISPLAT( "bsd|hpux|sunos|linux|android|aix" ) AAdd( hbmk[ _HBMK_aOPTC ], "-fPIC" ) ELSE AAdd( hbmk[ _HBMK_aOPTC ], "-fpic" ) ENDIF ENDIF /* Always inherit/reproduce some flags from self */ FOR EACH tmp IN { "-mlp64", "-mlp32", "-m64", "-m32" } IF tmp $ hb_Version( HB_VERSION_FLAG_C ) AAddNew( hbmk[ _HBMK_aOPTC ], tmp ) AAddNew( hbmk[ _HBMK_aOPTL ], tmp ) AAddNew( hbmk[ _HBMK_aOPTD ], tmp ) EXIT ENDIF NEXT /* Add system libraries */ IF ! hbmk[ _HBMK_lSHARED ] IF ! HBMK_ISPLAT( "beos|vxworks" ) AAdd( l_aLIBSYS, "m" ) IF hbmk[ _HBMK_lMT ] IF ! HBMK_ISPLAT( "qnx|android|minix" ) AAdd( l_aLIBSYS, "pthread" ) ENDIF ENDIF ENDIF DO CASE CASE HBMK_ISPLAT( "linux|cygwin" ) AAdd( l_aLIBSYS, "dl" ) AAdd( l_aLIBSYS, "rt" ) CASE hbmk[ _HBMK_cPLAT ] == "android" AAdd( l_aLIBSYS, "dl" ) CASE hbmk[ _HBMK_cPLAT ] == "sunos" AAdd( l_aLIBSYS, "rt" ) AAdd( l_aLIBSYS, "socket" ) AAdd( l_aLIBSYS, "nsl" ) AAdd( l_aLIBSYS, "resolv" ) CASE hbmk[ _HBMK_cPLAT ] == "hpux" AAdd( l_aLIBSYS, "rt" ) CASE hbmk[ _HBMK_cPLAT ] == "beos" AAddNew( hbmk[ _HBMK_aLIBPATH ], "/system/lib" ) AAdd( l_aLIBSYS, "root" ) AAdd( l_aLIBSYS, "network" ) CASE hbmk[ _HBMK_cPLAT ] == "qnx" AAdd( l_aLIBSYS, "socket" ) CASE hbmk[ _HBMK_cPLAT ] == "minix" AAddNew( hbmk[ _HBMK_aLIBPATH ], "/usr/lib" ) AAddNew( hbmk[ _HBMK_aLIBPATH ], "/usr/pkg/lib" ) ENDCASE IF ! Empty( cLIB_BASE_PCRE ) .AND. ! hb_FileExists( _HBLIB_FULLPATH( cLIB_BASE_PCRE ) ) IF hbmk[ _HBMK_cPLAT ] == "bsd" AAddNew( hbmk[ _HBMK_aLIBPATH ], "/usr/local/lib" ) ENDIF AAdd( l_aLIBSYS, "pcre" ) cLIB_BASE_PCRE := NIL ENDIF IF ! Empty( cLIB_BASE_ZLIB ) .AND. ! hb_FileExists( _HBLIB_FULLPATH( cLIB_BASE_ZLIB ) ) AAdd( l_aLIBSYS, "z" ) cLIB_BASE_ZLIB := NIL ENDIF ENDIF IF IsGTRequested( hbmk, "gtcrs" ) /* TOFIX: Sometimes 'ncur194' is needed. */ AAdd( l_aLIBSYS, iif( HBMK_ISPLAT( "sunos|bsd" ), "curses", "ncurses" ) ) ENDIF IF IsGTRequested( hbmk, "gtsln" ) IF hbmk[ _HBMK_cPLAT ] == "bsd" .AND. ; hb_FileExists( "/usr/pkg/lib/libslang2.so" ) /* For pkgsrc */ AAdd( l_aLIBSYS, "slang2" ) ELSE AAdd( l_aLIBSYS, "slang" ) ENDIF /* Add paths, where this isn't a system component */ DO CASE CASE hbmk[ _HBMK_cPLAT ] == "darwin" IF hb_DirExists( "/usr/local/lib" ) AAddNew( hbmk[ _HBMK_aLIBPATH ], "/usr/local/lib" ) /* For Homebrew */ ENDIF IF hb_DirExists( "/opt/local/lib" ) AAddNew( hbmk[ _HBMK_aLIBPATH ], "/opt/local/lib" ) /* For MacPorts (formerly DarwinPorts) */ ENDIF IF hb_DirExists( "/sw/lib" ) AAddNew( hbmk[ _HBMK_aLIBPATH ], "/sw/lib" ) /* For Fink */ ENDIF CASE hbmk[ _HBMK_cPLAT ] == "bsd" AAddNew( hbmk[ _HBMK_aLIBPATH ], "/usr/local/lib" ) /* For ports */ AAddNew( hbmk[ _HBMK_aLIBPATH ], "/usr/pkg/lib" ) /* For pkgsrc */ ENDCASE ENDIF IF IsGTRequested( hbmk, "gtxwc" ) IF hbmk[ _HBMK_cPLAT ] == "linux" .AND. hb_DirExists( "/usr/X11R6/lib64" ) AAddNew( hbmk[ _HBMK_aLIBPATH ], "/usr/X11R6/lib64" ) ENDIF IF hbmk[ _HBMK_cPLAT ] == "minix" .AND. hb_DirExists( "/usr/pkg/X11R6/lib" ) AAddNew( hbmk[ _HBMK_aLIBPATH ], "/usr/pkg/X11R6/lib" ) ENDIF AAddNew( hbmk[ _HBMK_aLIBPATH ], "/usr/X11R6/lib" ) AAdd( l_aLIBSYS, "X11" ) ENDIF /* Hack needed for OpenBSD to find dynamic libs referenced from harbour dynlib (embedded dirs are ignored) */ IF hbmk[ _HBMK_cPLAT ] == "bsd" .AND. hbmk[ _HBMK_lSHARED ] AAddNew( hbmk[ _HBMK_aLIBPATH ], "/usr/X11R6/lib" ) AAddNew( hbmk[ _HBMK_aLIBPATH ], "/usr/local/lib" ) ENDIF IF hbmk[ _HBMK_cPLAT ] == "cygwin" l_aLIBSHAREDPOST := { "hbmainstd" } l_aLIBSHARED := { cHarbourDyn + cDL_Version_Alter + hbmk_DYNSUFFIX( hbmk ) } IF ! l_lNOHBLIB .AND. ! hbmk[ _HBMK_lCreateDyn ] l_aLIBSTATICPOST := l_aLIBSHAREDPOST ENDIF ENDIF CASE ( hbmk[ _HBMK_cPLAT ] == "win" .AND. hbmk[ _HBMK_cCOMP ] == "gcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "win" .AND. hbmk[ _HBMK_cCOMP ] == "mingw" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "win" .AND. hbmk[ _HBMK_cCOMP ] == "mingw64" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "wce" .AND. hbmk[ _HBMK_cCOMP ] == "mingw" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "wce" .AND. hbmk[ _HBMK_cCOMP ] == "mingwarm" ) hbmk[ _HBMK_nCmd_FNF ] := _FNF_FWDSLASH IF hbmk[ _HBMK_lDEBUG ] AAdd( hbmk[ _HBMK_aOPTC ], "-g" ) ENDIF cLibLibPrefix := "lib" cLibPrefix := "-l" cLibExt := "" cObjExt := ".o" cBin_CompCPP := hbmk[ _HBMK_cCCPREFIX ] + "g++" + hbmk[ _HBMK_cCCPOSTFIX ] + hbmk[ _HBMK_cCCEXT ] cBin_CompC := iif( hbmk[ _HBMK_lCPP ] != NIL .AND. hbmk[ _HBMK_lCPP ], cBin_CompCPP, hbmk[ _HBMK_cCCPREFIX ] + "gcc" + hbmk[ _HBMK_cCCPOSTFIX ] + hbmk[ _HBMK_cCCEXT ] ) cOpt_CompC := "-c" IF hbmk[ _HBMK_lOPTIM ] cOpt_CompC += " -O3" IF HBMK_ISCOMP( "gcc|mingw" ) cOpt_CompC += " -march=i586 -mtune=pentiumpro" ENDIF IF ! hbmk[ _HBMK_lDEBUG ] .AND. !( hbmk[ _HBMK_cCOMP ] == "mingw64" ) cOpt_CompC += " -fomit-frame-pointer" ENDIF ENDIF SWITCH hbmk[ _HBMK_nWARN ] CASE _WARN_MAX ; AAdd( hbmk[ _HBMK_aOPTC ], "-W -Wall -pedantic" ) ; EXIT CASE _WARN_YES ; AAdd( hbmk[ _HBMK_aOPTC ], "-W -Wall" ) ; EXIT CASE _WARN_LOW AAdd( hbmk[ _HBMK_aOPTC ], "-Wmissing-braces -Wreturn-type -Wformat" ) IF hbmk[ _HBMK_lCPP ] != NIL .AND. ! hbmk[ _HBMK_lCPP ] AAdd( hbmk[ _HBMK_aOPTC ], "-Wimplicit-int -Wimplicit-function-declaration" ) ENDIF EXIT CASE _WARN_NO ; AAdd( hbmk[ _HBMK_aOPTC ], "-w" ) ; EXIT ENDSWITCH cOpt_CompC += " {FC}" cOptIncMask := "-I{DI}" IF ! Empty( hbmk[ _HBMK_cWorkDir ] ) IF .T. /* EXPERIMENTAL */ lCHD_Comp := .T. cOpt_CompC += " {LC}" ELSE cOpt_CompC += " {IC} -o {OO}" ENDIF AAdd( hbmk[ _HBMK_aOPTC ], "-pipe" ) ELSE cOpt_CompC += " {LC}" ENDIF AAddNotEmpty( hbmk[ _HBMK_aOPTCX ], gcc_opt_lngc_fill( hbmk ) ) AAddNotEmpty( hbmk[ _HBMK_aOPTCPPX ], gcc_opt_lngcpp_fill( hbmk ) ) cBin_Dyn := cBin_CompC cOpt_Dyn := "-shared -o {OD} {LO} {FD} {IM} {DL} {LS}{SCRIPT_MINGW}" cBin_Link := cBin_CompC cOpt_Link := "{LO} {LA} {LS} {FL} {IM} {DL}" bBlk_ImpLib := {| cSourceDLL, cTargetLib, cFlags | win_implib_command_gcc( hbmk, hbmk[ _HBMK_cCCPREFIX ] + "dlltool" + hbmk[ _HBMK_cCCPOSTFIX ] + hbmk[ _HBMK_cCCEXT ] + " {FI} -d {ID} -l {OL}", cSourceDLL, cTargetLib, cFlags ) } cLibPathPrefix := "-L" cLibPathSep := " " cLibLibExt := ".a" cImpLibExt := cLibLibExt cBin_Lib := hbmk[ _HBMK_cCCPREFIX ] + "ar" + hbmk[ _HBMK_cCCEXT ] #if defined( __PLATFORM__WINDOWS ) hbmk[ _HBMK_nCmd_Esc ] := _ESC_DBLQUOTE #endif cOpt_Lib := "{FA} rcs {OL} {LO}" cLibObjPrefix := NIL IF ! Empty( hbmk[ _HBMK_cCCPATH ] ) cBin_Lib := FNameEscape( hbmk[ _HBMK_cCCPATH ] + hb_ps() + cBin_Lib, hbmk[ _HBMK_nCmd_Esc ] ) cBin_CompCPP := FNameEscape( hbmk[ _HBMK_cCCPATH ] + hb_ps() + cBin_CompCPP, hbmk[ _HBMK_nCmd_Esc ] ) cBin_CompC := FNameEscape( hbmk[ _HBMK_cCCPATH ] + hb_ps() + cBin_CompC, hbmk[ _HBMK_nCmd_Esc ] ) cBin_Link := FNameEscape( hbmk[ _HBMK_cCCPATH ] + hb_ps() + cBin_Link, hbmk[ _HBMK_nCmd_Esc ] ) ENDIF cBin_LibHBX := hbmk[ _HBMK_cCCPREFIX ] + "nm" + hbmk[ _HBMK_cCCEXT ] cOpt_LibHBX := "-g --defined-only -C {LI}" IF !( hbmk[ _HBMK_cPLAT ] == "wce" ) IF hbmk[ _HBMK_lGUI ] AAdd( hbmk[ _HBMK_aOPTL ], "-mwindows" ) IF ! l_lNOHBLIB l_cCMAIN := "hb_forceLinkMainWin" ENDIF ELSE AAdd( hbmk[ _HBMK_aOPTL ], "-mconsole" ) ENDIF ENDIF IF hbmk[ _HBMK_lMAP ] AAdd( hbmk[ _HBMK_aOPTL ], "-Wl,-Map,{OM}" ) AAdd( hbmk[ _HBMK_aOPTD ], "-Wl,-Map,{OM}" ) ENDIF IF hbmk[ _HBMK_lIMPLIB ] AAdd( hbmk[ _HBMK_aOPTL ], "-Wl,--out-implib,{OI}" ) AAdd( hbmk[ _HBMK_aOPTD ], "-Wl,--out-implib,{OI}" ) ENDIF IF l_lLIBGROUPING .AND. HBMK_ISCOMP( "mingw|mingw64|mingwarm" ) AAdd( hbmk[ _HBMK_aOPTL ], "-Wl,--start-group {LL} {LB} {LF} -Wl,--end-group" ) AAdd( hbmk[ _HBMK_aOPTD ], "-Wl,--start-group {LL} {LB} {LF} -Wl,--end-group" ) ELSE AAdd( hbmk[ _HBMK_aOPTL ], "{LL} {LB} {LF}" ) AAdd( hbmk[ _HBMK_aOPTD ], "{LL} {LB} {LF}" ) l_aLIBHBBASE_2 := iif( hbmk[ _HBMK_lMT ], aLIB_BASE_2_MT, aLIB_BASE_2 ) ENDIF IF hbmk[ _HBMK_lSTRIP ] IF hbmk[ _HBMK_lCreateLib ] cBin_Post := "strip" cOpt_Post := "-S {OB}" ELSE AAdd( hbmk[ _HBMK_aOPTL ], "-s" ) AAdd( hbmk[ _HBMK_aOPTD ], "-s" ) ENDIF ENDIF IF lStopAfterCComp IF ! hbmk[ _HBMK_lCreateLib ] .AND. ! hbmk[ _HBMK_lCreateDyn ] .AND. ( Len( hbmk[ _HBMK_aPRG ] ) + Len( hbmk[ _HBMK_aC ] ) + Len( hbmk[ _HBMK_aCPP ] ) ) == 1 AAdd( hbmk[ _HBMK_aOPTC ], "-o{OO}" ) ENDIF ELSE AAdd( hbmk[ _HBMK_aOPTL ], "-o{OE}" ) ENDIF l_aLIBSYS := ArrayAJoin( { l_aLIBSYS, l_aLIBSYSCORE, l_aLIBSYSMISC } ) IF hbmk[ _HBMK_lWINUNI ] AAdd( hbmk[ _HBMK_aOPTC ], "-DUNICODE" ) ENDIF IF hbmk[ _HBMK_cPLAT ] == "wce" AAdd( hbmk[ _HBMK_aOPTC ], "-DUNDER_CE" ) AAdd( hbmk[ _HBMK_aOPTRES ], "-DUNDER_CE" ) ENDIF DO CASE CASE _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ) /* NOTE: Newer xhb versions use "-x.y.z" version numbers. */ l_aLIBSHARED := { iif( hbmk[ _HBMK_lMT ], "xharbourmt",; "xharbour" ) } OTHERWISE l_aLIBSHARED := { cHarbourDyn + cDL_Version_Alter + hbmk_DYNSUFFIX( hbmk ) } ENDCASE IF _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ) IF ! hbmk[ _HBMK_lGUI ] l_aLIBSHAREDPOST := { "mainstd" } ENDIF ELSE IF hbmk[ _HBMK_lGUI ] l_aLIBSHAREDPOST := { "hbmainwin" } ELSE l_aLIBSHAREDPOST := { "hbmainstd" } ENDIF IF ! l_lNOHBLIB .AND. ! hbmk[ _HBMK_lCreateDyn ] l_aLIBSTATICPOST := l_aLIBSHAREDPOST ENDIF ENDIF IF HBMK_ISCOMP( "mingw|mingw64|mingwarm" ) cBin_Res := hbmk[ _HBMK_cCCPREFIX ] + "windres" + hbmk[ _HBMK_cCCEXT ] cResExt := ".reso" cOpt_Res := "{FR} {IR} -O coff -o {OS}" IF ! Empty( hbmk[ _HBMK_cCCPATH ] ) cBin_Res := FNameEscape( hbmk[ _HBMK_cCCPATH ] + hb_ps() + cBin_Res, hbmk[ _HBMK_nCmd_Esc ] ) ENDIF ENDIF CASE hbmk[ _HBMK_cPLAT ] == "os2" .AND. HBMK_ISCOMP( "gcc|gccomf" ) hbmk[ _HBMK_nCmd_FNF ] := _FNF_BCKSLASH IF hbmk[ _HBMK_lDEBUG ] AAdd( hbmk[ _HBMK_aOPTC ], "-g" ) ENDIF cLibPrefix := "-l" cLibExt := "" cObjExt := ".o" cBin_CompCPP := hbmk[ _HBMK_cCCPREFIX ] + "g++" + hbmk[ _HBMK_cCCPOSTFIX ] + hbmk[ _HBMK_cCCEXT ] cBin_CompC := iif( hbmk[ _HBMK_lCPP ] != NIL .AND. hbmk[ _HBMK_lCPP ], cBin_CompCPP, hbmk[ _HBMK_cCCPREFIX ] + "gcc" + hbmk[ _HBMK_cCCPOSTFIX ] + hbmk[ _HBMK_cCCEXT ] ) cOpt_CompC := "-c" IF hbmk[ _HBMK_lOPTIM ] cOpt_CompC += " -O3" ENDIF SWITCH hbmk[ _HBMK_nWARN ] CASE _WARN_MAX ; AAdd( hbmk[ _HBMK_aOPTC ], "-W -Wall -pedantic" ) ; EXIT CASE _WARN_YES ; AAdd( hbmk[ _HBMK_aOPTC ], "-W -Wall" ) ; EXIT CASE _WARN_LOW AAdd( hbmk[ _HBMK_aOPTC ], "-Wmissing-braces -Wreturn-type -Wformat" ) IF hbmk[ _HBMK_lCPP ] != NIL .AND. ! hbmk[ _HBMK_lCPP ] AAdd( hbmk[ _HBMK_aOPTC ], "-Wimplicit-int -Wimplicit-function-declaration" ) ENDIF EXIT CASE _WARN_NO ; AAdd( hbmk[ _HBMK_aOPTC ], "-w" ) ; EXIT ENDSWITCH cOpt_CompC += " {FC}" IF ! Empty( hbmk[ _HBMK_cWorkDir ] ) cOpt_CompC += " {IC} -o {OO}" AAdd( hbmk[ _HBMK_aOPTC ], "-pipe" ) ELSE cOpt_CompC += " {LC}" ENDIF AAddNotEmpty( hbmk[ _HBMK_aOPTCX ], gcc_opt_lngc_fill( hbmk ) ) AAddNotEmpty( hbmk[ _HBMK_aOPTCPPX ], gcc_opt_lngcpp_fill( hbmk ) ) cBin_Dyn := cBin_CompC cOpt_Dyn := "-shared -o {OD} {LO} {LL} {LB} {LF} {FD} {IM} {DL} {LS}" cBin_Link := cBin_CompC cOpt_Link := "{LO} {LA} {FL} {IM} {DL}" bBlk_ImpLib := {| cSourceDLL, cTargetLib | win_implib_copy( hbmk, cSourceDLL, cTargetLib ) } cLibPathPrefix := "-L" cLibPathSep := " " IF hbmk[ _HBMK_cCOMP ] == "gccomf" cLibLibExt := ".lib" cImpLibExt := cImpLibExt /* ".imp" */ cBin_Lib := hbmk[ _HBMK_cCCPREFIX ] + "emxomfar" + hbmk[ _HBMK_cCCEXT ] AAdd( hbmk[ _HBMK_aOPTC ], "-Zomf" ) AAdd( hbmk[ _HBMK_aOPTL ], "-Zomf" ) AAdd( hbmk[ _HBMK_aOPTD ], "-Zomf" ) ELSE cLibLibExt := ".a" cImpLibExt := cLibLibExt cBin_Lib := hbmk[ _HBMK_cCCPREFIX ] + "ar" + hbmk[ _HBMK_cCCEXT ] ENDIF cOpt_Lib := "{FA} rcs {OL} {LO}" IF hbmk[ _HBMK_lMAP ] AAdd( hbmk[ _HBMK_aOPTL ], "-Wl,-Map,{OM}" ) AAdd( hbmk[ _HBMK_aOPTD ], "-Wl,-Map,{OM}" ) ENDIF IF ! hbmk[ _HBMK_lCreateLib ] .AND. hbmk[ _HBMK_lIMPLIB ] cBin_Post := "emximp" cOpt_Post := "-o {OI} {OB}" ENDIF AAdd( hbmk[ _HBMK_aOPTL ], "{LL} {LB} {LF}" ) l_aLIBHBBASE_2 := iif( hbmk[ _HBMK_lMT ], aLIB_BASE_2_MT, aLIB_BASE_2 ) IF ! hbmk[ _HBMK_lSHARED ] l_aLIBSYS := ArrayJoin( l_aLIBSYS, { "socket" } ) ENDIF IF hbmk[ _HBMK_lSTRIP ] IF hbmk[ _HBMK_lCreateLib ] IF hbmk[ _HBMK_cCOMP ] == "gccomf" cBin_Post := "stripomf" ELSE cBin_Post := "strip" ENDIF cOpt_Post := "-S {OB}" ELSE AAdd( hbmk[ _HBMK_aOPTL ], "-s" ) AAdd( hbmk[ _HBMK_aOPTD ], "-s" ) ENDIF ENDIF /* OS/2 needs a space between -o and file name following it */ IF lStopAfterCComp IF ! hbmk[ _HBMK_lCreateLib ] .AND. ! hbmk[ _HBMK_lCreateDyn ] .AND. ( Len( hbmk[ _HBMK_aPRG ] ) + Len( hbmk[ _HBMK_aC ] ) + Len( hbmk[ _HBMK_aCPP ] ) ) == 1 AAdd( hbmk[ _HBMK_aOPTC ], "-o {OO}" ) ENDIF ELSE AAdd( hbmk[ _HBMK_aOPTL ], "-o {OE}" ) ENDIF l_aLIBSHAREDPOST := { "hbmainstd" } l_aLIBSHARED := { cHarbourDyn } #if 0 /* Disabled because windres seems to be broken in all gcc builds as of 2010-05-05. [vszakats] */ cBin_Res := hbmk[ _HBMK_cCCPREFIX ] + "windres" + hbmk[ _HBMK_cCCEXT ] cResExt := ".reso" IF hbmk[ _HBMK_cCOMP ] == "gccomf" cOpt_Res := "{FR} {IR} -O omf -o {OS}" ELSE cOpt_Res := "{FR} {IR} -o {OS}" ENDIF #endif IF ! Empty( hbmk[ _HBMK_cCCPATH ] ) cBin_Lib := FNameEscape( hbmk[ _HBMK_cCCPATH ] + hb_ps() + cBin_Lib, hbmk[ _HBMK_nCmd_Esc ] ) cBin_CompCPP := FNameEscape( hbmk[ _HBMK_cCCPATH ] + hb_ps() + cBin_CompCPP, hbmk[ _HBMK_nCmd_Esc ] ) cBin_CompC := FNameEscape( hbmk[ _HBMK_cCCPATH ] + hb_ps() + cBin_CompC, hbmk[ _HBMK_nCmd_Esc ] ) cBin_Link := FNameEscape( hbmk[ _HBMK_cCCPATH ] + hb_ps() + cBin_Link, hbmk[ _HBMK_nCmd_Esc ] ) #if 0 cBin_Res := FNameEscape( hbmk[ _HBMK_cCCPATH ] + hb_ps() + cBin_Res, hbmk[ _HBMK_nCmd_Esc ] ) #endif ENDIF CASE hbmk[ _HBMK_cPLAT ] == "dos" .AND. hbmk[ _HBMK_cCOMP ] == "djgpp" IF hbmk[ _HBMK_lDEBUG ] AAdd( hbmk[ _HBMK_aOPTC ], "-gstabs+" ) ENDIF cLibLibPrefix := "lib" cLibPrefix := "-l" cLibExt := "" cObjExt := ".o" cBin_CompCPP := hbmk[ _HBMK_cCCPREFIX ] + "gpp" + hbmk[ _HBMK_cCCPOSTFIX ] + hbmk[ _HBMK_cCCEXT ] cBin_CompC := iif( hbmk[ _HBMK_lCPP ] != NIL .AND. hbmk[ _HBMK_lCPP ], cBin_CompCPP, hbmk[ _HBMK_cCCPREFIX ] + "gcc" + hbmk[ _HBMK_cCCPOSTFIX ] + hbmk[ _HBMK_cCCEXT ] ) cOpt_CompC := "-c" IF hbmk[ _HBMK_lOPTIM ] cOpt_CompC += " -O3" ENDIF SWITCH hbmk[ _HBMK_nWARN ] CASE _WARN_MAX ; AAdd( hbmk[ _HBMK_aOPTC ], "-W -Wall -pedantic" ) ; EXIT CASE _WARN_YES ; AAdd( hbmk[ _HBMK_aOPTC ], "-W -Wall" ) ; EXIT CASE _WARN_LOW AAdd( hbmk[ _HBMK_aOPTC ], "-Wmissing-braces -Wreturn-type -Wformat" ) IF hbmk[ _HBMK_lCPP ] != NIL .AND. ! hbmk[ _HBMK_lCPP ] AAdd( hbmk[ _HBMK_aOPTC ], "-Wimplicit-int -Wimplicit-function-declaration" ) ENDIF EXIT CASE _WARN_NO ; AAdd( hbmk[ _HBMK_aOPTC ], "-w" ) ; EXIT ENDSWITCH cOpt_CompC += " {FC}" IF ! Empty( hbmk[ _HBMK_cWorkDir ] ) cOpt_CompC += " {IC} -o {OO}" ELSE cOpt_CompC += " {LC}" ENDIF AAddNotEmpty( hbmk[ _HBMK_aOPTCX ], gcc_opt_lngc_fill( hbmk ) ) AAddNotEmpty( hbmk[ _HBMK_aOPTCPPX ], gcc_opt_lngcpp_fill( hbmk ) ) cBin_Dyn := "dxe3gen" cOpt_Dyn := "--whole-archive -U {FD} -o {OD} {DL} {LO} {LL} {LB} {LF} {LS}" cBin_Link := cBin_CompC cOpt_Link := "{LO} {LA} {FL} {DL}{SCRIPT}" cLibPathPrefix := "-L" cLibPathSep := " " cLibLibExt := ".a" cBin_Lib := hbmk[ _HBMK_cCCPREFIX ] + "ar" + hbmk[ _HBMK_cCCEXT ] cOpt_Lib := "{FA} rcs {OL} {LO}{SCRIPT}" cBin_LibHBX := hbmk[ _HBMK_cCCPREFIX ] + "nm" + hbmk[ _HBMK_cCCEXT ] cOpt_LibHBX := "-g --defined-only -C {LI}" IF l_lLIBGROUPING AAdd( hbmk[ _HBMK_aOPTL ], "-Wl,--start-group {LL} {LB} {LF} -Wl,--end-group" ) ELSE AAdd( hbmk[ _HBMK_aOPTL ], "{LL} {LB} {LF}" ) l_aLIBHBBASE_2 := iif( hbmk[ _HBMK_lMT ], aLIB_BASE_2_MT, aLIB_BASE_2 ) ENDIF IF hbmk[ _HBMK_lMAP ] AAdd( hbmk[ _HBMK_aOPTL ], "-Wl,-Map,{OM}" ) ENDIF IF hbmk[ _HBMK_lIMPLIB ] AAdd( hbmk[ _HBMK_aOPTD ], "-Y {OI}" ) ENDIF IF ! hbmk[ _HBMK_lSHARED ] l_aLIBSYS := ArrayJoin( l_aLIBSYS, { "m" } ) ENDIF IF hbmk[ _HBMK_lSTRIP ] IF hbmk[ _HBMK_lCreateLib ] cBin_Post := "strip" cOpt_Post := "-S {OB}" ELSE AAdd( hbmk[ _HBMK_aOPTL ], "-s" ) AAdd( hbmk[ _HBMK_aOPTD ], "-s" ) ENDIF ENDIF IF lStopAfterCComp IF ! hbmk[ _HBMK_lCreateLib ] .AND. ! hbmk[ _HBMK_lCreateDyn ] .AND. ( Len( hbmk[ _HBMK_aPRG ] ) + Len( hbmk[ _HBMK_aC ] ) + Len( hbmk[ _HBMK_aCPP ] ) ) == 1 AAdd( hbmk[ _HBMK_aOPTC ], "-o{OO}" ) ENDIF ELSE AAdd( hbmk[ _HBMK_aOPTL ], "-o{OE}" ) ENDIF IF IsGTRequested( hbmk, "gtcrs" ) AAdd( l_aLIBSYS, "pdcurses" ) ENDIF l_aLIBSHARED := { cHarbourDyn + cLibExt } IF ! Empty( hbmk[ _HBMK_cCCPATH ] ) cBin_Lib := FNameEscape( hbmk[ _HBMK_cCCPATH ] + hb_ps() + cBin_Lib, hbmk[ _HBMK_nCmd_Esc ] ) cBin_CompCPP := FNameEscape( hbmk[ _HBMK_cCCPATH ] + hb_ps() + cBin_CompCPP, hbmk[ _HBMK_nCmd_Esc ] ) cBin_CompC := FNameEscape( hbmk[ _HBMK_cCCPATH ] + hb_ps() + cBin_CompC, hbmk[ _HBMK_nCmd_Esc ] ) cBin_Link := FNameEscape( hbmk[ _HBMK_cCCPATH ] + hb_ps() + cBin_Link, hbmk[ _HBMK_nCmd_Esc ] ) ENDIF /* Watcom family */ CASE hbmk[ _HBMK_cCOMP ] == "watcom" #if defined( __PLATFORM__UNIX ) hbmk[ _HBMK_nCmd_Esc ] := _ESC_NIX #elif defined( __PLATFORM__WINDOWS ) hbmk[ _HBMK_nCmd_Esc ] := _ESC_DBLQUOTE #endif hbmk[ _HBMK_nScr_Esc ] := _ESC_SGLQUOTE_WATCOM cLibPrefix := "LIB " cLibExt := ".lib" cObjPrefix := "FILE " IF hbmk[ _HBMK_cPLAT ] == "linux" #if defined( __PLATFORM__UNIX ) cObjExt := ".o" #else /* NOTE: This extension is used when building Linux targets on non-Linux hosts. [vszakats] */ cObjExt := ".obj" /* NOTE: Hack to force no extension for binaries. Otherwise they become '.elf'. [vszakats] */ cBinExt := "." #endif ELSE cObjExt := ".obj" ENDIF cLibPathPrefix := "LIBPATH " cLibPathSep := " " cBin_CompCPP := "wpp386" + hbmk[ _HBMK_cCCEXT ] IF hbmk[ _HBMK_lCPP ] != NIL .AND. hbmk[ _HBMK_lCPP ] cBin_CompC := cBin_CompCPP ELSE cBin_CompC := "wcc386" + hbmk[ _HBMK_cCCEXT ] ENDIF cOpt_CompC := "" IF hbmk[ _HBMK_lOPTIM ] DO CASE CASE hbmk[ _HBMK_cPLAT ] == "linux" ; cOpt_CompC += " -6r -fp6" CASE hbmk[ _HBMK_cPLAT ] == "win" ; cOpt_CompC += " -6s -fp6" CASE HBMK_ISPLAT( "dos|os2" ) ; cOpt_CompC += " -5r -fp5" ENDCASE cOpt_CompC += " -onaehtr -s -ei -zp4 -zt0" IF hbmk[ _HBMK_lCPP ] != NIL .AND. hbmk[ _HBMK_lCPP ] cOpt_CompC += " -oi+" ELSE cOpt_CompC += " -oi" ENDIF ELSE IF hbmk[ _HBMK_cPLAT ] == "win" cOpt_CompC += " -3s" ENDIF ENDIF SWITCH hbmk[ _HBMK_nWARN ] CASE _WARN_MAX ; AAdd( hbmk[ _HBMK_aOPTC ], "-wx" ) ; EXIT CASE _WARN_YES ; AAdd( hbmk[ _HBMK_aOPTC ], "-w3" ) ; EXIT CASE _WARN_LOW AAdd( hbmk[ _HBMK_aOPTC ], "-w1 -wcd201 -wcd367 -wcd368" ) IF hbmk[ _HBMK_lCPP ] != NIL .AND. ! hbmk[ _HBMK_lCPP ] AAdd( hbmk[ _HBMK_aOPTC ], "-wcd124 -wcd136" ) ENDIF EXIT CASE _WARN_NO ; AAdd( hbmk[ _HBMK_aOPTC ], "-w0" ) ; EXIT ENDSWITCH DO CASE CASE hbmk[ _HBMK_cPLAT ] == "linux" ; cOpt_CompC += " -zq -bt=linux {FC}" CASE hbmk[ _HBMK_cPLAT ] == "win" ; cOpt_CompC += " -zq -bt=nt {FC}" CASE hbmk[ _HBMK_cPLAT ] == "dos" ; cOpt_CompC += " -zq -bt=dos {FC}" CASE hbmk[ _HBMK_cPLAT ] == "os2" ; cOpt_CompC += " -zq -bt=os2 {FC}" ENDCASE cOptIncMask := "-i{DI}" IF ! Empty( hbmk[ _HBMK_cWorkDir ] ) .OR. !( hbmk[ _HBMK_lCPP ] != NIL .AND. hbmk[ _HBMK_lCPP ] ) cOpt_CompC += " {IC} -fo={OO}" ELSE cOpt_CompC += " {LC}" ENDIF DO CASE CASE hbmk[ _HBMK_cC ] == "iso99" ; AAdd( hbmk[ _HBMK_aOPTCX ], "-za99" ) ENDCASE IF lStopAfterCComp .AND. ! hbmk[ _HBMK_lCreateLib ] .AND. ! hbmk[ _HBMK_lCreateDyn ] IF ( Len( hbmk[ _HBMK_aPRG ] ) + Len( hbmk[ _HBMK_aC ] ) + Len( hbmk[ _HBMK_aCPP ] ) ) == 1 AAdd( hbmk[ _HBMK_aOPTC ], "-fo={OO}" ) ELSE AAdd( hbmk[ _HBMK_aOPTC ], "-fo={OD}" ) ENDIF ENDIF cBin_Link := "wlink" + hbmk[ _HBMK_cCCEXT ] DO CASE CASE hbmk[ _HBMK_cPLAT ] == "linux" ; cOpt_Link := "OP quiet SYS linux {FL} NAME {OE} {LO} {DL} {LL} {LB} {LF}{SCRIPT}" CASE hbmk[ _HBMK_cPLAT ] == "dos" ; cOpt_Link := "OP quiet SYS dos32a {FL} NAME {OE} {LO} {DL} {LL} {LB} {LF}{SCRIPT}" CASE hbmk[ _HBMK_cPLAT ] == "win" ; cOpt_Link := "OP quiet {FL} {IM} NAME {OE} {LO} {DL} {LL} {LB} {LF} {LS}{SCRIPT}" CASE hbmk[ _HBMK_cPLAT ] == "os2" ; cOpt_Link := "OP quiet SYS os2v2 {FL} {IM} NAME {OE} {LO} {DL} {LL} {LB} {LF} {LS}{SCRIPT}" ENDCASE cBin_Dyn := cBin_Link cDynObjPrefix := cObjPrefix DO CASE CASE hbmk[ _HBMK_cPLAT ] == "dos" ; cBin_Dyn := NIL CASE hbmk[ _HBMK_cPLAT ] == "linux" ; cOpt_Dyn := "OP quiet FORM elf dll OP exportall {FD} NAME {OD} {LO} {DL} {LL} {LB} {LF}{SCRIPT}" IF hbmk[ _HBMK_lCreateDyn ] AAdd( hbmk[ _HBMK_aLIBPATH ], PathSepToSelf( GetEnv( "WATCOM") + hb_ps() + "lib386" ) ) AAdd( hbmk[ _HBMK_aLIBPATH ], PathSepToSelf( GetEnv( "WATCOM") + hb_ps() + "lib386" + hb_ps() + "linux" ) ) ENDIF CASE hbmk[ _HBMK_cPLAT ] == "win" ; cOpt_Dyn := "OP quiet SYS nt_dll {FD} {IM} NAME {OD} {LO} {DL} {LL} {LB} {LF} {LS}{SCRIPT}" CASE hbmk[ _HBMK_cPLAT ] == "os2" ; cOpt_Dyn := "OP quiet SYS os2v2_dll {FD} {IM} NAME {OD} {LO} {DL} {LL} {LB} {LF} {LS}{SCRIPT}" ENDCASE IF HBMK_ISPLAT( "win|os2" ) .AND. ! Empty( hbmk[ _HBMK_aDEF ] ) /* TODO: Watcom wlink requires a non-standard internal layout for .def files. We will need a converter and implement on-the-fly conversion to a temp file and pass that via {IM}. */ cDefPrefix := "@" ENDIF IF hbmk[ _HBMK_cPLAT ] == "dos" /* workaround for not included automatically CLIB in pure C mode DOS builds */ AAdd( l_aLIBSYS, "clib3r" ) ENDIF cBin_Lib := "wlib" + hbmk[ _HBMK_cCCEXT ] cOpt_Lib := "-q {FA} {OL} {LO}{SCRIPT}" cBin_LibHBX := cBin_Lib cOpt_LibHBX := "{LI}" IF HBMK_ISPLAT( "linux|dos|os2" ) /* register callconv (-6r, -5r) puts an underscore after names */ cLibHBX_Regex := "[[:space:]]_?HB_FUN_([A-Z0-9_]*)_[[:space:]]" ENDIF IF HBMK_ISPLAT( "win|os2" ) bBlk_ImpLib := {| cSourceDLL, cTargetLib, cFlags | win_implib_command_watcom( hbmk, cBin_Lib + " -q -o={OL} {ID}", cSourceDLL, cTargetLib, cFlags ) } ENDIF cLibLibExt := cLibExt cImpLibExt := cLibLibExt cLibObjPrefix := "-+ " IF hbmk[ _HBMK_lMT ] .AND. HBMK_ISPLAT( "win|os2" ) AAdd( hbmk[ _HBMK_aOPTC ], "-bm" ) ENDIF IF hbmk[ _HBMK_cPLAT ] == "win" IF hbmk[ _HBMK_lGUI ] /* NOTE: These could probably be optimized */ AAdd( hbmk[ _HBMK_aOPTC ], "-bg" ) AAdd( hbmk[ _HBMK_aOPTL ], "RU nat" ) AAdd( hbmk[ _HBMK_aOPTL ], "SYS nt_win" ) ELSE /* NOTE: These could probably be optimized */ AAdd( hbmk[ _HBMK_aOPTC ], "-bc" ) AAdd( hbmk[ _HBMK_aOPTL ], "RU con" ) AAdd( hbmk[ _HBMK_aOPTL ], "SYS nt" ) ENDIF ENDIF IF hbmk[ _HBMK_lDEBUG ] AAdd( hbmk[ _HBMK_aOPTC ], "-d2" ) cOpt_Link := "DEBUG ALL " + cOpt_Link ENDIF IF hbmk[ _HBMK_lMAP ] AAdd( hbmk[ _HBMK_aOPTL ], "OP map" ) AAdd( hbmk[ _HBMK_aOPTD ], "OP map" ) ENDIF IF hbmk[ _HBMK_lIMPLIB ] .AND. HBMK_ISPLAT( "win|os2" ) /* dos? */ AAdd( hbmk[ _HBMK_aOPTL ], "OP implib={OI}" ) AAdd( hbmk[ _HBMK_aOPTD ], "OP implib={OI}" ) ENDIF IF HBMK_ISPLAT( "win|os2|dos" ) AAdd( hbmk[ _HBMK_aOPTA ], "-p=64" ) ENDIF IF hbmk[ _HBMK_cPLAT ] == "win" IF hbmk[ _HBMK_lWINUNI ] AAdd( hbmk[ _HBMK_aOPTC ], "-DUNICODE" ) ENDIF ENDIF DO CASE CASE hbmk[ _HBMK_cPLAT ] == "win" IF hbmk[ _HBMK_lCreateDyn ] /* NOTE: Hack to avoid link errors when creating dynamic libs for non-Harbour components, typically in '3rd' dirs inside Harbour repository. Please tweak this fix if you know the exact reason. */ AAdd( l_aLIBSYS, "clib3s" ) ENDIF l_aLIBSYS := ArrayAJoin( { l_aLIBSYS, l_aLIBSYSCORE, l_aLIBSYSMISC } ) l_aLIBSHARED := { cHarbourDyn + cDL_Version_Alter + cLibExt } IF hbmk[ _HBMK_lSHARED ] AAdd( hbmk[ _HBMK_aOPTL ], "FILE " + hb_FNameExtSet( hbmk[ _HBMK_cHB_INSTALL_LIB ] + hb_ps() + iif( hbmk[ _HBMK_lGUI ], "hbmainwin", "hbmainstd" ), cLibExt ) ) ENDIF CASE hbmk[ _HBMK_cPLAT ] == "os2" l_aLIBSYS := ArrayAJoin( { l_aLIBSYS, l_aLIBSYSCORE, l_aLIBSYSMISC } ) l_aLIBSHARED := { cHarbourDyn + cLibExt } IF hbmk[ _HBMK_lSHARED ] /* TOFIX: This line is plain guessing. */ AAdd( hbmk[ _HBMK_aOPTL ], "FILE " + hb_FNameExtSet( hbmk[ _HBMK_cHB_INSTALL_LIB ] + hb_ps() + iif( hbmk[ _HBMK_lGUI ], "hbmainstd", "hbmainstd" ), cLibExt ) ) ENDIF CASE hbmk[ _HBMK_cPLAT ] == "linux" l_aLIBSYS := ArrayAJoin( { l_aLIBSYS, l_aLIBSYSCORE, l_aLIBSYSMISC } ) l_aLIBSHARED := { hbmk[ _HBMK_cDynLibPrefix ] + cHarbourDyn + cDL_Version + hbmk[ _HBMK_cDynLibExt ] } ENDCASE IF HBMK_ISPLAT( "win|os2" ) cBin_Res := "wrc" + hbmk[ _HBMK_cCCEXT ] cResExt := ".res" cOpt_Res := "-q -r {FR} -zm {IR} -fo={OS}" DO CASE CASE hbmk[ _HBMK_cPLAT ] == "win" ; cOpt_Res += " -bt=nt" /* default */ CASE hbmk[ _HBMK_cPLAT ] == "os2" ; cOpt_Res += " -bt=os2" ENDCASE cResPrefix := "OP res=" ENDIF CASE hbmk[ _HBMK_cPLAT ] == "win" .AND. hbmk[ _HBMK_cCOMP ] == "bcc" hbmk[ _HBMK_nCmd_FNF ] := _FNF_BCKSLASH #if defined( __PLATFORM__UNIX ) hbmk[ _HBMK_nCmd_Esc ] := _ESC_NIX #else hbmk[ _HBMK_nCmd_Esc ] := _ESC_DBLQUOTE #endif IF hbmk[ _HBMK_lDEBUG ] AAdd( hbmk[ _HBMK_aOPTC ], "-y -v" ) AAdd( hbmk[ _HBMK_aOPTL ], "-v" ) ELSE AAdd( l_aCLEAN, PathSepToSelf( hb_FNameExtSet( hbmk[ _HBMK_cPROGNAME ], ".tds" ) ) ) ENDIF IF hbmk[ _HBMK_lGUI ] AAdd( hbmk[ _HBMK_aOPTC ], "-tW" ) ENDIF IF hbmk[ _HBMK_lCPP ] != NIL .AND. hbmk[ _HBMK_lCPP ] AAdd( hbmk[ _HBMK_aOPTC ], "-P" ) ENDIF cLibPrefix := NIL cLibExt := ".lib" cObjExt := ".obj" cBin_Lib := "tlib.exe" /* Only forward slash is accepted here as option prefix. */ cOpt_Lib := "/P128 {FA} {OL} {LO}{SCRIPT}" cBin_LibHBX := cBin_Lib cOpt_LibHBX := "{LI}, {OT}" cLibLibExt := cLibExt cImpLibExt := cLibLibExt cLibObjPrefix := "-+ " cOptIncMask := "-I{DI}" cBin_CompC := "bcc32.exe" cBin_CompCPP := cBin_CompC cOpt_CompC := "-c -q -CP437" IF hbmk[ _HBMK_lOPTIM ] cOpt_CompC += " -d -6 -O2 -OS -Ov -Oi -Oc" ENDIF cLibBCC_CRTL := "cw32mt.lib" IF hbmk[ _HBMK_lWINUNI ] AAdd( hbmk[ _HBMK_aOPTC ], "-DUNICODE" ) ENDIF IF _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ) /* Adding weird hack for xhb to make it possible to force ST C mode. */ IF AScan( hbmk[ _HBMK_aOPTC ], {| tmp | tmp == "-tW" } ) == 0 AAdd( hbmk[ _HBMK_aOPTC ], "-tWM" ) ELSE cLibBCC_CRTL := "cw32.lib" ENDIF ELSE AAdd( hbmk[ _HBMK_aOPTC ], "-tWM" ) ENDIF SWITCH hbmk[ _HBMK_nWARN ] CASE _WARN_MAX ; AAdd( hbmk[ _HBMK_aOPTC ], "-w -Q" ) ; EXIT CASE _WARN_YES ; AAdd( hbmk[ _HBMK_aOPTC ], "-w -Q -w-sig-" ) ; EXIT CASE _WARN_LOW ; AAdd( hbmk[ _HBMK_aOPTC ], "-w-sig- -w-aus- -w-ccc- -w-csu- -w-par- -w-rch- -w-ucp- -w-use- -w-prc- -w-pia-" ) ; EXIT CASE _WARN_NO ; AAdd( hbmk[ _HBMK_aOPTC ], "-w-" ) ; EXIT ENDSWITCH cOpt_CompC += " {FC} {LC}" cBin_Res := "brcc32.exe" cOpt_Res := "{FR} {IR} -fo{OS}" cResExt := ".res" cBin_Link := "ilink32.exe" cBin_Dyn := cBin_Link cOpt_Link := '-Gn -Tpe -L{DL} {FL} ' + iif( hbmk[ _HBMK_lGUI ], "c0w32.obj", "c0x32.obj" ) + " {LO}, {OE}, " + iif( hbmk[ _HBMK_lMAP ], "{OM}", "nul" ) + ", {LL} {LB} {LF} " + cLibBCC_CRTL + " import32.lib, {IM}, {LS}{SCRIPT}" cOpt_Dyn := '-Gn -Tpd -L{DL} {FD} ' + "c0d32.obj" + " {LO}, {OD}, " + iif( hbmk[ _HBMK_lMAP ], "{OM}", "nul" ) + ", {LL} {LB} {LF} " + cLibBCC_CRTL + " import32.lib, {IM}, {LS}{SCRIPT}" bBlk_ImpLib := {| cSourceDLL, cTargetLib, cFlags | win_implib_command_bcc( hbmk, "implib.exe -c {FI} {OL} {ID}", cSourceDLL, cTargetLib, cFlags ) } cLibPathPrefix := "" cLibPathSep := ";" IF hbmk[ _HBMK_lMAP ] /* Switch detailed map on */ AAdd( hbmk[ _HBMK_aOPTL ], "-s" ) AAdd( hbmk[ _HBMK_aOPTD ], "-s" ) ENDIF IF hbmk[ _HBMK_lGUI ] AAdd( hbmk[ _HBMK_aOPTL ], "-aa" ) AAdd( hbmk[ _HBMK_aOPTD ], "-aa" ) ELSE AAdd( hbmk[ _HBMK_aOPTL ], "-ap" ) AAdd( hbmk[ _HBMK_aOPTD ], "-ap" ) ENDIF IF hbmk[ _HBMK_lIMPLIB ] /* NOTE: Borland C doesn't support creating implibs with a specific name, so it's done using post command. The resulting implib won't be as optimal as the generated one, but it _should_ be the same. [vszakats] */ /* AAdd( hbmk[ _HBMK_aOPTL ], "-Gi" ) */ /* AAdd( hbmk[ _HBMK_aOPTD ], "-Gi" ) */ cBin_Post := "implib.exe" cOpt_Post := "-c {OI} {OB}" ENDIF IF ! Empty( hbmk[ _HBMK_cWorkDir ] ) AAdd( hbmk[ _HBMK_aOPTC ], "-n" + FNameEscape( hbmk[ _HBMK_cWorkDir ], hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ) ) ELSE IF lStopAfterCComp .AND. ! hbmk[ _HBMK_lCreateLib ] .AND. ! hbmk[ _HBMK_lCreateDyn ] IF ( Len( hbmk[ _HBMK_aPRG ] ) + Len( hbmk[ _HBMK_aC ] ) + Len( hbmk[ _HBMK_aCPP ] ) ) == 1 AAdd( hbmk[ _HBMK_aOPTC ], "-o{OO}" ) ELSE AAdd( hbmk[ _HBMK_aOPTC ], "-n{OD}" ) ENDIF ENDIF ENDIF l_aLIBSHARED := { cHarbourDyn + cDL_Version_Alter + "-bcc" + cLibExt } l_aLIBSHAREDPOST := { "hbmainstd", "hbmainwin" } l_aLIBSYS := ArrayAJoin( { l_aLIBSYS, l_aLIBSYSCORE, l_aLIBSYSMISC } ) CASE ( hbmk[ _HBMK_cPLAT ] == "win" .AND. HBMK_ISCOMP( "msvc|msvc64|msvcia64|icc|iccia64" ) ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "wce" .AND. hbmk[ _HBMK_cCOMP ] == "msvcarm" ) /* NOTE: Cross-platform: wce/ARM on win/x86 */ hbmk[ _HBMK_nCmd_FNF ] := _FNF_BCKSLASH #if defined( __PLATFORM__UNIX ) hbmk[ _HBMK_nCmd_Esc ] := _ESC_NIX #else hbmk[ _HBMK_nCmd_Esc ] := _ESC_DBLQUOTE #endif /* ; Not enabled yet, because it would cause a lot of 3rd party code to break due to sloppy type conversions and other trivial coding mistakes usually not noticed with C compilers. The other side-effect, is much slower compilation process. [vszakats] */ #if 0 IF hbmk[ _HBMK_lCPP ] == NIL hbmk[ _HBMK_lCPP ] := .T. ENDIF #endif IF hbmk[ _HBMK_lDEBUG ] AAdd( hbmk[ _HBMK_aOPTC ], "-Zi" ) AAdd( hbmk[ _HBMK_aOPTL ], "-debug" ) AAdd( hbmk[ _HBMK_aOPTD ], "-debug" ) ENDIF IF hbmk[ _HBMK_lGUI ] AAdd( hbmk[ _HBMK_aOPTL ], "-subsystem:windows" ) ELSE AAdd( hbmk[ _HBMK_aOPTL ], "-subsystem:console" ) ENDIF IF hbmk[ _HBMK_lCPP ] != NIL IF hbmk[ _HBMK_lCPP ] AAdd( hbmk[ _HBMK_aOPTC ], "-TP" ) ELSE AAdd( hbmk[ _HBMK_aOPTC ], "-TC" ) ENDIF ENDIF cLibPrefix := NIL cLibExt := ".lib" cObjExt := ".obj" cLibLibExt := cLibExt cImpLibExt := cLibLibExt IF HBMK_ISCOMP( "icc|iccia64" ) cBin_Lib := "xilib.exe" cBin_CompC := "icl.exe" cBin_Link := "xilink.exe" cBin_Dyn := cBin_Link ELSE cBin_Lib := "lib.exe" IF hbmk[ _HBMK_cCOMP ] == "msvcarm" .AND. ( hbmk[ _HBMK_nCOMPVer ] != 0 .AND. hbmk[ _HBMK_nCOMPVer ] < 1400 ) cBin_CompC := "clarm.exe" ELSE cBin_CompC := "cl.exe" ENDIF cBin_Link := "link.exe" cBin_Dyn := cBin_Link ENDIF cBin_CompCPP := cBin_CompC cOpt_Lib := "-nologo {FA} -out:{OL} {LO}{SCRIPT}" cOpt_Dyn := "-nologo {FD} {IM} -dll -out:{OD} {DL} {LO} {LL} {LB} {LF} {LS}{SCRIPT}" cOpt_CompC := "-nologo -c" cBin_LibHBX := "dumpbin.exe" cOpt_LibHBX := "-symbols {LI}" cLibHBX_Regex := "SECT[0-9A-Z][0-9A-Z ].*[Ee]xternal.*_?HB_FUN_([A-Z0-9_]*)[[:space:]]" IF hbmk[ _HBMK_lOPTIM ] IF hbmk[ _HBMK_cPLAT ] == "wce" IF hbmk[ _HBMK_nCOMPVer ] != 0 .AND. hbmk[ _HBMK_nCOMPVer ] < 1400 cOpt_CompC += " -Oxsb1 -GF" ELSE cOpt_CompC += " -Os -Gy" ENDIF ELSE IF hbmk[ _HBMK_nCOMPVer ] != 0 .AND. hbmk[ _HBMK_nCOMPVer ] < 1400 cOpt_CompC += " -Ogt2yb1p -GX- -G6" ELSE cOpt_CompC += " -O2" ENDIF ENDIF ENDIF IF hbmk[ _HBMK_cPLAT ] == "win" IF hbmk[ _HBMK_nCOMPVer ] != 0 .AND. hbmk[ _HBMK_nCOMPVer ] < 1400 IF hbmk[ _HBMK_lDEBUG ] AAdd( hbmk[ _HBMK_aOPTC ], "-MTd" ) ELSE AAdd( hbmk[ _HBMK_aOPTC ], "-MT" ) ENDIF ENDIF ENDIF IF HBMK_ISCOMP( "icc|iccia64" ) SWITCH hbmk[ _HBMK_nWARN ] CASE _WARN_MAX ; AAdd( hbmk[ _HBMK_aOPTC ], "-W4" ) ; EXIT CASE _WARN_YES ; AAdd( hbmk[ _HBMK_aOPTC ], "-W3" ) ; EXIT /* -W4 is deadly on icc */ CASE _WARN_LOW ; AAdd( hbmk[ _HBMK_aOPTC ], "-W2" ) ; EXIT CASE _WARN_NO ; AAdd( hbmk[ _HBMK_aOPTC ], "-W0" ) ; EXIT ENDSWITCH ELSE SWITCH hbmk[ _HBMK_nWARN ] CASE _WARN_MAX ; AAdd( hbmk[ _HBMK_aOPTC ], "-W4" ) ; EXIT CASE _WARN_YES IF hbmk[ _HBMK_cCOMP ] == "msvcarm" .AND. hbmk[ _HBMK_nCOMPVer ] != 0 .AND. hbmk[ _HBMK_nCOMPVer ] < 1400 /* Lowered warning level to avoid large amount of warnings in system headers. Maybe this is related to the msvc2003 kit I was using. [vszakats] */ AAdd( hbmk[ _HBMK_aOPTC ], "-W3" ) ELSE AAdd( hbmk[ _HBMK_aOPTC ], "-W4 -wd4127" ) ENDIF EXIT CASE _WARN_LOW ; AAdd( hbmk[ _HBMK_aOPTC ], "-W2" ) ; EXIT CASE _WARN_NO ; AAdd( hbmk[ _HBMK_aOPTC ], "-W0" ) ; EXIT ENDSWITCH ENDIF cOpt_CompC += " {FC} {LC}" cOptIncMask := "-I{DI}" cOpt_Link := "-nologo -out:{OE} {LO} {DL} {FL} {IM} {LL} {LB} {LF} {LS}{SCRIPT}" SWITCH hbmk[ _HBMK_cCOMP ] CASE "msvc" ; AAdd( hbmk[ _HBMK_aOPTI ], "-machine:x86" ) ; EXIT CASE "msvc64" ; AAdd( hbmk[ _HBMK_aOPTI ], "-machine:x64" ) ; EXIT CASE "msvcia64" ; AAdd( hbmk[ _HBMK_aOPTI ], "-machine:ia64" ) ; EXIT CASE "icc" ; AAdd( hbmk[ _HBMK_aOPTI ], "-machine:x86" ) ; EXIT CASE "iccia64" ; AAdd( hbmk[ _HBMK_aOPTI ], "-machine:ia64" ) ; EXIT CASE "msvcarm" ; AAdd( hbmk[ _HBMK_aOPTI ], "-machine:xarm" ) ; EXIT CASE "msvcmips" ; AAdd( hbmk[ _HBMK_aOPTI ], "-machine:mips" ) ; EXIT CASE "msvcsh" ; AAdd( hbmk[ _HBMK_aOPTI ], "-machine:sh5" ) ; EXIT ENDSWITCH bBlk_ImpLib := {| cSourceDLL, cTargetLib, cFlags | win_implib_command_msvc( hbmk, cBin_Lib + " -nologo {FI} -def:{ID} -out:{OL}", cSourceDLL, cTargetLib, cFlags ) } cLibPathPrefix := "-libpath:" cLibPathSep := " " cDefPrefix := "-def:" IF hbmk[ _HBMK_lMAP ] AAdd( hbmk[ _HBMK_aOPTL ], "-map" ) AAdd( hbmk[ _HBMK_aOPTD ], "-map" ) ENDIF IF hbmk[ _HBMK_lIMPLIB ] AAdd( hbmk[ _HBMK_aOPTL ], "-implib:{OI}" ) AAdd( hbmk[ _HBMK_aOPTD ], "-implib:{OI}" ) ENDIF IF hbmk[ _HBMK_lWINUNI ] AAdd( hbmk[ _HBMK_aOPTC ], "-DUNICODE" ) ENDIF IF hbmk[ _HBMK_cPLAT ] == "wce" AAdd( hbmk[ _HBMK_aOPTC ], "-DUNDER_CE" ) AAdd( hbmk[ _HBMK_aOPTRES ], "-DUNDER_CE" ) DO CASE CASE hbmk[ _HBMK_cCOMP ] == "msvcarm" AAdd( hbmk[ _HBMK_aOPTC ], "-D_M_ARM -DARM -D_ARM_" ) CASE hbmk[ _HBMK_cCOMP ] == "msvc" /* TODO */ ENDCASE AAdd( hbmk[ _HBMK_aOPTL ], "-subsystem:windowsce" ) AAdd( hbmk[ _HBMK_aOPTD ], "-subsystem:windowsce" ) AAdd( hbmk[ _HBMK_aOPTL ], "-nodefaultlib:oldnames.lib" ) AAdd( hbmk[ _HBMK_aOPTD ], "-nodefaultlib:oldnames.lib" ) AAdd( hbmk[ _HBMK_aOPTL ], "-nodefaultlib:kernel32.lib" ) IF hbmk[ _HBMK_nCOMPVer ] >= 1400 AAdd( hbmk[ _HBMK_aOPTL ], "-manifest:no" ) ENDIF ENDIF IF ! Empty( hbmk[ _HBMK_cWorkDir ] ) AAdd( hbmk[ _HBMK_aOPTC ], "-Fo" + FNameEscape( hb_DirSepAdd( hbmk[ _HBMK_cWorkDir ] ), hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ) ) /* NOTE: Ending path sep is important. */ ELSE IF lStopAfterCComp .AND. ! hbmk[ _HBMK_lCreateLib ] .AND. ! hbmk[ _HBMK_lCreateDyn ] IF ( Len( hbmk[ _HBMK_aPRG ] ) + Len( hbmk[ _HBMK_aC ] ) + Len( hbmk[ _HBMK_aCPP ] ) ) == 1 AAdd( hbmk[ _HBMK_aOPTC ], "-Fo{OO}" ) ELSE AAdd( hbmk[ _HBMK_aOPTC ], "-Fo{OD}" ) ENDIF ENDIF ENDIF l_aLIBSYS := ArrayAJoin( { l_aLIBSYS, l_aLIBSYSCORE, l_aLIBSYSMISC } ) l_aLIBSHARED := { cHarbourDyn + cDL_Version_Alter + hbmk_DYNSUFFIX( hbmk ) + cLibExt } l_aLIBSHAREDPOST := { "hbmainstd", "hbmainwin" } IF ! HBMK_ISCOMP( "icc|iccia64" ) cBin_Res := "rc.exe" cOpt_Res := "{FR} -fo {OS} {IR}" IF hbmk[ _HBMK_nCOMPVer ] >= 1600 cOpt_Res := "-nologo " + cOpt_Res /* NOTE: Only in MSVC 2010 and upper. [vszakats] */ ENDIF cResExt := ".res" ENDIF CASE ( hbmk[ _HBMK_cPLAT ] == "win" .AND. hbmk[ _HBMK_cCOMP ] == "pocc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "win" .AND. hbmk[ _HBMK_cCOMP ] == "pocc64" ) .OR. ; /* NOTE: Cross-platform: win/amd64 on win/x86 */ ( hbmk[ _HBMK_cPLAT ] == "wce" .AND. hbmk[ _HBMK_cCOMP ] == "poccarm" ) .OR. ; /* NOTE: Cross-platform: wce/ARM on win/x86 */ ( hbmk[ _HBMK_cPLAT ] == "win" .AND. hbmk[ _HBMK_cCOMP ] == "xcc" ) hbmk[ _HBMK_nCmd_FNF ] := _FNF_BCKSLASH #if defined( __PLATFORM__UNIX ) hbmk[ _HBMK_nCmd_Esc ] := _ESC_NIX #else hbmk[ _HBMK_nCmd_Esc ] := _ESC_DBLQUOTE #endif IF hbmk[ _HBMK_lGUI ] AAdd( hbmk[ _HBMK_aOPTL ], "-subsystem:windows" ) ELSE AAdd( hbmk[ _HBMK_aOPTL ], "-subsystem:console" ) ENDIF IF hbmk[ _HBMK_lDEBUG ] AAdd( hbmk[ _HBMK_aOPTC ], "-Zi" ) ENDIF cLibPrefix := NIL cLibExt := ".lib" cObjExt := ".obj" cLibLibExt := cLibExt cImpLibExt := cLibLibExt IF hbmk[ _HBMK_cCOMP ] == "xcc" cBin_CompC := "xCC.exe" cBin_Lib := "xLib.exe" cBin_Link := "xLink.exe" cBin_Res := "xRC.exe" ELSE cBin_CompC := "pocc.exe" cBin_Lib := "polib.exe" cBin_Link := "polink.exe" cBin_Res := "porc.exe" ENDIF cBin_CompCPP := cBin_CompC cBin_Dyn := cBin_Link cOpt_CompC := "-c -Ze" IF !( hbmk[ _HBMK_cCOMP ] == "poccarm" ) .AND. ; !( hbmk[ _HBMK_cCOMP ] == "xcc" ) /* xcc doesn't have this enabled in default Harbour builds. */ cOpt_CompC += " -MT" ENDIF IF !( hbmk[ _HBMK_cCOMP ] == "xcc" ) cOpt_CompC += " -Go" ENDIF cOpt_CompC += " {FC} {IC} -Fo{OO}" IF Empty( hbmk[ _HBMK_cWorkDir ] ) hbmk[ _HBMK_cWorkDir ] := "." ENDIF cOptIncMask := "-I{DI}" cOpt_Dyn := "{FD} {IM} -dll -out:{OD} {DL} {LO} {LL} {LB} {LF} {LS}" bBlk_ImpLib := {| cSourceDLL, cTargetLib, cFlags | win_implib_command_pocc( hbmk, cBin_Lib + " {ID} -out:{OL}", cSourceDLL, cTargetLib, cFlags ) } cBin_LibHBX := "podump.exe" cOpt_LibHBX := "-symbols {LI}" cLibHBX_Regex := "SECT[0-9A-Z][0-9A-Z ].*[Ee]xternal.*_?HB_FUN_([A-Z0-9_]*)[[:space:]]" IF hbmk[ _HBMK_lWINUNI ] AAdd( hbmk[ _HBMK_aOPTC ], "-DUNICODE" ) ENDIF IF hbmk[ _HBMK_cPLAT ] == "wce" AAdd( hbmk[ _HBMK_aOPTC ], "-D_WINCE" ) /* Required by pocc Windows headers */ AAdd( hbmk[ _HBMK_aOPTC ], "-DUNDER_CE" ) AAdd( hbmk[ _HBMK_aOPTRES ], "-DUNDER_CE" ) ENDIF DO CASE CASE hbmk[ _HBMK_cCOMP ] == "pocc" IF hbmk[ _HBMK_lOPTIM ] AAdd( hbmk[ _HBMK_aOPTC ], "-Ot" ) ENDIF AAdd( hbmk[ _HBMK_aOPTC ], "-Tx86-coff" ) CASE hbmk[ _HBMK_cCOMP ] == "pocc64" AAdd( hbmk[ _HBMK_aOPTC ], "-Tamd64-coff" ) CASE hbmk[ _HBMK_cCOMP ] == "poccarm" AAdd( hbmk[ _HBMK_aOPTC ], "-Tarm-coff" ) AAdd( hbmk[ _HBMK_aOPTC ], "-D_M_ARM -DARM" ) ENDCASE SWITCH hbmk[ _HBMK_nWARN ] CASE _WARN_MAX ; AAdd( hbmk[ _HBMK_aOPTC ], "-W2" ) ; EXIT CASE _WARN_YES ; AAdd( hbmk[ _HBMK_aOPTC ], "-W1" ) ; EXIT CASE _WARN_LOW ; AAdd( hbmk[ _HBMK_aOPTC ], "-W1" ) ; EXIT CASE _WARN_NO ; AAdd( hbmk[ _HBMK_aOPTC ], "-W0" ) ; EXIT ENDSWITCH cOpt_Res := "{FR} -Fo{OS} {IR}" cResExt := ".res" cOpt_Lib := "{FA} -out:{OL} {LO}" IF hbmk[ _HBMK_lMT ] AAdd( hbmk[ _HBMK_aOPTC ], "-MT" ) ENDIF cOpt_Link := "-out:{OE} {LO} {DL} {FL} {IM} {LL} {LB} {LF} {LS}" cLibPathPrefix := "-libpath:" cLibPathSep := " " cDefPrefix := "-def:" IF hbmk[ _HBMK_lMAP ] AAdd( hbmk[ _HBMK_aOPTL ], "-map" ) AAdd( hbmk[ _HBMK_aOPTD ], "-map" ) ENDIF IF hbmk[ _HBMK_lIMPLIB ] AAdd( hbmk[ _HBMK_aOPTL ], "-implib:{OI}" ) AAdd( hbmk[ _HBMK_aOPTD ], "-implib:{OI}" ) ENDIF IF hbmk[ _HBMK_lDEBUG ] AAdd( hbmk[ _HBMK_aOPTL ], "-debug" ) ENDIF l_aLIBSYS := ArrayAJoin( { l_aLIBSYS, l_aLIBSYSCORE, l_aLIBSYSMISC } ) l_aLIBSHARED := { cHarbourDyn + cDL_Version_Alter + hbmk_DYNSUFFIX( hbmk ) + cLibExt } l_aLIBSHAREDPOST := { "hbmainstd", "hbmainwin" } CASE ( hbmk[ _HBMK_cPLAT ] == "sunos" .AND. hbmk[ _HBMK_cCOMP ] == "sunpro" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "linux" .AND. hbmk[ _HBMK_cCOMP ] == "sunpro" ) hbmk[ _HBMK_nCmd_Esc ] := _ESC_NIX IF hbmk[ _HBMK_lDEBUG ] AAdd( hbmk[ _HBMK_aOPTC ], "-g" ) ENDIF cLibLibPrefix := "lib" cLibPrefix := "-l" cLibExt := "" cObjExt := ".o" cBin_Lib := "ar" IF hbmk[ _HBMK_cPLAT ] == "linux" cOpt_Lib := "{FA} rcs {OL} {LO}" ELSE cOpt_Lib := "{FA} rc {OL} {LO}" ENDIF cBin_CompCPP := hbmk[ _HBMK_cCCPREFIX ] + "sunCC" + hbmk[ _HBMK_cCCPOSTFIX ] cBin_CompC := iif( hbmk[ _HBMK_lCPP ] != NIL .AND. hbmk[ _HBMK_lCPP ], cBin_CompCPP, hbmk[ _HBMK_cCCPREFIX ] + "suncc" + hbmk[ _HBMK_cCCPOSTFIX ] ) cOpt_CompC := "-c {FC}" IF hbmk[ _HBMK_lOPTIM ] AAdd( hbmk[ _HBMK_aOPTC ], "-fast" ) AAdd( hbmk[ _HBMK_aOPTC ], "-xnolibmopt" ) AAdd( hbmk[ _HBMK_aOPTD ], "-fast" ) AAdd( hbmk[ _HBMK_aOPTD ], "-xnolibmopt" ) ENDIF SWITCH hbmk[ _HBMK_nWARN ] CASE _WARN_MAX CASE _WARN_YES CASE _WARN_LOW ; AAdd( hbmk[ _HBMK_aOPTC ], "-erroff=%none" ) ; EXIT CASE _WARN_NO ; AAdd( hbmk[ _HBMK_aOPTC ], "-erroff=%all" ) ; EXIT ENDSWITCH IF ! Empty( hbmk[ _HBMK_cWorkDir ] ) cOpt_CompC += " {IC} -o {OO}" ELSE cOpt_CompC += " {LC}" ENDIF DO CASE CASE hbmk[ _HBMK_cC ] == "iso90" ; AAdd( hbmk[ _HBMK_aOPTCX ], "-xc99=none" ) CASE hbmk[ _HBMK_cC ] == "iso99" ; AAdd( hbmk[ _HBMK_aOPTCX ], "-xc99=all" ) ENDCASE cBin_Link := cBin_CompC cOpt_Link := "{LO} {LA} {FL} {DL}" cLibPathPrefix := "-L" cLibPathSep := " " cLibLibExt := ".a" cBin_Dyn := cBin_CompC cOpt_Dyn := "-G {FD} -o {OD} {DL} {LO} {LL} {LB} {LF} {LS}" IF ! lStopAfterCComp AAdd( hbmk[ _HBMK_aOPTL ], "{LL} {LB} {LF}" ) l_aLIBHBBASE_2 := iif( hbmk[ _HBMK_lMT ], aLIB_BASE_2_MT, aLIB_BASE_2 ) ENDIF IF hbmk[ _HBMK_lMAP ] AAdd( hbmk[ _HBMK_aOPTL ], "-M{OM}" ) AAdd( hbmk[ _HBMK_aOPTD ], "-M{OM}" ) ENDIF IF hbmk[ _HBMK_lSTATICFULL ] AAdd( hbmk[ _HBMK_aOPTL ], "-B -static" ) ENDIF IF hbmk[ _HBMK_lSTRIP ] IF hbmk[ _HBMK_lCreateLib ] .OR. hbmk[ _HBMK_cPLAT ] == "sunos" cBin_Post := "strip" IF hbmk[ _HBMK_lCreateDyn ] .OR. hbmk[ _HBMK_lCreateLib ] cOpt_Post := "-S {OB}" ELSE cOpt_Post := "{OB}" ENDIF ELSE AAdd( hbmk[ _HBMK_aOPTL ], "-s" ) AAdd( hbmk[ _HBMK_aOPTD ], "-s" ) ENDIF ENDIF IF lStopAfterCComp IF ! hbmk[ _HBMK_lCreateLib ] .AND. ! hbmk[ _HBMK_lCreateDyn ] .AND. ( Len( hbmk[ _HBMK_aPRG ] ) + Len( hbmk[ _HBMK_aC ] ) + Len( hbmk[ _HBMK_aCPP ] ) ) == 1 AAdd( hbmk[ _HBMK_aOPTC ], "-o {OO}" ) ENDIF ELSE AAdd( hbmk[ _HBMK_aOPTL ], "-o {OE}" ) ENDIF IF hbmk[ _HBMK_lPIC ] IF hbmk[ _HBMK_cPLAT ] == "sunos" .AND. hbmk[ _HBMK_cCPU ] == "sparc" AAdd( hbmk[ _HBMK_aOPTC ], "-xcode=pic32" ) ELSE AAdd( hbmk[ _HBMK_aOPTC ], "-KPIC" ) ENDIF ENDIF /* Add system libraries */ IF ! hbmk[ _HBMK_lSHARED ] AAdd( l_aLIBSYS, "m" ) IF hbmk[ _HBMK_lMT ] AAdd( l_aLIBSYS, "pthread" ) ENDIF DO CASE CASE HBMK_ISPLAT( "linux|cygwin" ) AAdd( l_aLIBSYS, "rt" ) AAdd( l_aLIBSYS, "dl" ) CASE hbmk[ _HBMK_cPLAT ] == "sunos" AAdd( l_aLIBSYS, "rt" ) AAdd( l_aLIBSYS, "socket" ) AAdd( l_aLIBSYS, "nsl" ) AAdd( l_aLIBSYS, "resolv" ) ENDCASE IF ! Empty( cLIB_BASE_PCRE ) .AND. ! hb_FileExists( _HBLIB_FULLPATH( cLIB_BASE_PCRE ) ) AAdd( l_aLIBSYS, "pcre" ) cLIB_BASE_PCRE := NIL ENDIF IF ! Empty( cLIB_BASE_ZLIB ) .AND. ! hb_FileExists( _HBLIB_FULLPATH( cLIB_BASE_ZLIB ) ) AAdd( l_aLIBSYS, "z" ) cLIB_BASE_ZLIB := NIL ENDIF ENDIF IF IsGTRequested( hbmk, "gtcrs" ) /* TOFIX: Sometimes 'ncur194' is needed. */ AAdd( l_aLIBSYS, iif( hbmk[ _HBMK_cPLAT ] == "sunos", "curses", "ncurses" ) ) ENDIF IF IsGTRequested( hbmk, "gtsln" ) AAdd( l_aLIBSYS, "slang" ) ENDIF IF IsGTRequested( hbmk, "gtxwc" ) IF hbmk[ _HBMK_cPLAT ] == "linux" .AND. hb_DirExists( "/usr/X11R6/lib64" ) AAddNew( hbmk[ _HBMK_aLIBPATH ], "/usr/X11R6/lib64" ) ENDIF AAddNew( hbmk[ _HBMK_aLIBPATH ], "/usr/X11R6/lib" ) AAdd( l_aLIBSYS, "X11" ) ENDIF IF ! Empty( hbmk[ _HBMK_cCCPATH ] ) cBin_CompCPP := FNameEscape( hbmk[ _HBMK_cCCPATH ] + hb_ps() + cBin_CompCPP, hbmk[ _HBMK_nCmd_Esc ] ) cBin_CompC := FNameEscape( hbmk[ _HBMK_cCCPATH ] + hb_ps() + cBin_CompC, hbmk[ _HBMK_nCmd_Esc ] ) cBin_Link := FNameEscape( hbmk[ _HBMK_cCCPATH ] + hb_ps() + cBin_Link, hbmk[ _HBMK_nCmd_Esc ] ) ENDIF CASE hbmk[ _HBMK_cPLAT ] == "vxworks" .AND. hbmk[ _HBMK_cCOMP ] == "diab" #if defined( __PLATFORM__UNIX ) hbmk[ _HBMK_nCmd_Esc ] := _ESC_NIX #elif defined( __PLATFORM__WINDOWS ) hbmk[ _HBMK_nCmd_Esc ] := _ESC_DBLQUOTE #endif IF hbmk[ _HBMK_lDEBUG ] AAdd( hbmk[ _HBMK_aOPTC ], "-g" ) ENDIF vxworks_env_init( hbmk ) cLibLibPrefix := "lib" cLibPrefix := "-l" cLibExt := "" cObjExt := ".o" cBin_Lib := hbmk[ _HBMK_cCCPREFIX ] + "dar" cOpt_Lib := "{FA} rcs {OL} {LO}" cBin_CompCPP := hbmk[ _HBMK_cCCPREFIX ] + "dplus" cBin_CompC := iif( hbmk[ _HBMK_lCPP ] != NIL .AND. hbmk[ _HBMK_lCPP ], cBin_CompCPP, hbmk[ _HBMK_cCCPREFIX ] + "dcc" ) cOpt_CompC := "-c" IF hbmk[ _HBMK_lOPTIM ] cOpt_CompC += " -XO level-3" ENDIF tmp := "-WDVSB_DIR=" + PathSepToSelf( GetEnv( "WIND_BASE" ) + "/target/lib" ) AAdd( hbmk[ _HBMK_aOPTC ], tmp ) AAdd( hbmk[ _HBMK_aOPTL ], tmp ) AAdd( hbmk[ _HBMK_aOPTD ], tmp ) SWITCH hbmk[ _HBMK_nWARN ] CASE _WARN_MAX ; AAdd( hbmk[ _HBMK_aOPTC ], "-W -Xlint" ) ; EXIT CASE _WARN_YES ; AAdd( hbmk[ _HBMK_aOPTC ], "-W -Xlint" ) ; EXIT CASE _WARN_LOW ; AAdd( hbmk[ _HBMK_aOPTC ], "-W" ) ; EXIT CASE _WARN_NO ; AAdd( hbmk[ _HBMK_aOPTC ], "" ) ; EXIT ENDSWITCH cOpt_CompC += " {FC}" IF ! Empty( hbmk[ _HBMK_cWorkDir ] ) cOpt_CompC += " {IC} -o {OO}" ELSE cOpt_CompC += " {LC}" ENDIF DO CASE CASE hbmk[ _HBMK_cC ] == "iso90" ; AAdd( hbmk[ _HBMK_aOPTCX ], "-Xdialect-ansi" ) /* Conform to ANSI X3.159-1989 with some additions [as shown in the table below]. */ ENDCASE /* lib path list ({DL}) must precede lib list */ cBin_Dyn := cBin_CompC cOpt_Dyn := "-Xpic -Wl, -Xshared -o {OD} {LO} {DL} {FD} {LS}" cBin_Link := cBin_CompC cOpt_Link := "{LO} {LA} {DL} {FL}" cLibPathPrefix := "-L" cLibPathSep := " " cLibLibExt := ".a" AAdd( hbmk[ _HBMK_aOPTL ], "{LL} {LB} {LF}" ) AAdd( hbmk[ _HBMK_aOPTD ], "{LL} {LB} {LF}" ) l_aLIBHBBASE_2 := iif( hbmk[ _HBMK_lMT ], aLIB_BASE_2_MT, aLIB_BASE_2 ) IF hbmk[ _HBMK_lSTATICFULL ] AAdd( hbmk[ _HBMK_aOPTL ], "-Wl, -Xstatic" ) /* not tested */ ELSE AAdd( hbmk[ _HBMK_aOPTD ], "-Wl, -Xdynamic" ) ENDIF IF hbmk[ _HBMK_lSHARED ] /* TOFIX: .so is referred by its full link time search path, there is even a backslash present in the dir formed by the linker */ AAdd( hbmk[ _HBMK_aOPTL ], "-Wl, -Xdynamic" ) ENDIF IF hbmk[ _HBMK_lMAP ] /* TODO: Map goes to stdout, we should ideally catch it to {OM} */ AAdd( hbmk[ _HBMK_aOPTL ], "-m16" ) AAdd( hbmk[ _HBMK_aOPTD ], "-m16" ) ENDIF IF hbmk[ _HBMK_lSTRIP ] IF hbmk[ _HBMK_lCreateLib ] cBin_Post := "strip" IF hbmk[ _HBMK_lCreateDyn ] .OR. hbmk[ _HBMK_lCreateLib ] cOpt_Post := "-S {OB}" ELSE cOpt_Post := "{OB}" ENDIF ELSE AAdd( hbmk[ _HBMK_aOPTL ], "-s" ) AAdd( hbmk[ _HBMK_aOPTD ], "-s" ) ENDIF ENDIF IF lStopAfterCComp IF ! hbmk[ _HBMK_lCreateLib ] .AND. ! hbmk[ _HBMK_lCreateDyn ] .AND. ( Len( hbmk[ _HBMK_aPRG ] ) + Len( hbmk[ _HBMK_aC ] ) + Len( hbmk[ _HBMK_aCPP ] ) ) == 1 AAdd( hbmk[ _HBMK_aOPTC ], "-o{OO}" ) ENDIF ELSE AAdd( hbmk[ _HBMK_aOPTL ], "-o{OE}" ) ENDIF IF hbmk[ _HBMK_lPIC ] AAdd( hbmk[ _HBMK_aOPTC ], "-Xpic" ) ENDIF /* Add system libraries */ IF ! hbmk[ _HBMK_lSHARED ] IF ! Empty( cLIB_BASE_PCRE ) .AND. ! hb_FileExists( _HBLIB_FULLPATH( cLIB_BASE_PCRE ) ) AAdd( l_aLIBSYS, "pcre" ) cLIB_BASE_PCRE := NIL ENDIF IF ! Empty( cLIB_BASE_ZLIB ) .AND. ! hb_FileExists( _HBLIB_FULLPATH( cLIB_BASE_ZLIB ) ) AAdd( l_aLIBSYS, "z" ) cLIB_BASE_ZLIB := NIL ENDIF ENDIF ENDCASE IF hbmk[ _HBMK_lCreateDyn ] IF _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ) .OR. ; hbmk[ _HBMK_nHBMODE ] == _HBMODE_HB10 AAdd( hbmk[ _HBMK_aOPTC ], "-D__EXPORT__" ) ELSE AAdd( hbmk[ _HBMK_aOPTC ], "-DHB_DYNLIB" ) ENDIF ENDIF #if 0 IF hbmk[ _HBMK_lCreateDyn ] IF !( _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ) .OR. ; hbmk[ _HBMK_nHBMODE ] == _HBMODE_HB10 .OR. ; hbmk[ _HBMK_nHBMODE ] == _HBMODE_HB20 ) AAdd( hbmk[ _HBMK_aOPTPRG ], "-DHB_DYNLIB" ) ENDIF ENDIF #endif ENDIF /* Call plugins */ IF ! PlugIn_Execute_All( hbmk, "pre_all" ) IF hbmk[ _HBMK_lBEEP ] DoBeep( .F. ) ENDIF RETURN _ERRLEV_PLUGINPREALL ENDIF /* ; */ IF ! hbmk[ _HBMK_lStopAfterInit ] .AND. hbmk[ _HBMK_lCreateImpLib ] .AND. ! lDumpInfo /* OBSOLETE functionality */ IF DoIMPLIB( hbmk, bBlk_ImpLib, cLibLibPrefix, cLibLibExt, hbmk[ _HBMK_aIMPLIBSRC ], hbmk[ _HBMK_cPROGNAME ], "" ) DoInstCopy( hbmk ) ENDIF hbmk[ _HBMK_lStopAfterInit ] := .T. ENDIF hb_default( @hbmk[ _HBMK_nScr_Esc ], hbmk[ _HBMK_nCmd_Esc ] ) IF ! hbmk[ _HBMK_lStopAfterInit ] IF ! Empty( hbmk[ _HBMK_cWorkDir ] ) /* NOTE: Ending path sep is important. */ /* Different escaping for internal and external compiler. */ IF hbmk[ _HBMK_nHBMODE ] == _HBMODE_NATIVE AAdd( hbmk[ _HBMK_aOPTPRG ], "-o" + hb_DirSepAdd( hbmk[ _HBMK_cWorkDir ] ) ) ELSE AAdd( hbmk[ _HBMK_aOPTPRG ], "-o" + FNameEscape( hb_DirSepAdd( hbmk[ _HBMK_cWorkDir ] ), hbmk[ _HBMK_nCmd_Esc ] ) ) ENDIF ENDIF ENDIF IF ! hbmk[ _HBMK_lStopAfterInit ] .AND. ! hbmk[ _HBMK_lStopAfterHarbour ] hb_FNameSplit( hbmk[ _HBMK_cPROGNAME ], @cDir, @cName, @cExt ) IF l_cIMPLIBDIR == NIL l_cIMPLIBDIR := cDir ENDIF DO CASE CASE ! lStopAfterCComp IF Empty( cExt ) .AND. ! Empty( cBinExt ) hbmk[ _HBMK_cPROGNAME ] := hb_FNameMerge( cDir, cName, cBinExt ) ENDIF IF l_cIMPLIBNAME == NIL l_cIMPLIBNAME := cName + _HBMK_IMPLIB_EXE_POST ENDIF l_cIMPLIBNAME := hb_FNameMerge( l_cIMPLIBDIR, cLibLibPrefix + l_cIMPLIBNAME, cImpLibExt ) CASE lStopAfterCComp .AND. hbmk[ _HBMK_lCreateDyn ] IF ! HBMK_ISPLAT( "win|os2|dos" ) l_cLIBSELF := cName ENDIF cName := hbmk[ _HBMK_cDynLibPrefix ] + cName IF Empty( cExt ) .AND. ! Empty( hbmk[ _HBMK_cDynLibExt ] ) cExt := hbmk[ _HBMK_cDynLibExt ] ENDIF hbmk[ _HBMK_cPROGNAME ] := hb_FNameMerge( cDir, cName, cExt ) IF l_cIMPLIBNAME == NIL /* By default add default postfix to avoid collision with static lib with the same name. */ l_cIMPLIBNAME := cName + _HBMK_IMPLIB_DLL_POST ENDIF IF hbmk[ _HBMK_lIMPLIB ] .AND. HBMK_ISPLAT( "win|os2|dos" ) l_cLIBSELF := l_cIMPLIBNAME ENDIF l_cIMPLIBNAME := hb_FNameMerge( l_cIMPLIBDIR, cLibLibPrefix + l_cIMPLIBNAME, cImpLibExt ) CASE lStopAfterCComp .AND. hbmk[ _HBMK_lCreateLib ] l_cLIBSELF := cName hbmk[ _HBMK_cPROGNAME ] := hb_FNameMerge( cDir, cLibLibPrefix + cName, iif( Empty( cLibLibExt ), cExt, cLibLibExt ) ) ENDCASE ENDIF DoLinkCalc( hbmk ) /* Generate header with repository ID information */ IF ! lSkipBuild .AND. ! hbmk[ _HBMK_lStopAfterInit ] .AND. ! hbmk[ _HBMK_lStopAfterHarbour ] .AND. ! lDumpInfo IF ! Empty( l_cVCSHEAD ) tmp1 := VCSID( hbmk, l_cVCSDIR, l_cVCSHEAD, @tmp2 ) /* Use the same EOL for all platforms to avoid unnecessary rebuilds. */ tmp := "/* Automatically generated by " + _SELF_NAME_ + ". Do not edit. */" + Chr( 10 ) +; "#define _HBMK_VCS_TYPE_ " + '"' + tmp2 + '"' + Chr( 10 ) +; "#define _HBMK_VCS_ID_ " + '"' + tmp1 + '"' + Chr( 10 ) /* Update only if something changed to trigger rebuild only if really needed. Do not update if the VCS header is already present, but currently extracted VCS information is empty (this is sign of extraction command failure). */ tmp2 := hb_MemoRead( l_cVCSHEAD ) IF ( Empty( tmp2 ) .OR. ! Empty( tmp1 ) ) .AND. ; ( hbmk[ _HBMK_lREBUILD ] .OR. !( tmp2 == tmp ) ) IF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Creating VCS header: %1$s" ), l_cVCSHEAD ) ) ENDIF hb_MemoWrit( l_cVCSHEAD, tmp ) ENDIF ENDIF IF ! Empty( l_cTSHEAD ) /* Use the same EOL for all platforms to avoid unnecessary rebuilds. */ tmp1 := hb_DateTime() tmp := "/* Automatically generated by " + _SELF_NAME_ + ". Do not edit. */" + Chr( 10 ) +; "#define _HBMK_BUILD_DATE_ " + '"' + DToS( tmp1 ) + '"' + Chr( 10 ) +; "#define _HBMK_BUILD_TIME_ " + '"' + SubStr( hb_TToS( tmp1 ), 9, 6 ) + '"' + Chr( 10 ) +; "#define _HBMK_BUILD_TIMESTAMP_ " + '"' + hb_TToS( tmp1 ) + '"' + Chr( 10 ) IF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Creating timestamp header: %1$s" ), l_cTSHEAD ) ) ENDIF hb_MemoWrit( l_cTSHEAD, tmp ) ENDIF ENDIF /* Header paths */ IF ! lSkipBuild .AND. ! hbmk[ _HBMK_lStopAfterInit ] convert_incpaths_to_options( hbmk, cOptIncMask, lCHD_Comp ) ENDIF /* Do header detection and create incremental file list for .c files */ IF ! lSkipBuild .AND. ! hbmk[ _HBMK_lStopAfterInit ] .AND. ! hbmk[ _HBMK_lStopAfterHarbour ] .AND. ! lDumpInfo IF hbmk[ _HBMK_lINC ] .AND. ! hbmk[ _HBMK_lREBUILD ] .AND. ! hbmk[ _HBMK_lCLEAN ] l_aC_TO_DO := {} FOR EACH tmp IN hbmk[ _HBMK_aC ] IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: C %1$s %2$s", tmp, FNameDirExtSet( tmp, hbmk[ _HBMK_cWorkDir ], cObjExt ) ) ) ENDIF IF ! hb_FGetDateTime( FNameDirExtSet( tmp, hbmk[ _HBMK_cWorkDir ], cObjExt ), @tmp2 ) .OR. ; ! hb_FGetDateTime( tmp, @tmp1 ) .OR. ; tmp1 > tmp2 .OR. ; ( hbmk[ _HBMK_nHEAD ] != _HEAD_OFF .AND. FindNewerHeaders( hbmk, tmp, tmp2, .T., cBin_CompC ) ) .OR. ; hb_FSize( FNameDirExtSet( tmp, hbmk[ _HBMK_cWorkDir ], cObjExt ) ) == 0 AAdd( l_aC_TO_DO, tmp ) ENDIF NEXT ELSE l_aC_TO_DO := AClone( hbmk[ _HBMK_aC ] ) ENDIF ENDIF /* Do header detection and create incremental file list for .cpp files */ IF ! lSkipBuild .AND. ! hbmk[ _HBMK_lStopAfterInit ] .AND. ! hbmk[ _HBMK_lStopAfterHarbour ] .AND. ! lDumpInfo IF hbmk[ _HBMK_lINC ] .AND. ! hbmk[ _HBMK_lREBUILD ] .AND. ! hbmk[ _HBMK_lCLEAN ] l_aCPP_TO_DO := {} FOR EACH tmp IN hbmk[ _HBMK_aCPP ] IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: C++ %1$s %2$s", tmp, FNameDirExtSet( tmp, hbmk[ _HBMK_cWorkDir ], cObjExt ) ) ) ENDIF IF ! hb_FGetDateTime( FNameDirExtSet( tmp, hbmk[ _HBMK_cWorkDir ], cObjExt ), @tmp2 ) .OR. ; ! hb_FGetDateTime( tmp, @tmp1 ) .OR. ; tmp1 > tmp2 .OR. ; ( hbmk[ _HBMK_nHEAD ] != _HEAD_OFF .AND. FindNewerHeaders( hbmk, tmp, tmp2, .T., cBin_CompCPP ) ) .OR. ; hb_FSize( FNameDirExtSet( tmp, hbmk[ _HBMK_cWorkDir ], cObjExt ) ) == 0 AAdd( l_aCPP_TO_DO, tmp ) ENDIF NEXT ELSE l_aCPP_TO_DO := AClone( hbmk[ _HBMK_aCPP ] ) ENDIF ENDIF /* Create incremental file list for .prg files */ IF ( ! lSkipBuild .AND. ! hbmk[ _HBMK_lStopAfterInit ] .AND. ! hbmk[ _HBMK_lStopAfterHarbour ] .AND. hbmk[ _HBMK_nHBMODE ] != _HBMODE_RAW_C ) .OR. ; ( hbmk[ _HBMK_lCreateHRB ] .AND. hbmk[ _HBMK_lStopAfterHarbour ] ) .OR. ; /* or in HRB mode */ ( hbmk[ _HBMK_lCreatePPO ] .AND. hbmk[ _HBMK_lStopAfterHarbour ] ) /* or in preprocessor mode */ IF ! lDumpInfo PlugIn_Execute_All( hbmk, "pre_prg" ) ENDIF /* Incremental */ IF hbmk[ _HBMK_lINC ] .AND. ! hbmk[ _HBMK_lREBUILD ] .AND. ; ! hbmk[ _HBMK_lCLEAN ] .AND. ! lDumpInfo IF hbmk[ _HBMK_lCreateHRB ] .AND. hbmk[ _HBMK_lStopAfterHarbour ] cHarbourOutputExt := ".hrb" cHarbourOutputDir := hbmk[ _HBMK_cWorkDir ] ELSEIF hbmk[ _HBMK_lCreatePPO ] .AND. hbmk[ _HBMK_lStopAfterHarbour ] /* .ppo files are the dependents in preprocessor mode */ cHarbourOutputExt := ".ppo" cHarbourOutputDir := cHarbourPPODir ELSE cHarbourOutputExt := ".c" cHarbourOutputDir := hbmk[ _HBMK_cWorkDir ] ENDIF l_aPRG_TO_DO := {} FOR EACH tmp IN hbmk[ _HBMK_aPRG ] IF LEFTEQUAL( tmp, "@" ) .AND. Lower( hb_FNameExt( tmp ) ) == ".clp" tmp3 := SubStr( tmp, 2 ) ELSE tmp3 := tmp ENDIF tmp4 := FNameDirExtSet( tmp3, cHarbourOutputDir, cHarbourOutputExt ) IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: PRG %1$s %2$s",; tmp3, tmp4 ) ) ENDIF IF ! hb_FGetDateTime( tmp4, @tmp2 ) .OR. ; ! hb_FGetDateTime( tmp3, @tmp1 ) .OR. ; tmp1 > tmp2 .OR. ; ( hbmk[ _HBMK_nHEAD ] != _HEAD_OFF .AND. FindNewerHeaders( hbmk, tmp, tmp2, .F., cBin_CompC ) ) .OR. ; checkDepTime( hbmk, tmp4, tmp2 ) AAdd( l_aPRG_TO_DO, tmp ) ENDIF NEXT ELSE IF ! Empty( hbmk[ _HBMK_hAUTOHBC ] ) FOR EACH tmp IN hbmk[ _HBMK_aPRG ] FindNewerHeaders( hbmk, tmp, NIL, .F., cBin_CompC ) NEXT ENDIF l_aPRG_TO_DO := hbmk[ _HBMK_aPRG ] ENDIF IF ! Empty( hbmk[ _HBMK_hAUTOHBCFOUND ] ) FOR EACH cParam IN hbmk[ _HBMK_hAUTOHBCFOUND ] IF ! Empty( cParam ) IF Left( cParam:__enumKey(), 1 ) == "." _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Triggered by #require directive: %1$s" ), cParam ) ) ELSE _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Triggered by '%1$s' header: %2$s" ), cParam:__enumKey(), cParam ) ) ENDIF IF ! HBC_Find( hbmk, cParam ) _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Cannot find %1$s" ), cParam ) ) ENDIF ENDIF NEXT convert_incpaths_to_options( hbmk, cOptIncMask, lCHD_Comp ) ENDIF ELSE l_aPRG_TO_DO := hbmk[ _HBMK_aPRG ] ENDIF /* Delete all lib paths which contain late-evaluation macros. */ FOR EACH tmp IN hbmk[ _HBMK_aLIBPATH ] DESCEND IF ( _MACRO_LATE_PREFIX + _MACRO_OPEN ) $ tmp hb_ADel( hbmk[ _HBMK_aLIBPATH ], tmp:__enumIndex(), .T. ) ENDIF NEXT /* Dump build information */ IF lDumpInfo IF ! lDumpInfoNested .AND. nLevel > 1 RETURN _ERRLEV_OK ENDIF tmp := { "platform" => hbmk[ _HBMK_cPLAT ],; "compiler" => hbmk[ _HBMK_cCOMP ],; "cpu" => hbmk[ _HBMK_cCPU ],; "buildname" => hbmk[ _HBMK_cBUILD ],; "targetname" => hbmk_TARGETNAME( hbmk ),; "targettype" => hbmk_TARGETTYPE( hbmk ),; "dynprefix" => iif( Empty( l_cDynLibDir ), "", l_cDynLibDir + hbmk[ _HBMK_cDynLibPrefix ] ),; "dynsuffix" => hbmk_DYNSUFFIX( hbmk ),; "inc" => iif( hbmk[ _HBMK_lINC ], "yes", "no" ) } IF ! Empty( hbmk[ _HBMK_cPROGNAME ] ) tmp[ "outputname" ] := PathSepToForward( hbmk[ _HBMK_cPROGNAME ] ) ENDIF tmp[ "hbctree" ] := "" FOR EACH tmp1 IN hbmk[ _HBMK_aDEPTHBC ] tmp[ "hbctree" ] += Replicate( Chr( 9 ), tmp1[ 2 ] ) + PathSepToForward( hb_PathNormalize( tmp1[ 1 ] ) ) + Chr( 10 ) NEXT OutStd( hb_jsonEncode( tmp ) + Chr( 10 ) ) RETURN _ERRLEV_OK ENDIF /* Check if we've found all dependencies */ IF ! lSkipBuild .AND. ! hbmk[ _HBMK_lStopAfterInit ] .AND. ! hbmk[ _HBMK_lStopAfterHarbour ] IF ! dep_evaluate( hbmk ) IF hbmk[ _HBMK_lBEEP ] DoBeep( .F. ) ENDIF RETURN _ERRLEV_MISSDEPT ENDIF ENDIF /* Creating implibs requested in dependency specification */ IF ! hbmk[ _HBMK_lStopAfterInit ] .AND. HB_ISBLOCK( bBlk_ImpLib ) FOR EACH tmp IN hbmk[ _HBMK_hDEP ] IF tmp[ _HBMKDEP_lFound ] .AND. ! Empty( tmp[ _HBMKDEP_aIMPLIBSRC ] ) DoIMPLIB( hbmk, bBlk_ImpLib, cLibLibPrefix, cLibLibExt, tmp[ _HBMKDEP_aIMPLIBSRC ], tmp[ _HBMKDEP_cIMPLIBDST ], "depimplib", ! hbmk[ _HBMK_lDEPIMPLIB ] ) ENDIF NEXT ENDIF /* Harbour compilation */ IF ! lSkipBuild .AND. ! hbmk[ _HBMK_lStopAfterInit ] .AND. Empty( l_aPRG_TO_DO ) .AND. ! hbmk[ _HBMK_lCLEAN ] .AND. hbmk[ _HBMK_lINC ] .AND. hbmk[ _HBMK_nHBMODE ] != _HBMODE_RAW_C .AND. ; hbmk[ _HBMK_lCreateHRB ] .AND. hbmk[ _HBMK_lStopAfterHarbour ] _hbmk_OutStd( hbmk, I_( "Target(s) up to date." ) ) ELSEIF ! lSkipBuild .AND. ! hbmk[ _HBMK_lStopAfterInit ] .AND. Len( l_aPRG_TO_DO ) > 0 .AND. ! hbmk[ _HBMK_lCLEAN ] .AND. hbmk[ _HBMK_nHBMODE ] != _HBMODE_RAW_C IF hbmk[ _HBMK_lINC ] .AND. ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "Compiling Harbour sources..." ) ) ENDIF IF ! Empty( hbmk[ _HBMK_cPO ] ) AAdd( hbmk[ _HBMK_aOPTPRG ], "-j" ) ENDIF IF hbmk[ _HBMK_nHEAD ] == _HEAD_DEP AAdd( hbmk[ _HBMK_aOPTPRG ], "-gd" ) ENDIF PlatformPRGFlags( hbmk, hbmk[ _HBMK_aOPTPRG ] ) IF hbmk[ _HBMK_nHBMODE ] == _HBMODE_NATIVE /* Use integrated compiler */ aThreads := {} FOR EACH aTO_DO IN ArraySplit( l_aPRG_TO_DO, l_nJOBS ) aCommand := ArrayAJoin( { { iif( hbmk[ _HBMK_lCreateLib ] .OR. hbmk[ _HBMK_lCreateDyn ], "-n1", "-n2" ) },; aTO_DO,; iif( hbmk[ _HBMK_lBLDFLGP ], { hb_Version( HB_VERSION_FLAG_PRG ) }, {} ),; ListToArray( iif( ! Empty( GetEnv( "HB_USER_PRGFLAGS" ) ), " " + GetEnv( "HB_USER_PRGFLAGS" ), "" ) ),; hbmk[ _HBMK_aOPTPRG ] } ) IF hbmk[ _HBMK_lTRACE ] IF ! hbmk[ _HBMK_lQuiet ] IF Len( aTO_DO:__enumBase() ) > 1 _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Harbour compiler command (embedded) job #%1$d:" ), aTO_DO:__enumIndex() ) ) ELSE _hbmk_OutStd( hbmk, I_( "Harbour compiler command (embedded):" ) ) ENDIF ENDIF OutStd( "(" + FNameEscape( hb_DirSepAdd( hb_DirBase() ) + cBin_CompPRG + cBinExt, hbmk[ _HBMK_nCmd_Esc ] ) + ")" +; " " + ArrayToList( aCommand ) + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lDONTEXEC ] IF hb_mtvm() .AND. Len( aTO_DO:__enumBase() ) > 1 AAdd( aThreads, { hb_threadStart( @hbmk_hb_compile(), hbmk, "harbour", aCommand ), aCommand } ) ELSE IF ( tmp := hbmk_hb_compile( hbmk, "harbour", aCommand ) ) != 0 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Running Harbour compiler (embedded). %1$d" ), tmp ) ) IF ! hbmk[ _HBMK_lQuiet ] OutErr( "(" + FNameEscape( hb_DirSepAdd( hb_DirBase() ) + cBin_CompPRG + cBinExt, hbmk[ _HBMK_nCmd_Esc ] ) + ")" +; " " + ArrayToList( aCommand ) + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lIGNOREERROR ] IF lDeleteWorkDir hb_DirDelete( hbmk[ _HBMK_cWorkDir ] ) ENDIF IF hbmk[ _HBMK_lBEEP ] DoBeep( .F. ) ENDIF RETURN _ERRLEV_COMPPRG ENDIF ENDIF ENDIF ENDIF NEXT IF hb_mtvm() .AND. Len( aThreads ) > 1 FOR EACH thread IN aThreads hb_threadJoin( thread[ 1 ], @tmp ) IF tmp != 0 IF Len( aThreads ) > 1 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Running Harbour compiler job #%1$d. %2$d" ), thread:__enumIndex(), tmp ) ) ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Running Harbour compiler. %1$d" ), tmp ) ) ENDIF IF ! hbmk[ _HBMK_lQuiet ] OutErr( ArrayToList( thread[ 2 ] ) + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lIGNOREERROR ] IF lDeleteWorkDir hb_DirDelete( hbmk[ _HBMK_cWorkDir ] ) ENDIF IF hbmk[ _HBMK_lBEEP ] DoBeep( .F. ) ENDIF RETURN _ERRLEV_COMPPRG ENDIF ENDIF NEXT ENDIF ELSE /* Use external compiler */ IF _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ) tmp1 := l_aPRG_TO_DO /* Call compiler for each source file to avoid compiler bugs. */ ELSE tmp1 := { ArrayToList( l_aPRG_TO_DO,, hbmk[ _HBMK_nCmd_Esc ] ) } ENDIF FOR EACH tmp IN tmp1 cCommand := FNameEscape( hb_DirSepAdd( PathSepToSelf( hbmk[ _HBMK_cHB_INSTALL_BIN ] ) ) + cBin_CompPRG + cBinExt, hbmk[ _HBMK_nCmd_Esc ] ) +; " " + iif( hbmk[ _HBMK_lCreateLib ] .OR. hbmk[ _HBMK_lCreateDyn ], "-n1", iif( hbmk[ _HBMK_nHBMODE ] != _HBMODE_NATIVE, "-n", "-n2" ) ) +; " " + iif( _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ), FNameEscape( tmp, hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ), tmp ) +; iif( hbmk[ _HBMK_lBLDFLGP ], " " + hb_Version( HB_VERSION_FLAG_PRG ), "" ) +; iif( ! Empty( GetEnv( "HB_USER_PRGFLAGS" ) ), " " + GetEnv( "HB_USER_PRGFLAGS" ), "" ) +; iif( ! Empty( hbmk[ _HBMK_aOPTPRG ] ), " " + ArrayToList( hbmk[ _HBMK_aOPTPRG ] ), "" ) cCommand := AllTrim( cCommand ) IF hbmk[ _HBMK_lTRACE ] IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "Harbour compiler command:" ) ) ENDIF OutStd( cCommand + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lDONTEXEC ] .AND. ( tmp1 := hb_processRun( cCommand ) ) != 0 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Running Harbour compiler. %1$d" ), tmp1 ) ) IF ! hbmk[ _HBMK_lQuiet ] OutErr( cCommand + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lIGNOREERROR ] IF lDeleteWorkDir hb_DirDelete( hbmk[ _HBMK_cWorkDir ] ) ENDIF IF hbmk[ _HBMK_lBEEP ] DoBeep( .F. ) ENDIF RETURN _ERRLEV_COMPPRG ENDIF ENDIF NEXT ENDIF ENDIF IF ! lSkipBuild .AND. ! hbmk[ _HBMK_lStopAfterInit ] .AND. ! hbmk[ _HBMK_lStopAfterHarbour ] IF hbmk[ _HBMK_nHBMODE ] != _HBMODE_RAW_C /* Do entry function detection on platform required and supported */ IF ! hbmk[ _HBMK_lDONTEXEC ] .AND. ! lStopAfterCComp .AND. l_cMAIN == NIL tmp := iif( HBMK_IS_IN( Lower( hb_FNameExt( hbmk[ _HBMK_cFIRST ] ) ), ".prg|.hb|.clp" ) .OR. Empty( hb_FNameExt( hbmk[ _HBMK_cFIRST ] ) ), FNameDirExtSet( hbmk[ _HBMK_cFIRST ], hbmk[ _HBMK_cWorkDir ], ".c" ), hbmk[ _HBMK_cFIRST ] ) IF ! Empty( tmp := getFirstFunc( hbmk, tmp ) ) l_cMAIN := tmp ENDIF ENDIF lHBMAINDLLP := lStopAfterCComp .AND. hbmk[ _HBMK_lCreateDyn ] .AND. ; AScan( hbmk[ _HBMK_aLIBUSER ], {| tmp | hb_FileMatch( tmp, "hbmaindllp" ) } ) > 0 /* HACK: Override entry point requested by user or detected by us, and override the GT if requested by user. */ IF ( ( ! lStopAfterCComp .OR. hbmk[ _HBMK_lDynVM ] ) .AND. ; ( l_cMAIN != NIL .OR. ; ! Empty( hbmk[ _HBMK_aREQUEST ] ) .OR. ; ! Empty( hbmk[ _HBMK_aGT ] ) .OR. ; hbmk[ _HBMK_cGT ] != NIL .OR. ; l_cCMAIN != NIL ) ) .OR. lHBMAINDLLP #if defined( __PLATFORM__DOS ) l_cCSTUB := hb_DirSepAdd( hbmk[ _HBMK_cWorkDir ] ) + "_hbmkaut.c" #else l_cCSTUB := hb_DirSepAdd( hbmk[ _HBMK_cWorkDir ] ) + "_hbmkaut_" + hb_FNameName( hbmk[ _HBMK_cFIRST ] ) + ".c" #endif IF ! hbmk[ _HBMK_lCLEAN ] /* NOTE: This has to be kept synced with Harbour HB_IMPORT values. */ DO CASE CASE ! hbmk[ _HBMK_lSHARED ] .OR. ; ! HBMK_ISPLAT( "win|wce" ) .OR. ; HBMK_ISCOMP( "msvc|msvc64|msvcia64|icc|iccia64" ) /* NOTE: MSVC gives the warning: "LNK4217: locally defined symbol ... imported in function ..." if using 'dllimport'. [vszakats] */ tmp := "" CASE HBMK_ISCOMP( "gcc|mingw|mingw64|mingwarm" ) tmp := "__attribute__ (( dllimport ))" CASE HBMK_ISCOMP( "bcc|watcom" ) tmp := "__declspec( dllimport )" OTHERWISE tmp := "_declspec( dllimport )" ENDCASE /* Create list of requested symbols */ array := {} IF l_cMAIN != NIL /* NOTE: Request this function to generate link error, rather than starting with the wrong (default) function. */ AAdd( array, Upper( iif( Left( l_cMAIN, 1 ) == "@", SubStr( l_cMAIN, 2 ), l_cMAIN ) ) ) ENDIF IF hbmk[ _HBMK_cGT ] != NIL /* Always request default GT first */ AAdd( array, "HB_GT_" + Upper( SubStr( hbmk[ _HBMK_cGT ], 3 ) ) ) ENDIF FOR EACH tmp IN hbmk[ _HBMK_aGT ] IF hbmk[ _HBMK_cGT ] == NIL .OR. !( Upper( SubStr( hbmk[ _HBMK_cGT ], 3 ) ) == Upper( SubStr( tmp, 3 ) ) ) AAdd( array, "HB_GT_" + Upper( SubStr( tmp, 3 ) ) ) ENDIF NEXT AEval( hbmk[ _HBMK_aREQUEST ], {| tmp | AAdd( array, tmp ) } ) /* Build C stub */ /* Use the same EOL for all platforms to avoid unnecessary rebuilds. */ cFile := '/* This temp source file was generated by ' + _SELF_NAME_ + ' tool. */' + Chr( 10 ) +; '/* You can safely delete it. */' + Chr( 10 ) +; '' + Chr( 10 ) +; '#include "hbapi.h"' + Chr( 10 ) +; '' + Chr( 10 ) IF ( ! Empty( array ) .OR. l_cCMAIN != NIL ) .AND. ! lHBMAINDLLP AEval( array, {| tmp, i | array[ i ] := FuncNameEncode( tmp ) } ) AEval( array, {| tmp | cFile += 'HB_FUNC_EXTERN( ' + tmp + ' );' + Chr( 10 ) } ) IF l_cCMAIN != NIL IF ! Empty( array ) cFile += '' + Chr( 10 ) ENDIF cFile += 'HB_EXTERN_BEGIN' + Chr( 10 ) +; 'void ' + l_cCMAIN + '( void );' + Chr( 10 ) +; 'HB_EXTERN_END' + Chr( 10 ) ENDIF cFile += '' + Chr( 10 ) cFile += 'void _hb_lnk_ForceLink_hbmk( void )' + Chr( 10 ) cFile += '{' + Chr( 10 ) AEval( array, {| tmp | cFile += ' HB_FUNC_EXEC( ' + tmp + ' );' + Chr( 10 ) } ) IF l_cCMAIN != NIL IF ! Empty( array ) cFile += '' + Chr( 10 ) ENDIF cFile += ' ' + l_cCMAIN + '();' + Chr( 10 ) ENDIF cFile += '}' + Chr( 10 ) cFile += '' + Chr( 10 ) ENDIF IF lHBMAINDLLP .AND. .F. cFile += 'HB_EXPORT_ATTR PHB_FUNC dll_hb_vmProcAddress( const char * szFuncName )' + Chr( 10 ) cFile += '{' + Chr( 10 ) cFile += ' return hb_vmProcAddress( szFuncName );' + Chr( 10 ) cFile += '}' + Chr( 10 ) cFile += '' + Chr( 10 ) ENDIF IF hbmk[ _HBMK_cGT ] != NIL .OR. ; l_cMAIN != NIL IF hbmk[ _HBMK_nHBMODE ] == _HBMODE_HB10 .OR. ; _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ) cFile += '#include "hbinit.h"' + Chr( 10 ) +; '' + Chr( 10 ) +; 'HB_EXTERN_BEGIN' + Chr( 10 ) +; 'extern ' + tmp + ' const char * s_defaultGT;' + Chr( 10 ) +; 'extern ' + tmp + ' const char * s_pszLinkedMain;' + Chr( 10 ) +; 'HB_EXTERN_END' + Chr( 10 ) +; '' + Chr( 10 ) +; 'HB_CALL_ON_STARTUP_BEGIN( _hb_hbmk_setdef_ )' + Chr( 10 ) ELSE cFile += '#include "hbinit.h"' + Chr( 10 ) +; '' + Chr( 10 ) +; 'HB_CALL_ON_STARTUP_BEGIN( _hb_hbmk_setdef_ )' + Chr( 10 ) ENDIF IF hbmk[ _HBMK_cGT ] != NIL IF hbmk[ _HBMK_nHBMODE ] == _HBMODE_HB10 .OR. ; _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ) cFile += ' s_defaultGT = "' + Upper( SubStr( hbmk[ _HBMK_cGT ], 3 ) ) + '";' + Chr( 10 ) ELSE cFile += ' hb_vmSetDefaultGT( "' + Upper( SubStr( hbmk[ _HBMK_cGT ], 3 ) ) + '" );' + Chr( 10 ) ENDIF ENDIF IF l_cMAIN != NIL IF hbmk[ _HBMK_nHBMODE ] == _HBMODE_HB10 .OR. ; _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ) cFile += ' s_pszLinkedMain = "' + Upper( l_cMAIN ) + '";' + Chr( 10 ) ELSE cFile += ' hb_vmSetLinkedMain( "' + Upper( l_cMAIN ) + '" );' + Chr( 10 ) ENDIF ENDIF cFile += 'HB_CALL_ON_STARTUP_END( _hb_hbmk_setdef_ )' + Chr( 10 ) +; '' + Chr( 10 ) +; '#if defined( HB_PRAGMA_STARTUP )' + Chr( 10 ) +; ' #pragma startup _hb_hbmk_setdef_' + Chr( 10 ) +; '#elif defined( HB_DATASEG_STARTUP )' + Chr( 10 ) +; ' #define HB_DATASEG_BODY HB_DATASEG_FUNC( _hb_hbmk_setdef_ )' + Chr( 10 ) +; ' #include "hbiniseg.h"' + Chr( 10 ) +; '#endif' + Chr( 10 ) ENDIF IF hbmk[ _HBMK_lINC ] IF hbmk[ _HBMK_lREBUILD ] .OR. !( hb_MemoRead( l_cCSTUB ) == cFile ) fhnd := FCreate( l_cCSTUB ) ELSE fhnd := NIL ENDIF ELSE fhnd := hb_FTempCreateEx( @l_cCSTUB, NIL, "hbmk_", ".c" ) ENDIF IF fhnd == NIL AAdd( hbmk[ _HBMK_aC ], l_cCSTUB ) ELSEIF fhnd != F_ERROR FWrite( fhnd, cFile ) FClose( fhnd ) IF hbmk[ _HBMK_lDEBUGSTUB ] OutStd( "C stub dump:" + _OUT_EOL ) OutStd( cFile ) ENDIF AAdd( hbmk[ _HBMK_aC ], l_cCSTUB ) AAdd( l_aC_TO_DO, l_cCSTUB ) ELSE _hbmk_OutErr( hbmk, I_( "Warning: Stub helper .c program could not be created." ) ) IF ! hbmk[ _HBMK_lINC ] AEval( ListDirExt( hbmk[ _HBMK_aPRG ], hbmk[ _HBMK_cWorkDir ], ".c", .T. ), {| tmp | FErase( tmp ) } ) ENDIF IF lDeleteWorkDir hb_DirDelete( hbmk[ _HBMK_cWorkDir ] ) ENDIF IF hbmk[ _HBMK_lBEEP ] DoBeep( .F. ) ENDIF RETURN _ERRLEV_STUBCREATE ENDIF /* Don't delete stub in workdir in incremental mode. */ IF hbmk[ _HBMK_lINC ] l_cCSTUB := NIL ENDIF ENDIF ENDIF /* HACK: Override memory allocation functions for apps that request it. */ IF ! lStopAfterCComp .AND. ; ! Empty( cBin_CompCPP ) .AND. ; hbmk[ _HBMK_lHBCPPMM ] #if defined( __PLATFORM__DOS ) l_cCPPSTUB := hb_DirSepAdd( hbmk[ _HBMK_cWorkDir ] ) + "_hbmkcpp.cpp" #else l_cCPPSTUB := hb_DirSepAdd( hbmk[ _HBMK_cWorkDir ] ) + "_hbmkcpp_" + hb_FNameName( hbmk[ _HBMK_cFIRST ] ) + ".cpp" #endif IF ! hbmk[ _HBMK_lCLEAN ] /* Build C++ stub */ /* Use the same EOL for all platforms to avoid unnecessary rebuilds. */ cFile := '/* This temp source file was generated by ' + _SELF_NAME_ + ' tool. */' + Chr( 10 ) +; '/* You can safely delete it. */' + Chr( 10 ) +; '' + Chr( 10 ) +; '#include "hbapi.h"' + Chr( 10 ) +; '' + Chr( 10 ) +; '#if defined( __cplusplus )' + Chr( 10 ) +; '' + Chr( 10 ) +; 'const char * __hbmk_hbcppmm( void )' + Chr( 10 ) +; '{' + Chr( 10 ) +; ' return "HBCPPMM";' + Chr( 10 ) +; '}' + Chr( 10 ) +; '' + Chr( 10 ) +; 'void * operator new[]( size_t nSize )' + Chr( 10 ) +; '{' + Chr( 10 ) +; ' if( nSize == 0 )' + Chr( 10 ) +; ' nSize = 1;' + Chr( 10 ) +; ' return hb_xgrab( nSize );' + Chr( 10 ) +; '}' + Chr( 10 ) +; '' + Chr( 10 ) +; 'void * operator new( size_t nSize )' + Chr( 10 ) +; '{' + Chr( 10 ) +; ' if( nSize == 0 )' + Chr( 10 ) +; ' nSize = 1;' + Chr( 10 ) +; ' return hb_xgrab( nSize );' + Chr( 10 ) +; '}' + Chr( 10 ) +; '' + Chr( 10 ) +; 'void operator delete[]( void * ptr )' + Chr( 10 ) +; '{' + Chr( 10 ) +; ' if( ptr )' + Chr( 10 ) +; ' hb_xfree( ptr );' + Chr( 10 ) +; '}' + Chr( 10 ) +; '' + Chr( 10 ) +; 'void operator delete[]( void * ptr, size_t )' + Chr( 10 ) +; '{' + Chr( 10 ) +; ' if( ptr )' + Chr( 10 ) +; ' hb_xfree( ptr );' + Chr( 10 ) +; '}' + Chr( 10 ) +; '' + Chr( 10 ) +; 'void operator delete( void * ptr )' + Chr( 10 ) +; '{' + Chr( 10 ) +; ' if( ptr )' + Chr( 10 ) +; ' hb_xfree( ptr );' + Chr( 10 ) +; '}' + Chr( 10 ) +; '' + Chr( 10 ) +; 'void operator delete( void * ptr, size_t )' + Chr( 10 ) +; '{' + Chr( 10 ) +; ' if( ptr )' + Chr( 10 ) +; ' hb_xfree( ptr );' + Chr( 10 ) +; '}' + Chr( 10 ) +; '' + Chr( 10 ) +; '#endif' + Chr( 10 ) IF hbmk[ _HBMK_lINC ] IF hbmk[ _HBMK_lREBUILD ] .OR. !( hb_MemoRead( l_cCPPSTUB ) == cFile ) fhnd := FCreate( l_cCPPSTUB ) ELSE fhnd := NIL ENDIF ELSE fhnd := hb_FTempCreateEx( @l_cCPPSTUB, NIL, "hbmk_", ".cpp" ) ENDIF IF fhnd == NIL AAdd( hbmk[ _HBMK_aCPP ], l_cCPPSTUB ) ELSEIF fhnd != F_ERROR FWrite( fhnd, cFile ) FClose( fhnd ) IF hbmk[ _HBMK_lDEBUGSTUB ] OutStd( "C++ stub dump:" + _OUT_EOL ) OutStd( cFile ) ENDIF AAdd( hbmk[ _HBMK_aCPP ], l_cCPPSTUB ) AAdd( l_aCPP_TO_DO, l_cCPPSTUB ) ELSE _hbmk_OutErr( hbmk, I_( "Warning: Stub helper .cpp program could not be created." ) ) IF ! hbmk[ _HBMK_lINC ] AEval( ListDirExt( hbmk[ _HBMK_aPRG ], hbmk[ _HBMK_cWorkDir ], ".c", .T. ), {| tmp | FErase( tmp ) } ) ENDIF IF lDeleteWorkDir hb_DirDelete( hbmk[ _HBMK_cWorkDir ] ) ENDIF IF hbmk[ _HBMK_lBEEP ] DoBeep( .F. ) ENDIF RETURN _ERRLEV_STUBCREATE ENDIF /* Don't delete stub in workdir in incremental mode. */ IF hbmk[ _HBMK_lINC ] l_cCPPSTUB := NIL ENDIF ENDIF ENDIF IF ! hbmk[ _HBMK_lSHARED ] IF ! Empty( cLIB_BASE_PCRE ) .AND. hb_FileExists( _HBLIB_FULLPATH( cLIB_BASE_PCRE ) ) AAdd( l_aLIBSYS, cLIB_BASE_PCRE ) ENDIF IF ! Empty( cLIB_BASE_ZLIB ) .AND. hb_FileExists( _HBLIB_FULLPATH( cLIB_BASE_ZLIB ) ) AAdd( l_aLIBSYS, cLIB_BASE_ZLIB ) ENDIF ENDIF /* Library list assembly */ IF hbmk[ _HBMK_lSHARED ] .AND. ! Empty( l_aLIBSHARED ) /* Don't link Harbour dynamic/static libs when in '-hbdyn -shared' mode */ IF !( hbmk[ _HBMK_lCreateDyn ] .AND. ! hbmk[ _HBMK_lDynVM ] ) l_aLIBHB := AClone( l_aLIBSHAREDPOST ) /* NOTE: Make sure to add these static libs only if they can be found. This will ensure that we can build shared mode binaries even when static libs are not installed (typically on *nix systems). [vszakats] */ FOR EACH tmp IN ArrayAJoin( { aLIB_BASE_CPLR,; aLIB_BASE_DEBUG } ) IF hb_FileExists( _HBLIB_FULLPATH( tmp ) ) AAdd( l_aLIBHB, tmp ) ENDIF NEXT ELSE l_aLIBHB := {} ENDIF ELSE l_aLIBHB := ArrayAJoin( { aLIB_BASE_EXTERN,; aLIB_BASE_DEBUG,; iif( hbmk[ _HBMK_lMT ], aLIB_BASE_1_MT, aLIB_BASE_1 ),; hbmk[ _HBMK_aLIBCOREGT ],; iif( hbmk[ _HBMK_lNULRDD ], aLIB_BASE_NULRDD, iif( hbmk[ _HBMK_lMT ], aLIB_BASE_RDD_MT, aLIB_BASE_RDD ) ),; l_aLIBHBBASE_2,; iif( hbmk[ _HBMK_lMT ], aLIB_BASE_3_MT, aLIB_BASE_3 ),; l_aLIBSTATICPOST } ) ENDIF ELSE lHBMAINDLLP := .F. l_aLIBHB := {} l_aLIBSHARED := {} hbmk[ _HBMK_aPRG ] := {} ENDIF /* NOTE: Temporary trick to remove our own implib output name and lib output name from lib list. This is to avoid adding self-reference when building a -hbdyn or -hblib and including both project .hbp + .hbc. The downside is that one cannot have a lib dependency with the same name as the output. [vszakats] */ IF l_cLIBSELF != NIL tmp1 := FNameNameGetNoExt( l_cLIBSELF ) FOR EACH tmp IN hbmk[ _HBMK_aLIBUSER ] DESCEND IF hb_FileMatch( hb_FNameName( tmp ), tmp1 ) hb_ADel( hbmk[ _HBMK_aLIBUSER ], tmp:__enumIndex(), .T. ) ENDIF NEXT ENDIF /* Handle filter list of libs */ FOR EACH tmp2 IN hbmk[ _HBMK_aLIBFILTEROUT ] FOR EACH tmp1 IN { hbmk[ _HBMK_aLIBUSER ], l_aLIB3RD, hbmk[ _HBMK_aLIBUSERSYSPRE ], l_aLIBSYS, hbmk[ _HBMK_aLIBUSERSYS ] } FOR EACH tmp IN tmp1 DESCEND IF hb_FileMatch( tmp, tmp2 ) hb_ADel( tmp1, tmp:__enumIndex(), .T. ) ENDIF NEXT NEXT NEXT /* Process build-time configuration */ /* TOFIX: This doesn't work well when doing cross-platform build f.e. on a 32-bit *nix system to 64-bit target where the 64-bit target doesn't happen to provide 64-bit flavor of gpm lib. This is the case when building 64-bit target on a 32-bit Ubuntu 10.10 system. Moral of the story: we should decide about gpm using dynamic information instead of using build-time default HB_HAS_GPM value. [vszakats] */ #if defined( HB_HAS_GPM ) IF hbmk[ _HBMK_cPLAT ] == "linux" FOR EACH tmp IN l_aLIBHB IF tmp == "gtcrs" .OR. ; tmp == "gtsln" .OR. ; tmp == "gttrm" AAdd( hbmk[ _HBMK_aLIBUSERSYS ], "gpm" ) EXIT ENDIF NEXT ENDIF #endif /* Merge lib lists. */ l_aLIBRAW := ArrayAJoin( { hbmk[ _HBMK_aLIBUSER ], l_aLIBHB, l_aLIB3RD, hbmk[ _HBMK_aLIBUSERSYSPRE ], l_aLIBSYS, hbmk[ _HBMK_aLIBUSERSYS ] } ) /* Dress lib names. */ l_aLIB := {} l_aLIBA := {} ListCookLib( hbmk, l_aLIB, l_aLIBA, l_aLIBRAW, NIL, cLibExt ) IF hbmk[ _HBMK_lSHARED ] .AND. ! Empty( l_aLIBSHARED ) /* Don't link Harbour dynamic/static libs when in '-hbdyn -shared' mode */ IF !( hbmk[ _HBMK_lCreateDyn ] .AND. ! hbmk[ _HBMK_lDynVM ] ) .OR. lHBMAINDLLP l_aLIBRAW := ArrayJoin( l_aLIBSHARED, l_aLIBRAW ) ListCookLib( hbmk, l_aLIB, l_aLIBA, l_aLIBSHARED, NIL ) ENDIF ENDIF /* Dress obj names. */ IF cObjExt == NIL /* NOTE: May only happen if the plat/comp combination isn't supported. Don't let the obj filelist be the exact same as the source list, it would cause unwanted deletion of source at cleanup stage. [vszakats] */ l_aOBJ := {} ELSE l_aOBJ := ListDirExt( ArrayAJoin( { hbmk[ _HBMK_aPRG ], hbmk[ _HBMK_aC ], hbmk[ _HBMK_aCPP ] } ), hbmk[ _HBMK_cWorkDir ], cObjExt, .T. ) ENDIF hbmk[ _HBMK_aOBJUSER ] := ListCook( hbmk[ _HBMK_aOBJUSER ], cObjExt ) IF hbmk[ _HBMK_lINC ] .AND. ! hbmk[ _HBMK_lREBUILD ] .AND. ! hbmk[ _HBMK_lCLEAN ] l_aRESSRC_TO_DO := {} FOR EACH tmp IN hbmk[ _HBMK_aRESSRC ] IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: RESSRC %1$s %2$s", tmp, FNameDirExtSet( tmp, hbmk[ _HBMK_cWorkDir ], cResExt ) ) ) ENDIF IF ! hb_FGetDateTime( FNameDirExtSet( tmp, hbmk[ _HBMK_cWorkDir ], cResExt ), @tmp2 ) .OR. ; ! hb_FGetDateTime( tmp, @tmp1 ) .OR. ; tmp1 > tmp2 .OR. ; ( hbmk[ _HBMK_nHEAD ] != _HEAD_OFF .AND. FindNewerHeaders( hbmk, tmp, tmp2, .T., cBin_CompC ) ) .OR. ; hb_FSize( FNameDirExtSet( tmp, hbmk[ _HBMK_cWorkDir ], cResExt ) ) == 0 AAdd( l_aRESSRC_TO_DO, tmp ) ENDIF NEXT ELSE l_aRESSRC_TO_DO := AClone( hbmk[ _HBMK_aRESSRC ] ) ENDIF IF hbmk[ _HBMK_nHBMODE ] != _HBMODE_RAW_C .AND. ! hbmk[ _HBMK_lCLEAN ] IF hbmk[ _HBMK_lREBUILDPO ] IF ! Empty( hbmk[ _HBMK_cPO ] ) .AND. ! Empty( hbmk[ _HBMK_aPRG ] ) RebuildPO( hbmk, ListDirExt( hbmk[ _HBMK_aPRG ], hbmk[ _HBMK_cWorkDir ], ".pot", .T. ) ) ENDIF ELSE IF ! Empty( hbmk[ _HBMK_cPO ] ) .AND. Len( l_aPRG_TO_DO ) > 0 UpdatePO( hbmk, ListDirExt( l_aPRG_TO_DO, hbmk[ _HBMK_cWorkDir ], ".pot", .T. ) ) ENDIF ENDIF IF Len( hbmk[ _HBMK_aPO ] ) > 0 .AND. hbmk[ _HBMK_cHBL ] != NIL /* Combine target dir with .hbl output name. */ hb_FNameSplit( hbmk[ _HBMK_cPROGNAME ], @tmp ) IF Empty( tmp ) hbmk[ _HBMK_cHBL ] := PathMakeAbsolute( hbmk[ _HBMK_cHBL ], hbmk[ _HBMK_cHBLDir ] ) ELSE hbmk[ _HBMK_cHBL ] := PathMakeAbsolute( hbmk[ _HBMK_cHBL ], tmp ) ENDIF MakeHBL( hbmk, hbmk[ _HBMK_cHBL ] ) ENDIF ENDIF IF ( HBMK_ISPLAT( "win|wce|os2" ) .AND. ! Empty( hbmk[ _HBMK_aICON ] ) ) .OR. ; ( HBMK_ISPLAT( "win|wce" ) .AND. ! Empty( hbmk[ _HBMK_cMANIFEST ] ) ) #if defined( __PLATFORM__DOS ) l_cRESSTUB := hb_DirSepAdd( hbmk[ _HBMK_cWorkDir ] ) + "_hbmkaut.rc" #else l_cRESSTUB := hb_DirSepAdd( hbmk[ _HBMK_cWorkDir ] ) + "_hbmkaut_" + hb_FNameName( hbmk[ _HBMK_cFIRST ] ) + ".rc" #endif IF ! hbmk[ _HBMK_lCLEAN ] /* Build .rc stub */ /* Use the same EOL for all platforms to avoid unnecessary rebuilds. */ cFile := '/* This temp source file was generated by ' + _SELF_NAME_ + ' tool. */' + Chr( 10 ) +; '/* You can safely delete it. */' + Chr( 10 ) +; '' + Chr( 10 ) IF ! Empty( hbmk[ _HBMK_cMANIFEST ] ) cFile += '#include ' + Chr( 10 ) cFile += '#ifndef RT_MANIFEST' + Chr( 10 ) cFile += '#define RT_MANIFEST 24' + Chr( 10 ) cFile += '#endif' + Chr( 10 ) cFile += '#ifndef CREATEPROCESS_MANIFEST_RESOURCE_ID' + Chr( 10 ) cFile += '#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1' + Chr( 10 ) cFile += '#endif' + Chr( 10 ) cFile += 'CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "' + PathSepToForward( hbmk[ _HBMK_cMANIFEST ] ) + '"' + Chr( 10 ) ENDIF IF ! Empty( hbmk[ _HBMK_aICON ] ) .AND. !( hbmk[ _HBMK_cCOMP ] == "bcc" ) /* BCC cannot handle certain new .ico files */ IF hbmk[ _HBMK_cPLAT ] == "os2" AEval( hbmk[ _HBMK_aICON ], {| tmp, tmp1 | cFile += 'ICON ' + hb_ntos( tmp1 ) + ' DISCARDABLE "' + PathSepToForward( tmp ) + '"' + Chr( 10 ) } ) ELSE AEval( hbmk[ _HBMK_aICON ], {| tmp, tmp1 | cFile += hb_ntos( tmp1 ) + ' ICON DISCARDABLE "' + PathSepToForward( tmp ) + '"' + Chr( 10 ) } ) ENDIF ENDIF IF hbmk[ _HBMK_lINC ] IF hbmk[ _HBMK_lREBUILD ] .OR. !( hb_MemoRead( l_cRESSTUB ) == cFile ) fhnd := FCreate( l_cRESSTUB ) ELSE fhnd := NIL ENDIF ELSE fhnd := hb_FTempCreateEx( @l_cRESSTUB, NIL, "hbmk_", ".rc" ) ENDIF IF fhnd == NIL hb_AIns( hbmk[ _HBMK_aRESSRC ], 1, l_cRESSTUB, .T. ) ELSEIF fhnd != F_ERROR FWrite( fhnd, cFile ) FClose( fhnd ) IF hbmk[ _HBMK_lDEBUGSTUB ] OutStd( ".rc stub dump:" + _OUT_EOL ) OutStd( cFile ) ENDIF hb_AIns( hbmk[ _HBMK_aRESSRC ], 1, l_cRESSTUB, .T. ) AAdd( l_aRESSRC_TO_DO, l_cRESSTUB ) ELSE _hbmk_OutErr( hbmk, I_( "Warning: Stub helper .rc file could not be created." ) ) ENDIF /* Don't delete stub in workdir in incremental mode. */ IF hbmk[ _HBMK_lINC ] l_cRESSTUB := NIL ENDIF ENDIF ENDIF /* Avoid this list being added at link phase if resource compiling isn't available in target compiler. */ IF Empty( cBin_Res ) ASize( hbmk[ _HBMK_aRESSRC ], 0 ) ENDIF IF Len( l_aRESSRC_TO_DO ) > 0 .AND. ! Empty( cBin_Res ) .AND. ! hbmk[ _HBMK_lCLEAN ] PlugIn_Execute_All( hbmk, "pre_res" ) IF hbmk[ _HBMK_lINC ] .AND. ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "Compiling resources..." ) ) ENDIF /* Compiling resource */ nOpt_Esc := iif( "{SCRIPT}" $ cOpt_Res, hbmk[ _HBMK_nScr_Esc ], hbmk[ _HBMK_nCmd_Esc ] ) nOpt_FNF := iif( "{SCRIPT}" $ cOpt_Res, hbmk[ _HBMK_nScr_FNF ], hbmk[ _HBMK_nCmd_FNF ] ) cOpt_Res := StrTran( cOpt_Res, "{FR}" , GetEnv( "HB_USER_RESFLAGS" ) + " " + ArrayToList( hbmk[ _HBMK_aOPTRES ] ) ) cOpt_Res := StrTran( cOpt_Res, "{DI}" , FNameEscape( hbmk[ _HBMK_cHB_INSTALL_INC ], nOpt_Esc, nOpt_FNF ) ) IF "{IR}" $ cOpt_Res FOR EACH tmp IN l_aRESSRC_TO_DO cCommand := cOpt_Res cCommand := StrTran( cCommand, "{IR}", FNameEscape( tmp, nOpt_Esc, nOpt_FNF ) ) cCommand := StrTran( cCommand, "{OS}", FNameEscape( FNameDirExtSet( tmp, hbmk[ _HBMK_cWorkDir ], cResExt ), nOpt_Esc, nOpt_FNF ) ) cCommand := cBin_Res + " " + AllTrim( cCommand ) IF hbmk[ _HBMK_lTRACE ] IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "Resource compiler command:" ) ) ENDIF OutStd( cCommand + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lDONTEXEC ] .AND. ( tmp1 := hb_processRun( cCommand ) ) != 0 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Running resource compiler. %1$d" ), tmp1 ) ) IF ! hbmk[ _HBMK_lQuiet ] OutErr( cCommand + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lIGNOREERROR ] hbmk[ _HBMK_nErrorLevel ] := _ERRLEV_RUNRES EXIT ENDIF ENDIF NEXT ELSE cOpt_Res := StrTran( cOpt_Res, "{LR}" , ArrayToList( l_aRESSRC_TO_DO,, nOpt_Esc, nOpt_FNF ) ) cOpt_Res := AllTrim( cOpt_Res ) /* Handle moving the whole command line to a script, if requested. */ cScriptFile := NIL IF "{SCRIPT}" $ cOpt_Res fhnd := hb_FTempCreateEx( @cScriptFile, NIL, NIL, ".lnk" ) IF fhnd != F_ERROR FWrite( fhnd, StrTran( cOpt_Res, "{SCRIPT}" ) ) FClose( fhnd ) cOpt_Res := "@" + cScriptFile ELSE _hbmk_OutErr( hbmk, I_( "Warning: Resource compiler script could not be created, continuing in command line." ) ) ENDIF ENDIF cCommand := cBin_Res + " " + cOpt_Res IF hbmk[ _HBMK_lTRACE ] IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "Resource compiler command:" ) ) ENDIF OutStd( cCommand + _OUT_EOL ) IF ! Empty( cScriptFile ) _hbmk_OutStd( hbmk, I_( "Resource compiler script:" ) ) OutStd( hb_MemoRead( cScriptFile ) + _OUT_EOL ) ENDIF ENDIF IF ! hbmk[ _HBMK_lDONTEXEC ] .AND. ( tmp := hb_processRun( cCommand ) ) != 0 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Running resource compiler. %1$d" ), tmp ) ) IF ! hbmk[ _HBMK_lQuiet ] OutErr( cCommand + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lIGNOREERROR ] hbmk[ _HBMK_nErrorLevel ] := _ERRLEV_RUNRES ENDIF ENDIF IF ! Empty( cScriptFile ) FErase( cScriptFile ) ENDIF ENDIF ENDIF IF hbmk[ _HBMK_nErrorLevel ] == _ERRLEV_OK IF hbmk[ _HBMK_lINC ] .AND. ! hbmk[ _HBMK_lREBUILD ] l_aPRG_TO_DO := {} FOR EACH tmp IN hbmk[ _HBMK_aPRG ] IF LEFTEQUAL( tmp, "@" ) .AND. Lower( hb_FNameExt( tmp ) ) == ".clp" tmp3 := SubStr( tmp, 2 ) ELSE tmp3 := tmp ENDIF tmp4 := FNameDirExtSet( tmp3, hbmk[ _HBMK_cWorkDir ], cObjExt ) IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: CPRG %1$s %2$s",; FNameDirExtSet( tmp3, hbmk[ _HBMK_cWorkDir ], ".c" ), tmp4 ) ) ENDIF IF ! hb_FGetDateTime( FNameDirExtSet( tmp3, hbmk[ _HBMK_cWorkDir ], ".c" ), @tmp1 ) .OR. ; ! hb_FGetDateTime( tmp4, @tmp2 ) .OR. ; tmp1 > tmp2 .OR. ; hb_FSize( tmp4 ) == 0 .OR. ; checkDepTime( hbmk, tmp4, tmp2 ) AAdd( l_aPRG_TO_DO, tmp ) ENDIF NEXT ELSE l_aPRG_TO_DO := hbmk[ _HBMK_aPRG ] ENDIF ENDIF PlugIn_Execute_All( hbmk, "pre_c" ) IF ! hbmk[ _HBMK_lCLEAN ] FOR EACH tmp3 IN { _CCOMP_PASS_C, _CCOMP_PASS_CPP } IF tmp3 == _CCOMP_PASS_C l_aCGEN_TO_DO := ArrayJoin( ListDirExt( l_aPRG_TO_DO, hbmk[ _HBMK_cWorkDir ], ".c", .T. ), l_aC_TO_DO ) cBin_CompCGEN := cBin_CompC ELSE l_aCGEN_TO_DO := AClone( l_aCPP_TO_DO ) cBin_CompCGEN := cBin_CompCPP ENDIF IF hbmk[ _HBMK_nErrorLevel ] == _ERRLEV_OK .AND. Len( l_aCGEN_TO_DO ) > 0 IF ! Empty( cBin_CompCGEN ) IF hbmk[ _HBMK_lINC ] .AND. ! hbmk[ _HBMK_lQuiet ] IF tmp3 == _CCOMP_PASS_C _hbmk_OutStd( hbmk, I_( "Compiling..." ) ) ELSE _hbmk_OutStd( hbmk, I_( "Compiling C++..." ) ) ENDIF ENDIF /* Compiling */ nOpt_Esc := iif( "{SCRIPT}" $ cOpt_CompC, hbmk[ _HBMK_nScr_Esc ], hbmk[ _HBMK_nCmd_Esc ] ) nOpt_FNF := iif( "{SCRIPT}" $ cOpt_CompC, hbmk[ _HBMK_nScr_FNF ], hbmk[ _HBMK_nCmd_FNF ] ) /* Order is significant */ tmp4 := iif( tmp3 == _CCOMP_PASS_C .AND. ( hbmk[ _HBMK_lCPP ] == NIL .OR. ! hbmk[ _HBMK_lCPP ] ), hbmk[ _HBMK_aOPTCX ], hbmk[ _HBMK_aOPTCPPX ] ) cOpt_CompCPass := cOpt_CompC cOpt_CompCPass := StrTran( cOpt_CompCPass, "{FC}" , iif( hbmk[ _HBMK_lBLDFLGC ], hb_Version( HB_VERSION_FLAG_C ) + " ", "" ) +; GetEnv( "HB_USER_CFLAGS" ) +; iif( ! Empty( hbmk[ _HBMK_aOPTC ] ), " " + ArrayToList( hbmk[ _HBMK_aOPTC ] ), "" ) +; iif( ! Empty( tmp4 ), " " + ArrayToList( tmp4 ), "" ) +; iif( ! Empty( hbmk[ _HBMK_aOPTCUSER ] ), " " + ArrayToList( hbmk[ _HBMK_aOPTCUSER ] ), "" ) ) cOpt_CompCPass := StrTran( cOpt_CompCPass, "{OD}" , FNameEscape( hb_FNameDir( hbmk[ _HBMK_cPROGNAME ] ), nOpt_Esc, nOpt_FNF ) ) cOpt_CompCPass := StrTran( cOpt_CompCPass, "{DI}" , FNameEscape( hbmk[ _HBMK_cHB_INSTALL_INC ], nOpt_Esc, nOpt_FNF ) ) IF "{IC}" $ cOpt_CompCPass aThreads := {} FOR EACH aTO_DO IN ArraySplit( l_aCGEN_TO_DO, l_nJOBS ) IF hb_mtvm() .AND. Len( aTO_DO:__enumBase() ) > 1 AAdd( aThreads, hb_threadStart( @CompileCLoop(), hbmk, aTO_DO, cBin_CompCGEN, cOpt_CompCPass, cObjExt, nOpt_Esc, nOpt_FNF, aTO_DO:__enumIndex(), Len( aTO_DO:__enumBase() ) ) ) ELSE IF ! CompileCLoop( hbmk, aTO_DO, cBin_CompCGEN, cOpt_CompCPass, cObjExt, nOpt_Esc, nOpt_FNF, 0, 0 ) IF ! hbmk[ _HBMK_lIGNOREERROR ] hbmk[ _HBMK_nErrorLevel ] := _ERRLEV_COMPC EXIT ENDIF ENDIF ENDIF NEXT IF hb_mtvm() .AND. Len( aThreads ) > 1 FOR EACH thread IN aThreads hb_threadJoin( thread, @tmp ) IF ! tmp IF ! hbmk[ _HBMK_lIGNOREERROR ] hbmk[ _HBMK_nErrorLevel ] := _ERRLEV_COMPC ENDIF ENDIF NEXT ENDIF ELSE cOpt_CompCPass := StrTran( cOpt_CompCPass, "{OO}" , FNameEscape( hb_FNameExtSet( hbmk[ _HBMK_cPROGNAME ], cObjExt ), nOpt_Esc, nOpt_FNF ) ) cOpt_CompCPass := StrTran( cOpt_CompCPass, "{OW}" , FNameEscape( hbmk[ _HBMK_cWorkDir ], nOpt_Esc, nOpt_FNF ) ) IF lCHD_Comp tmp2 := hb_DirSepAdd( hb_PathRelativize( hb_PathNormalize( PathMakeAbsolute( hbmk[ _HBMK_cWorkDir ], hb_cwd() ) ), hb_cwd(), .T. ) ) IF hbmk[ _HBMK_lDONTEXEC ] cCHD_DirOld := NIL ELSE cCHD_DirOld := hb_cwd() IF hbmk[ _HBMK_lTRACE ] .AND. hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "'cd' to: %1$s" ), hbmk[ _HBMK_cWorkDir ] ) ) ENDIF DirChange( hbmk[ _HBMK_cWorkDir ] ) ENDIF ENDIF aThreads := {} FOR EACH aTO_DO IN ArraySplit( l_aCGEN_TO_DO, l_nJOBS ) IF lCHD_Comp /* Convert source filenames relative to the target dir */ tmp := AClone( aTO_DO ) FOR EACH tmp1 IN tmp tmp1 := hb_PathNormalize( PathMakeAbsolute( tmp1, tmp2 ) ) NEXT cOpt_CompCLoop := AllTrim( StrTran( cOpt_CompCPass, "{LC}" , ArrayToList( tmp,, nOpt_Esc, nOpt_FNF ) ) ) ELSE cOpt_CompCLoop := AllTrim( StrTran( cOpt_CompCPass, "{LC}" , ArrayToList( aTO_DO,, nOpt_Esc, nOpt_FNF ) ) ) ENDIF /* Handle moving the whole command line to a script, if requested. */ cScriptFile := NIL IF "{SCRIPT}" $ cOpt_CompCLoop fhnd := hb_FTempCreateEx( @cScriptFile, NIL, NIL, ".cpl" ) IF fhnd != F_ERROR FWrite( fhnd, StrTran( cOpt_CompCLoop, "{SCRIPT}" ) ) FClose( fhnd ) cOpt_CompCLoop := "@" + cScriptFile ELSE _hbmk_OutErr( hbmk, I_( "Warning: C/C++ compiler script could not be created, continuing in command line." ) ) ENDIF ENDIF cCommand := cBin_CompCGEN + " " + cOpt_CompCLoop IF hbmk[ _HBMK_lTRACE ] IF ! hbmk[ _HBMK_lQuiet ] IF Len( aTO_DO:__enumBase() ) > 1 _hbmk_OutStd( hbmk, hb_StrFormat( I_( "C/C++ compiler command job #%1$d:" ), aTO_DO:__enumIndex() ) ) ELSE _hbmk_OutStd( hbmk, I_( "C/C++ compiler command:" ) ) ENDIF ENDIF OutStd( cCommand + _OUT_EOL ) IF ! Empty( cScriptFile ) _hbmk_OutStd( hbmk, I_( "C/C++ compiler script:" ) ) OutStd( hb_MemoRead( cScriptFile ) + _OUT_EOL ) ENDIF ENDIF IF ! hbmk[ _HBMK_lDONTEXEC ] IF hb_mtvm() .AND. Len( aTO_DO:__enumBase() ) > 1 AAdd( aThreads, { hb_threadStart( @hb_processRun(), cCommand ), cCommand } ) ELSE IF ( tmp := hb_processRun( cCommand ) ) != 0 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Running C/C++ compiler. %1$d" ), tmp ) ) IF ! hbmk[ _HBMK_lQuiet ] OutErr( cCommand + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lIGNOREERROR ] hbmk[ _HBMK_nErrorLevel ] := _ERRLEV_COMPC EXIT ENDIF ENDIF ENDIF ENDIF IF ! Empty( cScriptFile ) FErase( cScriptFile ) ENDIF NEXT IF hb_mtvm() .AND. Len( aThreads ) > 1 FOR EACH thread IN aThreads hb_threadJoin( thread[ 1 ], @tmp ) IF tmp != 0 IF Len( aThreads ) > 1 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Running C/C++ compiler job #%1$d. %2$d" ), thread:__enumIndex(), tmp ) ) ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Running C/C++ compiler. %1$d" ), tmp ) ) ENDIF IF ! hbmk[ _HBMK_lQuiet ] OutErr( thread[ 2 ] + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lIGNOREERROR ] hbmk[ _HBMK_nErrorLevel ] := _ERRLEV_COMPC ENDIF ENDIF NEXT ENDIF IF lCHD_Comp .AND. cCHD_DirOld != NIL DirChange( cCHD_DirOld ) IF hbmk[ _HBMK_lTRACE ] .AND. hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, I_( "'cd' back." ) ) ENDIF ENDIF ENDIF ELSE _hbmk_OutErr( hbmk, I_( "Error: C/C++ command is not implemented for this platform/compiler." ) ) hbmk[ _HBMK_nErrorLevel ] := _ERRLEV_UNSUPPORTED ENDIF ENDIF NEXT ENDIF IF hbmk[ _HBMK_nErrorLevel ] == _ERRLEV_OK lTargetUpToDate := .F. IF hbmk[ _HBMK_lINC ] .AND. ! hbmk[ _HBMK_lREBUILD ] IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: target %1$s", hbmk[ _HBMK_cPROGNAME ] ) ) ENDIF IF hb_FGetDateTime( hbmk[ _HBMK_cPROGNAME ], @tTarget ) lTargetUpToDate := .T. IF lTargetUpToDate FOR EACH tmp IN ArrayAJoin( { l_aOBJ, hbmk[ _HBMK_aOBJUSER ], l_aOBJA, ListDirExt( ArrayAJoin( { hbmk[ _HBMK_aRESSRC ], hbmk[ _HBMK_aRESCMP ] } ), hbmk[ _HBMK_cWorkDir ], cResExt, .F. ) } ) IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: EXEDEP %1$s", tmp ) ) ENDIF IF ! hb_FGetDateTime( tmp, @tmp1 ) .OR. tmp1 > tTarget lTargetUpToDate := .F. EXIT ENDIF NEXT ENDIF /* We need a way to find and pick libraries according to linker rules. */ IF lTargetUpToDate FOR EACH tmp IN l_aLIBRAW IF ! Empty( tmp2 := FindLib( hbmk, tmp, hbmk[ _HBMK_aLIBPATH ], cLibLibPrefix, cLibLibExt ) ) IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: EXEDEPLIB %1$s", tmp2 ) ) ENDIF IF ! hb_FGetDateTime( tmp2, @tmp1 ) .OR. tmp1 > tTarget lTargetUpToDate := .F. EXIT ENDIF ENDIF NEXT ENDIF ENDIF ENDIF ENDIF IF hbmk[ _HBMK_nErrorLevel ] == _ERRLEV_OK .AND. ( Len( l_aOBJ ) + Len( hbmk[ _HBMK_aOBJUSER ] ) + Len( l_aOBJA ) ) > 0 .AND. ! hbmk[ _HBMK_lCLEAN ] /* Must be called before target creation to avoid errors. */ DoLinkDelete( hbmk ) IF lTargetUpToDate _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Target up to date: %1$s" ), hbmk[ _HBMK_cPROGNAME ] ) ) DO CASE CASE ! lStopAfterCComp .AND. ! Empty( cBin_Link ) l_lIMPLIBToProcess := .T. CASE lStopAfterCComp .AND. hbmk[ _HBMK_lCreateDyn ] .AND. ! Empty( cBin_Dyn ) l_lIMPLIBToProcess := .T. ENDCASE ELSE IF ! hb_DirBuild( hb_FNameDir( hbmk[ _HBMK_cPROGNAME ] ) ) _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Cannot create directory for target '%1$s'." ), hbmk[ _HBMK_cPROGNAME ] ) ) ENDIF IF hbmk[ _HBMK_lREBUILD ] .OR. ; ( ! hbmk[ _HBMK_lINC ] .AND. lStopAfterCComp .AND. hbmk[ _HBMK_lCreateLib ] .AND. ! Empty( cBin_Lib ) ) /* non-incremental + static lib */ IF hb_FileExists( hbmk[ _HBMK_cPROGNAME ] ) .AND. ; FErase( hbmk[ _HBMK_cPROGNAME ] ) == F_ERROR _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Cannot delete existing target '%1$s'." ), hbmk[ _HBMK_cPROGNAME ] ) ) ENDIF ENDIF DO CASE CASE ! lStopAfterCComp .AND. ! Empty( cBin_Link ) PlugIn_Execute_All( hbmk, "pre_link" ) IF ( hbmk[ _HBMK_lINC ] .AND. ! hbmk[ _HBMK_lQuiet ] ) .OR. hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Linking... %1$s" ), hbmk[ _HBMK_cPROGNAME ] ) ) ENDIF /* Linking */ nOpt_Esc := iif( "{SCRIPT}" $ cOpt_Link, hbmk[ _HBMK_nScr_Esc ], hbmk[ _HBMK_nCmd_Esc ] ) nOpt_FNF := iif( "{SCRIPT}" $ cOpt_Link, hbmk[ _HBMK_nScr_FNF ], hbmk[ _HBMK_nCmd_FNF ] ) /* Order is significant */ cOpt_Link := StrTran( cOpt_Link, "{FL}" , iif( hbmk[ _HBMK_lBLDFLGL ], hb_Version( HB_VERSION_FLAG_LINKER ) + " ", "" ) +; GetEnv( "HB_USER_LDFLAGS" ) +; iif( ! Empty( hbmk[ _HBMK_aOPTL ] ), " " + ArrayToList( hbmk[ _HBMK_aOPTL ] ), "" ) ) cOpt_Link := StrTran( cOpt_Link, "{LO}" , ArrayToList( ArrayJoin( l_aOBJ, hbmk[ _HBMK_aOBJUSER ] ),, nOpt_Esc, nOpt_FNF, cObjPrefix ) ) cOpt_Link := StrTran( cOpt_Link, "{LS}" , ArrayToList( ArrayJoin( ListDirExt( hbmk[ _HBMK_aRESSRC ], hbmk[ _HBMK_cWorkDir ], cResExt ), hbmk[ _HBMK_aRESCMP ] ),, nOpt_Esc, nOpt_FNF, cResPrefix ) ) cOpt_Link := StrTran( cOpt_Link, "{LA}" , ArrayToList( l_aOBJA,, nOpt_Esc, nOpt_FNF ) ) cOpt_Link := StrTran( cOpt_Link, "{LL}" , ArrayToList( l_aLIB,, nOpt_Esc, nOpt_FNF, cLibPrefix ) ) cOpt_Link := StrTran( cOpt_Link, "{LB}" , ArrayToList( l_aLIBA,, nOpt_Esc, nOpt_FNF ) ) cOpt_Link := StrTran( cOpt_Link, "{LF}" , iif( ! Empty( hbmk[ _HBMK_aOPTLPOST ] ), " " + ArrayToList( hbmk[ _HBMK_aOPTLPOST ] ), "" ) ) cOpt_Link := StrTran( cOpt_Link, "{IM}" , ArrayToList( hbmk[ _HBMK_aDEF ],, nOpt_Esc, nOpt_FNF, cDefPrefix ) ) cOpt_Link := StrTran( cOpt_Link, "{OE}" , FNameEscape( hbmk[ _HBMK_cPROGNAME ], nOpt_Esc, nOpt_FNF ) ) cOpt_Link := StrTran( cOpt_Link, "{OM}" , FNameEscape( hb_FNameExtSet( hbmk[ _HBMK_cPROGNAME ], ".map" ), nOpt_Esc, nOpt_FNF ) ) cOpt_Link := StrTran( cOpt_Link, "{OI}" , FNameEscape( l_cIMPLIBNAME, nOpt_Esc, nOpt_FNF ) ) cOpt_Link := StrTran( cOpt_Link, "{DL}" , ArrayToList( hbmk[ _HBMK_aLIBPATH ], cLibPathSep, nOpt_Esc, nOpt_FNF, cLibPathPrefix ) ) cOpt_Link := StrTran( cOpt_Link, "{DB}" , hbmk[ _HBMK_cHB_INSTALL_BIN ] ) cOpt_Link := AllTrim( cOpt_Link ) /* Handle moving the whole command line to a script, if requested. */ cScriptFile := NIL IF "{SCRIPT}" $ cOpt_Link fhnd := hb_FTempCreateEx( @cScriptFile, NIL, NIL, ".lnk" ) IF fhnd != F_ERROR FWrite( fhnd, StrTran( cOpt_Link, "{SCRIPT}" ) ) FClose( fhnd ) cOpt_Link := "@" + cScriptFile ELSE _hbmk_OutErr( hbmk, I_( "Warning: Link script could not be created, continuing in command line." ) ) ENDIF ENDIF cCommand := cBin_Link + " " + cOpt_Link IF hbmk[ _HBMK_lTRACE ] IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "Linker command:" ) ) ENDIF OutStd( cCommand + _OUT_EOL ) IF ! Empty( cScriptFile ) _hbmk_OutStd( hbmk, I_( "Linker script:" ) ) OutStd( hb_MemoRead( cScriptFile ) + _OUT_EOL ) ENDIF ENDIF IF ! hbmk[ _HBMK_lDONTEXEC ] .AND. ( tmp := hb_processRun( cCommand ) ) != 0 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Running linker. %1$d" ), tmp ) ) IF ! hbmk[ _HBMK_lQuiet ] OutErr( cCommand + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lIGNOREERROR ] hbmk[ _HBMK_nErrorLevel ] := _ERRLEV_RUNLINKER ENDIF ENDIF IF ! Empty( cScriptFile ) FErase( cScriptFile ) ENDIF IF hbmk[ _HBMK_nErrorLevel ] == _ERRLEV_OK l_lIMPLIBToProcess := .T. ENDIF IF hbmk[ _HBMK_nErrorLevel ] == _ERRLEV_OK .AND. hbmk[ _HBMK_lGUI ] .AND. hbmk[ _HBMK_cPLAT ] == "darwin" /* Build app bundle for OS X GUI apps. (experimental) */ tmp := hb_FNameDir( hbmk[ _HBMK_cPROGNAME ] ) IF ! Empty( tmp ) tmp += hb_ps() ENDIF tmp += hb_FNameName( hbmk[ _HBMK_cPROGNAME ] ) + ".app" + hb_ps() + "Contents" IF hb_DirBuild( tmp + hb_ps() + "MacOS" ) hb_FCopy( hbmk[ _HBMK_cPROGNAME ], tmp + hb_ps() + "MacOS" + hb_ps() + hb_FNameName( hbmk[ _HBMK_cPROGNAME ] ) ) IF ! hb_FileExists( tmp + hb_ps() + "Info.plist" ) hb_MemoWrit( tmp + hb_ps() + "Info.plist", MacOSXFiles( hbmk, 1, hb_FNameName( hbmk[ _HBMK_cPROGNAME ] ) ) ) ENDIF IF ! hb_FileExists( tmp + hb_ps() + "PkgInfo" ) hb_MemoWrit( tmp + hb_ps() + "PkgInfo", MacOSXFiles( hbmk, 2, hb_FNameName( hbmk[ _HBMK_cPROGNAME ] ) ) ) ENDIF IF ! Empty( hbmk[ _HBMK_aICON ] ) IF hb_DirBuild( tmp + hb_ps() + "Resources" ) FOR EACH tmp1 IN hbmk[ _HBMK_aICON ] hb_FCopy( tmp1, tmp + hb_ps() + "Resources" + hb_ps() + hb_FNameNameExt( tmp1 ) ) NEXT ENDIF ENDIF ENDIF ENDIF CASE lStopAfterCComp .AND. hbmk[ _HBMK_lCreateDyn ] .AND. ! Empty( cBin_Dyn ) PlugIn_Execute_All( hbmk, "pre_link" ) IF ( hbmk[ _HBMK_lINC ] .AND. ! hbmk[ _HBMK_lQuiet ] ) .OR. hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Creating dynamic library... %1$s" ), hbmk[ _HBMK_cPROGNAME ] ) ) ENDIF /* Lib creation (dynamic) */ nOpt_Esc := iif( "{SCRIPT}" $ cOpt_Dyn, hbmk[ _HBMK_nScr_Esc ], hbmk[ _HBMK_nCmd_Esc ] ) nOpt_FNF := iif( "{SCRIPT}" $ cOpt_Dyn, hbmk[ _HBMK_nScr_FNF ], hbmk[ _HBMK_nCmd_FNF ] ) aOBJLIST := ArrayJoin( l_aOBJ, hbmk[ _HBMK_aOBJUSER ] ) tmp := ArrayToList( aOBJLIST,, nOpt_Esc, nOpt_FNF, cDynObjPrefix ) IF "{SCRIPT_MINGW}" $ cOpt_Dyn fhnd := hb_FTempCreateEx( @cScriptFile, NIL, NIL, ".lnk" ) IF fhnd != F_ERROR FWrite( fhnd, ArrayToList( aOBJLIST, hb_eol(), nOpt_Esc, nOpt_FNF, "INPUT(" + iif( cDynObjPrefix == NIL, "", cDynObjPrefix ), ")" ) ) FClose( fhnd ) cOpt_Dyn := StrTran( cOpt_Dyn, "{SCRIPT_MINGW}" ) tmp := FNameEscape( cScriptFile, nOpt_Esc, nOpt_FNF ) ELSE _hbmk_OutErr( hbmk, I_( "Warning: Dynamic lib link script could not be created, continuing in command line." ) ) ENDIF ENDIF /* Order is significant */ cOpt_Dyn := StrTran( cOpt_Dyn, "{FD}" , GetEnv( "HB_USER_DFLAGS" ) + " " + ArrayToList( hbmk[ _HBMK_aOPTD ] ) ) cOpt_Dyn := StrTran( cOpt_Dyn, "{LO}" , tmp ) cOpt_Dyn := StrTran( cOpt_Dyn, "{LS}" , ArrayToList( ArrayJoin( ListDirExt( hbmk[ _HBMK_aRESSRC ], hbmk[ _HBMK_cWorkDir ], cResExt ), hbmk[ _HBMK_aRESCMP ] ),, nOpt_Esc, nOpt_FNF, cResPrefix ) ) cOpt_Dyn := StrTran( cOpt_Dyn, "{LL}" , ArrayToList( l_aLIB,, nOpt_Esc, nOpt_FNF, cLibPrefix ) ) cOpt_Dyn := StrTran( cOpt_Dyn, "{LB}" , ArrayToList( l_aLIBA,, nOpt_Esc, nOpt_FNF ) ) cOpt_Dyn := StrTran( cOpt_Dyn, "{LF}" , iif( ! Empty( hbmk[ _HBMK_aOPTDPOST ] ), " " + ArrayToList( hbmk[ _HBMK_aOPTDPOST ] ), "" ) ) cOpt_Dyn := StrTran( cOpt_Dyn, "{IM}" , ArrayToList( hbmk[ _HBMK_aDEF ],, nOpt_Esc, nOpt_FNF, cDefPrefix ) ) cOpt_Dyn := StrTran( cOpt_Dyn, "{OD}" , FNameEscape( hbmk[ _HBMK_cPROGNAME ], nOpt_Esc, nOpt_FNF ) ) cOpt_Dyn := StrTran( cOpt_Dyn, "{OM}" , FNameEscape( hb_FNameExtSet( hbmk[ _HBMK_cPROGNAME ], ".map" ), nOpt_Esc, nOpt_FNF ) ) cOpt_Dyn := StrTran( cOpt_Dyn, "{OI}" , FNameEscape( l_cIMPLIBNAME, nOpt_Esc, nOpt_FNF ) ) cOpt_Dyn := StrTran( cOpt_Dyn, "{DL}" , ArrayToList( hbmk[ _HBMK_aLIBPATH ], cLibPathSep, nOpt_Esc, nOpt_FNF, cLibPathPrefix ) ) cOpt_Dyn := StrTran( cOpt_Dyn, "{DB}" , hbmk[ _HBMK_cHB_INSTALL_BIN ] ) cOpt_Dyn := AllTrim( cOpt_Dyn ) /* Handle moving the whole command line to a script, if requested. */ cScriptFile := NIL IF "{SCRIPT}" $ cOpt_Dyn fhnd := hb_FTempCreateEx( @cScriptFile, NIL, NIL, ".lnk" ) IF fhnd != F_ERROR FWrite( fhnd, StrTran( cOpt_Dyn, "{SCRIPT}" ) ) FClose( fhnd ) cOpt_Dyn := "@" + cScriptFile ELSE _hbmk_OutErr( hbmk, I_( "Warning: Dynamic lib link script could not be created, continuing in command line." ) ) ENDIF ENDIF cCommand := cBin_Dyn + " " + cOpt_Dyn IF hbmk[ _HBMK_lTRACE ] IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "Dynamic lib link command:" ) ) ENDIF OutStd( cCommand + _OUT_EOL ) IF ! Empty( cScriptFile ) _hbmk_OutStd( hbmk, I_( "Dynamic lib link script:" ) ) OutStd( hb_MemoRead( cScriptFile ) + _OUT_EOL ) ENDIF ENDIF IF ! hbmk[ _HBMK_lDONTEXEC ] .AND. ( tmp := hb_processRun( cCommand ) ) != 0 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Running dynamic lib link command. %1$d" ), tmp ) ) IF ! hbmk[ _HBMK_lQuiet ] OutErr( cCommand + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lIGNOREERROR ] hbmk[ _HBMK_nErrorLevel ] := _ERRLEV_RUNLINKER ENDIF ENDIF IF ! Empty( cScriptFile ) FErase( cScriptFile ) ENDIF IF hbmk[ _HBMK_nErrorLevel ] == _ERRLEV_OK l_lIMPLIBToProcess := .T. ENDIF CASE lStopAfterCComp .AND. hbmk[ _HBMK_lCreateLib ] .AND. ! Empty( cBin_Lib ) PlugIn_Execute_All( hbmk, "pre_lib" ) IF ( hbmk[ _HBMK_lINC ] .AND. ! hbmk[ _HBMK_lQuiet ] ) .OR. hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Creating static library... %1$s" ), hbmk[ _HBMK_cPROGNAME ] ) ) ENDIF /* Lib creation (static) */ nOpt_Esc := iif( "{SCRIPT}" $ cOpt_Lib, hbmk[ _HBMK_nScr_Esc ], hbmk[ _HBMK_nCmd_Esc ] ) nOpt_FNF := iif( "{SCRIPT}" $ cOpt_Lib, hbmk[ _HBMK_nScr_FNF ], hbmk[ _HBMK_nCmd_FNF ] ) /* Order is significant */ cOpt_Lib := StrTran( cOpt_Lib, "{FA}" , GetEnv( "HB_USER_AFLAGS" ) + " " + ArrayToList( hbmk[ _HBMK_aOPTA ] ) ) cOpt_Lib := StrTran( cOpt_Lib, "{LO}" , ArrayToList( ArrayJoin( l_aOBJ, hbmk[ _HBMK_aOBJUSER ] ),, nOpt_Esc, nOpt_FNF, cLibObjPrefix ) ) cOpt_Lib := StrTran( cOpt_Lib, "{LL}" , ArrayToList( l_aLIB,, nOpt_Esc, nOpt_FNF, cLibPrefix ) ) cOpt_Lib := StrTran( cOpt_Lib, "{LB}" , ArrayToList( l_aLIBA,, nOpt_Esc, nOpt_FNF ) ) cOpt_Lib := StrTran( cOpt_Lib, "{OL}" , FNameEscape( hbmk[ _HBMK_cPROGNAME ], nOpt_Esc, nOpt_FNF ) ) cOpt_Lib := StrTran( cOpt_Lib, "{DL}" , ArrayToList( hbmk[ _HBMK_aLIBPATH ], cLibPathSep, nOpt_Esc, nOpt_FNF, cLibPathPrefix ) ) cOpt_Lib := StrTran( cOpt_Lib, "{DB}" , hbmk[ _HBMK_cHB_INSTALL_BIN ] ) cOpt_Lib := AllTrim( cOpt_Lib ) /* Handle moving the whole command line to a script, if requested. */ cScriptFile := NIL IF "{SCRIPT}" $ cOpt_Lib fhnd := hb_FTempCreateEx( @cScriptFile, NIL, NIL, ".lnk" ) IF fhnd != F_ERROR FWrite( fhnd, StrTran( cOpt_Lib, "{SCRIPT}" ) ) FClose( fhnd ) cOpt_Lib := "@" + cScriptFile ELSE _hbmk_OutErr( hbmk, I_( "Warning: Lib script could not be created, continuing in command line." ) ) ENDIF ENDIF cCommand := cBin_Lib + " " + cOpt_Lib IF hbmk[ _HBMK_lTRACE ] IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "Lib command:" ) ) ENDIF OutStd( cCommand + _OUT_EOL ) IF ! Empty( cScriptFile ) _hbmk_OutStd( hbmk, I_( "Lib script:" ) ) OutStd( hb_MemoRead( cScriptFile ) + _OUT_EOL ) ENDIF ENDIF IF ! hbmk[ _HBMK_lDONTEXEC ] .AND. ( tmp := hb_processRun( cCommand ) ) != 0 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Running lib command. %1$d" ), tmp ) ) IF ! hbmk[ _HBMK_lQuiet ] OutErr( cCommand + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lIGNOREERROR ] hbmk[ _HBMK_nErrorLevel ] := _ERRLEV_RUNLIB ENDIF ENDIF IF ! Empty( cScriptFile ) FErase( cScriptFile ) ENDIF ENDCASE ENDIF IF lTargetUpToDate .OR. hbmk[ _HBMK_nErrorLevel ] == _ERRLEV_OK IF ! Empty( hbmk[ _HBMK_cHBX ] ) mk_extern( hbmk, hbmk[ _HBMK_cPROGNAME ], cBin_LibHBX, cOpt_LibHBX, cLibHBX_Regex, hbmk[ _HBMK_cHBX ] ) ENDIF DoLink( hbmk ) IF ! lTargetUpToDate .OR. hbmk[ _HBMK_lInstForce ] FOR EACH tmp IN hbmk[ _HBMK_aLINK ] hb_AIns( hbmk[ _HBMK_aINSTFILE ], 1, { "", tmp }, .T. ) NEXT ENDIF ENDIF IF ! lTargetUpToDate .OR. hbmk[ _HBMK_lInstForce ] /* For win/bcc and os2/gcc the implib is not created at this point yet, so there will be a copy failure in case the implib generation fails at the post-processing phase. */ IF hbmk[ _HBMK_lIMPLIB ] .AND. HBMK_ISPLAT( "win|os2|dos" ) .AND. ; l_lIMPLIBToProcess hb_AIns( hbmk[ _HBMK_aINSTFILE ], 1, { "implib", l_cIMPLIBNAME }, .T. ) ENDIF hb_AIns( hbmk[ _HBMK_aINSTFILE ], 1, { "", hbmk[ _HBMK_cPROGNAME ] }, .T. ) ENDIF ENDIF ENDIF /* Cleanup */ IF ( ! lSkipBuild .AND. ! hbmk[ _HBMK_lStopAfterInit ] .AND. ! hbmk[ _HBMK_lStopAfterHarbour ] ) .OR. ; ( hbmk[ _HBMK_lCreateHRB ] .AND. hbmk[ _HBMK_lStopAfterHarbour ] ) .OR. ; ( hbmk[ _HBMK_lCreatePPO ] .AND. hbmk[ _HBMK_lStopAfterHarbour ] ) PlugIn_Execute_All( hbmk, "pre_cleanup" ) IF hbmk[ _HBMK_lCLEAN ] FErase( hbmk[ _HBMK_cPROGNAME ] ) IF hbmk[ _HBMK_lIMPLIB ] .AND. HBMK_ISPLAT( "win|os2|dos" ) .AND. l_cIMPLIBNAME != NIL FErase( l_cIMPLIBNAME ) ENDIF IF hbmk[ _HBMK_lMAP ] FErase( hb_FNameExtSet( hbmk[ _HBMK_cPROGNAME ], ".map" ) ) ENDIF IF lStopAfterCComp .AND. hbmk[ _HBMK_lCreateLib ] /* bcc is known to create it for static libs */ FErase( hb_FNameExtSet( hbmk[ _HBMK_cPROGNAME ], ".bak" ) ) ENDIF DoLinkDelete( hbmk ) ENDIF IF ! Empty( l_cCSTUB ) FErase( l_cCSTUB ) FErase( FNameDirExtSet( l_cCSTUB, hbmk[ _HBMK_cWorkDir ], cObjExt ) ) ENDIF IF ! Empty( l_cCPPSTUB ) FErase( l_cCPPSTUB ) FErase( FNameDirExtSet( l_cCPPSTUB, hbmk[ _HBMK_cWorkDir ], cObjExt ) ) ENDIF IF ! Empty( l_cRESSTUB ) FErase( l_cRESSTUB ) FErase( FNameDirExtSet( l_cRESSTUB, hbmk[ _HBMK_cWorkDir ], cResExt ) ) ENDIF IF ! hbmk[ _HBMK_lINC ] .OR. hbmk[ _HBMK_lCLEAN ] AEval( ListDirExt( hbmk[ _HBMK_aPRG ], hbmk[ _HBMK_cWorkDir ], ".c", .T. ), {| tmp | FErase( tmp ) } ) ENDIF IF hbmk[ _HBMK_lCLEAN ] IF hbmk[ _HBMK_lINC ] AEval( ListDirExt( hbmk[ _HBMK_aPRG ], hbmk[ _HBMK_cWorkDir ], ".ppo", .T. ), {| tmp | FErase( tmp ) } ) AEval( ListDirExt( hbmk[ _HBMK_aPRG ], hbmk[ _HBMK_cWorkDir ], ".ppt", .T. ), {| tmp | FErase( tmp ) } ) AEval( ListDirExt( hbmk[ _HBMK_aPRG ], hbmk[ _HBMK_cWorkDir ], ".pot", .T. ), {| tmp | FErase( tmp ) } ) AEval( ListDirExt( hbmk[ _HBMK_aPRG ], hbmk[ _HBMK_cWorkDir ], ".d", .T. ), {| tmp | FErase( tmp ) } ) ENDIF IF hbmk[ _HBMK_lCreateHRB ] .AND. hbmk[ _HBMK_lStopAfterHarbour ] AEval( ListDirExt( hbmk[ _HBMK_aPRG ], hbmk[ _HBMK_cWorkDir ], ".hrb", .T. ), {| tmp | FErase( tmp ) } ) ENDIF ENDIF IF ! lStopAfterCComp .OR. hbmk[ _HBMK_lCreateLib ] .OR. hbmk[ _HBMK_lCreateDyn ] IF ! hbmk[ _HBMK_lINC ] .OR. hbmk[ _HBMK_lCLEAN ] IF ! Empty( cResExt ) AEval( ListDirExt( hbmk[ _HBMK_aRESSRC ], hbmk[ _HBMK_cWorkDir ], cResExt ), {| tmp | FErase( tmp ) } ) ENDIF IF ! Empty( l_aOBJ ) AEval( l_aOBJ, {| tmp | FErase( tmp ) } ) ENDIF ENDIF ENDIF IF ! Empty( l_aCLEAN ) AEval( l_aCLEAN, {| tmp | FErase( tmp ) } ) ENDIF IF lDeleteWorkDir hb_DirDelete( hbmk[ _HBMK_cWorkDir ] ) ENDIF IF hbmk[ _HBMK_lCLEAN ] hb_DirUnbuild( hbmk[ _HBMK_cWorkDir ] ) ENDIF ENDIF IF ! lSkipBuild .AND. ! hbmk[ _HBMK_lStopAfterInit ] .AND. ! hbmk[ _HBMK_lStopAfterHarbour ] IF hbmk[ _HBMK_nErrorLevel ] == _ERRLEV_OK .AND. ! hbmk[ _HBMK_lCLEAN ] .AND. ! lTargetUpToDate .AND. ; ( ! lStopAfterCComp .OR. hbmk[ _HBMK_lCreateLib ] .OR. hbmk[ _HBMK_lCreateDyn ] ) IF ! Empty( cBin_Post ) cOpt_Post := StrTran( cOpt_Post, "{OB}", FNameEscape( hbmk[ _HBMK_cPROGNAME ], hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ) ) IF l_cIMPLIBNAME != NIL cOpt_Post := StrTran( cOpt_Post, "{OI}", FNameEscape( l_cIMPLIBNAME, hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ) ) ENDIF cOpt_Post := AllTrim( cOpt_Post ) cCommand := cBin_Post + " " + cOpt_Post IF hbmk[ _HBMK_lTRACE ] IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "Post processor command:" ) ) ENDIF OutStd( cCommand + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lDONTEXEC ] .AND. ( tmp := hb_processRun( cCommand ) ) != 0 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Running post processor command. %1$d:" ), tmp ) ) IF ! hbmk[ _HBMK_lQuiet ] OutErr( cCommand + _OUT_EOL ) ENDIF ENDIF ENDIF /* Setup compressor for host platform */ #if defined( __PLATFORM__WINDOWS ) .OR. ; defined( __PLATFORM__DOS ) cBin_Cprs := "upx.exe" cOpt_Cprs := "{OB}" cOpt_CprsMin := "-1" cOpt_CprsMax := "-9" IF hbmk[ _HBMK_cPLAT ] == "linux" /* To avoid error below when creating Linux targets on non-Linux hosts using watcom: upx: t.: CantPackException: invalid Phdr p_offset; try '--force-execve' [vszakats] */ cOpt_Cprs += " --force-execve" ENDIF #elif defined( __PLATFORM__UNIX ) cBin_Cprs := "upx" cOpt_Cprs := "{OB}" cOpt_CprsMin := "-1" cOpt_CprsMax := "-9" #else cBin_Cprs := NIL cOpt_Cprs := "" cOpt_CprsMin := "" cOpt_CprsMax := "" #endif IF hbmk[ _HBMK_nCOMPR ] != _COMPR_OFF .AND. ! hbmk[ _HBMK_lCreateLib ] .AND. ! Empty( cBin_Cprs ) /* Executable compression */ #if defined( __PLATFORM__WINDOWS ) .OR. ; defined( __PLATFORM__DOS ) /* Use embedded version if present, otherwise it should be in PATH. */ IF hb_FileExists( hb_DirSepAdd( hb_DirBase() ) + cBin_Cprs ) cBin_Cprs := hb_DirSepAdd( hb_DirBase() ) + cBin_Cprs ENDIF #endif DO CASE CASE hbmk[ _HBMK_nCOMPR ] == _COMPR_MIN ; cOpt_Cprs += " " + cOpt_CprsMin CASE hbmk[ _HBMK_nCOMPR ] == _COMPR_MAX ; cOpt_Cprs += " " + cOpt_CprsMax ENDCASE cOpt_Cprs := StrTran( cOpt_Cprs, "{OB}", FNameEscape( hbmk[ _HBMK_cPROGNAME ], nOpt_Esc, nOpt_FNF ) ) cOpt_Cprs := AllTrim( cOpt_Cprs ) cCommand := cBin_Cprs + " " + cOpt_Cprs IF hbmk[ _HBMK_lTRACE ] IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "Compression command:" ) ) ENDIF OutStd( cCommand + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lDONTEXEC ] .AND. ( tmp := hb_processRun( cCommand ) ) != 0 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Running compression command. %1$d:" ), tmp ) ) IF ! hbmk[ _HBMK_lQuiet ] OutErr( cCommand + _OUT_EOL ) ENDIF ENDIF ENDIF /* Setup code signing for host platform */ IF HBMK_ISPLAT( "win|wce" ) /* Requires MS Windows SDK */ cBin_Sign := "signtool.exe" cOpt_Sign := "sign -f {ID} -p {PW} -t http://timestamp.verisign.com/scripts/timstamp.dll {OB}" ENDIF #if defined( __PLATFORM__DARWIN ) IF HBMK_ISPLAT( "darwin" ) cBin_Sign := "codesign" cOpt_Sign := "-s {ID} -f {OB}" ENDIF #endif IF ! Empty( cOpt_SignID ) .AND. ! hbmk[ _HBMK_lCreateLib ] .AND. ! Empty( cBin_Sign ) /* Code signing */ cOpt_Sign := StrTran( cOpt_Sign, "{ID}", cOpt_SignID ) cOpt_Sign := StrTran( cOpt_Sign, "{OB}", FNameEscape( hbmk[ _HBMK_cPROGNAME ], nOpt_Esc, nOpt_FNF ) ) cOpt_Sign := AllTrim( cOpt_Sign ) cCommand := cBin_Sign + " " + AllTrim( StrTran( cOpt_Sign, "{PW}", cOpt_SignPass ) ) tmp1 := cBin_Sign + " " + AllTrim( StrTran( cOpt_Sign, "{PW}", iif( Empty( cOpt_SignPass ), "", "***" ) ) ) IF hbmk[ _HBMK_lTRACE ] IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "Code sign command:" ) ) ENDIF OutStd( tmp1 + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lDONTEXEC ] .AND. ( tmp := hb_processRun( cCommand ) ) != 0 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Running code sign command. %1$d:" ), tmp ) ) IF ! hbmk[ _HBMK_lQuiet ] OutStd( tmp1 + _OUT_EOL ) ENDIF ENDIF ENDIF ENDIF IF hbmk[ _HBMK_nErrorLevel ] == _ERRLEV_OK .AND. ! hbmk[ _HBMK_lCLEAN ] .AND. ; ( ! lStopAfterCComp .OR. hbmk[ _HBMK_lCreateLib ] .OR. hbmk[ _HBMK_lCreateDyn ] ) DoInstCopy( hbmk ) ENDIF PlugIn_Execute_All( hbmk, "post_build" ) ENDIF PlugIn_Execute_All( hbmk, "post_all" ) IF hbmk[ _HBMK_lDEBUGTIME ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Running time: %1$ds" ), Round( ( hb_milliSeconds() - nStart ) / 1000, 1 ) ) ) ENDIF IF ! lSkipBuild .AND. hbmk[ _HBMK_lBEEP ] DoBeep( hbmk[ _HBMK_nErrorLevel ] == _ERRLEV_OK ) ENDIF IF ! hbmk[ _HBMK_lStopAfterHarbour ] .AND. ! lStopAfterCComp .AND. ; ! hbmk[ _HBMK_lCreateLib ] .AND. ! hbmk[ _HBMK_lCreateDyn ] .AND. ; hbmk[ _HBMK_nErrorLevel ] == _ERRLEV_OK .AND. ! hbmk[ _HBMK_lCLEAN ] .AND. hbmk[ _HBMK_lRUN ] cCommand := hbmk[ _HBMK_cPROGNAME ] #if defined( __PLATFORM__UNIX ) IF Empty( hb_FNameDir( hbmk[ _HBMK_cPROGNAME ] ) ) cCommand := "." + hb_ps() + hbmk[ _HBMK_cPROGNAME ] ENDIF #endif #if defined( __PLATFORM__WINDOWS ) IF hbmk[ _HBMK_lGUI ] IF hb_osIsWinNT() cCommand := 'start "" ' + FNameEscape( cCommand, _ESC_DBLQUOTE ) ELSE cCommand := "start " + cCommand ENDIF ENDIF #elif defined( __PLATFORM__OS2 ) IF hbmk[ _HBMK_lGUI ] cCommand := 'start "" ' + FNameEscape( cCommand, _ESC_DBLQUOTE ) ENDIF #elif defined( __PLATFORM__DARWIN ) IF hbmk[ _HBMK_lGUI ] /* TOFIX: Find a way to pass arbitrary options to an .app. */ l_aOPTRUN := {} cCommand := "open " + FNameEscape( cCommand + ".app", _ESC_NIX ) ENDIF #endif cCommand := AllTrim( cCommand + " " + ArrayToList( l_aOPTRUN ) ) IF hbmk[ _HBMK_lTRACE ] IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "Running executable:" ) ) ENDIF OutStd( cCommand + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lDONTEXEC ] hbmk[ _HBMK_nErrorLevel ] := hb_run( cCommand ) ENDIF ENDIF RETURN hbmk[ _HBMK_nErrorLevel ] STATIC PROCEDURE ProcEnvOption( cValue ) LOCAL tmp IF ! Empty( cValue ) IF ( tmp := At( "=", cValue ) ) > 1 hb_SetEnv( Left( cValue, tmp - 1 ), SubStr( cValue, tmp + 1 ) ) ELSEIF ( tmp := At( "+", cValue ) ) > 1 hb_SetEnv( Left( cValue, tmp - 1 ), hb_GetEnv( Left( cValue, tmp - 1 ) ) + SubStr( cValue, tmp + 1 ) ) ELSEIF ( tmp := At( "#", cValue ) ) > 1 hb_SetEnv( Left( cValue, tmp - 1 ), SubStr( cValue, tmp + 1 ) + hb_GetEnv( Left( cValue, tmp - 1 ) ) ) ELSEIF ( tmp := At( "-", cValue ) ) > 1 hb_SetEnv( Left( cValue, tmp - 1 ) ) ELSE hb_SetEnv( cValue, "" ) ENDIF ENDIF RETURN STATIC FUNCTION CheckLibParam( hbmk, cLibName ) cLibName := Lower( cLibName ) IF AScan( hbmk[ _HBMK_aLIB_BASE_WARN ], {| tmp | Lower( tmp ) == cLibName } ) > 0 _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Warning: Ignoring explicitly specified core library: %1$s" ), cLibName ) ) RETURN .F. ENDIF RETURN .T. STATIC PROCEDURE convert_incpaths_to_options( hbmk, cOptIncMask, lCHD_Comp ) LOCAL cBaseDir LOCAL cINCPATH IF lCHD_Comp cBaseDir := hb_DirSepAdd( hb_PathRelativize( hb_PathNormalize( PathMakeAbsolute( hbmk[ _HBMK_cWorkDir ], hb_cwd() ) ), hb_cwd(), .T. ) ) ENDIF FOR EACH cINCPATH IN hbmk[ _HBMK_aINCPATH ] IF ! Empty( cINCPATH ) /* Different escaping for internal and external compiler. */ AAddNew( hbmk[ _HBMK_aOPTPRG ], "-i" + iif( hbmk[ _HBMK_nHBMODE ] == _HBMODE_NATIVE, cINCPATH, FNameEscape( cINCPATH, hbmk[ _HBMK_nCmd_Esc ] ) ) ) IF ! hbmk[ _HBMK_lStopAfterHarbour ] IF lCHD_Comp /* Rebase source dirs relative to the target dir */ AAddNew( hbmk[ _HBMK_aOPTC ], StrTran( cOptIncMask, "{DI}", FNameEscape( hb_PathNormalize( PathMakeAbsolute( cINCPATH, cBaseDir ) ), hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ) ) ) ELSE AAddNew( hbmk[ _HBMK_aOPTC ], StrTran( cOptIncMask, "{DI}", FNameEscape( cINCPATH, hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ) ) ) ENDIF AAddNew( hbmk[ _HBMK_aOPTRES ], StrTran( cOptIncMask, "{DI}", FNameEscape( cINCPATH, hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ) ) ) ENDIF ENDIF NEXT RETURN STATIC FUNCTION hbmk_hb_FileExists( cFileName ) #if defined( __PLATFORM__DOS ) LOCAL cName LOCAL cExt hb_FNameSplit( cFileName,, @cName, @cExt ) IF Len( cName ) > 8 .OR. ; Len( cExt ) > ( 1 + 3 ) /* Return failure instead of loading wrong file or do other unpredictable operation */ RETURN .F. ENDIF #endif RETURN hb_FileExists( cFileName ) /* NOTE: We store -hbdyn objects in different dirs by default as - for Windows platforms - they're always built using different compilation options than normal targets. [vszakats] */ STATIC PROCEDURE Set_lCreateDyn( hbmk, lValue ) hbmk[ _HBMK_lCreateDyn ] := lValue IF hbmk[ _HBMK_lCreateDyn ] hbmk[ _HBMK_cWorkDirDynSub ] := hb_ps() + "hbdyn" ELSE hbmk[ _HBMK_cWorkDirDynSub ] := "" ENDIF RETURN STATIC FUNCTION gcc_opt_lngc_fill( hbmk ) DO CASE CASE HBMK_ISCOMP( "gcc|gccarm|gccomf|mingw|mingw64|mingwarm|djgpp" ) SWITCH hbmk[ _HBMK_cC ] CASE "iso90" ; RETURN "-std=c89" CASE "iso99" ; RETURN "-std=c9x" CASE "iso1x" ; RETURN "-std=c1x" CASE "gnu90" ; RETURN "-std=gnu89" CASE "gnu99" ; RETURN "-std=gnu9x" CASE "gnu1x" ; RETURN "-std=gnu1x" ENDSWITCH CASE HBMK_ISCOMP( "icc|clang" ) SWITCH hbmk[ _HBMK_cC ] CASE "iso90" ; RETURN "-std=c89" CASE "iso99" ; RETURN "-std=c99" CASE "gnu90" ; RETURN "-std=gnu89" CASE "gnu99" ; RETURN "-std=gnu99" ENDSWITCH ENDCASE RETURN "" STATIC FUNCTION gcc_opt_lngcpp_fill( hbmk ) DO CASE CASE HBMK_ISCOMP( "gcc|gccarm|gccomf|mingw|mingw64|mingwarm|djgpp" ) SWITCH hbmk[ _HBMK_cCPP ] CASE "iso98" ; RETURN "-std=c++98" CASE "iso0x" ; RETURN "-std=c++0x" CASE "gnu98" ; RETURN "-std=gnu++98" CASE "gnu0x" ; RETURN "-std=gnu++0x" ENDSWITCH CASE HBMK_ISCOMP( "icc" ) SWITCH hbmk[ _HBMK_cCPP ] CASE "iso98" CASE "gnu98" ; RETURN "-std=gnu++98" CASE "iso0x" ; RETURN "-std=c++0x" ENDSWITCH ENDCASE RETURN "" STATIC PROCEDURE vxworks_env_init( hbmk ) /* Array positions for aTable */ #define _VX_CCPOSTFIX 1 #define _VX_DIAB_CPU 2 #define _VX_CPU 3 #define _VX_LIB_SUBDIR 4 #define _VX_DIAB_ENV "rtp" /* Conversion table between ours and vxworks CPU values required to target that CPU */ LOCAL aTable := {; "x86" => { "pentium", "X86LH" , "_VX_SIMPENTIUM", "simpentium/SIMPENTIUM" },; "arm" => { "arm" , "ARMV7LS", "_VX_ARMARCH7" , "arm/ARMARCH7" },; "mips" => { "mips" , "" , "" , "" },; "ppc" => { "ppc" , "" , "" , "" }} IF hbmk[ _HBMK_cCPU ] $ aTable IF Empty( hbmk[ _HBMK_cCCPOSTFIX ] ) /* Used by gcc, and it's also used for strip even with diab compiler */ hbmk[ _HBMK_cCCPOSTFIX ] := aTable[ hbmk[ _HBMK_cCPU ] ][ _VX_CCPOSTFIX ] ENDIF IF hbmk[ _HBMK_cCOMP ] == "diab" IF ! Empty( aTable[ hbmk[ _HBMK_cCPU ] ][ _VX_DIAB_CPU ] ) AAdd( hbmk[ _HBMK_aOPTC ], "-t" + aTable[ hbmk[ _HBMK_cCPU ] ][ _VX_DIAB_CPU ] + ":" + _VX_DIAB_ENV ) AAdd( hbmk[ _HBMK_aOPTL ], "-t" + aTable[ hbmk[ _HBMK_cCPU ] ][ _VX_DIAB_CPU ] + ":" + _VX_DIAB_ENV ) AAdd( hbmk[ _HBMK_aOPTD ], "-t" + aTable[ hbmk[ _HBMK_cCPU ] ][ _VX_DIAB_CPU ] + ":" + _VX_DIAB_ENV ) ENDIF IF ! Empty( aTable[ hbmk[ _HBMK_cCPU ] ][ _VX_CPU ] ) AAdd( hbmk[ _HBMK_aOPTC ], "-D_VX_CPU=" + aTable[ hbmk[ _HBMK_cCPU ] ][ _VX_CPU ] ) ENDIF ENDIF IF ! Empty( aTable[ hbmk[ _HBMK_cCPU ] ][ _VX_LIB_SUBDIR ] ) IF hbmk[ _HBMK_lCreateDyn ] AAdd( hbmk[ _HBMK_aLIBPATH ], PathSepToSelf( GetEnv( "WIND_BASE" ) + "/target/lib/usr/lib/" + aTable[ hbmk[ _HBMK_cCPU ] ][ _VX_LIB_SUBDIR ] + "/common/PIC" ) ) ELSE AAdd( hbmk[ _HBMK_aLIBPATH ], PathSepToSelf( GetEnv( "WIND_BASE" ) + "/target/lib/usr/lib/" + aTable[ hbmk[ _HBMK_cCPU ] ][ _VX_LIB_SUBDIR ] + "/common" ) ) ENDIF ENDIF ENDIF RETURN STATIC PROCEDURE DoLinkCalc( hbmk ) LOCAL cDir, cName, cExt LOCAL tmp FOR EACH tmp IN hbmk[ _HBMK_aLINK ] cDir := hb_PathRelativize( hb_FNameDir( PathMakeAbsolute( tmp, hb_FNameDir( hbmk[ _HBMK_cPROGNAME ] ) ) ), hb_FNameDir( hbmk[ _HBMK_cPROGNAME ] ), .T. ) /* Cheap hack */ IF cDir == "." + hb_ps() .OR. ; cDir == hb_ps() cDir := "" ENDIF hb_FNameSplit( hbmk[ _HBMK_cPROGNAME ],, @cName, @cExt ) tmp := { /* */ hb_PathNormalize( PathMakeAbsolute( tmp, hb_FNameDir( hbmk[ _HBMK_cPROGNAME ] ) ) ),; /* */ hb_FNameMerge( cDir, cName, cExt ) } NEXT RETURN STATIC FUNCTION DoLinkDelete( hbmk ) LOCAL tmp FOR EACH tmp IN hbmk[ _HBMK_aLINK ] FErase( tmp[ 1 ] ) NEXT RETURN .T. STATIC FUNCTION DoLink( hbmk ) LOCAL tmp FOR EACH tmp IN hbmk[ _HBMK_aLINK ] IF hb_FLinkSym( tmp[ 2 ], tmp[ 1 ] ) == F_ERROR _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Failed creating symbolic link %1$s to %2$s" ), tmp[ 1 ], tmp[ 2 ] ) ) ELSE _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Created symbolic link %1$s to %2$s" ), tmp[ 1 ], tmp[ 2 ] ) ) ENDIF NEXT RETURN .T. STATIC FUNCTION DoIMPLIB( hbmk, bBlk_ImpLib, cLibLibPrefix, cLibLibExt, aIMPLIBSRC, cPROGNAME, cInstCat, lDoSrc ) LOCAL cMakeImpLibDLL LOCAL tmp, tmp1 LOCAL nNotFound LOCAL aToDelete LOCAL lRetVal := .F. IF HB_ISBLOCK( bBlk_ImpLib ) IF ! Empty( aIMPLIBSRC ) hb_default( @lDoSrc, .F. ) aToDelete := {} nNotFound := 0 FOR EACH cMakeImpLibDLL IN aIMPLIBSRC cMakeImpLibDLL := hb_FNameExtSetDef( cMakeImpLibDLL, ".dll" ) IF lDoSrc IF hb_FileExists( cMakeImpLibDLL ) /* Keep a list of found dynamic library sources, allowing this list to be used to install those dynamic libs */ AAddNewINST( hbmk[ _HBMK_aINSTFILE ], { "depimplibsrc", cMakeImpLibDLL }, .T. ) ENDIF ELSE tmp1 := cPROGNAME hb_default( @tmp1, hb_FNameName( cMakeImpLibDLL ) ) tmp := FN_CookLib( hb_FNameMerge( hbmk[ _HBMK_cPROGDIR ], tmp1 ), cLibLibPrefix, cLibLibExt ) IF hbmk[ _HBMK_lCLEAN ] AAddNew( aToDelete, tmp ) ELSE SWITCH Eval( bBlk_ImpLib, cMakeImpLibDLL, tmp, ArrayToList( hbmk[ _HBMK_aOPTI ] ) ) CASE _HBMK_IMPLIB_OK _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Created import library: %1$s <= %2$s" ), tmp, cMakeImpLibDLL ) ) AAddNewINST( hbmk[ _HBMK_aINSTFILE ], { cInstCat, tmp }, .T. ) EXIT CASE _HBMK_IMPLIB_FAILED _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Failed creating import library %1$s from %2$s." ), tmp, cMakeImpLibDLL ) ) EXIT CASE _HBMK_IMPLIB_NOTFOUND ++nNotFound EXIT ENDSWITCH ENDIF ENDIF NEXT IF ! lDoSrc IF nNotFound == Len( aIMPLIBSRC ) _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: No import library sources were found." ) ) ) ELSE IF hbmk[ _HBMK_lCLEAN ] AEval( aToDelete, {| tmp | FErase( tmp ) } ) ELSE lRetVal := .T. ENDIF ENDIF ENDIF ELSE IF hbmk[ _HBMK_lInfo ] _hbmk_OutErr( hbmk, I_( "Warning: No import library source was specified" ) ) ENDIF ENDIF ELSE _hbmk_OutErr( hbmk, I_( "Error: Creating import libraries is not supported for this platform or compiler." ) ) ENDIF RETURN lRetVal #define _INST_cGroup 1 #define _INST_cData 2 STATIC PROCEDURE DoInstCopy( hbmk ) LOCAL aInstPath LOCAL aInstFile LOCAL cInstPath LOCAL cInstFile LOCAL cDestFileName LOCAL nCopied LOCAL tSrc, tDst LOCAL cLink IF ! Empty( hbmk[ _HBMK_aINSTPATH ] ) FOR EACH aInstPath IN hbmk[ _HBMK_aINSTPATH ] cInstPath := aInstPath[ _INST_cData ] nCopied := 0 /* files copied */ FOR EACH aInstFile IN hbmk[ _HBMK_aINSTFILE ] IF HB_ISARRAY( aInstFile[ _INST_cData ] ) cInstFile := aInstFile[ _INST_cData ][ 1 ] cLink := aInstFile[ _INST_cData ][ 2 ] ELSE cInstFile := aInstFile[ _INST_cData ] cLink := NIL ENDIF IF aInstPath[ _INST_cGroup ] == aInstFile[ _INST_cGroup ] IF Empty( hb_FNameNameExt( cInstPath ) ) cDestFileName := hb_DirSepAdd( cInstPath ) + hb_FNameNameExt( cInstFile ) ELSE /* If destination is a full name, don't copy the extra files, only the first one. (for the empty group name, this will be the build target) */ IF nCopied > 0 IF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Warning: Install path not a directory (%1$s). Extra install files not copied." ), cInstPath ) ) ENDIF EXIT ELSE cDestFileName := cInstPath ENDIF ENDIF IF ! hbmk[ _HBMK_lINC ] .OR. ; ! hb_FGetDateTime( cDestFileName, @tDst ) .OR. ; ! hb_FGetDateTime( cInstFile, @tSrc ) .OR. ; tSrc > tDst IF hb_DirBuild( hb_FNameDir( cDestFileName ) ) ++nCopied IF cLink != NIL FErase( cDestFileName ) IF hb_FLinkSym( cLink, cDestFileName ) == F_ERROR _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Copying symbolic link %1$s to %2$s failed with %3$d." ), cInstFile, cDestFileName, FError() ) ) ELSEIF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Copied symbolic link %1$s to %2$s" ), cInstFile, cDestFileName ) ) ENDIF ELSE IF hb_FCopy( cInstFile, cDestFileName ) == F_ERROR _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Copying %1$s to %2$s failed with %3$d." ), cInstFile, cDestFileName, FError() ) ) ELSEIF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Copied %1$s to %2$s" ), cInstFile, cDestFileName ) ) ENDIF ENDIF ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Cannot create install directory for install target %1$s." ), cDestFileName ) ) ENDIF ENDIF ENDIF NEXT NEXT ENDIF RETURN STATIC PROCEDURE DoBeep( lSuccess ) LOCAL nRepeat := iif( lSuccess, 1, 2 ) LOCAL tmp IF hb_gtInfo( HB_GTI_ISGRAPHIC ) FOR tmp := 1 TO nRepeat Tone( 800, 3.5 ) NEXT ELSE OutStd( Replicate( Chr( 7 ), nRepeat ) ) ENDIF RETURN STATIC FUNCTION hbmk_UTF8_BOM() RETURN hb_BChar( 0xEF ) +; hb_BChar( 0xBB ) +; hb_BChar( 0xBF ) STATIC FUNCTION hbmk_MemoRead( cFileName ) LOCAL cFile := MemoRead( cFileName ) /* NOTE: Intentionally using MemoRead() which handles EOF char. */ IF Left( cFile, Len( hbmk_UTF8_BOM() ) ) == hbmk_UTF8_BOM() cFile := SubStr( cFile, Len( hbmk_UTF8_BOM() ) + 1 ) ENDIF RETURN hb_UTF8ToStr( cFile ) STATIC FUNCTION hbmk_hb_compile( hbmk, ... ) LOCAL cSaveCP LOCAL xRetVal IF Empty( hbmk[ _HBMK_cCPPRG ] ) RETURN hb_compile( ... ) ELSE cSaveCP := hb_cdpSelect( hbmk[ _HBMK_cCPPRG ] ) xRetVal := hb_compile( ... ) hb_cdpSelect( cSaveCP ) ENDIF RETURN xRetVal STATIC FUNCTION hbmk_hb_compileBuf( hbmk, ... ) LOCAL cSaveCP LOCAL xRetVal IF Empty( hbmk[ _HBMK_cCPPRG ] ) RETURN hb_compileBuf( ... ) ELSE cSaveCP := hb_cdpSelect( hbmk[ _HBMK_cCPPRG ] ) xRetVal := hb_compileBuf( ... ) hb_cdpSelect( cSaveCP ) ENDIF RETURN xRetVal STATIC FUNCTION CompileCLoop( hbmk, aTO_DO, cBin_CompC, cOpt_CompC, cObjExt, nOpt_Esc, nOpt_FNF, nJob, nJobs ) LOCAL lResult := .T. LOCAL cCommand LOCAL tmp, tmp1 LOCAL lOutputSpecified LOCAL cOutputFile FOR EACH tmp IN aTO_DO cCommand := cOpt_CompC lOutputSpecified := "{OO}" $ cCommand cOutputFile := FNameDirExtSet( tmp, hbmk[ _HBMK_cWorkDir ], cObjExt ) cCommand := StrTran( cCommand, "{IC}", FNameEscape( tmp, nOpt_Esc, nOpt_FNF ) ) cCommand := StrTran( cCommand, "{OO}", FNameEscape( cOutputFile, nOpt_Esc, nOpt_FNF ) ) cCommand := cBin_CompC + " " + AllTrim( cCommand ) IF hbmk[ _HBMK_lTRACE ] IF ! hbmk[ _HBMK_lQuiet ] IF nJobs > 1 _hbmk_OutStd( hbmk, hb_StrFormat( I_( "C/C++ compiler command job #%1$d:" ), nJob ) ) ELSE _hbmk_OutStd( hbmk, I_( "C/C++ compiler command:" ) ) ENDIF ENDIF OutStd( cCommand + _OUT_EOL ) ENDIF IF ! hbmk[ _HBMK_lDONTEXEC ] .AND. ( tmp1 := hb_processRun( cCommand ) ) != 0 IF nJobs > 1 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Running C/C++ compiler job #%1$d. %2$d" ), nJob, tmp1 ) ) ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Running C/C++ compiler. %1$d" ), tmp1 ) ) ENDIF IF ! hbmk[ _HBMK_lQuiet ] OutErr( cCommand + _OUT_EOL ) ENDIF /* Delete output file in case of compile error. (only if we know for sure what is the output filename, that is when we speficied it on the command line) This is to protect against compiler bugs (f.e. gcc with -pipe option) when dummy or wrong object file is left on the disk, and misleading next incremental build pass. [vszakats] */ IF lOutputSpecified FErase( cOutputFile ) ENDIF lResult := .F. EXIT ENDIF NEXT RETURN lResult STATIC FUNCTION SetupForGT( cGT_New, /* @ */ cGT, /* @ */ lGUI ) IF IsValidHarbourID( cGT_New ) cGT := cGT_New /* Setup default GUI mode for core GTs: (please don't add contrib/3rd parties here) */ SWITCH Lower( cGT_New ) CASE "gtcgi" CASE "gtcrs" CASE "gtdos" CASE "gtos2" CASE "gtpca" CASE "gtsln" CASE "gtstd" CASE "gttrm" CASE "gtwin" lGUI := .F. EXIT CASE "gtgui" CASE "gtwvt" CASE "gtxwc" lGUI := .T. EXIT ENDSWITCH RETURN .T. ENDIF RETURN .F. /* This function will scan and detect header dependencies newer than root file. It won't attempt to parse all possible #include syntaxes and source code formats, won't try to interpret comments, line continuation, different keyword and filename cases, etc, etc. In order to work, it will need #include "filename" and #include format in source. If this isn't enough for your needs, feel free to update the code. [vszakats] */ STATIC FUNCTION FindNewerHeaders( hbmk, cFileName, tTimeParent, lCMode, cBin_CompC ) LOCAL tTimeSelf LOCAL tTimeDependency LOCAL tmp LOCAL cExt LOCAL cModule LOCAL cDependency LOCAL aCommand STATIC s_pRegexInclude := NIL STATIC s_hExclStd := NIL IF hbmk[ _HBMK_nHEAD ] == _HEAD_OFF RETURN .F. ENDIF IF tTimeParent != NIL IF hb_FGetDateTime( cFileName, @tTimeSelf ) .AND. tTimeSelf > tTimeParent RETURN .T. ENDIF IF checkDepTime( hbmk, cFileName, tTimeParent ) RETURN .T. ENDIF ENDIF cExt := Lower( hb_FNameExt( cFileName ) ) /* Filter out non-source format inputs for MinGW / windres */ IF HBMK_ISCOMP( "gcc|mingw|mingw64|mingwarm" ) .AND. HBMK_ISPLAT( "win|wce" ) .AND. cExt == ".res" RETURN .F. ENDIF IF ! lCMode .AND. hbmk[ _HBMK_nHEAD ] == _HEAD_DEP cDependency := FNameDirExtSet( cFileName, hbmk[ _HBMK_cWorkDir ], ".d" ) IF ! hb_FGetDateTime( cDependency, @tTimeDependency ) .OR. ; tTimeDependency > tTimeParent RETURN .T. ENDIF deplst_read( hbmk, hbmk[ _HBMK_hDEPTS ], cDependency ) ELSEIF ! lCMode .AND. hbmk[ _HBMK_nHEAD ] == _HEAD_NATIVE .AND. hbmk[ _HBMK_nHBMODE ] == _HBMODE_NATIVE IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: Calling Harbour compiler to detect dependencies of %1$s", cFileName ) ) ENDIF aCommand := ArrayAJoin( { { "-q0", "-sm" },; { iif( hbmk[ _HBMK_lCreateLib ] .OR. hbmk[ _HBMK_lCreateDyn ], "-n1", "-n2" ) },; { cFileName },; iif( hbmk[ _HBMK_lBLDFLGP ], { hb_Version( HB_VERSION_FLAG_PRG ) }, {} ),; ListToArray( iif( ! Empty( GetEnv( "HB_USER_PRGFLAGS" ) ), " " + GetEnv( "HB_USER_PRGFLAGS" ), "" ) ),; hbmk[ _HBMK_aOPTPRG ] } ) IF ! HB_ISSTRING( tmp := hbmk_hb_compileBuf( hbmk, "harbour", aCommand ) ) RETURN .F. ENDIF /* TODO: Module handling. */ FOR EACH cModule IN hb_ATokens( tmp, Chr( 9 ) ) IF ! Empty( cModule ) FOR EACH cDependency IN hb_ATokens( cModule, " " ) IF ( cDependency:__enumIndex() > 1 .OR. ; /* Skip own (module) name */ ( LEFTEQUAL( cFileName, "@" ) .AND. cExt == ".clp" ) ) .AND. ; ! Empty( cDependency ) IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: HEADER (NATIVE) %1$s", cDependency ) ) ENDIF IF hb_FGetDateTime( cDependency, @tTimeDependency ) .AND. tTimeDependency > tTimeParent IF Empty( hbmk[ _HBMK_hAUTOHBC ] ) RETURN .T. ENDIF ENDIF IF cDependency $ hbmk[ _HBMK_hAUTOHBC ] hbmk[ _HBMK_hAUTOHBCFOUND ][ cDependency ] := hbmk[ _HBMK_hAUTOHBC ][ cDependency ] hb_HDel( hbmk[ _HBMK_hAUTOHBC ], cDependency ) ENDIF ENDIF NEXT ENDIF NEXT ELSEIF lCMode .AND. hbmk[ _HBMK_nHEAD ] == _HEAD_NATIVE .AND. HBMK_ISCOMP( "gcc|mingw|mingw64|mingwarm|djgpp|gccomf|clang|open64" ) IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: Calling C/C++ compiler to detect dependencies of %1$s", cFileName ) ) ENDIF tmp := "" hb_processRun( cBin_CompC + " -MM" +; " " + iif( hbmk[ _HBMK_lBLDFLGC ], hb_Version( HB_VERSION_FLAG_C ) + " ", "" ) +; GetEnv( "HB_USER_CFLAGS" ) +; " " + ArrayToList( hbmk[ _HBMK_aOPTC ] ) +; " " + ArrayToList( hbmk[ _HBMK_aOPTCUSER ] ) +; " " + FNameEscape( hbmk[ _HBMK_cHB_INSTALL_INC ], hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ) +; " " + cFileName,, @tmp ) tmp := StrTran( tmp, Chr( 13 ) ) tmp := StrTran( tmp, " \" + Chr( 10 ) ) FOR EACH cModule IN hb_ATokens( tmp, Chr( 10 ) ) IF ! Empty( cModule ) FOR EACH cDependency IN hb_ATokens( cModule, " " ) IF cDependency:__enumIndex() > 2 .AND. ; /* Skip own (module) name as object and source */ ! Empty( cDependency ) IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: C HEADER (NATIVE) %1$s", cDependency ) ) ENDIF IF hb_FGetDateTime( cDependency, @tTimeDependency ) .AND. tTimeDependency > tTimeParent RETURN .T. ENDIF ENDIF NEXT ENDIF NEXT ELSE IF ! lCMode .AND. LEFTEQUAL( cFileName, "@" ) .AND. cExt == ".clp" FOR EACH cDependency IN clpfile_read( SubStr( cFileName, 2 ) ) IF ! Empty( cDependency ) IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: HEADER (CLP) %1$s", cDependency ) ) ENDIF IF getNewestTime( hbmk, cDependency, @hbmk[ _HBMK_hFiles ], lCMode ) > tTimeParent RETURN .T. ENDIF ENDIF NEXT ELSEIF tTimeParent == NIL /* Header detection for autohbc feature */ getNewestTime( hbmk, cFileName, @hbmk[ _HBMK_hFiles ], lCMode ) RETURN .T. ELSEIF getNewestTime( hbmk, cFileName, @hbmk[ _HBMK_hFiles ], lCMode ) > tTimeParent RETURN .T. ENDIF ENDIF RETURN .F. #define _HBMK_HEADER_cHeader 1 #define _HBMK_HEADER_lSystemHeader 2 #define _HBMK_HEADER_LEN_ 2 STATIC FUNCTION s_getIncludedFiles( hbmk, cFile, cParentDir, lCMode ) STATIC s_pRegexInclude STATIC s_pRegexRequire STATIC s_hExclStd LOCAL aDeps LOCAL cFileBody LOCAL lSystemHeader LOCAL cHeader LOCAL aDep LOCAL tmp /* NOTE: http://en.wikipedia.org/wiki/PCRE http://www.pcre.org/pcre.txt */ IF s_pRegexInclude == NIL /* Switch to non UTF8 CP - otherwise PCRE fails on user files * containing non UTF8 characters. For this expression we do * not need UTF8 or any other fixed encoding. */ tmp := hb_cdpSelect( "EN" ) s_pRegexInclude := hb_regexComp( _HBMK_REGEX_INCLUDE, .F. /* lCaseSensitive */, .T. /* lNewLine */ ) s_pRegexRequire := hb_regexComp( _HBMK_REGEX_REQUIRE, .F. /* lCaseSensitive */, .T. /* lNewLine */ ) hb_cdpSelect( tmp ) IF Empty( s_pRegexInclude ) _hbmk_OutErr( hbmk, I_( "Internal Error: Regular expression engine missing or unsupported. Check your Harbour build settings." ) ) s_pRegexInclude := 0 /* To show the error only once by setting to non-NIL empty value */ ENDIF ENDIF aDeps := {} IF ! Empty( s_pRegexInclude ) .AND. ; ! Empty( s_pRegexRequire ) cFileBody := MemoRead( cFile ) IF ! Empty( cFileBody ) FOR EACH tmp IN hb_regexAll( s_pRegexInclude, cFileBody, ; NIL /* lCaseSensitive */, ; NIL /* lNewLine */, NIL, ; NIL /* nGetMatch */, ; .T. /* lOnlyMatch */ ) cHeader := ATail( tmp ) /* Last group in match marker */ lSystemHeader := ( Left( cHeader, 1 ) == "<" ) cHeader := SubStr( cHeader, 2, Len( cHeader ) - 2 ) /* Don't spend time on known system headers */ IF lSystemHeader IF s_hExclStd == NIL s_hExclStd := {; "assert.h" => NIL ,; /* Standard C */ "ctype.h" => NIL ,; "errno.h" => NIL ,; "float.h" => NIL ,; "limits.h" => NIL ,; "locale.h" => NIL ,; "math.h" => NIL ,; "setjmp.h" => NIL ,; "signal.h" => NIL ,; "stdarg.h" => NIL ,; "stddef.h" => NIL ,; "stdio.h" => NIL ,; "stdlib.h" => NIL ,; "string.h" => NIL ,; "time.h" => NIL ,; "iso646.h" => NIL ,; /* ISO C NA1 */ "wchar.h" => NIL ,; "wctype.h" => NIL ,; "complex.h" => NIL ,; /* ISO C C99 */ "fenv.h" => NIL ,; "inttypes.h" => NIL ,; "stdbool.h" => NIL ,; "stdint.h" => NIL ,; "tgmath.h" => NIL ,; "unistd.h" => NIL ,; /* Standard C POSIX */ "aio.h" => NIL ,; "arpa/inet.h" => NIL ,; "cpio.h" => NIL ,; "dirent.h" => NIL ,; "dlfcn.h" => NIL ,; "fcntl.h" => NIL ,; "fmtmsg.h" => NIL ,; "fnmatch.h" => NIL ,; "ftw.h" => NIL ,; "glob.h" => NIL ,; "grp.h" => NIL ,; "iconv.h" => NIL ,; "langinfo.h" => NIL ,; "libgen.h" => NIL ,; "monetary.h" => NIL ,; "mqueue.h" => NIL ,; "ndbm.h" => NIL ,; "net/if.h" => NIL ,; "netdb.h" => NIL ,; "netinet/in.h" => NIL ,; "netinet/tcp.h" => NIL ,; "nl_types.h" => NIL ,; "poll.h" => NIL ,; "pthread.h" => NIL ,; "pwd.h" => NIL ,; "regex.h" => NIL ,; "sched.h" => NIL ,; "search.h" => NIL ,; "semaphore.h" => NIL ,; "spawn.h" => NIL ,; "strings.h" => NIL ,; "stropts.h" => NIL ,; "sys/ipc.h" => NIL ,; "sys/mman.h" => NIL ,; "sys/msg.h" => NIL ,; "sys/resource.h" => NIL ,; "sys/select.h" => NIL ,; "sys/sem.h" => NIL ,; "sys/shm.h" => NIL ,; "sys/socket.h" => NIL ,; "sys/stat.h" => NIL ,; "sys/statvfs.h" => NIL ,; "sys/time.h" => NIL ,; "sys/times.h" => NIL ,; "sys/types.h" => NIL ,; "sys/uio.h" => NIL ,; "sys/un.h" => NIL ,; "sys/utsname.h" => NIL ,; "sys/wait.h" => NIL ,; "syslog.h" => NIL ,; "tar.h" => NIL ,; "termios.h" => NIL ,; "trace.h" => NIL ,; "ulimit.h" => NIL ,; "unistd.h" => NIL ,; "utime.h" => NIL ,; "utmpx.h" => NIL ,; "wordexp.h" => NIL ,; "windows.h" => NIL ,; /* OS (win) */ "winspool.h" => NIL ,; "shellapi.h" => NIL ,; "ole2.h" => NIL ,; "dos.h" => NIL ,; /* OS (dos) */ "os2.h" => NIL } /* OS (os2) */ ENDIF IF StrTran( Lower( cHeader ), "\", "/" ) $ s_hExclStd LOOP ENDIF ENDIF IF ! lCMode .AND. cHeader $ hbmk[ _HBMK_hAUTOHBC ] hbmk[ _HBMK_hAUTOHBCFOUND ][ cHeader ] := hbmk[ _HBMK_hAUTOHBC ][ cHeader ] hb_HDel( hbmk[ _HBMK_hAUTOHBC ], cHeader ) ENDIF IF ( cHeader := FindHeader( hbmk, cHeader, cParentDir, lSystemHeader, lSystemHeader ) ) != NIL IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: HEADER %1$s %2$s", cHeader, iif( lSystemHeader, "(system)", "" ) ) ) ENDIF aDep := Array( _HBMK_HEADER_LEN_ ) aDep[ _HBMK_HEADER_cHeader ] := cHeader aDep[ _HBMK_HEADER_lSystemHeader ] := lSystemHeader AAdd( aDeps, aDep ) ENDIF NEXT IF ! lCMode FOR EACH tmp IN hb_regexAll( s_pRegexRequire, cFileBody, ; NIL /* lCaseSensitive */, ; NIL /* lNewLine */, NIL, ; NIL /* nGetMatch */, ; .T. /* lOnlyMatch */ ) cHeader := ATail( tmp ) /* Last group in match marker */ cHeader := SubStr( cHeader, 2, Len( cHeader ) - 2 ) hbmk[ _HBMK_hAUTOHBCFOUND ][ "." + cHeader ] := hb_FNameExtSet( cHeader, ".hbc" ) NEXT ENDIF ENDIF ENDIF RETURN aDeps /* optimized time scan algorithm */ #define _HBMK_FILEDEF_aINCFILES 1 #define _HBMK_FILEDEF_tFILETIME 2 #define _HBMK_FILEDEF_tNEWESTTIME 3 #define _HBMK_FILEDEF_lCANSCAN 4 #define _HBMK_FILEDEF_LEN_ 4 STATIC PROCEDURE s_getFilesDep( hbmk, cFile, hFiles, cParentDir, lSystemHeader, lCMode ) LOCAL aDep, tTime, aDeps, aFile IF ! cFile $ hFiles IF lSystemHeader /* Don't scan into system headers */ aDeps := {} ELSE aDeps := s_getIncludedFiles( hbmk, cFile, iif( lCMode, hb_FNameDir( cFile ), cParentDir ), lCMode ) ENDIF IF ! hb_FGetDateTime( cFile, @tTime ) tTime := t"00:00" ENDIF aFile := Array( _HBMK_FILEDEF_LEN_ ) aFile[ _HBMK_FILEDEF_aINCFILES ] := aDeps aFile[ _HBMK_FILEDEF_tFILETIME ] := tTime aFile[ _HBMK_FILEDEF_tNEWESTTIME ] := NIL aFile[ _HBMK_FILEDEF_lCANSCAN ] := .T. hFiles[ cFile ] := aFile FOR EACH aDep IN aDeps s_getFilesDep( hbmk, aDep[ _HBMK_HEADER_cHeader ],; hFiles,; cParentDir,; aDep[ _HBMK_HEADER_lSystemHeader ],; lCMode ) NEXT ENDIF RETURN STATIC FUNCTION s_getNewestTime( cFile, hFiles, lFileReq ) LOCAL aFile, tTime, aDep, tDep, lReq tTime := t"00:00" IF cFile $ hFiles aFile := hFiles[ cFile ] IF aFile[ _HBMK_FILEDEF_tNEWESTTIME ] != NIL /* this file does not have any cross references other then to self * and the time of the newest included file is already calculated * so we can simply use it */ tTime := aFile[ _HBMK_FILEDEF_tNEWESTTIME ] ELSEIF aFile[ _HBMK_FILEDEF_lCANSCAN ] lReq := .F. aFile[ _HBMK_FILEDEF_lCANSCAN ] := .F. tTime := aFile[ _HBMK_FILEDEF_tFILETIME ] FOR EACH aDep IN aFile[ _HBMK_FILEDEF_aINCFILES ] tDep := s_getNewestTime( aDep[ _HBMK_HEADER_cHeader ], hFiles, @lReq ) IF tDep > tTime tTime := tDep ENDIF NEXT IF lReq /* This file has references to some other files already * scanned. It's possible that these are circular references * and the time of files with such references is not fully * calculated yet (they are now process on higher recursion * levels) so we cannot store calculated time as the final * newest time of this file */ lFileReq := .T. ELSE /* we do not have any circular references to files with * undefined yet time so we can safely set the time of the * newest included file to not repeat the scan when this * file is reused */ aFile[ _HBMK_FILEDEF_lCANSCAN ] := .T. aFile[ _HBMK_FILEDEF_tNEWESTTIME ] := tTime ENDIF ELSE lFileReq := .T. ENDIF ENDIF RETURN tTime STATIC FUNCTION getNewestTime( hbmk, cFile, hFiles, lCMode ) LOCAL aFile, tTime IF hFiles == NIL hFiles := { => } /* for easier visualization the scan steps in debug mode */ /* hb_hKeepOrder( hFiles, .T. ) */ ENDIF s_getFilesDep( hbmk, cFile, hFiles, hb_FNameDir( cFile ), .F., lCMode ) tTime := s_getNewestTime( cFile, hFiles ) /* we calculated the newest time of this file and all included files * so we can set it for future reuse if this file included also by * some other ones. */ hFiles[ cFile, _HBMK_FILEDEF_tNEWESTTIME ] := tTime /* mark all files with cross references as scanable so we can * repeat the scan process for other files */ FOR EACH aFile IN hFiles aFile[ _HBMK_FILEDEF_lCANSCAN ] := .T. NEXT RETURN tTime STATIC FUNCTION checkDepTime( hbmk, cFile, tTime ) LOCAL cDepFile, tDepTime IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: CHECK DepTime: %s (%s)", cFile, hb_TSToStr( tTime ) ) ) ENDIF IF cFile $ hbmk[ _HBMK_hDEPTS ] IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: CHECKING....", cFile) ) ENDIF FOR EACH cDepFile IN hbmk[ _HBMK_hDEPTS ][ cFile ] IF ! hb_FGetDateTime( cDepFile, @tDepTime ) .OR. ; tDepTime > tTime IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: CHECK DepTime=%s !!! (%s>%s)", cDepFile, hb_TSToStr( tDepTime ), hb_TSToStr( tTime ) ) ) ENDIF RETURN .T. ENDIF IF hbmk[ _HBMK_lDEBUGINC ] _hbmk_OutStd( hbmk, hb_StrFormat( "debuginc: CHECK DepTime=%s (%s)", cDepFile, hb_TSToStr( tDepTime ) ) ) ENDIF NEXT ENDIF RETURN .F. STATIC FUNCTION clpfile_read( cFileName ) LOCAL cFileBody := MemoRead( cFileName ) LOCAL aFiles LOCAL cFile cFileBody := StrTran( cFileBody, Chr( 13 ) ) cFileBody := StrTran( cFileBody, Chr( 10 ), " " ) cFileBody := StrTran( cFileBody, Chr( 9 ), " " ) aFiles := hb_ATokens( cFileBody,, .T. ) FOR EACH cFile IN aFiles cFile := hb_FNameExtSetDef( StrTran( cFile, '"' ), ".prg" ) NEXT RETURN aFiles STATIC FUNCTION deplst_read( hbmk, hDeps, cFileName ) LOCAL cFileBody := MemoRead( cFileName ) LOCAL cList := "" LOCAL cLine LOCAL nLine := 0 cFileBody := StrTran( cFileBody, Chr( 13 ) + Chr( 10 ), Chr( 10 ) ) cFileBody := StrTran( cFileBody, Chr( 9 ), " " ) FOR EACH cLine IN hb_ATokens( cFileBody, Chr( 10 ) ) ++nLine cLine := AllTrim( cLine ) IF cLine == "\" .OR. Right( cLine, 2 ) == " \" cList += Left( cLine, Len( cLine ) - 1 ) ELSE cList += cLine IF ! deplst_add( hDeps, cList ) _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: In %1$s at line %2$d %3$s:" ), cFileName, nLine, cList ) ) RETURN NIL ENDIF cList := "" ENDIF NEXT IF ! deplst_add( hDeps, cList ) _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: In %1$s at line %2$d %3$s:" ), cFileName, nLine, cList ) ) RETURN NIL ENDIF RETURN hDeps STATIC FUNCTION deplst_add( hDeps, cList ) LOCAL cFile LOCAL aList LOCAL n IF ! Empty( cList ) n := At( ": ", cList ) IF n != 0 .AND. ! Empty( cFile := AllTrim( Left( cList, n - 1 ) ) ) aList := hb_ATokens( SubStr( cList, n + 1 ) ) IF cFile $ hDeps AMerge( hDeps[ cFile ], aList ) ELSE hDeps[ cFile ] := aList ENDIF ELSE RETURN .F. ENDIF ENDIF RETURN .T. STATIC FUNCTION inst_split_arg( cParam, /* @ */ cName, /* @ */ cData ) LOCAL nPos /* separate install group from install file or path. install group must be at least 2 chars, otherwise it's considered as drive letter */ IF ( nPos := At( ":", cParam ) ) > 2 cName := Left( cParam, nPos - 1 ) cData := SubStr( cParam, nPos + 1 ) ELSE cName := "" cData := cParam ENDIF cData := PathSepToSelf( cData ) RETURN ! Empty( cData ) STATIC FUNCTION autohbc_split_arg( cParam, /* @ */ cHeader, /* @ */ cHBC ) LOCAL nPos IF ( nPos := At( ":", cParam ) ) > 0 cHeader := Left( cParam, nPos - 1 ) cHBC := SubStr( cParam, nPos + 1 ) ELSE cHeader := cParam cHBC := "" ENDIF IF Empty( cHeader ) .AND. ! Empty( cHBC ) cHeader := hb_FNameExtSet( cHBC ) ELSEIF Empty( cHBC ) .AND. ! Empty( cHeader ) cHBC := hb_FNameExtSet( cHeader ) ENDIF RETURN ! Empty( cHeader ) .AND. ! Empty( cHBC ) STATIC FUNCTION dep_split_arg( hbmk, cParam, /* @ */ cName, /* @ */ cData ) LOCAL nPos LOCAL dep IF ( nPos := At( ":", cParam ) ) > 1 cName := Left( cParam, nPos - 1 ) cData := SubStr( cParam, nPos + 1 ) ELSE cName := NIL cData := NIL ENDIF IF ! Empty( cName ) .AND. ! Empty( cData ) IF !( cName $ hbmk[ _HBMK_hDEP ] ) dep := Array( _HBMKDEP_MAX_ ) dep[ _HBMKDEP_cName ] := cName dep[ _HBMKDEP_aPKG ] := {} dep[ _HBMKDEP_aKeyHeader ] := {} dep[ _HBMKDEP_cControl ] := NIL dep[ _HBMKDEP_lOptional ] := .F. dep[ _HBMKDEP_cINCROOT ] := "" dep[ _HBMKDEP_aINCPATH ] := {} dep[ _HBMKDEP_aINCPATHLOCAL ] := {} dep[ _HBMKDEP_aIMPLIBSRC ] := {} dep[ _HBMKDEP_cIMPLIBDST ] := NIL dep[ _HBMKDEP_cFound ] := NIL dep[ _HBMKDEP_lFound ] := .F. dep[ _HBMKDEP_lFoundLOCAL ] := .F. dep[ _HBMKDEP_cVersion ] := "" dep[ _HBMKDEP_lForced ] := .F. dep[ _HBMKDEP_lDetected ] := .F. hbmk[ _HBMK_hDEP ][ cName ] := dep ENDIF RETURN .T. ENDIF RETURN .F. STATIC PROCEDURE dep_postprocess_one( hbmk, dep ) LOCAL tmp LOCAL cControlL /* Add our given name of the dependency to the list of package names to check. Little convenience also encouraging usage of standard package names. [vszakats] */ AAddNew( dep[ _HBMKDEP_aPKG ], Lower( dep[ _HBMKDEP_cName ] ) ) /* Process "control" value. It can be a control keyword, or a custom header include path. */ IF dep[ _HBMKDEP_cControl ] == NIL dep[ _HBMKDEP_cControl ] := GetEnv( hb_StrFormat( _HBMK_WITH_TPL, StrToDefine( dep[ _HBMKDEP_cName ] ) ) ) ENDIF cControlL := Lower( dep[ _HBMKDEP_cControl ] ) DO CASE CASE cControlL == "no" dep[ _HBMKDEP_cControl ] := cControlL dep[ _HBMKDEP_aKeyHeader ] := {} dep[ _HBMKDEP_aPKG ] := {} dep[ _HBMKDEP_cINCROOT ] := "" dep[ _HBMKDEP_aINCPATH ] := {} dep[ _HBMKDEP_aINCPATHLOCAL ] := {} dep[ _HBMKDEP_aIMPLIBSRC ] := {} dep[ _HBMKDEP_cIMPLIBDST ] := NIL dep[ _HBMKDEP_lForced ] := .T. CASE cControlL == "local" dep[ _HBMKDEP_cControl ] := cControlL dep[ _HBMKDEP_cINCROOT ] := "" dep[ _HBMKDEP_aINCPATH ] := {} CASE cControlL == "nolocal" dep[ _HBMKDEP_cControl ] := cControlL dep[ _HBMKDEP_aINCPATHLOCAL ] := {} CASE Left( cControlL, Len( "strict:" ) ) == "strict:" dep[ _HBMKDEP_cControl ] := cControlL dep[ _HBMKDEP_aINCPATH ] := { SubStr( dep[ _HBMKDEP_cControl ], Len( "strict:" ) + 1 ) } dep[ _HBMKDEP_aINCPATHLOCAL ] := {} CASE cControlL == "yes" /* do nothing */ CASE cControlL == "force" dep[ _HBMKDEP_aKeyHeader ] := {} dep[ _HBMKDEP_aPKG ] := {} dep[ _HBMKDEP_cINCROOT ] := "" dep[ _HBMKDEP_aINCPATH ] := {} dep[ _HBMKDEP_aINCPATHLOCAL ] := {} dep[ _HBMKDEP_cFound ] := "." dep[ _HBMKDEP_lFound ] := .T. dep[ _HBMKDEP_lFoundLOCAL ] := .F. dep[ _HBMKDEP_lForced ] := .T. AAdd( hbmk[ _HBMK_aOPTC ], "-D" + hb_StrFormat( _HBMK_HAS_TPL, StrToDefine( dep[ _HBMKDEP_cName ] ) ) ) hbmk[ _HBMK_hDEPTMACRO ][ hb_StrFormat( _HBMK_HAS_TPL, StrToDefine( dep[ _HBMKDEP_cName ] ) ) ] := NIL OTHERWISE /* If control is not a recognized control keyword, interpret it as a header search path and add it to the search path list by keeping the position where it was specified. [vszakats] */ FOR EACH tmp IN dep[ _HBMKDEP_aINCPATH ] IF tmp == _HBMK_DEP_CTRL_MARKER tmp := dep[ _HBMKDEP_cControl ] EXIT ENDIF NEXT ENDCASE RETURN STATIC FUNCTION dep_evaluate( hbmk ) LOCAL dep LOCAL aREQ := {} LOCAL aOPT := {} LOCAL aWRN := {} LOCAL lAnyForcedOut := .F. FOR EACH dep IN hbmk[ _HBMK_hDEP ] IF dep[ _HBMKDEP_lFound ] IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Dependency '%1$s' found: %2$s%3$s%4$s%5$s" ),; dep[ _HBMKDEP_cName ],; dep[ _HBMKDEP_cFound ],; iif( Empty( dep[ _HBMKDEP_cVersion ] ), "", " (" + dep[ _HBMKDEP_cVersion ] + ")" ),; iif( dep[ _HBMKDEP_lFoundLOCAL ], " (local)", "" ),; iif( dep[ _HBMKDEP_lForced ], " (forced)", "" ) ) ) ENDIF ELSE IF dep[ _HBMKDEP_lForced ] IF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Dependency '%1$s' forcibly disabled" ), dep[ _HBMKDEP_cName ] ) ) ENDIF lAnyForcedOut := .T. LOOP ELSE IF hbmk[ _HBMK_lDEBUGDEPD ] _hbmk_OutStd( hbmk, hb_StrFormat( "debugdepd: REQ %1$s: missing", dep[ _HBMKDEP_cName ] ) ) ENDIF ENDIF IF dep[ _HBMKDEP_lOptional ] AAdd( aOPT, dep[ _HBMKDEP_cName ] ) ELSE /* Don't issue a missing dependency error (just warning) for non-*nix platforms if no manual dependency location and no local dir were specified. This assumes that on these platforms dependencies can never be found on locations known in advance and specified in make files. [vszakats] */ IF HBMK_ISPLAT( "win|wce|os2|dos" ) .AND. ; Empty( dep[ _HBMKDEP_cControl ] ) .AND. ; Empty( dep[ _HBMKDEP_aINCPATHLOCAL ] ) AAdd( aWRN, dep[ _HBMKDEP_cName ] ) ELSE AAdd( aREQ, dep[ _HBMKDEP_cName ] ) ENDIF ENDIF ENDIF NEXT IF ! Empty( aOPT ) .AND. hbmk[ _HBMK_lInfo ] IF Len( aOPT ) > 1 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Missing optional dependencies: %1$s" ), ArrayToList( aOPT, ", " ) ) ) ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Missing optional dependency: %1$s" ), ArrayToList( aOPT, ", " ) ) ) ENDIF ENDIF IF ! Empty( aREQ ) IF Len( aREQ ) > 1 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Missing dependencies: %1$s" ), ArrayToList( aREQ, ", " ) ) ) ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Missing dependency: %1$s" ), ArrayToList( aREQ, ", " ) ) ) ENDIF ENDIF IF ! Empty( aWRN ) IF Len( aWRN ) > 1 _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Missing dependencies: %1$s" ), ArrayToList( aWRN, ", " ) ) ) ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Missing dependency: %1$s" ), ArrayToList( aWRN, ", " ) ) ) ENDIF ENDIF RETURN Empty( aREQ ) .AND. Empty( aWRN ) .AND. ! lAnyForcedOut STATIC PROCEDURE dep_try_detection( hbmk, dep ) IF ! dep[ _HBMKDEP_lDetected ] dep_postprocess_one( hbmk, dep ) IF ! dep_try_pkg_detection( hbmk, dep ) dep_try_header_detection( hbmk, dep ) ENDIF dep[ _HBMKDEP_lDetected ] := .T. ENDIF RETURN /* Try '*-config' and 'pkg-config *' detection */ STATIC FUNCTION dep_try_pkg_detection( hbmk, dep ) LOCAL cStdOut LOCAL cStdErr LOCAL cItem LOCAL tmp LOCAL cName LOCAL cIncludeDir LOCAL cVersion IF ! Empty( dep[ _HBMKDEP_cINCROOT ] ) RETURN .F. ENDIF FOR EACH cName IN dep[ _HBMKDEP_aPKG ] IF ! Empty( cName ) IF ! dep[ _HBMKDEP_lFound ] cName := AllTrim( cName ) cStdOut := "" hb_processRun( "pkg-config --modversion --libs --cflags " + cName,, @cStdOut, @cStdErr ) IF Empty( cStdOut ) hb_processRun( cName + "-config --version --libs --cflags",, @cStdOut, @cStdErr ) ENDIF #if defined( __PLATFORM__DARWIN ) /* Homebrew */ IF Empty( cStdOut ) IF hb_FileExists( "/usr/local/bin/pkg-config" ) hb_processRun( "/usr/local/bin/pkg-config --modversion --libs --cflags " + cName,, @cStdOut, @cStdErr ) ENDIF ENDIF IF Empty( cStdOut ) IF hb_FileExists( "/usr/local/bin/" + cName + "-config" ) hb_processRun( "/usr/local/bin/" + cName + "-config --version --libs --cflags",, @cStdOut, @cStdErr ) ENDIF ENDIF /* MacPorts/DarwinPorts */ IF Empty( cStdOut ) IF hb_FileExists( "/opt/local/bin/pkg-config" ) hb_processRun( "/opt/local/bin/pkg-config --modversion --libs --cflags " + cName,, @cStdOut, @cStdErr ) ENDIF ENDIF IF Empty( cStdOut ) IF hb_FileExists( "/opt/local/bin/" + cName + "-config" ) hb_processRun( "/opt/local/bin/" + cName + "-config --version --libs --cflags",, @cStdOut, @cStdErr ) ENDIF ENDIF #endif IF ! Empty( cStdOut ) cStdOut := StrTran( cStdOut, Chr( 13 ) ) IF ( tmp := At( Chr( 10 ), cStdOut ) ) > 0 cVersion := Left( cStdOut, tmp - 1 ) cStdOut := SubStr( cStdOut, tmp + 1 ) ELSE cVersion := "unknown version" ENDIF cStdOut := StrTran( cStdOut, Chr( 10 ), " " ) FOR EACH cItem IN hb_ATokens( cStdOut,, .T. ) IF Left( cItem, Len( "-I" ) ) == "-I" dep[ _HBMKDEP_lFound ] := .T. EXIT ENDIF NEXT IF dep[ _HBMKDEP_lFound ] FOR EACH cItem IN hb_ATokens( cStdOut,, .T. ) DO CASE CASE Left( cItem, Len( "-l" ) ) == "-l" cItem := SubStr( cItem, Len( "-l" ) + 1 ) IF _IS_AUTOLIBSYSPRE( cItem ) AAdd( hbmk[ _HBMK_aLIBUSERSYSPRE ], cItem ) ELSE AAdd( hbmk[ _HBMK_aLIBUSER ], cItem ) ENDIF CASE Left( cItem, Len( "-L" ) ) == "-L" cItem := SubStr( cItem, Len( "-L" ) + 1 ) AAdd( hbmk[ _HBMK_aLIBPATH ], hb_DirSepDel( PathSepToSelf( cItem ) ) ) CASE Left( cItem, Len( "-I" ) ) == "-I" cItem := hb_DirSepDel( PathSepToSelf( SubStr( cItem, Len( "-I" ) + 1 ) ) ) IF Empty( cIncludeDir ) cIncludeDir := cItem ENDIF AAdd( hbmk[ _HBMK_aINCPATH ], cItem ) ENDCASE NEXT dep[ _HBMKDEP_cVersion ] := cVersion dep[ _HBMKDEP_cFound ] := iif( Empty( cIncludeDir ), "(system)", cIncludeDir ) IF ! Empty( cIncludeDir ) hbmk[ _HBMK_hDEPTSDIR ][ cIncludeDir ] := NIL hbmk[ _HBMK_hDEPTMACRO ][ hb_StrFormat( _HBMK_DIR_TPL, StrToDefine( cName ) ) ] := cIncludeDir /* Adjust implib source names with component path */ FOR EACH tmp IN dep[ _HBMKDEP_aIMPLIBSRC ] tmp := hb_PathNormalize( PathMakeAbsolute( tmp, hb_DirSepAdd( cIncludeDir ) ) ) NEXT ENDIF IF hbmk[ _HBMK_lDEBUGDEPD ] _hbmk_OutStd( hbmk, hb_StrFormat( "debugdepd: REQ %1$s: found as pkg at %2$s (%3$s)", dep[ _HBMKDEP_cName ], dep[ _HBMKDEP_cFound ], dep[ _HBMKDEP_cVersion ] ) ) ENDIF AAdd( hbmk[ _HBMK_aOPTC ], "-D" + hb_StrFormat( _HBMK_HAS_TPL, StrToDefine( cName ) ) ) hbmk[ _HBMK_hDEPTMACRO ][ hb_StrFormat( _HBMK_HAS_TPL, StrToDefine( cName ) ) ] := NIL RETURN .T. ENDIF ENDIF ENDIF ENDIF NEXT RETURN .F. /* Try detection by header */ STATIC FUNCTION dep_try_header_detection( hbmk, dep ) LOCAL aINCPATH LOCAL cDirOri LOCAL cDir LOCAL cFileName LOCAL tmp /* Check dependency include path list */ IF ! dep[ _HBMKDEP_lFound ] FOR EACH aINCPATH IN { dep[ _HBMKDEP_aINCPATH ],; dep[ _HBMKDEP_aINCPATHLOCAL ] } FOR EACH cDirOri IN aINCPATH cDir := iif( aINCPATH:__enumIndex() == 1, dep[ _HBMKDEP_cINCROOT ], "" ) + cDirOri FOR EACH cFileName IN dep[ _HBMKDEP_aKeyHeader ] IF HeaderExists( cDir, cFileName ) != NIL dep[ _HBMKDEP_cFound ] := hb_DirSepDel( PathSepToSelf( cDir ) ) hbmk[ _HBMK_hDEPTSDIR ][ dep[ _HBMKDEP_cFound ] ] := NIL /* Adjust implib source names with component path */ FOR EACH tmp IN dep[ _HBMKDEP_aIMPLIBSRC ] tmp := hb_PathNormalize( PathMakeAbsolute( tmp, hb_DirSepAdd( dep[ _HBMKDEP_cFound ] ) ) ) NEXT dep[ _HBMKDEP_lFound ] := .T. dep[ _HBMKDEP_lFoundLOCAL ] := ( aINCPATH:__enumIndex() == 2 ) IF hbmk[ _HBMK_lDEBUGDEPD ] _hbmk_OutStd( hbmk, hb_StrFormat( "debugdepd: REQ %1$s: found by %2$s header at %3$s %4$s", dep[ _HBMKDEP_cName ], PathSepToSelf( cFileName ), dep[ _HBMKDEP_cFound ], iif( dep[ _HBMKDEP_lFoundLOCAL ], "(local)", "" ) ) ) ENDIF AAddNew( hbmk[ _HBMK_aINCPATH ], hb_DirSepDel( PathSepToSelf( cDir ) ) ) AAdd( hbmk[ _HBMK_aOPTC ], "-D" + hb_StrFormat( _HBMK_HAS_TPL, StrToDefine( dep[ _HBMKDEP_cName ] ) ) ) hbmk[ _HBMK_hDEPTMACRO ][ hb_StrFormat( _HBMK_HAS_TPL, StrToDefine( dep[ _HBMKDEP_cName ] ) ) ] := NIL hbmk[ _HBMK_hDEPTMACRO ][ hb_StrFormat( _HBMK_DIR_TPL, StrToDefine( dep[ _HBMKDEP_cName ] ) ) ] := hb_DirSepDel( PathSepToSelf( cDir ) ) IF dep[ _HBMKDEP_lFoundLOCAL ] hbmk[ _HBMK_hDEPTMACRO ][ hb_StrFormat( _HBMK_HAS_TPL_LOCAL, StrToDefine( dep[ _HBMKDEP_cName ] ) ) ] := NIL ENDIF RETURN .T. ENDIF NEXT NEXT NEXT ENDIF RETURN .F. STATIC FUNCTION StrToDefine( cString ) LOCAL cDefine := "" LOCAL c FOR EACH c IN hb_asciiUpper( cString ) IF c $ "- " cDefine += "_" ELSEIF hb_asciiIsDigit( c ) .OR. hb_asciiIsAlpha( c ) .OR. c == "_" cDefine += c ENDIF NEXT RETURN cDefine STATIC FUNCTION AMerge( aDst, aSrc ) LOCAL item FOR EACH item IN aSrc IF hb_AScan( aDst, item,,, .T. ) == 0 AAdd( aDst, item ) ENDIF NEXT RETURN aDst STATIC FUNCTION FindHeader( hbmk, cFileName, cParentDir, lSystemHeader, lSkipDept ) LOCAL cDir LOCAL tmp IF ! lSystemHeader IF Empty( cParentDir ) /* Check in current dir */ IF hb_FileExists( tmp := PathSepToSelf( cFileName ) ) RETURN tmp ENDIF ELSE /* Check in parent dir */ tmp := hb_DirSepAdd( PathSepToSelf( cParentDir ) ) + PathSepToSelf( cFileName ) IF hb_FileExists( tmp ) RETURN tmp ENDIF ENDIF ENDIF /* Check in include path list specified via -incpath options */ IF lSkipDept FOR EACH cDir IN hbmk[ _HBMK_aINCPATH ] IF !( cDir $ hbmk[ _HBMK_hDEPTSDIR ] ) tmp := hb_DirSepAdd( PathSepToSelf( cDir ) ) + PathSepToSelf( cFileName ) IF hb_FileExists( tmp ) RETURN tmp ENDIF ENDIF NEXT ELSE FOR EACH cDir IN hbmk[ _HBMK_aINCPATH ] tmp := hb_DirSepAdd( PathSepToSelf( cDir ) ) + PathSepToSelf( cFileName ) IF hb_FileExists( tmp ) RETURN tmp ENDIF NEXT ENDIF RETURN NIL STATIC FUNCTION HeaderExists( cDir, cFileName ) LOCAL tmp #if defined( __PLATFORM__DARWIN ) LOCAL nPos IF ( nPos := At( "/", cFileName ) ) > 0 tmp := hb_DirSepAdd( PathSepToSelf( cDir ) ) + Left( cFileName, nPos - 1 ) + ".framework" + hb_ps() + "Headers" + hb_ps() + SubStr( cFileName, nPos + 1 ) IF hb_FileExists( tmp ) RETURN tmp ENDIF ENDIF #endif tmp := hb_DirSepAdd( PathSepToSelf( cDir ) ) + PathSepToSelf( cFileName ) RETURN iif( hb_FileExists( tmp ), tmp, NIL ) /* Replicating logic used by compilers. */ STATIC FUNCTION FindLib( hbmk, cLib, aLIBPATH, cLibPrefix, cLibExt ) LOCAL cDir LOCAL tmp /* Check libs in their full paths */ IF HBMK_ISCOMP( "msvc|msvc64|msvcarm|bcc|pocc|pocc64|poccarm|watcom" ) IF ! Empty( hb_FNameDir( cLib ) ) IF hb_FileExists( cLib := hb_FNameExtSet( cLib, cLibExt ) ) RETURN cLib ENDIF IF HBMK_ISCOMP( "pocc|pocc64|poccarm" ) IF hb_FileExists( cLib := hb_FNameExtSet( cLib, ".a" ) ) RETURN cLib ENDIF ENDIF RETURN NIL ENDIF ENDIF /* Check in current dir */ IF HBMK_ISCOMP( "msvc|msvc64|msvcarm|bcc|pocc|pocc64|poccarm|watcom" ) IF ! Empty( tmp := LibExists( hbmk, "", cLib, cLibPrefix, cLibExt ) ) RETURN tmp ENDIF ENDIF /* Check in libpaths */ FOR EACH cDir IN aLIBPATH IF ! Empty( cDir ) IF ! Empty( tmp := LibExists( hbmk, cDir, cLib, cLibPrefix, cLibExt ) ) RETURN tmp ENDIF ENDIF NEXT #if 0 /* Check in certain other compiler specific locations. */ IF HBMK_ISCOMP( "msvc|msvc64|msvcarm" ) FOR EACH cDir IN hb_ATokens( GetEnv( "LIB" ), hb_osPathListSeparator(), .T., .T. ) IF ! Empty( cDir ) IF ! Empty( tmp := LibExists( hbmk, cDir, cLib, cLibPrefix, cLibExt ) ) RETURN tmp ENDIF ENDIF NEXT ENDIF #endif RETURN NIL STATIC FUNCTION LibExists( hbmk, cDir, cLib, cLibPrefix, cLibExt ) LOCAL tmp cDir := hb_DirSepAdd( PathSepToSelf( cDir ) ) DO CASE CASE HBMK_ISCOMP( "gcc|mingw|mingw64|mingwarm" ) .AND. HBMK_ISPLAT( "win|wce|cygwin" ) /* NOTE: ld/gcc option -dll-search-prefix isn't taken into account here, So, 'xxx.dll' format libs won't be found here in any case. */ DO CASE CASE hb_FileExists( tmp := cDir + "lib" + hb_FNameExtSet( cLib, ".dll.a" ) ) ; RETURN tmp CASE hb_FileExists( tmp := cDir + hb_FNameExtSet( cLib, ".dll.a" ) ) ; RETURN tmp CASE hb_FileExists( tmp := cDir + "lib" + hb_FNameExtSet( cLib, ".a" ) ) ; RETURN tmp CASE hbmk[ _HBMK_cPLAT ] == "cygwin" .AND. hb_FileExists( tmp := cDir + "cyg" + hb_FNameExtSet( cLib, ".dll" ) ) ; RETURN tmp CASE hb_FileExists( tmp := cDir + "lib" + hb_FNameExtSet( cLib, ".dll" ) ) ; RETURN tmp CASE hb_FileExists( tmp := cDir + hb_FNameExtSet( cLib, ".dll" ) ) ; RETURN tmp ENDCASE CASE hbmk[ _HBMK_cCOMP ] == "gcc" .AND. HBMK_ISPLAT( "linux|sunos|android" ) DO CASE CASE hb_FileExists( tmp := cDir + "lib" + hb_FNameExtSet( cLib, ".so" ) ) ; RETURN tmp CASE hb_FileExists( tmp := cDir + "lib" + hb_FNameExtSet( cLib, ".a" ) ) ; RETURN tmp ENDCASE CASE HBMK_ISCOMP( "pocc|pocc64|poccarm" ) DO CASE CASE hb_FileExists( tmp := cDir + hb_FNameExtSet( cLib, cLibExt ) ) ; RETURN tmp CASE hb_FileExists( tmp := cDir + hb_FNameExtSet( cLib, ".a" ) ) ; RETURN tmp ENDCASE OTHERWISE DO CASE CASE hb_FileExists( tmp := cDir + cLibPrefix + hb_FNameExtSet( cLib, cLibExt ) ) ; RETURN tmp ENDCASE ENDCASE RETURN NIL STATIC FUNCTION FindInSamePath( cFileName, cFileName2, cPath ) LOCAL cDir, cName, cExt cFileName := FindInPath( cFileName, cPath ) IF ! Empty( cFileName ) /* Look for the second filename in the same dir the first one was found. */ hb_FNameSplit( cFileName, @cDir ) hb_FNameSplit( cFileName2,, @cName, @cExt ) #if defined( __PLATFORM__WINDOWS ) .OR. ; defined( __PLATFORM__DOS ) .OR. ; defined( __PLATFORM__OS2 ) IF Empty( cExt ) cExt := ".exe" ENDIF #endif IF hb_FileExists( cFileName := hb_FNameMerge( cDir, cName, cExt ) ) RETURN cFileName ENDIF ENDIF RETURN NIL STATIC PROCEDURE PlugIn_Load( hbmk, cFileName ) LOCAL cFile LOCAL cExt LOCAL lOK LOCAL cType LOCAL hrb cFileName := hb_PathNormalize( cFileName ) IF !( cFileName $ hbmk[ _HBMK_hPLUGINHRB ] ) hrb := NIL hb_FNameSplit( cFileName, NIL, NIL, @cExt ) cFile := hb_MemoRead( cFileName ) IF ! Empty( cFile ) lOK := .F. /* Optimization: Don't try to load it as .hrb if the extension is .prg, .hb (Harbour script) */ IF !( Lower( cExt ) == ".prg" ) .AND. ; !( Lower( cExt ) == ".hb" ) BEGIN SEQUENCE WITH {| oError | Break( oError ) } hrb := hb_hrbLoad( HB_HRB_BIND_FORCELOCAL, cFile ) cType := I_( "(compiled)" ) lOK := .T. END ENDIF IF ! lOK .AND. !( Lower( cExt ) == ".hrb" ) /* Optimization: Don't try to load it as .prg if the extension is .hrb */ cType := I_( "(source)" ) cFile := hb_compileFromBuf( cFile, "-n2", "-w3", "-es2", "-q0", "-i" + hbmk[ _HBMK_cHB_INSTALL_INC ], "-D" + _HBMK_PLUGIN ) IF ! Empty( cFile ) hrb := hb_hrbLoad( HB_HRB_BIND_FORCELOCAL, cFile ) ENDIF ENDIF ENDIF IF ! Empty( hrb ) IF ! PlugIn_call_low( hbmk, cFileName, hrb, PlugIn_make_ctx( hbmk, "init" ) ) /* Don't call plugin any further if initialization returned error */ IF hbmk[ _HBMK_lInfo ] _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Initializing plugin: %1$s" ), cFileName ) ) ENDIF ELSE hbmk[ _HBMK_hPLUGINHRB ][ cFileName ] := hrb IF hbmk[ _HBMK_lTRACE ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Loaded plugin: %1$s %2$s" ), cFileName, cType ) ) ENDIF ENDIF ELSE IF hbmk[ _HBMK_lInfo ] _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Loading plugin: %1$s" ), cFileName ) ) ENDIF ENDIF ENDIF RETURN /* Public functions accessible for plugins (compatibility) */ #if defined( HB_LEGACY_LEVEL4 ) FUNCTION hbmk2_FindInPath( ... ) ; RETURN hbmk_FindInPath( ... ) FUNCTION hbmk2_PathSepToForward( ... ) ; RETURN hbmk_PathSepToForward( ... ) FUNCTION hbmk2_PathSepToSelf( ... ) ; RETURN hbmk_PathSepToSelf( ... ) FUNCTION hbmk2_FNameDirExtSet( ... ) ; RETURN hbmk_FNameDirExtSet( ... ) FUNCTION hbmk2_FNameEscape( ... ) ; RETURN hbmk_FNameEscape( ... ) FUNCTION hbmk2_FNameToSymbol( ... ) ; RETURN hbmk_FNameToSymbol( ... ) FUNCTION hbmk2_StrStripQuote( ... ) ; RETURN hbmk_StrStripQuote( ... ) FUNCTION hbmk2_OutStdRaw( ... ) ; RETURN hbmk_OutStdRaw( ... ) FUNCTION hbmk2_OutErrRaw( ... ) ; RETURN hbmk_OutErrRaw( ... ) FUNCTION hbmk2_ArrayToList( ... ) ; RETURN hbmk_ArrayToList( ... ) FUNCTION hbmk2_PathFromWorkdirToCWD( ... ) ; RETURN hbmk_PathFromWorkdirToCWD( ... ) FUNCTION hbmk2_Macro( ... ) ; RETURN hbmk_Macro( ... ) FUNCTION hbmk2_OutStd( ... ) ; RETURN hbmk_OutStd( ... ) FUNCTION hbmk2_OutErr( ... ) ; RETURN hbmk_OutErr( ... ) FUNCTION hbmk2_PathSepToTarget( ... ) ; RETURN hbmk_PathSepToTarget( ... ) FUNCTION hbmk2_AddInput_PRG( ... ) ; RETURN hbmk_AddInput_PRG( ... ) FUNCTION hbmk2_AddInput_C( ... ) ; RETURN hbmk_AddInput_C( ... ) FUNCTION hbmk2_AddInput_CPP( ... ) ; RETURN hbmk_AddInput_CPP( ... ) FUNCTION hbmk2_AddInput_RC( ... ) ; RETURN hbmk_AddInput_RC( ... ) FUNCTION hbmk2_AddInput_OBJ( ... ) ; RETURN hbmk_AddInput_OBJ( ... ) FUNCTION hbmk2_AddInput_INSTFILE( ... ) ; RETURN hbmk_AddInput_INSTFILE( ... ) FUNCTION hbmk2_Register_Input_File_Extension( ... ) ; RETURN hbmk_Register_Input_File_Extension( ... ) #endif /* Public functions accessible for plugins */ FUNCTION hbmk_FindInPath( ... ) ; RETURN FindInPath( ... ) FUNCTION hbmk_PathSepToForward( ... ) ; RETURN PathSepToForward( ... ) FUNCTION hbmk_PathSepToSelf( ... ) ; RETURN PathSepToSelf( ... ) FUNCTION hbmk_FNameDirExtSet( ... ) ; RETURN FNameDirExtSet( ... ) FUNCTION hbmk_FNameEscape( ... ) ; RETURN FNameEscape( ... ) FUNCTION hbmk_FNameToSymbol( ... ) ; RETURN FuncNameEncode( ... ) FUNCTION hbmk_StrStripQuote( ... ) ; RETURN StrStripQuote( ... ) FUNCTION hbmk_OutStdRaw( ... ) ; RETURN ( OutStd( ... ), OutStd( _OUT_EOL ) ) FUNCTION hbmk_OutErrRaw( ... ) ; RETURN ( OutErr( ... ), OutErr( _OUT_EOL ) ) FUNCTION hbmk_ArrayToList( array, cSeparator ) LOCAL cString := "" LOCAL tmp IF ! HB_ISSTRING( cSeparator ) cSeparator := " " ENDIF FOR tmp := 1 TO Len( array ) cString += array[ tmp ] IF tmp < Len( array ) cString += cSeparator ENDIF NEXT RETURN cString STATIC FUNCTION ctx_to_hbmk( ctx ) LOCAL hbmk IF HB_ISHASH( ctx ) .AND. s_cSecToken $ ctx hbmk := ctx[ s_cSecToken ] IF HB_ISARRAY( hbmk ) .AND. Len( hbmk ) == _HBMK_MAX_ RETURN hbmk ENDIF ENDIF RETURN NIL FUNCTION hbmk_PathFromWorkdirToCWD( ctx ) LOCAL hbmk := ctx_to_hbmk( ctx ) IF hbmk != NIL RETURN hb_DirSepAdd( hb_PathRelativize( hb_PathNormalize( PathMakeAbsolute( hbmk[ _HBMK_cWorkDir ], hb_cwd() ) ), hb_cwd(), .T. ) ) ENDIF RETURN "" FUNCTION hbmk_Macro( ctx, cString ) LOCAL hbmk := ctx_to_hbmk( ctx ) IF hbmk != NIL RETURN MacroProc( hbmk, cString ) ENDIF RETURN "" FUNCTION hbmk_OutStd( ctx, cText ) LOCAL hbmk := ctx_to_hbmk( ctx ) IF hbmk != NIL RETURN _hbmk_OutStd( hbmk, hb_StrFormat( I_( "plugin: %1$s" ), cText ) ) ENDIF RETURN NIL FUNCTION hbmk_OutErr( ctx, cText ) LOCAL hbmk := ctx_to_hbmk( ctx ) IF hbmk != NIL RETURN _hbmk_OutErr( hbmk, hb_StrFormat( I_( "plugin: %1$s" ), cText ) ) ENDIF RETURN NIL FUNCTION hbmk_PathSepToTarget( ctx, ... ) LOCAL hbmk := ctx_to_hbmk( ctx ) IF hbmk != NIL RETURN PathSepToTarget( hbmk, ... ) ENDIF RETURN "" FUNCTION hbmk_AddInput_PRG( ctx, cFileName ) LOCAL hbmk := ctx_to_hbmk( ctx ) IF hbmk != NIL .AND. HB_ISSTRING( cFileName ) AAdd( hbmk[ _HBMK_aPRG ], PathSepToSelf( cFileName ) ) hb_default( @hbmk[ _HBMK_cFIRST ], PathSepToSelf( cFileName ) ) ENDIF RETURN NIL FUNCTION hbmk_AddInput_C( ctx, cFileName ) LOCAL hbmk := ctx_to_hbmk( ctx ) IF hbmk != NIL .AND. HB_ISSTRING( cFileName ) AAdd( hbmk[ _HBMK_aC ], PathSepToSelf( cFileName ) ) hb_default( @hbmk[ _HBMK_cFIRST ], PathSepToSelf( cFileName ) ) ENDIF RETURN NIL FUNCTION hbmk_AddInput_CPP( ctx, cFileName ) LOCAL hbmk := ctx_to_hbmk( ctx ) IF hbmk != NIL .AND. HB_ISSTRING( cFileName ) AAdd( hbmk[ _HBMK_aCPP ], PathSepToSelf( cFileName ) ) hb_default( @hbmk[ _HBMK_cFIRST ], PathSepToSelf( cFileName ) ) ENDIF RETURN NIL FUNCTION hbmk_AddInput_RC( ctx, cFileName ) LOCAL hbmk := ctx_to_hbmk( ctx ) IF hbmk != NIL .AND. HB_ISSTRING( cFileName ) AAdd( hbmk[ _HBMK_aRESSRC ], PathSepToSelf( cFileName ) ) ENDIF RETURN NIL FUNCTION hbmk_AddInput_OBJ( ctx, cFileName ) LOCAL hbmk := ctx_to_hbmk( ctx ) IF hbmk != NIL .AND. HB_ISSTRING( cFileName ) AAdd( hbmk[ _HBMK_aOBJUSER ], PathSepToSelf( cFileName ) ) ENDIF RETURN NIL FUNCTION hbmk_AddInput_INSTFILE( ctx, cFileName, cGroup ) LOCAL hbmk := ctx_to_hbmk( ctx ) IF hbmk != NIL .AND. HB_ISSTRING( cFileName ) IF ! HB_ISSTRING( cGroup ) cGroup := "" ENDIF AAddNewINST( hbmk[ _HBMK_aINSTFILE ], { cGroup, PathSepToSelf( cFileName ) } ) ENDIF RETURN NIL FUNCTION hbmk_Register_Input_File_Extension( ctx, cExt ) LOCAL hbmk := ctx_to_hbmk( ctx ) IF hbmk != NIL .AND. HB_ISSTRING( cExt ) IF ! Empty( cExt ) IF !( Left( cExt, 1 ) == "." ) cExt := "." + cExt ENDIF hbmk[ _HBMK_hPLUGINExt ][ Lower( cExt ) ] := NIL ENDIF ENDIF RETURN NIL /* ; */ STATIC FUNCTION PlugIn_make_ctx( hbmk, cState ) RETURN {; "cSTATE" => cState ,; "params" => hbmk[ _HBMK_aPLUGINPars ] ,; "vars" => hbmk[ _HBMK_hPLUGINVars ] ,; "cPLAT" => hbmk[ _HBMK_cPLAT ] ,; "cCOMP" => hbmk[ _HBMK_cCOMP ] ,; "nCOMPVer" => hbmk[ _HBMK_nCOMPVer ] ,; "cCPU" => hbmk[ _HBMK_cCPU ] ,; "cBUILD" => hbmk[ _HBMK_cBUILD ] ,; "cOUTPUTNAME" => hbmk[ _HBMK_cPROGNAME ] ,; "cTARGETNAME" => hbmk_TARGETNAME( hbmk ) ,; "cTARGETTYPE" => hbmk_TARGETTYPE( hbmk ) ,; "lREBUILD" => hbmk[ _HBMK_lREBUILD ] ,; "lCLEAN" => hbmk[ _HBMK_lCLEAN ] ,; "lDEBUG" => hbmk[ _HBMK_lDEBUG ] ,; "lMAP" => hbmk[ _HBMK_lMAP ] ,; "lSTRIP" => hbmk[ _HBMK_lSTRIP ] ,; "lDONTEXEC" => hbmk[ _HBMK_lDONTEXEC ] ,; "lIGNOREERROR" => hbmk[ _HBMK_lIGNOREERROR ] ,; "lTRACE" => hbmk[ _HBMK_lTRACE ] ,; "lQUIET" => hbmk[ _HBMK_lQuiet ] ,; "lINFO" => hbmk[ _HBMK_lInfo ] ,; "lBEEP" => hbmk[ _HBMK_lBEEP ] ,; "lRUN" => hbmk[ _HBMK_lRUN ] ,; "lINC" => hbmk[ _HBMK_lINC ] ,; "cCCPATH" => hbmk[ _HBMK_cCCPATH ] ,; "cCCPREFIX" => hbmk[ _HBMK_cCCPREFIX ] ,; "cCCPOSTFIX" => hbmk[ _HBMK_cCCPOSTFIX ] ,; "cCCEXT" => hbmk[ _HBMK_cCCEXT ] ,; "nCmd_Esc" => hbmk[ _HBMK_nCmd_Esc ] ,; "nScr_Esc" => hbmk[ _HBMK_nScr_Esc ] ,; "nCmd_FNF" => hbmk[ _HBMK_nCmd_FNF ] ,; "nScr_FNF" => hbmk[ _HBMK_nScr_FNF ] ,; "cWorkDir" => hbmk[ _HBMK_cWorkDir ] ,; "nErrorLevel" => hbmk[ _HBMK_nErrorLevel ] ,; s_cSecToken => hbmk } STATIC FUNCTION PlugIn_ctx_get_state( ctx ) RETURN ctx[ "cSTATE" ] STATIC FUNCTION PlugIn_call_low( hbmk, cName, hrb, ctx ) LOCAL xResult LOCAL oError LOCAL lSuccess := .T. BEGIN SEQUENCE WITH {| oError | oError:cargo := { ProcName( 1 ), ProcLine( 1 ) }, Break( oError ) } xResult := hb_hrbDo( hrb, ctx ) IF ! Empty( xResult ) IF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Plugin %1$s returned at '%2$s': '%3$s'" ), cName, PlugIn_ctx_get_state( ctx ), hb_CStr( xResult ) ) ) ENDIF IF ! hbmk[ _HBMK_lIGNOREERROR ] lSuccess := .F. ENDIF ENDIF RECOVER USING oError IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Executing plugin: %1$s at %3$s(%4$d)\n'%2$s'" ), cName, hbmk_ErrorMessage( oError ), oError:cargo[ 1 ], oError:cargo[ 2 ] ) ) ENDIF END RETURN lSuccess STATIC FUNCTION PlugIn_Execute_All( hbmk, cState ) LOCAL hrb LOCAL ctx LOCAL lSuccess := .T. IF ! Empty( hbmk[ _HBMK_hPLUGINHRB ] ) ctx := PlugIn_make_ctx( hbmk, cState ) FOR EACH hrb IN hbmk[ _HBMK_hPLUGINHRB ] IF ! PlugIn_call_low( hbmk, hrb:__enumKey(), hrb, ctx ) lSuccess := .F. ENDIF NEXT ENDIF RETURN lSuccess STATIC FUNCTION hbmk_ErrorMessage( oError ) /* start error message */ LOCAL cMessage := iif( oError:severity > ES_WARNING, "Error", "Warning" ) + " " /* add subsystem name if available */ cMessage += iif( HB_ISSTRING( oError:subsystem ), oError:subsystem(), "???" ) /* add subsystem's error code if available */ cMessage += "/" + iif( HB_ISNUMERIC( oError:subCode ), hb_ntos( oError:subCode ), "???" ) /* add error description if available */ IF HB_ISSTRING( oError:description ) cMessage += " " + oError:description ENDIF /* add either filename or operation */ DO CASE CASE ! Empty( oError:filename ) cMessage += ": " + oError:filename CASE ! Empty( oError:operation ) cMessage += ": " + oError:operation ENDCASE RETURN cMessage STATIC FUNCTION FindInPathPlugIn( /* @ */ cFileName ) LOCAL cDir LOCAL cName LOCAL cExt hb_FNameSplit( cFileName, @cDir, @cName, @cExt ) IF ! Empty( cDir ) RETURN iif( hb_FileExists( cFileName ), cFileName, NIL ) ENDIF IF Empty( cExt ) cExt := ".hb" ENDIF cFileName := hb_FNameMerge( cDir, cName, cExt ) RETURN FindInPath( cFileName ) STATIC FUNCTION FindInPath( cFileName, xPath, aExtDef ) LOCAL cDir LOCAL cName LOCAL cExt LOCAL aExt hb_FNameSplit( cFileName, @cDir, @cName, @cExt ) #if defined( __PLATFORM__WINDOWS ) .OR. ; defined( __PLATFORM__DOS ) .OR. ; defined( __PLATFORM__OS2 ) hb_default( @aExtDef, { ".exe" } ) #else hb_default( @aExtDef, { cExt } ) #endif aExt := iif( Empty( cExt ), aExtDef, { cExt } ) FOR EACH cExt IN aExt /* Check original filename (in supplied path or current dir) */ IF hb_FileExists( cFileName := hb_FNameMerge( cDir, cName, cExt ) ) RETURN cFileName ENDIF NEXT IF Empty( cDir ) /* Check in the dir of this executable. */ IF ! Empty( cDir := hb_DirBase() ) FOR EACH cExt IN aExt IF hb_FileExists( cFileName := hb_FNameMerge( cDir, cName, cExt ) ) RETURN cFileName ENDIF NEXT ENDIF IF ! HB_ISSTRING( xPath ) .AND. ; ! HB_ISARRAY( xPath ) xPath := GetEnv( "PATH" ) ENDIF IF HB_ISSTRING( xPath ) #if defined( __PLATFORM__WINDOWS ) .OR. ; defined( __PLATFORM__DOS ) .OR. ; defined( __PLATFORM__OS2 ) xPath := hb_ATokens( xPath, hb_osPathListSeparator(), .T., .T. ) #else xPath := hb_ATokens( xPath, hb_osPathListSeparator() ) #endif ENDIF FOR EACH cExt IN aExt /* Check in the PATH. */ FOR EACH cDir IN xPath IF ! Empty( cDir := StrStripQuote( cDir ) ) IF hb_FileExists( cFileName := hb_FNameMerge( hb_DirSepAdd( cDir ), cName, cExt ) ) RETURN cFileName ENDIF ENDIF NEXT NEXT ENDIF RETURN NIL STATIC FUNCTION ArrayJoinNoClone( arraySrc1, arraySrc2 ) LOCAL nLen1 := Len( arraySrc1 ) ASize( arraySrc1, nLen1 + Len( arraySrc2 ) ) RETURN ACopy( arraySrc2, arraySrc1, , , nLen1 + 1 ) STATIC FUNCTION ArrayJoin( arraySrc1, arraySrc2 ) LOCAL arrayNew := AClone( arraySrc1 ) LOCAL nLen1 := Len( arrayNew ) ASize( arrayNew, nLen1 + Len( arraySrc2 ) ) RETURN ACopy( arraySrc2, arrayNew, , , nLen1 + 1 ) STATIC FUNCTION ArrayAJoin( arrayList ) LOCAL array := AClone( arrayList[ 1 ] ) LOCAL tmp LOCAL nLenArray := Len( arrayList ) LOCAL nLen LOCAL nPos := Len( array ) + 1 nLen := 0 FOR tmp := 1 TO nLenArray nLen += Len( arrayList[ tmp ] ) NEXT ASize( array, nLen ) FOR tmp := 2 TO nLenArray ACopy( arrayList[ tmp ], array, , , nPos ) nPos += Len( arrayList[ tmp ] ) NEXT RETURN array STATIC FUNCTION ArraySplit( arrayIn, nChunksReq ) LOCAL arrayOut LOCAL nChunkSize LOCAL nChunkPos LOCAL item IF nChunksReq > 0 arrayOut := {} nChunkSize := Max( Round( Len( arrayIn ) / nChunksReq, 0 ), 1 ) nChunkPos := 0 FOR EACH item IN arrayIn IF nChunkPos == 0 AAdd( arrayOut, {} ) ENDIF AAdd( ATail( arrayOut ), item ) IF ++nChunkPos == nChunkSize .AND. Len( arrayOut ) < nChunksReq nChunkPos := 0 ENDIF NEXT ELSE arrayOut := { arrayIn } ENDIF RETURN arrayOut STATIC FUNCTION AAddNewNotEmpty( array, xItem ) IF ! Empty( xItem ) .AND. AScan( array, {| tmp | tmp == xItem } ) == 0 AAdd( array, xItem ) ENDIF RETURN array STATIC FUNCTION AAddNewAtTop( array, xItem ) IF AScan( array, {| tmp | tmp == xItem } ) == 0 hb_AIns( array, 1, xItem, .T. ) ENDIF RETURN array STATIC FUNCTION AAddNew( array, xItem ) IF AScan( array, {| tmp | tmp == xItem } ) == 0 AAdd( array, xItem ) ENDIF RETURN array STATIC FUNCTION AAddNewINST( array, xItem, lToTop ) IF AScan( array, {| tmp | tmp[ 1 ] == xItem[ 1 ] .AND. tmp[ 2 ] == xItem[ 2 ] } ) == 0 IF lToTop != NIL .AND. lToTop hb_AIns( array, 1, xItem, .T. ) ELSE AAdd( array, xItem ) ENDIF ENDIF RETURN array STATIC FUNCTION AAddNotEmpty( array, xItem ) IF ! Empty( xItem ) AAdd( array, xItem ) ENDIF RETURN array STATIC FUNCTION DepTreeToList( aTree ) LOCAL aList := {} DepTreeWorker( aList, aTree ) RETURN aList STATIC PROCEDURE DepTreeWorker( aList, aTree ) LOCAL xItem FOR EACH xItem IN aTree DESCEND IF HB_ISARRAY( xItem ) .AND. Len( xItem ) == 2 DepTreeWorker( aList, xItem[ 2 ] ) AAddNew( aList, xItem[ 1 ] ) ELSE AAddNew( aList, xItem ) ENDIF NEXT RETURN STATIC FUNCTION ListDirExt( arraySrc, cDirNew, cExtNew, lStripClpAt ) LOCAL array := AClone( arraySrc ) LOCAL cFileName hb_default( @lStripClpAt, .F. ) IF lStripClpAt FOR EACH cFileName IN array IF Left( cFileName, 1 ) == "@" .AND. ; Lower( hb_FNameExt( cFileName ) ) == ".clp" cFileName := FNameDirExtSet( SubStr( cFileName, 2 ), cDirNew, cExtNew ) ELSE cFileName := FNameDirExtSet( cFileName, cDirNew, cExtNew ) ENDIF NEXT ELSE FOR EACH cFileName IN array cFileName := FNameDirExtSet( cFileName, cDirNew, cExtNew ) NEXT ENDIF RETURN array /* Forms the list of libs as to appear on the command line */ STATIC FUNCTION ListCookLib( hbmk, aLIB, aLIBA, array, cPrefix, cExtNew ) LOCAL cDir LOCAL cLibName LOCAL cLibNameCooked LOCAL cName, cExt IF HBMK_ISCOMP( "gcc|mingw|mingw64|mingwarm|djgpp|gccomf|clang|open64" ) FOR EACH cLibName IN array hb_FNameSplit( cLibName, @cDir ) IF Empty( cDir ) cLibNameCooked := cLibName #if 0 /* Don't attempt to strip this as it can be valid for libs which have double lib prefixes (f.e. libpng) */ IF Left( cLibNameCooked, 3 ) == "lib" cLibNameCooked := SubStr( cLibNameCooked, 4 ) ENDIF #endif IF cPrefix != NIL cLibNameCooked := cPrefix + cLibNameCooked ENDIF IF cExtNew != NIL hb_FNameSplit( cLibNameCooked,, @cName, @cExt ) /* Do not strip version number postfixes */ IF hb_asciiIsDigit( SubStr( cExt, 2, 1 ) ) cLibNameCooked += cExtNew ELSE cLibNameCooked := hb_FNameMerge(, cName, cExtNew ) ENDIF ENDIF AAdd( aLIB, cLibNameCooked ) ELSE AAdd( aLIBA, cLibName ) ENDIF NEXT ELSE FOR EACH cLibName IN array IF cExtNew != NIL AAdd( aLIB, hb_FNameExtSet( cLibName, cExtNew ) ) ELSE AAdd( aLIB, cLibName ) ENDIF NEXT ENDIF RETURN array STATIC FUNCTION FN_CookLib( cLibName, cPrefix, cExtNew ) LOCAL cDir LOCAL cName LOCAL cExt hb_FNameSplit( cLibName, @cDir, @cName, @cExt ) IF cPrefix != NIL cName := cPrefix + cName ENDIF IF cExtNew != NIL cExt := cExtNew ENDIF RETURN hb_FNameMerge( cDir, cName, cExt ) /* Append optional prefix and optional extension to all members */ STATIC FUNCTION ListCook( arraySrc, cExtNew ) LOCAL array := AClone( arraySrc ) LOCAL cItem IF cExtNew != NIL FOR EACH cItem IN array cItem := hb_FNameExtSet( cItem, cExtNew ) NEXT ENDIF RETURN array STATIC FUNCTION ArrayToList( array, cSeparator, nEscapeMode, nFNNotation, cPrefix, cPostfix ) LOCAL cString := "" LOCAL tmp hb_default( @cSeparator, " " ) hb_default( @cPrefix, "" ) hb_default( @cPostfix, "" ) IF nEscapeMode == NIL .AND. nFNNotation == NIL FOR tmp := 1 TO Len( array ) cString += cPrefix + array[ tmp ] + cPostfix IF tmp < Len( array ) cString += cSeparator ENDIF NEXT ELSE FOR tmp := 1 TO Len( array ) cString += cPrefix + FNameEscape( array[ tmp ], nEscapeMode, nFNNotation ) + cPostfix IF tmp < Len( array ) cString += cSeparator ENDIF NEXT ENDIF RETURN cString STATIC FUNCTION ListToArray( cList, cSep ) LOCAL array := {} LOCAL cItem IF ! Empty( cList ) FOR EACH cItem IN hb_ATokens( cList, cSep ) AAddNotEmpty( array, cItem ) NEXT ENDIF RETURN array STATIC FUNCTION PathSepCount( cPath ) LOCAL nCount := 0 LOCAL c FOR EACH c IN cPath IF c == hb_ps() ++nCount ENDIF NEXT RETURN nCount STATIC FUNCTION PathSepToForward( cFileName ) RETURN StrTran( cFileName, "\", "/" ) STATIC FUNCTION PathSepToSelf( cFileName, nStart ) RETURN iif( nStart == NIL, StrTran( cFileName, iif( hb_ps() == "\", "/", "\" ), hb_ps() ),; Left( cFileName, nStart - 1 ) + StrTran( SubStr( cFileName, nStart ), iif( hb_ps() == "\", "/", "\" ), hb_ps() ) ) STATIC FUNCTION PathSepToTarget( hbmk, cFileName, nStart ) IF ! HB_ISNUMERIC( nStart ) nStart := 1 ENDIF IF HBMK_ISPLAT( "win|wce|dos|os2" ) .AND. ! HBMK_ISCOMP( "mingw|mingw64|mingwarm" ) RETURN Left( cFileName, nStart - 1 ) + StrTran( SubStr( cFileName, nStart ), "/", "\" ) ENDIF RETURN Left( cFileName, nStart - 1 ) + StrTran( SubStr( cFileName, nStart ), "\", "/" ) STATIC FUNCTION FNameEscape( cFileName, nEscapeMode, nFNNotation ) LOCAL cDir, cName, cExt, cDrive IF ! HB_ISNUMERIC( nEscapeMode ) nEscapeMode := _ESC_NONE ENDIF IF ! HB_ISNUMERIC( nFNNotation ) #if defined( __PLATFORM__WINDOWS ) .OR. ; defined( __PLATFORM__DOS ) .OR. ; defined( __PLATFORM__OS2 ) nFNNotation := _FNF_BCKSLASH #else nFNNotation := _FNF_FWDSLASH #endif ENDIF SWITCH nFNNotation CASE _FNF_BCKSLASH cFileName := StrTran( cFileName, "/", "\" ) EXIT CASE _FNF_FWDSLASH cFileName := StrTran( cFileName, "\", "/" ) EXIT CASE _FNF_FWDSLASHCYGWIN hb_FNameSplit( cFileName, @cDir, @cName, @cExt, @cDrive ) IF ! Empty( cDrive ) cDir := SubStr( cDir, Len( cDrive + hb_osDriveSeparator() ) + 1 ) IF Left( cDir, Len( hb_ps() ) ) == hb_ps() cDir := SubStr( cDir, Len( hb_ps() ) + 1 ) ENDIF cDir := "/cygdrive/" + Lower( Left( cDrive, 1 ) ) + "/" + cDir cFileName := hb_FNameMerge( cDir, cName, cExt ) ENDIF cFileName := StrTran( cFileName, "\", "/" ) EXIT CASE _FNF_FWDSLASHMSYS hb_FNameSplit( cFileName, @cDir, @cName, @cExt, @cDrive ) IF ! Empty( cDrive ) cDir := SubStr( cDir, Len( cDrive + hb_osDriveSeparator() ) + 1 ) IF Left( cDir, Len( hb_ps() ) ) == hb_ps() cDir := SubStr( cDir, Len( hb_ps() ) + 1 ) ENDIF cDir := "/" + Lower( Left( cDrive, 1 ) ) + "/" + cDir cFileName := hb_FNameMerge( cDir, cName, cExt ) ENDIF cFileName := StrTran( cFileName, "\", "/" ) EXIT ENDSWITCH SWITCH nEscapeMode CASE _ESC_DBLQUOTE IF " " $ cFileName .OR. "-" $ cFileName /* Sloppy */ IF Right( cFileName, 1 ) == "\" cFileName += "\" ENDIF RETURN '"' + cFileName + '"' ENDIF EXIT CASE _ESC_SGLQUOTE_WATCOM IF " " $ cFileName /* Sloppy */ IF Right( cFileName, 1 ) == "\" cFileName += "\" ENDIF RETURN "'" + cFileName + "'" ENDIF EXIT CASE _ESC_NIX IF StrHasSpecialChar( cFileName ) cFileName := "'" + StrTran( cFileName, "'", "'\''" ) + "'" ENDIF EXIT CASE _ESC_BCKSLASH cFileName := StrTran( cFileName, "\", "\\" ) EXIT ENDSWITCH RETURN cFileName STATIC FUNCTION StrHasSpecialChar( cString ) LOCAL c FOR EACH c IN cString IF !( hb_asciiIsAlpha( c ) .OR. hb_asciiIsDigit( c ) .OR. c $ "/." ) RETURN .T. ENDIF NEXT RETURN .F. /* Remove all extensions from name */ STATIC FUNCTION FNameNameGetNoExt( cFileName ) LOCAL cName := cFileName hb_FNameSplit( cFileName,, @cName ) WHILE ! Empty( cName ) .AND. ! Empty( hb_FNameExt( cName ) ) hb_FNameSplit( cName,, @cName ) ENDDO RETURN cName STATIC FUNCTION FNameDirName( cFileName ) LOCAL cDir, cName hb_FNameSplit( cFileName, @cDir, @cName ) RETURN hb_FNameMerge( cDir, cName ) STATIC FUNCTION FNameDirExtSet( cFileName, cDirNew, cExtNew ) LOCAL cDir, cName, cExt hb_FNameSplit( cFileName, @cDir, @cName, @cExt ) IF cDirNew != NIL cDir := cDirNew ENDIF IF cExtNew != NIL cExt := cExtNew ENDIF RETURN hb_FNameMerge( cDir, cName, cExt ) STATIC FUNCTION FN_Expand( cFileName, lCommandLine ) LOCAL aFileList LOCAL aFile IF Empty( cFileName ) RETURN {} ENDIF #if defined( __PLATFORM__UNIX ) /* Disable expansion if this came from the command line */ IF lCommandLine RETURN { cFileName } ENDIF #else HB_SYMBOL_UNUSED( lCommandLine ) #endif IF ! FNameHasWildcard( cFileName ) RETURN { cFileName } ENDIF aFileList := {} FOR EACH aFile IN Directory( cFileName ) AAdd( aFilelist, hb_FNameMerge( hb_FNameDir( cFileName ), aFile[ F_NAME ] ) ) NEXT RETURN aFileList STATIC FUNCTION FNameHasWildcard( cFileName ) RETURN "?" $ cFileName .OR. ; "*" $ cFileName STATIC FUNCTION HBC_Find( hbmk, cFile, nNesting ) LOCAL cLibPath LOCAL lFound hb_default( @nNesting, 1 ) lFound := .F. IF hb_FileExists( cFile ) lFound := .T. ELSE FOR EACH cLibPath IN hbmk[ _HBMK_aLIBPATH ] IF hb_FileExists( hb_DirSepAdd( PathSepToSelf( MacroProc( hbmk, cLibPath, cFile, _MACRO_LATE_PREFIX ) ) ) + hb_FNameNameExt( cFile ) ) cFile := hb_DirSepAdd( PathSepToSelf( MacroProc( hbmk, cLibPath, cFile, _MACRO_LATE_PREFIX ) ) ) + hb_FNameNameExt( cFile ) lFound := .T. EXIT ENDIF NEXT ENDIF IF lFound HBC_ProcessOne( hbmk, hb_PathNormalize( cFile ), nNesting ) ENDIF RETURN lFound STATIC PROCEDURE HBC_ProcessAuto( hbmk ) LOCAL cDir LOCAL cFileName LOCAL aCFGDirs #if defined( __PLATFORM__UNIX ) aCFGDirs := { hb_DirSepAdd( GetEnv( "HOME" ) ) + ".harbour",; "/etc/harbour",; hb_DirSepAdd( hb_DirBase() ) + "../etc/harbour",; hb_DirSepAdd( hb_DirBase() ) + "../etc",; hb_DirBase() } #else aCFGDirs := { hb_DirBase() } #endif FOR EACH cDir IN aCFGDirs IF hb_FileExists( cFileName := ( hb_PathNormalize( hb_DirSepAdd( cDir ) ) + _HBMK_AUTOHBC_NAME ) ) IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Processing configuration: %1$s" ), cFileName ) ) ENDIF HBC_ProcessOne( hbmk, cFileName, 1 ) EXIT ENDIF NEXT RETURN STATIC FUNCTION HBC_ProcessOne( hbmk, cFileName, nNestingLevel ) LOCAL cFile LOCAL cLine LOCAL cItem LOCAL cItemL LOCAL cName LOCAL lFound LOCAL tmp, tmp1 IF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Processing: %1$s" ), cFileName ) ) ENDIF IF ! hbmk_hb_FileExists( cFileName ) _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Opening: %1$s" ), cFileName ) ) RETURN .F. ENDIF AAddNew( hbmk[ _HBMK_aDEPTHBC ], { cFileName, nNestingLevel - 1 } ) cFile := hbmk_MemoRead( cFileName ) /* NOTE: Intentionally using hbmk_MemoRead() which handles EOF char. */ IF !( hb_eol() == _CHR_EOL ) cFile := StrTran( cFile, hb_eol(), _CHR_EOL ) ENDIF IF !( hb_eol() == Chr( 13 ) + Chr( 10 ) ) cFile := StrTran( cFile, Chr( 13 ) + Chr( 10 ), _CHR_EOL ) ENDIF FOR EACH cLine IN hb_ATokens( cFile, _CHR_EOL ) cLine := AllTrim( ArchCompFilter( hbmk, AllTrim( cLine ), cFileName ) ) DO CASE CASE Lower( Left( cLine, Len( "skip=" ) ) ) == "skip=" ; cLine := SubStr( cLine, Len( "skip=" ) + 1 ) cLine := MacroProc( hbmk, cLine, cFileName ) IF ! Empty( cLine ) OutStd( hb_StrFormat( I_( "%1$s" ), cLine ) + _OUT_EOL ) ENDIF IF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Skipping from: %1$s" ), cFileName ) ) ENDIF EXIT CASE Lower( Left( cLine, Len( "sources=" ) ) ) == "sources=" ; cLine := SubStr( cLine, Len( "sources=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) cItem := MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) IF ! Empty( cItem ) cItem := hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( cItem ), hb_FNameDir( cFileName ) ) ) cItemL := Lower( cItem ) DO CASE CASE hb_FNameExt( cItemL ) == ".o" .OR. ; hb_FNameExt( cItemL ) == ".obj" AAddNew( hbmk[ _HBMK_aOBJUSER ], cItem ) CASE hb_FNameExt( cItemL ) == ".cpp" .OR. ; hb_FNameExt( cItemL ) == ".cc" .OR. ; hb_FNameExt( cItemL ) == ".cxx" .OR. ; hb_FNameExt( cItemL ) == ".cx" AAddNew( hbmk[ _HBMK_aCPP ], cItem ) CASE hb_FNameExt( cItemL ) == ".c" .OR. ; hb_FNameExt( cItemL ) == ".m" AAddNew( hbmk[ _HBMK_aC ], cItem ) CASE hb_FNameExt( cItemL ) == ".d" deplst_read( hbmk, hbmk[ _HBMK_hDEPTS ], cItem ) CASE hb_FNameExt( cItemL ) == ".po" .OR. ; hb_FNameExt( cItemL ) == ".pot" AAddNew( hbmk[ _HBMK_aPO ], cItem ) CASE hb_FNameExt( cItemL ) == ".rc" FOR EACH tmp IN FN_Expand( cItem, .F. ) AAddNew( hbmk[ _HBMK_aRESSRC ], tmp ) NEXT CASE hb_FNameExt( cItemL ) == ".def" FOR EACH tmp IN FN_Expand( cItem, .F. ) AAddNew( hbmk[ _HBMK_aDEF ], tmp ) NEXT CASE hb_FNameExt( cItemL ) == ".res" IF HBMK_ISCOMP( "mingw|mingw64|mingwarm" ) /* For MinGW family add .res files as source input, as they will need to be converted to coff format with windres (just like plain .rc files) before feeding them to gcc. */ FOR EACH tmp IN FN_Expand( cItem, .F. ) AAddNew( hbmk[ _HBMK_aRESSRC ], tmp ) NEXT ELSE FOR EACH tmp IN FN_Expand( cItem, .F. ) AAddNew( hbmk[ _HBMK_aRESCMP ], tmp ) NEXT ENDIF CASE hb_FNameExt( cItemL ) $ hbmk[ _HBMK_hPLUGINExt ] FOR EACH tmp IN FN_Expand( cItem, .F. ) AAddNew( hbmk[ _HBMK_aPLUGINPars ], tmp ) NEXT OTHERWISE /* .prg */ IF Empty( hb_FNameExt( cItem ) ) cItem := hb_FNameExtSet( cItem, ".prg" ) ENDIF AAddNew( hbmk[ _HBMK_aPRG ], cItem ) ENDCASE ENDIF NEXT CASE Lower( Left( cLine, Len( "libs=" ) ) ) == "libs=" ; cLine := SubStr( cLine, Len( "libs=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) cItem := tmp1 := MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) IF hb_FNameExt( cItem ) == ".hbc" cItem := PathMakeAbsolute( PathSepToSelf( cItem ), hb_FNameDir( cFileName ) ) IF nNestingLevel < _HBMK_NEST_MAX IF ! HBC_Find( hbmk, cItem, nNestingLevel + 1 ) _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Cannot find %1$s (referenced from %2$s)" ), tmp1, cFileName ) ) ENDIF ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Cannot nest deeper in %1$s" ), cFileName ) ) ENDIF ELSE cItem := PathSepToSelf( cItem ) IF Left( cItem, 1 ) == "-" IF CheckLibParam( hbmk, SubStr( cItem, 2 ) ) AAddNewNotEmpty( hbmk[ _HBMK_aLIBFILTEROUT ], SubStr( cItem, 2 ) ) ENDIF ELSE IF CheckLibParam( hbmk, cItem ) IF _IS_AUTOLIBSYSPRE( cItem ) AAddNewNotEmpty( hbmk[ _HBMK_aLIBUSERSYSPRE ], cItem ) ELSE AAddNewNotEmpty( hbmk[ _HBMK_aLIBUSER ], cItem ) ENDIF ENDIF ENDIF ENDIF NEXT CASE Lower( Left( cLine, Len( "frameworks=" ) ) ) == "frameworks=" ; cLine := SubStr( cLine, Len( "frameworks=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) AAddNewNotEmpty( hbmk[ _HBMK_aLIBUSERFWK ], hb_FNameExtSet( PathSepToSelf( MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) ) ) ) NEXT CASE Lower( Left( cLine, Len( "requests=" ) ) ) == "requests=" ; cLine := SubStr( cLine, Len( "requests=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) cItem := MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) IF IsValidHarbourID( cItem ) AAddNew( hbmk[ _HBMK_aREQUEST ], cItem ) ENDIF NEXT CASE Lower( Left( cLine, Len( "syslibs=" ) ) ) == "syslibs=" ; cLine := SubStr( cLine, Len( "syslibs=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) AAddNewNotEmpty( hbmk[ _HBMK_aLIBUSERSYS ], MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) ) NEXT CASE Lower( Left( cLine, Len( "hbcs=" ) ) ) == "hbcs=" ; cLine := SubStr( cLine, Len( "hbcs=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) IF nNestingLevel < _HBMK_NEST_MAX cItem := tmp1 := MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) cItem := PathMakeAbsolute( PathSepToSelf( cItem ), hb_FNameDir( cFileName ) ) IF Empty( hb_FNameExt( cItem ) ) cItem := hb_FNameExtSet( cItem, ".hbc" ) ENDIF IF ! HBC_Find( hbmk, cItem, nNestingLevel + 1 ) _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Cannot find %1$s (referenced from %2$s)" ), tmp1, cFileName ) ) ENDIF ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Cannot nest deeper in %1$s" ), cFileName ) ) ENDIF NEXT CASE Lower( Left( cLine, Len( "autohbcs=" ) ) ) == "autohbcs=" ; cLine := SubStr( cLine, Len( "autohbcs=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) cItem := MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) IF autohbc_split_arg( cItem, @cName, @cItem ) cItem := tmp1 := MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) cItem := PathMakeAbsolute( PathSepToSelf( cItem ), hb_FNameDir( cFileName ) ) IF Empty( hb_FNameExt( cName ) ) cName := hb_FNameExtSet( cName, ".ch" ) ENDIF IF Empty( hb_FNameExt( cItem ) ) cItem := hb_FNameExtSet( cItem, ".hbc" ) ENDIF lFound := .F. IF hb_FileExists( cItem ) lFound := .T. ELSE FOR EACH tmp IN hbmk[ _HBMK_aLIBPATH ] IF hb_FileExists( hb_DirSepAdd( PathSepToSelf( MacroProc( hbmk, tmp, cItem, _MACRO_LATE_PREFIX ) ) ) + hb_FNameNameExt( cItem ) ) cItem := hb_DirSepAdd( PathSepToSelf( MacroProc( hbmk, tmp, cItem, _MACRO_LATE_PREFIX ) ) ) + hb_FNameNameExt( cItem ) lFound := .T. EXIT ENDIF NEXT ENDIF IF lFound hbmk[ _HBMK_hAUTOHBC ][ AllTrim( StrTran( cName, "\", "/" ) ) ] := cItem ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Cannot find %1$s (referenced from %2$s)" ), tmp1, cFileName ) ) ENDIF ENDIF NEXT CASE Lower( Left( cLine, Len( "libpaths=" ) ) ) == "libpaths=" ; cLine := SubStr( cLine, Len( "libpaths=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) cItem := MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) IF ! Empty( cItem ) cItem := hb_DirSepDel( hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( cItem ), hb_FNameDir( cFileName ) ) ) ) IF ( _MACRO_LATE_PREFIX + _MACRO_OPEN ) $ cItem .OR. hb_DirExists( cItem ) AAddNew( hbmk[ _HBMK_aLIBPATH ], cItem ) ENDIF ENDIF NEXT CASE Lower( Left( cLine, Len( "incpaths=" ) ) ) == "incpaths=" ; cLine := SubStr( cLine, Len( "incpaths=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) cItem := MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) IF ! Empty( cItem ) AAddNew( hbmk[ _HBMK_aINCPATH ], hb_DirSepDel( hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( cItem ), hb_FNameDir( cFileName ) ) ) ) ) ENDIF NEXT CASE Lower( Left( cLine, Len( "instfiles=" ) ) ) == "instfiles=" ; cLine := SubStr( cLine, Len( "instfiles=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) cItem := MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) IF inst_split_arg( cItem, @cName, @cItem ) cItem := hb_PathNormalize( PathMakeAbsolute( cItem, hb_FNameDir( cFileName ) ) ) FOR EACH tmp IN FN_Expand( cItem, .F. ) AAddNewINST( hbmk[ _HBMK_aINSTFILE ], { cName, tmp } ) NEXT ENDIF NEXT CASE Lower( Left( cLine, Len( "instpaths=" ) ) ) == "instpaths=" ; cLine := SubStr( cLine, Len( "instpaths=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) cItem := MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) IF inst_split_arg( cItem, @cName, @cItem ) AAddNewINST( hbmk[ _HBMK_aINSTPATH ], { cName, hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( cItem ), hb_FNameDir( cFileName ) ) ) } ) ENDIF NEXT CASE Lower( Left( cLine, Len( "echo=" ) ) ) == "echo=" ; cLine := SubStr( cLine, Len( "echo=" ) + 1 ) cLine := MacroProc( hbmk, cLine, cFileName ) IF ! Empty( cLine ) OutStd( hb_StrFormat( I_( "%1$s" ), cLine ) + _OUT_EOL ) ENDIF CASE Lower( Left( cLine, Len( "stop=" ) ) ) == "stop=" ; cLine := SubStr( cLine, Len( "stop=" ) + 1 ) cLine := MacroProc( hbmk, cLine, cFileName ) IF ! Empty( cLine ) OutStd( hb_StrFormat( I_( "%1$s" ), cLine ) + _OUT_EOL ) ENDIF hbmk[ _HBMK_lStopAfterInit ] := .T. hbmk[ _HBMK_lRUN ] := .F. hbmk[ _HBMK_nErrorLevel ] := _ERRLEV_STOP EXIT CASE Lower( Left( cLine, Len( "prgflags=" ) ) ) == "prgflags=" ; cLine := SubStr( cLine, Len( "prgflags=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) AAddNewNotEmpty( hbmk[ _HBMK_aOPTPRG ], MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) ) NEXT CASE Lower( Left( cLine, Len( "cflags=" ) ) ) == "cflags=" ; cLine := SubStr( cLine, Len( "cflags=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) AAddNewNotEmpty( hbmk[ _HBMK_aOPTC ], MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) ) NEXT CASE Lower( Left( cLine, Len( "resflags=" ) ) ) == "resflags=" ; cLine := SubStr( cLine, Len( "resflags=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) AAddNewNotEmpty( hbmk[ _HBMK_aOPTRES ], MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) ) NEXT CASE Lower( Left( cLine, Len( "ldflags=" ) ) ) == "ldflags=" ; cLine := SubStr( cLine, Len( "ldflags=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) AAddNewNotEmpty( hbmk[ _HBMK_aOPTL ], MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) ) NEXT CASE Lower( Left( cLine, Len( "ldflags+=" ) ) ) == "ldflags+=" ; cLine := SubStr( cLine, Len( "ldflags+=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) AAddNewNotEmpty( hbmk[ _HBMK_aOPTLPOST ], MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) ) NEXT CASE Lower( Left( cLine, Len( "pflags=" ) ) ) == "pflags=" ; cLine := SubStr( cLine, Len( "pflags=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) AAddNewNotEmpty( hbmk[ _HBMK_aPLUGINPars ], MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) ) NEXT CASE Lower( Left( cLine, Len( "psources=" ) ) ) == "psources=" ; cLine := SubStr( cLine, Len( "psources=" ) + 1 ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) cItem := MacroProc( hbmk, StrStripQuote( cItem ), cFileName ) IF ! Empty( cItem ) AAddNew( hbmk[ _HBMK_aPLUGINPars ], hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( cItem ), hb_FNameDir( cFileName ) ) ) ) ENDIF NEXT CASE Lower( Left( cLine, Len( "gui=" ) ) ) == "gui=" ; cLine := SubStr( cLine, Len( "gui=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_lGUI ] := .T. CASE ValueIsF( cLine ) ; hbmk[ _HBMK_lGUI ] := .F. ENDCASE CASE Lower( Left( cLine, Len( "mt=" ) ) ) == "mt=" ; cLine := SubStr( cLine, Len( "mt=" ) + 1 ) DO CASE CASE Lower( cLine ) == "mt" ; hbmk[ _HBMK_lMT ] := .T. /* Compatibility */ CASE ValueIsT( cLine ) ; hbmk[ _HBMK_lMT ] := .T. CASE ValueIsF( cLine ) ; hbmk[ _HBMK_lMT ] := .F. ENDCASE CASE Lower( Left( cLine, Len( "pic=" ) ) ) == "pic=" ; cLine := SubStr( cLine, Len( "pic=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_lPIC ] := .T. CASE ValueIsF( cLine ) ; hbmk[ _HBMK_lPIC ] := .F. ENDCASE CASE Lower( Left( cLine, Len( "shareddef=" ) ) ) == "shareddef=" ; cLine := SubStr( cLine, Len( "shareddef=" ) + 1 ) IF hbmk[ _HBMK_lSHARED ] == NIL DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_lSHARED ] := .T. ; hbmk[ _HBMK_lSTATICFULL ] := .F. CASE ValueIsF( cLine ) ; hbmk[ _HBMK_lSHARED ] := .F. ; hbmk[ _HBMK_lSTATICFULL ] := .F. ENDCASE ENDIF CASE Lower( Left( cLine, Len( "shared=" ) ) ) == "shared=" ; cLine := SubStr( cLine, Len( "shared=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_lSHARED ] := .T. ; hbmk[ _HBMK_lSTATICFULL ] := .F. CASE ValueIsF( cLine ) ; hbmk[ _HBMK_lSHARED ] := .F. ; hbmk[ _HBMK_lSTATICFULL ] := .F. ENDCASE CASE Lower( Left( cLine, Len( "fullstatic=" ) ) ) == "fullstatic=" ; cLine := SubStr( cLine, Len( "fullstatic=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_lSHARED ] := .F. ; hbmk[ _HBMK_lSTATICFULL ] := .T. CASE ValueIsF( cLine ) ; hbmk[ _HBMK_lSHARED ] := .F. ; hbmk[ _HBMK_lSTATICFULL ] := .F. ENDCASE CASE Lower( Left( cLine, Len( "debug=" ) ) ) == "debug=" ; cLine := SubStr( cLine, Len( "debug=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_lDEBUG ] := .T. CASE ValueIsF( cLine ) ; hbmk[ _HBMK_lDEBUG ] := .F. ENDCASE CASE Lower( Left( cLine, Len( "optim=" ) ) ) == "optim=" ; cLine := SubStr( cLine, Len( "optim=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_lOPTIM ] := .T. CASE ValueIsF( cLine ) ; hbmk[ _HBMK_lOPTIM ] := .F. ENDCASE CASE Lower( Left( cLine, Len( "nulrdd=" ) ) ) == "nulrdd=" ; cLine := SubStr( cLine, Len( "nulrdd=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_lNULRDD ] := .T. CASE ValueIsF( cLine ) ; hbmk[ _HBMK_lNULRDD ] := .F. ENDCASE CASE Lower( Left( cLine, Len( "nodefgt=" ) ) ) == "nodefgt=" ; cLine := SubStr( cLine, Len( "nodefgt=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_aLIBCOREGT ] := {} CASE ValueIsF( cLine ) ; hbmk[ _HBMK_aLIBCOREGT ] := hbmk[ _HBMK_aLIBCOREGTDEF ] ENDCASE CASE Lower( Left( cLine, Len( "map=" ) ) ) == "map=" ; cLine := SubStr( cLine, Len( "map=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_lMAP ] := .T. CASE ValueIsF( cLine ) ; hbmk[ _HBMK_lMAP ] := .F. ENDCASE CASE Lower( Left( cLine, Len( "hbcppmm=" ) ) ) == "hbcppmm=" ; cLine := SubStr( cLine, Len( "hbcppmm=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_lHBCPPMM ] := .T. CASE ValueIsF( cLine ) ; hbmk[ _HBMK_lHBCPPMM ] := .F. ENDCASE CASE Lower( Left( cLine, Len( "implib=" ) ) ) == "implib=" ; cLine := SubStr( cLine, Len( "implib=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_lIMPLIB ] := .T. CASE ValueIsF( cLine ) ; hbmk[ _HBMK_lIMPLIB ] := .F. ENDCASE CASE Lower( Left( cLine, Len( "winuni=" ) ) ) == "winuni=" ; cLine := SubStr( cLine, Len( "winuni=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_lWINUNI ] := .T. CASE ValueIsF( cLine ) ; hbmk[ _HBMK_lWINUNI ] := .F. ENDCASE CASE Lower( Left( cLine, Len( "strip=" ) ) ) == "strip=" ; cLine := SubStr( cLine, Len( "strip=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_lSTRIP ] := .T. CASE ValueIsF( cLine ) ; hbmk[ _HBMK_lSTRIP ] := .F. ENDCASE CASE Lower( Left( cLine, Len( "cpp=" ) ) ) == "cpp=" ; cLine := SubStr( cLine, Len( "cpp=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_lCPP ] := .T. CASE ValueIsF( cLine ) ; hbmk[ _HBMK_lCPP ] := .F. CASE Lower( cLine ) == "def" ; hbmk[ _HBMK_lCPP ] := NIL ENDCASE CASE Lower( Left( cLine, Len( "warn=" ) ) ) == "warn=" ; cLine := SubStr( cLine, Len( "warn=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_nWARN ] := _WARN_YES CASE ValueIsF( cLine ) ; hbmk[ _HBMK_nWARN ] := _WARN_NO CASE Lower( cLine ) == "low" ; hbmk[ _HBMK_nWARN ] := _WARN_LOW CASE Lower( cLine ) == "max" ; hbmk[ _HBMK_nWARN ] := _WARN_MAX CASE Lower( cLine ) == "def" ; hbmk[ _HBMK_nWARN ] := _WARN_DEF ENDCASE CASE Lower( Left( cLine, Len( "compr=" ) ) ) == "compr=" ; cLine := SubStr( cLine, Len( "compr=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_nCOMPR ] := _COMPR_DEF CASE ValueIsF( cLine ) ; hbmk[ _HBMK_nCOMPR ] := _COMPR_OFF CASE Lower( cLine ) == "def" ; hbmk[ _HBMK_nCOMPR ] := _COMPR_DEF CASE Lower( cLine ) == "min" ; hbmk[ _HBMK_nCOMPR ] := _COMPR_MIN CASE Lower( cLine ) == "max" ; hbmk[ _HBMK_nCOMPR ] := _COMPR_MAX ENDCASE CASE Lower( Left( cLine, Len( "head=" ) ) ) == "head=" ; cLine := SubStr( cLine, Len( "head=" ) + 1 ) DO CASE CASE Lower( cLine ) == "off" ; hbmk[ _HBMK_nHEAD ] := _HEAD_OFF CASE Lower( cLine ) == "full" ; hbmk[ _HBMK_nHEAD ] := _HEAD_FULL CASE Lower( cLine ) == "native" ; hbmk[ _HBMK_nHEAD ] := _HEAD_NATIVE CASE Lower( cLine ) == "dep" ; hbmk[ _HBMK_nHEAD ] := _HEAD_DEP ENDCASE CASE Lower( Left( cLine, Len( "run=" ) ) ) == "run=" ; cLine := SubStr( cLine, Len( "run=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_lRUN ] := .T. CASE ValueIsF( cLine ) ; hbmk[ _HBMK_lRUN ] := .F. ENDCASE CASE Lower( Left( cLine, Len( "inc=" ) ) ) == "inc=" ; cLine := SubStr( cLine, Len( "inc=" ) + 1 ) DO CASE CASE ValueIsT( cLine ) ; hbmk[ _HBMK_lINC ] := .T. CASE ValueIsF( cLine ) ; hbmk[ _HBMK_lINC ] := .F. ENDCASE CASE Lower( Left( cLine, Len( "plugins=" ) ) ) == "plugins=" ; cLine := SubStr( cLine, Len( "plugins=" ) + 1 ) cLine := hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( MacroProc( hbmk, cLine, cFileName ) ), hb_FNameDir( cFileName ) ) ) IF ( tmp := FindInPathPlugIn( cLine ) ) != NIL PlugIn_Load( hbmk, tmp ) ELSE IF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Warning: Plugin not found: %1$s" ), cLine ) ) ENDIF ENDIF /* NOTE: This keyword is used to signal the default GT used when building Harbour. It only needs to be filled if this default GT is different from the Harbour default one, IOW when it was overridden by user at Harbour build time. [vszakats] */ CASE Lower( Left( cLine, Len( "gtdef=" ) ) ) == "gtdef=" ; cLine := SubStr( cLine, Len( "gtdef=" ) + 1 ) IF ! Empty( cLine ) IF ! SetupForGT( cLine, @hbmk[ _HBMK_cGTDEFAULT ], @hbmk[ _HBMK_lGUI ] ) cLine := NIL ENDIF IF ! Empty( cLine ) .AND. !( Lower( cLine ) == "gtnul" ) IF AScan( hbmk[ _HBMK_aLIBCOREGT ], {| tmp | Lower( tmp ) == Lower( cLine ) } ) == 0 .AND. ; AScan( hbmk[ _HBMK_aLIBUSERGT ], {| tmp | Lower( tmp ) == Lower( cLine ) } ) == 0 AAddNotEmpty( hbmk[ _HBMK_aLIBUSERGT ], PathSepToSelf( cLine ) ) ENDIF IF AScan( hbmk[ _HBMK_aGT ], {| tmp | Lower( tmp ) == Lower( cLine ) } ) == 0 AAddNotEmpty( hbmk[ _HBMK_aGT ], PathSepToSelf( cLine ) ) ENDIF ENDIF ENDIF CASE Lower( Left( cLine, Len( "gt=" ) ) ) == "gt=" ; cLine := SubStr( cLine, Len( "gt=" ) + 1 ) cLine := MacroProc( hbmk, cLine, cFileName ) IF ! Empty( cLine ) IF hbmk[ _HBMK_cGT ] == NIL IF ! SetupForGT( cLine, @hbmk[ _HBMK_cGT ], @hbmk[ _HBMK_lGUI ] ) cLine := NIL ENDIF ENDIF IF ! Empty( cLine ) .AND. !( Lower( cLine ) == "gtnul" ) IF AScan( hbmk[ _HBMK_aLIBCOREGT ], {| tmp | Lower( tmp ) == Lower( cLine ) } ) == 0 .AND. ; AScan( hbmk[ _HBMK_aLIBUSERGT ], {| tmp | Lower( tmp ) == Lower( cLine ) } ) == 0 AAddNotEmpty( hbmk[ _HBMK_aLIBUSERGT ], PathSepToSelf( cLine ) ) ENDIF IF AScan( hbmk[ _HBMK_aGT ], {| tmp | Lower( tmp ) == Lower( cLine ) } ) == 0 AAddNotEmpty( hbmk[ _HBMK_aGT ], PathSepToSelf( cLine ) ) ENDIF ENDIF ENDIF CASE Lower( Left( cLine, Len( "deppkgname=" ) ) ) == "deppkgname=" ; cLine := SubStr( cLine, Len( "deppkgname=" ) + 1 ) IF dep_split_arg( hbmk, cLine, @cName, @cLine ) cLine := MacroProc( hbmk, cLine, cFileName ) AAddNewNotEmpty( hbmk[ _HBMK_hDEP ][ cName ][ _HBMKDEP_aPKG ], StrStripQuote( AllTrim( cLine ) ) ) ENDIF CASE Lower( Left( cLine, Len( "depkeyhead=" ) ) ) == "depkeyhead=" ; cLine := SubStr( cLine, Len( "depkeyhead=" ) + 1 ) IF dep_split_arg( hbmk, cLine, @cName, @cLine ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) AAddNewNotEmpty( hbmk[ _HBMK_hDEP ][ cName ][ _HBMKDEP_aKeyHeader ], AllTrim( StrTran( MacroProc( hbmk, cItem, cFileName ), "\", "/" ) ) ) NEXT ENDIF CASE Lower( Left( cLine, Len( "depoptional=" ) ) ) == "depoptional=" ; cLine := SubStr( cLine, Len( "depoptional=" ) + 1 ) IF dep_split_arg( hbmk, cLine, @cName, @cLine ) cLine := MacroProc( hbmk, cLine, cFileName ) DO CASE CASE Lower( cLine ) == "yes" ; hbmk[ _HBMK_hDEP ][ cName ][ _HBMKDEP_lOptional ] := .T. CASE Lower( cLine ) == "no" ; hbmk[ _HBMK_hDEP ][ cName ][ _HBMKDEP_lOptional ] := .F. ENDCASE ENDIF CASE Lower( Left( cLine, Len( "depcontrol=" ) ) ) == "depcontrol=" ; cLine := SubStr( cLine, Len( "depcontrol=" ) + 1 ) IF dep_split_arg( hbmk, cLine, @cName, @cLine ) hbmk[ _HBMK_hDEP ][ cName ][ _HBMKDEP_cControl ] := AllTrim( MacroProc( hbmk, cLine, cFileName ) ) AAddNew( hbmk[ _HBMK_hDEP ][ cName ][ _HBMKDEP_aINCPATH ], _HBMK_DEP_CTRL_MARKER ) ENDIF CASE Lower( Left( cLine, Len( "depincroot=" ) ) ) == "depincroot=" ; cLine := SubStr( cLine, Len( "depincroot=" ) + 1 ) IF dep_split_arg( hbmk, cLine, @cName, @cLine ) hbmk[ _HBMK_hDEP ][ cName ][ _HBMKDEP_cINCROOT ] := hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( MacroProc( hbmk, cLine, cFileName ) ), hb_FNameDir( cFileName ) ) ) ENDIF CASE Lower( Left( cLine, Len( "depincpath=" ) ) ) == "depincpath=" ; cLine := SubStr( cLine, Len( "depincpath=" ) + 1 ) IF dep_split_arg( hbmk, cLine, @cName, @cLine ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) AAddNewNotEmpty( hbmk[ _HBMK_hDEP ][ cName ][ _HBMKDEP_aINCPATH ], hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( MacroProc( hbmk, cItem, cFileName ) ), hb_FNameDir( cFileName ) ) ) ) NEXT ENDIF CASE Lower( Left( cLine, Len( "depincpathlocal=" ) ) ) == "depincpathlocal=" ; cLine := SubStr( cLine, Len( "depincpathlocal=" ) + 1 ) IF dep_split_arg( hbmk, cLine, @cName, @cLine ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) AAddNewNotEmpty( hbmk[ _HBMK_hDEP ][ cName ][ _HBMKDEP_aINCPATHLOCAL ], hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( MacroProc( hbmk, cItem, cFileName ) ), hb_FNameDir( cFileName ) ) ) ) NEXT ENDIF CASE Lower( Left( cLine, Len( "depimplibs=" ) ) ) == "depimplibs=" ; cLine := SubStr( cLine, Len( "depimplibs=" ) + 1 ) IF dep_split_arg( hbmk, cLine, @cName, @cLine ) FOR EACH cItem IN hb_ATokens( cLine,, .T. ) AAddNewNotEmpty( hbmk[ _HBMK_hDEP ][ cName ][ _HBMKDEP_aIMPLIBSRC ], PathSepToSelf( MacroProc( hbmk, cItem, cFileName ) ) ) NEXT ENDIF CASE Lower( Left( cLine, Len( "depimplibd=" ) ) ) == "depimplibd=" ; cLine := SubStr( cLine, Len( "depimplibd=" ) + 1 ) IF dep_split_arg( hbmk, cLine, @cName, @cLine ) hbmk[ _HBMK_hDEP ][ cName ][ _HBMKDEP_cIMPLIBDST ] := hb_FNameNameExt( PathSepToSelf( cLine ) ) ENDIF /* .hbc identification strings. Similar to pkgconfig ones. */ CASE Lower( Left( cLine, Len( "name=" ) ) ) == "name=" ; cLine := SubStr( cLine, Len( "name=" ) + 1 ) /* Silently ignore */ CASE Lower( Left( cLine, Len( "description=" ) ) ) == "description=" ; cLine := SubStr( cLine, Len( "description=" ) + 1 ) /* Silently ignore */ CASE Lower( Left( cLine, Len( "version=" ) ) ) == "version=" ; cLine := SubStr( cLine, Len( "version=" ) + 1 ) /* Silently ignore */ ENDCASE NEXT RETURN .T. STATIC FUNCTION IsGTRequested( hbmk, cWhichGT ) /* Check if it's a core/user GT. */ RETURN AScan( hbmk[ _HBMK_aLIBCOREGT ], {| tmp | Lower( tmp ) == Lower( cWhichGT ) } ) > 0 .OR. ; AScan( hbmk[ _HBMK_aLIBUSERGT ], {| tmp | Lower( tmp ) == Lower( cWhichGT ) } ) > 0 STATIC FUNCTION StrStripQuote( cString ) RETURN iif( Left( cString, 1 ) == '"' .AND. Right( cString, 1 ) == '"',; SubStr( cString, 2, Len( cString ) - 2 ),; cString ) STATIC FUNCTION ValueIsT( cString ) cString := Lower( cString ) RETURN cString == "yes" .OR. ; cString == "1" /* Compatibility */ STATIC FUNCTION ValueIsF( cString ) cString := Lower( cString ) RETURN cString == "no" .OR. ; cString == "0" /* Compatibility */ STATIC FUNCTION HBM_Load( hbmk, aParams, cFileName, nNestingLevel, lProcHBP ) LOCAL cFile LOCAL cLine LOCAL cParam LOCAL aArgs LOCAL nResult LOCAL cHBP LOCAL lFound LOCAL tmp IF hbmk_hb_FileExists( cFileName ) cFile := hbmk_MemoRead( cFileName ) /* NOTE: Intentionally using hbmk_MemoRead() which handles EOF char. */ IF !( hb_eol() == _CHR_EOL ) cFile := StrTran( cFile, hb_eol(), _CHR_EOL ) ENDIF IF !( hb_eol() == Chr( 13 ) + Chr( 10 ) ) cFile := StrTran( cFile, Chr( 13 ) + Chr( 10 ), _CHR_EOL ) ENDIF FOR EACH cLine IN hb_ATokens( cFile, _CHR_EOL ) IF !( Left( cLine, 1 ) == "#" ) FOR EACH cParam IN hb_ATokens( cLine,, .T. ) cParam := StrStripQuote( cParam ) IF ! Empty( cParam ) DO CASE CASE Lower( cParam ) == "-skip" RETURN 0 CASE !( Left( cParam, 1 ) == "-" ) .AND. Len( cParam ) >= 1 .AND. Left( cParam, 1 ) == "@" .AND. ; !( Lower( hb_FNameExt( cParam ) ) == ".clp" ) IF nNestingLevel < _HBMK_NEST_MAX cParam := SubStr( cParam, 2 ) IF Empty( hb_FNameExt( cParam ) ) cParam := hb_FNameExtSet( cParam, ".hbm" ) ENDIF /* TODO: Modify '@script.ext' (@ prefixes) inclusion to not inherit path from parent */ nResult := HBM_Load( hbmk, aParams, PathMakeAbsolute( PathSepToSelf( cParam ), cFileName ), nNestingLevel + 1, .T. ) /* Load parameters from script file */ IF nResult != _ERRLEV_OK .AND. ; nResult != _ERRLEV_STOP RETURN nResult ENDIF ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Cannot nest deeper in %1$s" ), cFileName ) ) ENDIF CASE !( Left( cParam, 1 ) == "-" ) .AND. ; Lower( hb_FNameExt( cParam ) ) == ".hbm" IF nNestingLevel < _HBMK_NEST_MAX nResult := HBM_Load( hbmk, aParams, PathMakeAbsolute( PathSepToSelf( cParam ), cFileName ), nNestingLevel + 1, .T. ) /* Load parameters from script file */ IF nResult != _ERRLEV_OK .AND. ; nResult != _ERRLEV_STOP RETURN nResult ENDIF ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Cannot nest deeper in %1$s" ), cFileName ) ) ENDIF CASE !( Left( cParam, 1 ) == "-" ) .AND. ; Lower( hb_FNameExt( cParam ) ) == ".hbp" cHBP := PathMakeAbsolute( PathSepToSelf( cParam ), cFileName ) IF lProcHBP IF hbmk[ _HBMK_nArgTarget ] > 0 /* search for .hbp files in macro libpaths */ IF hbmk_hb_FileExists( cHBP ) lFound := .T. ELSE lFound := .F. FOR EACH tmp IN hbmk[ _HBMK_aLIBPATH ] IF ( _MACRO_LATE_PREFIX + _MACRO_OPEN ) $ tmp .AND. hbmk_hb_FileExists( hb_DirSepAdd( PathSepToSelf( MacroProc( hbmk, tmp, cHBP, _MACRO_LATE_PREFIX ) ) ) + hb_FNameNameExt( cHBP ) ) cHBP := hb_DirSepAdd( PathSepToSelf( MacroProc( hbmk, tmp, cHBP, _MACRO_LATE_PREFIX ) ) ) + hb_FNameNameExt( cHBP ) IF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Found project reference on library search path: %1$s" ), cHBP ) ) ENDIF lFound := .T. EXIT ENDIF NEXT ENDIF IF lFound aArgs := AClone( hbmk[ _HBMK_aArgs ] ) aArgs[ hbmk[ _HBMK_nArgTarget ] ] := cHBP nResult := hbmk( aArgs, hbmk[ _HBMK_nArgTarget ], @hbmk[ _HBMK_lPause ], hbmk[ _HBMK_nLevel ] + 1 ) IF nResult != 0 RETURN nResult ENDIF ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Project reference (%1$s) ignored. File not found." ), cHBP ) ) ENDIF ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Project reference (%1$s) ignored. Project references require %2$s to be invoked with a main project." ), cHBP, _SELF_NAME_ ) ) ENDIF ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Project reference (%1$s) ignored in automatic make file: %2$s" ), cHBP, cFileName ) ) ENDIF OTHERWISE AAdd( aParams, { cParam, cFileName, cLine:__enumIndex() } ) ENDCASE ENDIF NEXT ENDIF NEXT ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: File cannot be found: %1$s" ), cFileName ) ) ENDIF RETURN 0 /* Filter microformat: {[!][]['&'|'|'][...]} */ STATIC FUNCTION ArchCompFilter( hbmk, cItem, cFileName ) LOCAL nStart, nEnd LOCAL cFilterSrc LOCAL cFilterHarb LOCAL bFilter LOCAL xResult LOCAL cKeyword LOCAL cValue LOCAL cOperator LOCAL cChar LOCAL lSkipQuote LOCAL cRetVal #ifndef USE_FOREACH_ON_STRINGS LOCAL nPos #endif LOCAL cExpr := "hbmk_KEYW( hbmk, cFileName, '%1' )" LOCAL cExprWithValue := "hbmk_KEYW( hbmk, cFileName, '%1', '%2', '%3' )" LOCAL tmp nEnd := 1 WHILE .T. IF ( nStart := hb_At( _MACRO_OPEN, cItem, nEnd ) ) == 0 EXIT ENDIF IF ( nEnd := hb_At( _MACRO_CLOSE, cItem, nStart + Len( _MACRO_OPEN ) ) ) == 0 EXIT ENDIF IF !( SubStr( cItem, nStart - 1, 1 ) $ _MACRO_PREFIX_ALL ) EXIT ENDIF nEnd += Len( _MACRO_CLOSE ) ENDDO IF nStart > 0 .AND. nEnd > 0 /* Separate filter from the rest of the item */ cFilterSrc := SubStr( cItem, nStart + Len( _MACRO_OPEN ), nEnd - nStart - Len( _MACRO_OPEN ) ) cItem := Left( cItem, nStart - 1 ) + SubStr( cItem, nEnd + Len( _MACRO_CLOSE ) ) IF ! Empty( cFilterSrc ) /* Parse filter and convert it to Harbour expression */ cFilterHarb := "" cKeyword := "" cValue := NIL cOperator := "" lSkipQuote := .F. #ifdef USE_FOREACH_ON_STRINGS FOR EACH cChar IN cFilterSrc #else FOR nPos := 1 TO Len( cFilterSrc ) cChar := SubStr( cFilterSrc, nPos, 1 ) #endif IF cValue == NIL IF iif( Empty( cKeyword ),; HB_ISFIRSTIDCHAR( cChar ),; HB_ISNEXTIDCHAR( cChar ) ) cKeyword += cChar #ifdef USE_FOREACH_ON_STRINGS ELSEIF cChar $ "=<>" .AND. SubStr( cFilterSrc, cChar:__enumIndex() + 1, 1 ) == "'" #else ELSEIF cChar $ "=<>" .AND. SubStr( cFilterSrc, nPos + 1, 1 ) == "'" #endif cOperator := cChar cValue := "" lSkipQuote := .T. ELSE IF ! Empty( cKeyword ) cFilterHarb += StrTran( cExpr, "%1", cKeyword ) + cChar cKeyword := "" ELSE cFilterHarb += cChar ENDIF ENDIF ELSE IF !( cChar == "'" ) .OR. lSkipQuote IF lSkipQuote lSkipQuote := .F. ELSE cValue += cChar ENDIF ELSE IF ! Empty( cKeyword ) .AND. ! Empty( cValue ) tmp := cExprWithValue tmp := StrTran( tmp, "%1", cKeyword ) tmp := StrTran( tmp, "%2", cValue ) tmp := StrTran( tmp, "%3", cOperator ) cFilterHarb += tmp cKeyword := "" cValue := NIL cOperator := "" ENDIF ENDIF ENDIF NEXT IF ! Empty( cKeyword ) IF ! Empty( cValue ) tmp := cExprWithValue tmp := StrTran( tmp, "%1", cKeyword ) tmp := StrTran( tmp, "%2", cValue ) tmp := StrTran( tmp, "%3", cOperator ) cFilterHarb += tmp ELSE cFilterHarb += StrTran( cExpr, "%1", cKeyword ) ENDIF ENDIF cFilterHarb := StrTran( cFilterHarb, "&&", "&" ) cFilterHarb := StrTran( cFilterHarb, "||", "|" ) cFilterHarb := StrTran( cFilterHarb, "&", ".AND." ) cFilterHarb := StrTran( cFilterHarb, "|", ".OR." ) cRetVal := "" /* Evaluate filter */ BEGIN SEQUENCE WITH {| oError | Break( oError ) } bFilter := &( "{| hbmk, cFileName |" + cFilterHarb + "}" ) IF HB_ISLOGICAL( xResult := Eval( bFilter, hbmk, cFileName ) ) .AND. xResult cRetVal := cItem ENDIF RECOVER IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Error in filter expression: '%1$s'" ), cFilterSrc ) ) ENDIF END RETURN cRetVal ENDIF ENDIF RETURN cItem STATIC FUNCTION MacroProc( hbmk, cString, cFileName, cMacroPrefix ) LOCAL nStart LOCAL nEnd LOCAL cMacro LOCAL cStart := iif( HB_ISSTRING( cMacroPrefix ), cMacroPrefix, _MACRO_NORM_PREFIX ) + _MACRO_OPEN LOCAL cStdOut WHILE ( nStart := At( cStart, cString ) ) > 0 .AND. ; ( nEnd := hb_At( _MACRO_CLOSE, cString, nStart + Len( cStart ) ) ) > 0 cMacro := MacroGet( hbmk, SubStr( cString, nStart + Len( cStart ), nEnd - nStart - Len( cStart ) ), cFileName ) cString := Left( cString, nStart - 1 ) + cMacro + SubStr( cString, nEnd + Len( _MACRO_CLOSE ) ) ENDDO WHILE ( nStart := At( _CMDSUBST_OPEN, cString ) ) > 0 .AND. ; ( nEnd := hb_At( _CMDSUBST_CLOSE, cString, nStart + Len( _CMDSUBST_OPEN ) ) ) > 0 cMacro := SubStr( cString, nStart + Len( _CMDSUBST_OPEN ), nEnd - nStart - Len( _CMDSUBST_OPEN ) ) cStdOut := "" IF ! Empty( cMacro ) hb_processRun( cMacro,, @cStdOut ) cStdOut := StrTran( StrTran( cStdOut, Chr( 13 ) ), Chr( 10 ), " " ) ENDIF cString := Left( cString, nStart - 1 ) + cStdOut + SubStr( cString, nEnd + Len( _CMDSUBST_CLOSE ) ) ENDDO RETURN cString STATIC FUNCTION MacroGet( hbmk, cMacro, cFileName ) #if 0 /* Support for: ${@} to include on-disk file content of ${@@} to include on-disk file content referenced from filename contained in */ IF Left( cMacro, 1 ) == "@" cMacro := SubStr( cMacro, 2 ) IF Left( cMacro, 1 ) == "@" cMacro := GetEnv( SubStr( cMacro, 2 ) ) ENDIF RETURN StrTran( StrTran( hb_MemoRead( cMacro ), Chr( 13 ) ), Chr( 10 ), " " ) ENDIF #endif SWITCH Upper( cMacro ) CASE "HB_ROOT" cMacro := hb_DirSepAdd( hb_DirBase() ) ; EXIT CASE "HB_DIR" cMacro := PathSepToSelf( hb_FNameDir( cFileName ) ) ; EXIT CASE "HB_DIRNAME" cMacro := hb_FNameName( hb_DirSepDel( PathSepToSelf( hb_FNameDir( cFileName ) ) ) ) ; EXIT CASE "HB_NAME" cMacro := PathSepToSelf( hb_FNameName( cFileName ) ) ; EXIT CASE "HB_SELF" cMacro := PathSepToSelf( cFileName ) ; EXIT CASE "HB_CURDIR" cMacro := hb_cwd() ; EXIT CASE "HB_TEMPDIR" cMacro := hb_DirTemp() ; EXIT CASE "HB_TARGETNAME" cMacro := hb_FNameName( PathSepToSelf( hbmk_TARGETNAME( hbmk ) ) ) ; EXIT CASE "HB_TARGETTYPE" cMacro := hbmk_TARGETTYPE( hbmk ) ; EXIT CASE "HB_PLAT" CASE "HB_PLATFORM" /* Compatibility */ CASE "HB_ARCH" /* Compatibility */ cMacro := hbmk[ _HBMK_cPLAT ] ; EXIT CASE "HB_COMP" CASE "HB_COMPILER" /* Compatibility */ cMacro := hbmk[ _HBMK_cCOMP ] ; EXIT CASE "HB_COMP_VER" cMacro := hb_ntos( hbmk[ _HBMK_nCOMPVer ] ) ; EXIT CASE "HB_BUILD" cMacro := hbmk[ _HBMK_cBUILD ] ; EXIT CASE "HB_CPU" cMacro := hbmk[ _HBMK_cCPU ] ; EXIT CASE "HB_WORK" cMacro := _WORKDIR_BASE_ ; EXIT CASE "HB_WORKDYNSUB" cMacro := hbmk[ _HBMK_cWorkDirDynSub ] ; EXIT CASE "HB_DYNPREFIX" cMacro := hbmk[ _HBMK_cDynLibPrefix ] ; EXIT CASE "HB_DYNSUFFIX" cMacro := hbmk_DYNSUFFIX( hbmk ) ; EXIT CASE "HB_DYNEXT" cMacro := hbmk[ _HBMK_cDynLibExt ] ; EXIT CASE "HB_VER" cMacro := hb_NumToHex( hb_Version( HB_VERSION_MAJOR ), 2 ) + hb_NumToHex( hb_Version( HB_VERSION_MINOR ), 2 ) + hb_NumToHex( hb_Version( HB_VERSION_RELEASE ), 2 ) ; EXIT CASE "HB_VERSTR" cMacro := hb_ntos( hb_Version( HB_VERSION_MAJOR ) ) + "." + hb_ntos( hb_Version( HB_VERSION_MINOR ) ) + "." + hb_ntos( hb_Version( HB_VERSION_RELEASE ) ) + hb_Version( HB_VERSION_STATUS ) ; EXIT CASE "HB_MAJOR" cMacro := hb_ntos( hb_Version( HB_VERSION_MAJOR ) ) ; EXIT CASE "HB_MINOR" cMacro := hb_ntos( hb_Version( HB_VERSION_MINOR ) ) ; EXIT CASE "HB_RELEASE" cMacro := hb_ntos( hb_Version( HB_VERSION_RELEASE ) ) ; EXIT CASE "HB_STATUS" cMacro := hb_Version( HB_VERSION_STATUS ) ; EXIT CASE "HB_REVISION" cMacro := hb_ntos( hb_Version( HB_VERSION_REVISION ) ) ; EXIT CASE "HB_HOST_PLAT" cMacro := hb_Version( HB_VERSION_PLATFORM ) ; EXIT CASE "HB_HOST_PLAT_UNIX" cMacro := iif( hb_Version( HB_VERSION_UNIX_COMPAT ), "1", "" ) ; EXIT CASE "HB_BIN" cMacro := hbmk[ _HBMK_cHB_INSTALL_BIN ] ; EXIT CASE "HB_LIB" cMacro := hbmk[ _HBMK_cHB_INSTALL_LIB ] ; EXIT CASE "HB_LIB3RD" cMacro := hbmk[ _HBMK_cHB_INSTALL_LI3 ] ; EXIT CASE "HB_DYN" cMacro := hbmk[ _HBMK_cHB_INSTALL_DYN ] ; EXIT CASE "HB_INC" cMacro := hbmk[ _HBMK_cHB_INSTALL_INC ] ; EXIT CASE "HB_FIRST" cMacro := hb_FNameName( hbmk[ _HBMK_cFIRST ] ) ; EXIT CASE "HB_OUTPUTDIR" cMacro := iif( HB_ISSTRING( hbmk[ _HBMK_cPROGDIR ] ), hb_FNameDir( hbmk[ _HBMK_cPROGDIR ] ), "" ) ; EXIT CASE "HB_OUTPUTNAME" cMacro := iif( HB_ISSTRING( hbmk[ _HBMK_cPROGNAME ] ), hb_FNameName( hbmk[ _HBMK_cPROGNAME ] ), "" ) ; EXIT CASE "HB_LEVEL" cMacro := hb_ntos( hbmk[ _HBMK_nLevel ] ) ; EXIT OTHERWISE IF cMacro $ hbmk[ _HBMK_hDEPTMACRO ] /* Check for dependency detection macros */ IF Empty( hbmk[ _HBMK_hDEPTMACRO ][ cMacro ] ) cMacro := "1" ELSE cMacro := hbmk[ _HBMK_hDEPTMACRO ][ cMacro ] ENDIF ELSE /* NOTE: If macro not found, try to interpret as envvar. If it doesn't exist, empty string will be returned (without warning) [vszakats] */ cMacro := GetEnv( cMacro ) ENDIF ENDSWITCH IF ! HB_ISSTRING( cMacro ) cMacro := "" ENDIF RETURN cMacro STATIC FUNCTION IsValidHarbourID( cName ) LOCAL c IF HB_ISFIRSTIDCHAR( Left( cName, 1 ) ) FOR EACH c IN SubStr( cName, 2 ) IF ! HB_ISNEXTIDCHAR( c ) RETURN .F. ENDIF NEXT RETURN .T. ENDIF RETURN .F. STATIC FUNCTION FuncNameEncode( cName ) LOCAL cResult, c LOCAL nPos cResult := "" FOR nPos := 1 TO hb_BLen( cName ) c := hb_BSubStr( cName, nPos, 1 ) IF c == "_" .OR. hb_asciiIsAlpha( c ) .OR. ( ! cResult == "" .AND. hb_asciiIsDigit( c ) ) cResult += c ELSE cResult += "x" + Lower( hb_NumToHex( Asc( c ), 2 ) ) ENDIF NEXT RETURN cResult STATIC FUNCTION IsHexDigit( c ) RETURN c $ "0123456789ABCDEFabcdef" /* in GCC LD (except DJGPP) the order of registering init function * does not depend directly on the order of linked files. If we want * to inform HVM about valid startup function then we should try to * locate it ourselves and pass it to HVM using our startup function * [druzus] */ STATIC FUNCTION getFirstFunc( hbmk, cFile ) LOCAL cFuncList, cExecNM, cFuncName, cExt, cLine, n, c cFuncName := "" IF HBMK_ISCOMP( "gcc|mingw|mingw64|mingwarm|gccomf" ) hb_FNameSplit( cFile,,, @cExt ) IF cExt == ".c" FOR EACH cLine IN hb_ATokens( StrTran( hb_MemoRead( cFile ), Chr( 13 ), Chr( 10 ) ), Chr( 10 ) ) cLine := AllTrim( cLine ) IF LEFTEQUAL( cLine, '{ "' ) .AND. "HB_FS_FIRST" $ cLine .AND. !( "HB_FS_STATIC" $ cLine ) n := 4 WHILE ( c := SubStr( cLine, n++, 1 ) ) != '"' cFuncName += c ENDDO EXIT ENDIF NEXT ELSEIF Lower( cExt ) == ".cpp" .OR. ; Lower( cExt ) == ".cc" .OR. ; Lower( cExt ) == ".cxx" .OR. ; Lower( cExt ) == ".cx" /* do nothing */ ELSEIF ! Empty( cExecNM := FindInPath( hbmk[ _HBMK_cCCPREFIX ] + "nm" ) ) cFuncList := "" hb_processRun( cExecNM + " " + FNameEscape( cFile, hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ) +; " -g -n" + iif( hbmk[ _HBMK_cCOMP ] == "darwin", "", " --defined-only -C" ),, @cFuncList ) IF ( n := At( " T HB_FUN_", cFuncList ) ) != 0 n += 10 ELSEIF ( n := At( " T _HB_FUN_", cFuncList ) ) != 0 n += 11 ENDIF IF n != 0 WHILE ( c := SubStr( cFuncList, n++, 1 ) ) == "_" .OR. ; hb_asciiIsDigit( c ) .OR. hb_asciiIsAlpha( c ) IF c == "x" .AND. IsHexDigit( SubStr( cFuncList, n, 1 ) ) .AND. ; IsHexDigit( SubStr( cFuncList, n + 1, 1 ) ) c := hb_HexToNum( SubStr( cFuncList, n, 2 ) ) n += 2 ENDIF cFuncName += c ENDDO ENDIF ENDIF ENDIF RETURN cFuncName STATIC PROCEDURE PlatformPRGFlags( hbmk, aOPTPRG ) LOCAL aUn LOCAL aDf LOCAL cMacro LOCAL nPos IF !( hbmk[ _HBMK_cPLAT ] == hb_Version( HB_VERSION_BUILD_PLAT ) ) .OR. ; !( hbmk[ _HBMK_cCOMP ] == hb_Version( HB_VERSION_BUILD_COMP ) ) aUn := {} aDf := {} AAdd( aUn, ".ARCH." ) IF _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ) #if defined( __PLATFORM__WINDOWS ) AAdd( aUn, "__PLATFORM__Windows" ) #if defined( __PLATFORM__WINCE ) AAdd( aUn, "__PLATFORM__WINCE" ) #endif /* This is defined with Cygwin */ #if defined( __PLATFORM__UNIX ) AAdd( aUn, "__PLATFORM__UNIX" ) #endif #elif defined( __PLATFORM__DOS ) AAdd( aUn, "__PLATFORM__DOS" ) #elif defined( __PLATFORM__OS2 ) AAdd( aUn, "__PLATFORM__OS2" ) #elif defined( __PLATFORM__LINUX ) AAdd( aUn, "__PLATFORM__Linux" ) AAdd( aUn, "__PLATFORM__UNIX" ) #elif defined( __PLATFORM__DARWIN ) AAdd( aUn, "__PLATFORM__DARWIN" ) AAdd( aUn, "__PLATFORM__UNIX" ) #elif defined( __PLATFORM__BSD ) AAdd( aUn, "__PLATFORM__BSD" ) AAdd( aUn, "__PLATFORM__UNIX" ) #elif defined( __PLATFORM__SUNOS ) AAdd( aUn, "__PLATFORM__SUNOS" ) AAdd( aUn, "__PLATFORM__UNIX" ) #elif defined( __PLATFORM__HPUX ) AAdd( aUn, "__PLATFORM__HPUX" ) AAdd( aUn, "__PLATFORM__UNIX" ) #elif defined( __PLATFORM__CYGWIN ) AAdd( aUn, "__PLATFORM__CYGWIN" ) AAdd( aUn, "__PLATFORM__UNIX" ) #elif defined( __PLATFORM__AIX ) AAdd( aUn, "__PLATFORM__AIX" ) AAdd( aUn, "__PLATFORM__UNIX" ) #endif #if defined( __ARCH16BIT__ ) AAdd( aUn, "__ARCH16BIT__" ) #elif defined( __ARCH32BIT__ ) AAdd( aUn, "__ARCH32BIT__" ) #elif defined( __ARCH64BIT__ ) AAdd( aUn, "__ARCH64BIT__" ) #endif #if defined( __LITTLE_ENDIAN__ ) AAdd( aUn, "__LITTLE_ENDIAN__" ) #elif defined( __BIG_ENDIAN__ ) AAdd( aUn, "__BIG_ENDIAN__" ) #elif defined( __PDP_ENDIAN__ ) AAdd( aUn, "__PDP_ENDIAN__" ) #endif ENDIF DO CASE CASE hbmk[ _HBMK_cPLAT ] == "wce" AAdd( aDf, "__PLATFORM__WINDOWS" ) AAdd( aDf, "__PLATFORM__WINCE" ) IF _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ) AAdd( aDf, "__PLATFORM__Windows" ) ENDIF CASE hbmk[ _HBMK_cPLAT ] == "win" AAdd( aDf, "__PLATFORM__WINDOWS" ) IF _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ) AAdd( aDf, "__PLATFORM__Windows" ) ENDIF CASE hbmk[ _HBMK_cPLAT ] == "dos" AAdd( aDf, "__PLATFORM__DOS" ) CASE hbmk[ _HBMK_cPLAT ] == "os2" AAdd( aDf, "__PLATFORM__OS2" ) CASE hbmk[ _HBMK_cPLAT ] == "linux" AAdd( aDf, "__PLATFORM__LINUX" ) AAdd( aDf, "__PLATFORM__UNIX" ) IF _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ) AAdd( aDf, "__PLATFORM__Linux" ) ENDIF CASE hbmk[ _HBMK_cPLAT ] == "darwin" AAdd( aDf, "__PLATFORM__DARWIN" ) AAdd( aDf, "__PLATFORM__UNIX" ) CASE hbmk[ _HBMK_cPLAT ] == "bsd" AAdd( aDf, "__PLATFORM__BSD" ) AAdd( aDf, "__PLATFORM__UNIX" ) CASE hbmk[ _HBMK_cPLAT ] == "sunos" AAdd( aDf, "__PLATFORM__SUNOS" ) AAdd( aDf, "__PLATFORM__UNIX" ) CASE hbmk[ _HBMK_cPLAT ] == "hpux" AAdd( aDf, "__PLATFORM__HPUX" ) AAdd( aDf, "__PLATFORM__UNIX" ) CASE hbmk[ _HBMK_cPLAT ] == "beos" AAdd( aDf, "__PLATFORM__BEOS" ) AAdd( aDf, "__PLATFORM__UNIX" ) CASE hbmk[ _HBMK_cPLAT ] == "qnx" AAdd( aDf, "__PLATFORM__QNX" ) AAdd( aDf, "__PLATFORM__UNIX" ) CASE hbmk[ _HBMK_cPLAT ] == "android" AAdd( aDf, "__PLATFORM__ANDROID" ) AAdd( aDf, "__PLATFORM__UNIX" ) CASE hbmk[ _HBMK_cPLAT ] == "vxworks" AAdd( aDf, "__PLATFORM__VXWORKS" ) AAdd( aDf, "__PLATFORM__UNIX" ) CASE hbmk[ _HBMK_cPLAT ] == "symbian" AAdd( aDf, "__PLATFORM__SYMBIAN" ) AAdd( aDf, "__PLATFORM__UNIX" ) CASE hbmk[ _HBMK_cPLAT ] == "cygwin" AAdd( aDf, "__PLATFORM__CYGWIN" ) AAdd( aDf, "__PLATFORM__UNIX" ) CASE hbmk[ _HBMK_cPLAT ] == "minix" AAdd( aDf, "__PLATFORM__MINIX" ) AAdd( aDf, "__PLATFORM__UNIX" ) CASE hbmk[ _HBMK_cPLAT ] == "aix" AAdd( aDf, "__PLATFORM__AIX" ) AAdd( aDf, "__PLATFORM__UNIX" ) ENDCASE /* Setup those CPU flags which we can be sure about. This is not fully generic solution, cross builds to *nix systems aren't covered. Anyway, it's not recommended to use these macros in .prg code. [vszakats] */ DO CASE CASE HBMK_ISPLAT( "dos|os2" ) AAdd( aDf, "__LITTLE_ENDIAN__" ) AAdd( aDf, "__ARCH32BIT__" ) CASE HBMK_ISPLAT( "wce|win" ) AAdd( aDf, "__LITTLE_ENDIAN__" ) /* Windows is currently little-endian on all supported CPUs. */ IF hbmk[ _HBMK_cCOMP ] == "mingw64" .OR. ; hbmk[ _HBMK_cCOMP ] == "msvc64" .OR. ; hbmk[ _HBMK_cCOMP ] == "pocc64" .OR. ; hbmk[ _HBMK_cCOMP ] == "msvcia64" .OR. ; hbmk[ _HBMK_cCOMP ] == "iccia64" AAdd( aDf, "__ARCH64BIT__" ) ELSE AAdd( aDf, "__ARCH32BIT__" ) ENDIF OTHERWISE /* NOTE: Users will have to manually #define fitting macros for given platform + compiler settings. We could only guess. Let's assume the most probable CPU platform (as of 2009). */ AAdd( aDf, "__LITTLE_ENDIAN__" ) AAdd( aDf, "__ARCH32BIT__" ) ENDCASE /* Delete macros present in both lists */ FOR EACH cMacro IN aUn DESCEND IF ( nPos := AScan( aDf, {| tmp | tmp == cMacro } ) ) > 0 hb_ADel( aUn, cMacro:__enumIndex(), .T. ) hb_ADel( aDf, nPos, .T. ) ENDIF NEXT FOR EACH cMacro IN aUn AAdd( aOPTPRG, "-undef:" + cMacro ) NEXT FOR EACH cMacro IN aDf AAdd( aOPTPRG, "-D" + cMacro ) NEXT ENDIF RETURN #define RTLNK_MODE_NONE 0 #define RTLNK_MODE_OUT 1 #define RTLNK_MODE_FILE 2 #define RTLNK_MODE_FILENEXT 3 #define RTLNK_MODE_LIB 4 #define RTLNK_MODE_LIBNEXT 5 #define RTLNK_MODE_SKIP 6 #define RTLNK_MODE_SKIPNEXT 7 STATIC PROCEDURE rtlnk_libtrans( aLibList ) STATIC s_hTrans := { ; "CT" => "hbct" , ; "CTP" => "hbct" , ; "CLASSY" => NIL , ; "CSYINSP" => NIL , ; "SIX3" => NIL , ; "NOMACH6" => NIL , ; "BLXRATEX" => NIL , ; "BLXCLP50" => NIL , ; "BLXCLP52" => NIL , ; "BLXCLP53" => NIL , ; "EXOSPACE" => NIL , ; "CLIPPER" => NIL , ; "EXTEND" => NIL , ; "TERMINAL" => NIL , ; "PCBIOS" => NIL , ; "ANSITERM" => NIL , ; "DBFBLOB" => NIL , ; "DBFMEMO" => NIL , ; "DBFNTX" => NIL , ; "DBFCDX" => NIL , ; "_DBFCDX" => NIL , ; "CLD" => NIL , ; "CLDR" => NIL , ; "LLIBCE" => NIL , ; "LLIBCA" => NIL } LOCAL cLib FOR EACH cLib IN aLibList DESCEND IF Lower( Right( cLib, 4 ) ) == ".lib" cLib := Left( cLib, Len( cLib ) - 4 ) ENDIF IF Upper( cLib ) $ s_hTrans cLib := s_hTrans[ Upper( cLib ) ] IF cLib == NIL hb_ADel( aLibList, cLib:__enumIndex(), .T. ) ENDIF ENDIF NEXT RETURN STATIC PROCEDURE rtlnk_filetrans( aFileList ) STATIC s_hTrans := { ; "CTUS" => NIL , ; "CTUSP" => NIL , ; "CTINT" => NIL , ; "CTINTP" => NIL , ; "__WAIT" => NIL , ; "__WAIT_4" => NIL , ; "__WAIT_B" => NIL , ; "BLXCLP50" => NIL , ; "BLXCLP52" => NIL , ; "BLXCLP53" => NIL , ; "BLDCLP50" => NIL , ; "BLDCLP52" => NIL , ; "BLDCLP53" => NIL , ; "SIXCDX" => NIL , ; "SIXNSX" => NIL , ; "SIXNTX" => NIL , ; "DBT" => NIL , ; "FPT" => NIL , ; "SMT" => NIL , ; "NOMEMO" => NIL , ; "CLD.LIB" => NIL } LOCAL cFile FOR EACH cFile IN aFileList DESCEND IF Lower( Right( cFile, 4 ) ) == ".obj" cFile := Left( cFile, Len( cFile ) - 4 ) ENDIF IF Upper( cFile ) $ s_hTrans cFile := s_hTrans[ Upper( cFile ) ] IF cFile == NIL hb_ADel( aFileList, cFile:__enumIndex(), .T. ) ENDIF ENDIF NEXT RETURN STATIC FUNCTION rtlnk_read( cFileName, aPrevFiles ) LOCAL cFileBody LOCAL cPath, cFile, cExt LOCAL hFile hb_FNameSplit( cFileName, @cPath, @cFile, @cExt ) IF Empty( cExt ) cExt := ".lnk" ENDIF cFileName := hb_FNameMerge( cPath, cFile, ".lnk" ) /* it's blinker extension, look for .lnk file in paths * specified by LIB envvar */ IF ! hb_FileExists( cFileName ) .AND. ; !( Left( cFileName, 1 ) $ hb_osPathDelimiters() ) .AND. ; !( SubStr( cFileName, 2, 1 ) == hb_osDriveSeparator() ) FOR EACH cPath IN hb_ATokens( GetEnv( "LIB" ), hb_osPathListSeparator() ) cFile := hb_FNameMerge( cPath, cFileName ) IF hb_FileExists( cFile ) cFileName := cFile EXIT ENDIF NEXT ENDIF /* protection against recursive calls */ IF AScan( aPrevFiles, {| x | x == cFileName } ) == 0 IF ( hFile := FOpen( cFileName ) ) != -1 cFileBody := Space( FSeek( hFile, 0, FS_END ) ) FSeek( hFile, 0, FS_SET ) IF FRead( hFile, @cFileBody, hb_BLen( cFileBody ) ) != hb_BLen( cFileBody ) cFileBody := NIL ENDIF FClose( hFile ) ENDIF AAdd( aPrevFiles, cFileName ) ELSE cFileBody := "" ENDIF RETURN cFileBody STATIC FUNCTION rtlnk_tokens( cLine ) LOCAL cCh FOR EACH cCh IN @cLine IF cCh $ Chr( 9 ) + Chr( 11 ) + Chr( 12 ) + ";" cCh := " " ENDIF NEXT RETURN hb_ATokens( StrTran( cLine, ",", " , " ) ) STATIC FUNCTION rtlnk_process( hbmk, cCommands, cFileOut, aFileList, aLibList, ; aPrevFiles ) LOCAL cLine, cWord LOCAL nMode cCommands := StrTran( StrTran( cCommands, Chr( 13 ) ), "//", "# " ) nMode := RTLNK_MODE_NONE IF ! HB_ISARRAY( aPrevFiles ) aPrevFiles := {} ENDIF FOR EACH cLine IN hb_ATokens( cCommands, Chr( 10 ) ) cLine := AllTrim( cLine ) IF ! Empty( cLine ) FOR EACH cWord IN rtlnk_tokens( cLine ) IF LEFTEQUAL( cWord, "#" ) EXIT ELSEIF nMode == RTLNK_MODE_OUT cFileOut := cWord nMode := RTLNK_MODE_FILENEXT ELSEIF nMode == RTLNK_MODE_FILE IF !( cWord == "," ) IF AScan( aFileList, {| x | x == cWord } ) == 0 AAdd( aFileList, PathSepToSelf( cWord ) ) ENDIF nMode := RTLNK_MODE_FILENEXT ENDIF ELSEIF nMode == RTLNK_MODE_LIB IF !( cWord == "," ) AAdd( aLibList, PathSepToSelf( cWord ) ) nMode := RTLNK_MODE_LIBNEXT ENDIF ELSEIF nMode == RTLNK_MODE_SKIP IF !( cWord == "," ) nMode := RTLNK_MODE_SKIPNEXT ENDIF ELSEIF cWord == "," IF nMode == RTLNK_MODE_FILENEXT nMode := RTLNK_MODE_FILE ELSEIF nMode == RTLNK_MODE_LIBNEXT nMode := RTLNK_MODE_LIB ELSEIF nMode == RTLNK_MODE_SKIPNEXT nMode := RTLNK_MODE_SKIP ENDIF ELSEIF LEFTEQUAL( cWord, "@" ) cWord := SubStr( cWord, 2 ) cCommands := rtlnk_read( @cWord, aPrevFiles ) IF cCommands == NIL _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Cannot open file: %1$s" ), cWord ) ) RETURN .F. ENDIF IF ! rtlnk_process( hbmk, cCommands, @cFileOut, @aFileList, @aLibList, aPrevFiles ) RETURN .F. ENDIF ELSE cWord := Upper( cWord ) IF Len( cWord ) >= 2 IF LEFTEQUAL( "OUTPUT", cWord ) nMode := RTLNK_MODE_OUT ELSEIF LEFTEQUAL( "FILE", cWord ) nMode := RTLNK_MODE_FILE ELSEIF LEFTEQUAL( "LIBRARY", cWord ) nMode := RTLNK_MODE_LIB ELSEIF LEFTEQUAL( "MODULE", cWord ) .OR. ; LEFTEQUAL( "EXCLUDE", cWord ) .OR. ; LEFTEQUAL( "REFER", cWord ) .OR. ; LEFTEQUAL( "INTO", cWord ) nMode := RTLNK_MODE_SKIP /* blinker extension */ ELSEIF LEFTEQUAL( "BLINKER", cWord ) /* skip blinker commands */ EXIT ELSEIF LEFTEQUAL( "ECHO", cWord ) _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Blinker ECHO: %1$s" ), SubStr( cLine, 6 ) ) ) EXIT ELSEIF LEFTEQUAL( "MAP", cWord ) hbmk[ _HBMK_lMAP ] := .T. EXIT ELSEIF LEFTEQUAL( "NOBELL", cWord ) hbmk[ _HBMK_lBEEP ] := .F. EXIT ELSE /* TODO: add other blinker commands */ ENDIF ENDIF ENDIF NEXT ENDIF NEXT RETURN .T. /* .po generation */ STATIC PROCEDURE RebuildPO( hbmk, aPOTIN ) LOCAL cLNG LOCAL fhnd LOCAL cPOTemp LOCAL cPOCooked LOCAL aNew := {} LOCAL aUpd := {} FOR EACH cLNG IN iif( Empty( hbmk[ _HBMK_aLNG ] ) .OR. !( _LNG_MARKER $ hbmk[ _HBMK_cPO ] ), { _LNG_MARKER }, hbmk[ _HBMK_aLNG ] ) IF cLNG:__enumIndex() == 1 fhnd := hb_FTempCreateEx( @cPOTemp, NIL, NIL, ".po" ) IF fhnd != F_ERROR FClose( fhnd ) IF hbmk[ _HBMK_lDEBUGI18N ] _hbmk_OutStd( hbmk, hb_StrFormat( "RebuildPO: file .pot list: %1$s", ArrayToList( aPOTIN, ", " ) ) ) _hbmk_OutStd( hbmk, hb_StrFormat( "RebuildPO: temp unified .po: %1$s", cPOTemp ) ) ENDIF POTMerge( hbmk, aPOTIN, NIL, cPOTemp ) ELSE _hbmk_OutStd( hbmk, I_( "Error: Cannot create temporary unified .po file." ) ) ENDIF ENDIF cPOCooked := StrTran( hbmk[ _HBMK_cPO ], _LNG_MARKER, cLNG ) IF hb_FileExists( cPOCooked ) IF hbmk[ _HBMK_lDEBUGI18N ] _hbmk_OutStd( hbmk, hb_StrFormat( "RebuildPO: updating unified .po: %1$s", cPOCooked ) ) ENDIF AutoTrans( hbmk, cPOTemp, { cPOCooked }, cPOCooked ) AAdd( aUpd, cLNG ) ELSE IF hbmk[ _HBMK_lDEBUGI18N ] _hbmk_OutStd( hbmk, hb_StrFormat( "RebuildPO: creating unified .po: %1$s", cPOCooked ) ) ENDIF hb_FCopy( cPOTemp, cPOCooked ) AAdd( aNew, cLNG ) ENDIF NEXT IF ! Empty( cPOTemp ) FErase( cPOTemp ) ENDIF IF ! hbmk[ _HBMK_lQuiet ] IF ! Empty( aNew ) IF Empty( hbmk[ _HBMK_aLNG ] ) .OR. !( _LNG_MARKER $ hbmk[ _HBMK_cPO ] ) _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Created .po file '%1$s'" ), hbmk[ _HBMK_cPO ] ) ) ELSE _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Created .po file '%1$s' for language(s): %2$s" ), hbmk[ _HBMK_cPO ], ArrayToList( aNew, "," ) ) ) ENDIF ENDIF IF ! Empty( aUpd ) IF Empty( hbmk[ _HBMK_aLNG ] ) .OR. !( _LNG_MARKER $ hbmk[ _HBMK_cPO ] ) _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Rebuilt .po file '%1$s'" ), hbmk[ _HBMK_cPO ] ) ) ELSE _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Rebuilt .po file '%1$s' for language(s): %2$s" ), hbmk[ _HBMK_cPO ], ArrayToList( aUpd, "," ) ) ) ENDIF ENDIF ENDIF RETURN /* .po update */ STATIC PROCEDURE UpdatePO( hbmk, aPOTIN ) LOCAL cLNG LOCAL aUpd := {} FOR EACH cLNG IN iif( Empty( hbmk[ _HBMK_aLNG ] ) .OR. !( _LNG_MARKER $ hbmk[ _HBMK_cPO ] ), { _LNG_MARKER }, hbmk[ _HBMK_aLNG ] ) POTMerge( hbmk, aPOTIN, StrTran( hbmk[ _HBMK_cPO ], _LNG_MARKER, cLNG ), StrTran( hbmk[ _HBMK_cPO ], _LNG_MARKER, cLNG ) ) AAdd( aUpd, cLNG ) NEXT IF hbmk[ _HBMK_lDEBUGI18N ] _hbmk_OutStd( hbmk, hb_StrFormat( "UpdatePO: file .pot list: %1$s", ArrayToList( aPOTIN, ", " ) ) ) _hbmk_OutStd( hbmk, hb_StrFormat( "UpdatePO: for .po: %1$s", hbmk[ _HBMK_cPO ] ) ) _hbmk_OutStd( hbmk, hb_StrFormat( "UpdatePO: for languages: %1$s", ArrayToList( hbmk[ _HBMK_aLNG ], ", " ) ) ) ENDIF IF Empty( hbmk[ _HBMK_aLNG ] ) .OR. !( _LNG_MARKER $ hbmk[ _HBMK_cPO ] ) _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Updated .po file '%1$s'" ), hbmk[ _HBMK_cPO ] ) ) ELSE _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Updated .po file '%1$s' for language(s): %2$s" ), hbmk[ _HBMK_cPO ], ArrayToList( aUpd, "," ) ) ) ENDIF RETURN /* .hbl generation */ STATIC PROCEDURE MakeHBL( hbmk, cHBL ) LOCAL cPO LOCAL tPO LOCAL cLNG LOCAL tLNG LOCAL aPO_TO_DO LOCAL lUpdateNeeded LOCAL aNew := {} IF ! Empty( hbmk[ _HBMK_aPO ] ) IF hbmk[ _HBMK_lDEBUGI18N ] _hbmk_OutStd( hbmk, hb_StrFormat( "po: in: %1$s", ArrayToList( hbmk[ _HBMK_aPO ] ) ) ) ENDIF IF Empty( cHBL ) cHBL := hb_FNameName( hbmk[ _HBMK_aPO ][ 1 ] ) ENDIF IF Empty( hb_FNameExt( cHBL ) ) cHBL := hb_FNameExtSet( cHBL, ".hbl" ) ENDIF FOR EACH cLNG IN iif( Empty( hbmk[ _HBMK_aLNG ] ) .OR. !( _LNG_MARKER $ cHBL ), { _LNG_MARKER }, hbmk[ _HBMK_aLNG ] ) tLNG := NIL hb_FGetDateTime( StrTran( cHBL, _LNG_MARKER, cLNG ), @tLNG ) lUpdateNeeded := .F. aPO_TO_DO := {} FOR EACH cPO IN hbmk[ _HBMK_aPO ] IF tLNG == NIL .OR. ( hb_FGetDateTime( StrTran( cPO, _LNG_MARKER, cLNG ), @tPO ) .AND. tPO > tLNG ) lUpdateNeeded := .T. ENDIF AAdd( aPO_TO_DO, StrTran( cPO, _LNG_MARKER, cLNG ) ) NEXT IF lUpdateNeeded IF hbmk[ _HBMK_lDEBUGI18N ] _hbmk_OutStd( hbmk, hb_StrFormat( "po: %1$s -> %2$s", ArrayToList( aPO_TO_DO ), StrTran( cHBL, _LNG_MARKER, cLNG ) ) ) ENDIF GenHBL( hbmk, aPO_TO_DO, StrTran( cHBL, _LNG_MARKER, cLNG ) ) AAdd( aNew, cLNG ) ENDIF NEXT ENDIF IF ! hbmk[ _HBMK_lQuiet ] IF ! Empty( aNew ) IF Empty( hbmk[ _HBMK_aLNG ] ) .OR. !( _LNG_MARKER $ cHBL ) _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Created .hbl file '%1$s'" ), cHBL ) ) ELSE _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Created .hbl file '%1$s' for language(s): %2$s" ), cHBL, ArrayToList( aNew, "," ) ) ) ENDIF ENDIF ENDIF RETURN STATIC FUNCTION LoadPOTFiles( hbmk, aFiles, cFileBase, lIgnoreError ) LOCAL aTrans, aTrans2 LOCAL hIndex LOCAL cErrorMsg LOCAL cFileName IF ! Empty( cFileBase ) aTrans := __i18n_potArrayLoad( cFileBase, @cErrorMsg ) ENDIF IF aTrans == NIL aTrans := {} ENDIF FOR EACH cFileName IN aFiles aTrans2 := __i18n_potArrayLoad( cFileName, @cErrorMsg ) IF aTrans2 != NIL __i18n_potArrayJoin( aTrans, aTrans2, @hIndex ) ELSE IF ! lIgnoreError _hbmk_OutErr( hbmk, hb_StrFormat( I_( ".pot error: %1$s" ), cErrorMsg ) ) ENDIF cErrorMsg := NIL ENDIF NEXT IF hbmk[ _HBMK_lDEBUGI18N ] .AND. aTrans == NIL _hbmk_OutErr( hbmk, "LoadPOTFiles() did not load anything" ) ENDIF RETURN aTrans STATIC FUNCTION LoadPOTFilesAsHash( hbmk, aFiles ) LOCAL cErrorMsg LOCAL hTrans LOCAL aTrans LOCAL cFileName FOR EACH cFileName IN aFiles cErrorMsg := NIL aTrans := __i18n_potArrayLoad( cFileName, @cErrorMsg ) IF aTrans != NIL IF hbmk[ _HBMK_lDEBUGI18N ] _hbmk_OutStd( hbmk, hb_StrFormat( "LoadPOTFilesAsHash(): %1$s", cFileName ) ) ENDIF hTrans := __i18n_potArrayToHash( aTrans,, hTrans ) ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: %1$s" ), cErrorMsg ) ) ENDIF NEXT RETURN hTrans STATIC PROCEDURE POTMerge( hbmk, aFiles, cFileBase, cFileOut ) LOCAL cErrorMsg LOCAL aTrans := LoadPOTFiles( hbmk, aFiles, cFileBase, .T. ) IF aTrans != NIL IF ! __i18n_potArraySave( cFileOut, aTrans, @cErrorMsg, ! hbmk[ _HBMK_lMINIPO ], ! hbmk[ _HBMK_lMINIPO ] ) _hbmk_OutErr( hbmk, hb_StrFormat( I_( ".pot merge error: %1$s" ), cErrorMsg ) ) ENDIF ENDIF RETURN STATIC PROCEDURE AutoTrans( hbmk, cFileIn, aFiles, cFileOut ) LOCAL cErrorMsg LOCAL hTrans := LoadPOTFilesAsHash( hbmk, aFiles ) IF hTrans != NIL IF ! __i18n_potArraySave( cFileOut, ; __i18n_potArrayTrans( LoadPOTFiles( hbmk, {}, cFileIn, .F. ), ; hTrans ), @cErrorMsg, ! hbmk[ _HBMK_lMINIPO ], ! hbmk[ _HBMK_lMINIPO ] ) _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: %1$s" ), cErrorMsg ) ) ENDIF ENDIF RETURN STATIC FUNCTION GenHBL( hbmk, aFiles, cFileOut, lEmpty ) LOCAL cHBLBody LOCAL pI18N LOCAL aTrans := LoadPOTFiles( hbmk, aFiles, NIL, .F. ) LOCAL lRetVal := .F. IF HB_ISARRAY( aTrans ) pI18N := __i18n_hashTable( __i18n_potArrayToHash( aTrans, lEmpty ) ) cHBLBody := hb_i18n_SaveTable( pI18N ) IF hb_MemoWrit( cFileOut, cHBLBody ) lRetVal := .T. ELSE _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Cannot create file: %1$s" ), cFileOut ) ) ENDIF ENDIF RETURN lRetVal STATIC FUNCTION win_implib_command( hbmk, cCommand, cSourceDLL, cTargetLib, cFlags ) IF ! hb_FileExists( cSourceDLL ) IF hbmk[ _HBMK_lInfo ] _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Source dynamic library not found: %1$s" ), cSourceDLL ) ) ENDIF RETURN _HBMK_IMPLIB_NOTFOUND ENDIF hb_default( @cFlags, "" ) cCommand := StrTran( cCommand, "{FI}", cFlags ) cCommand := StrTran( cCommand, "{ID}", FNameEscape( cSourceDLL, hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ) ) cCommand := StrTran( cCommand, "{OL}", FNameEscape( cTargetLib, hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ) ) IF hbmk[ _HBMK_lTRACE ] IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "Import library creation command:" ) ) ENDIF OutStd( cCommand + _OUT_EOL ) ENDIF RETURN iif( hb_processRun( cCommand ) == 0, _HBMK_IMPLIB_OK, _HBMK_IMPLIB_FAILED ) #define _COFF_LIB_SIGNATURE "!" STATIC FUNCTION IsCOFFLib( cFileName ) LOCAL fhnd := FOpen( cFileName, FO_READ ) LOCAL cBuffer IF fhnd != F_ERROR cBuffer := Space( hb_BLen( _COFF_LIB_SIGNATURE ) ) FRead( fhnd, @cBuffer, hb_BLen( cBuffer ) ) FClose( fhnd ) IF cBuffer == _COFF_LIB_SIGNATURE RETURN .T. ENDIF ENDIF RETURN .F. #define _OMF_LIB_SIGNATURE hb_BChar( 0xF0 ) STATIC FUNCTION IsOMFLib( cFileName ) LOCAL fhnd := FOpen( cFileName, FO_READ ) LOCAL cBuffer IF fhnd != F_ERROR cBuffer := Space( hb_BLen( _OMF_LIB_SIGNATURE ) ) FRead( fhnd, @cBuffer, hb_BLen( cBuffer ) ) FClose( fhnd ) IF cBuffer == _OMF_LIB_SIGNATURE RETURN .T. ENDIF ENDIF RETURN .F. STATIC FUNCTION win_implib_coff( hbmk, cSourceDLL, cTargetLib ) LOCAL cSourceLib /* Try to find COFF .lib with the same name */ IF hb_FileExists( cSourceLib := hb_FNameExtSet( cSourceDLL, ".lib" ) ) IF IsCOFFLib( cSourceLib ) IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "Found COFF .lib with the same name, falling back to using it instead of the .dll." ) ) ENDIF RETURN iif( hb_FCopy( cSourceLib, cTargetLib ) != F_ERROR, _HBMK_IMPLIB_OK, _HBMK_IMPLIB_FAILED ) ENDIF ENDIF RETURN _HBMK_IMPLIB_NOTFOUND STATIC FUNCTION win_implib_omf( hbmk, cSourceDLL, cTargetLib ) LOCAL cSourceLib /* Try to find COFF .lib with the same name */ IF hb_FileExists( cSourceLib := hb_FNameExtSet( cSourceDLL, ".lib" ) ) IF IsOMFLib( cSourceLib ) IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "Found OMF .lib with the same name, falling back to using it instead of the .dll." ) ) ENDIF RETURN iif( hb_FCopy( cSourceLib, cTargetLib ) != F_ERROR, _HBMK_IMPLIB_OK, _HBMK_IMPLIB_FAILED ) ENDIF ENDIF RETURN _HBMK_IMPLIB_NOTFOUND STATIC FUNCTION win_implib_def( hbmk, cCommand, cSourceDLL, cTargetLib, cFlags ) LOCAL cSourceDef /* Try to find .def file with the same name */ IF hb_FileExists( cSourceDef := hb_FNameExtSet( cSourceDLL, ".def" ) ) IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "Found .def file with the same name, falling back to using it instead of the .dll." ) ) ENDIF RETURN win_implib_command( hbmk, cCommand, cSourceDef, cTargetLib, cFlags ) ENDIF RETURN _HBMK_IMPLIB_NOTFOUND STATIC FUNCTION win_implib_copy( hbmk, cSourceDLL, cTargetLib ) HB_SYMBOL_UNUSED( hbmk ) IF hb_FileExists( cSourceDLL ) /* Use .dll directly if all other attempts failed */ RETURN iif( hb_FCopy( cSourceDLL, cTargetLib ) != F_ERROR, _HBMK_IMPLIB_OK, _HBMK_IMPLIB_FAILED ) ENDIF RETURN _HBMK_IMPLIB_NOTFOUND /* NOTE: There is a big problem with mingw/cygwin 'ld' linker: It cannot properly link stdcall decorated (_sym@nn) function names directly with .dlls, since in .dlls the decoration is stripped from the exported symbols. So, it _requires_ a .def file or a COFF import .lib which have the the decorated version of the symbols. Such .def/.lib file cannot be automatically generated from the .dll, as the decoration needs to be rebuilt based on function parameters. Not even 'ld' option '--enable-stdcall-fixup' ("Link _sym to _sym@nn without warnings") option will help the case, since we'd need a "Link _sym@nn to _sym" option. For some reason and despite the frequent complaints, gcc developers failed to add such option since year ~2000. To circumvent that and make it possible for Harbour users to effortlessly generate implibs from .dlls, we cannot do more than rely on .dll distributors to provide .def or COFF import .libs and make use of these automatically if they are available. Hopefully one day gcc will introduce a feature to make such tricks unnecessary and make it possible to create proper implibs out of ordinary .dlls, like with every other compiler. [vszakats] */ STATIC FUNCTION win_implib_command_gcc( hbmk, cCommand, cSourceDLL, cTargetLib, cFlags ) LOCAL nResult IF ( nResult := win_implib_coff( hbmk, cSourceDLL, cTargetLib ) ) != _HBMK_IMPLIB_NOTFOUND RETURN nResult ENDIF IF ( nResult := win_implib_def( hbmk, cCommand, cSourceDLL, cTargetLib, cFlags ) ) != _HBMK_IMPLIB_NOTFOUND RETURN nResult ENDIF RETURN win_implib_copy( hbmk, cSourceDLL, cTargetLib ) STATIC FUNCTION win_implib_command_bcc( hbmk, cCommand, cSourceDLL, cTargetLib, cFlags ) LOCAL nResult IF ( nResult := win_implib_omf( hbmk, cSourceDLL, cTargetLib ) ) != _HBMK_IMPLIB_NOTFOUND RETURN nResult ENDIF IF ( nResult := win_implib_def( hbmk, cCommand, cSourceDLL, cTargetLib, cFlags ) ) != _HBMK_IMPLIB_NOTFOUND RETURN nResult ENDIF RETURN win_implib_command( hbmk, cCommand, cSourceDLL, cTargetLib, cFlags ) STATIC FUNCTION win_implib_command_watcom( hbmk, cCommand, cSourceDLL, cTargetLib, cFlags ) RETURN win_implib_command( hbmk, cCommand, cSourceDLL, cTargetLib, cFlags ) STATIC FUNCTION win_implib_command_pocc( hbmk, cCommand, cSourceDLL, cTargetLib, cFlags ) LOCAL nResult IF ( nResult := win_implib_coff( hbmk, cSourceDLL, cTargetLib ) ) != _HBMK_IMPLIB_NOTFOUND RETURN nResult ENDIF RETURN win_implib_command( hbmk, cCommand, cSourceDLL, cTargetLib, cFlags ) STATIC FUNCTION win_implib_command_msvc( hbmk, cCommand, cSourceDLL, cTargetLib, cFlags ) LOCAL nResult LOCAL cExports LOCAL fhnd LOCAL cSourceDef LOCAL cLine LOCAL tmp LOCAL aCols LOCAL cFuncList LOCAL cCommandDump IF ( nResult := win_implib_coff( hbmk, cSourceDLL, cTargetLib ) ) != _HBMK_IMPLIB_NOTFOUND RETURN nResult ENDIF IF ( nResult := win_implib_def( hbmk, cCommand, cSourceDLL, cTargetLib, cFlags ) ) != _HBMK_IMPLIB_NOTFOUND RETURN nResult ENDIF IF ! hb_FileExists( cSourceDLL ) IF hbmk[ _HBMK_lInfo ] _hbmk_OutErr( hbmk, hb_StrFormat( I_( "Warning: Source dynamic library not found: %1$s" ), cSourceDLL ) ) ENDIF RETURN _HBMK_IMPLIB_NOTFOUND ENDIF cCommandDump := "dumpbin.exe -exports {ID}" cCommandDump := StrTran( cCommandDump, "{ID}", FNameEscape( cSourceDLL, hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ) ) IF hbmk[ _HBMK_lTRACE ] IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "Import library creation command:" ) ) ENDIF OutStd( cCommandDump + _OUT_EOL ) ENDIF nResult := _HBMK_IMPLIB_FAILED IF hb_processRun( cCommandDump,, @cExports ) == 0 cFuncList := "LIBRARY " + '"' + hb_FNameNameExt( cSourceDLL ) + '"' + hb_eol() +; "EXPORTS" + hb_eol() cExports := StrTran( cExports, Chr( 13 ) + Chr( 10 ), Chr( 10 ) ) tmp := At( "ordinal hint", cExports ) IF tmp > 0 cExports := SubStr( cExports, tmp + Len( "ordinal hint" ) ) ENDIF FOR EACH cLine IN hb_ATokens( cExports, Chr( 10 ) ) IF ! Empty( cLine ) aCols := hb_ATokens( cLine ) IF Len( aCols ) >= 4 cFuncList += aCols[ 4 ] + hb_eol() ENDIF ENDIF NEXT fhnd := hb_FTempCreateEx( @cSourceDef ) IF fhnd != F_ERROR FWrite( fhnd, cFuncList ) FClose( fhnd ) nResult := win_implib_command( hbmk, cCommand, cSourceDef, cTargetLib, cFlags ) FErase( cSourceDef ) ENDIF ENDIF RETURN nResult #define _VCS_UNKNOWN 0 #define _VCS_SVN 1 #define _VCS_GIT 2 #define _VCS_MERCURIAL 3 #define _VCS_CVS 4 #define _VCS_BAZAAR 5 #define _VCS_FOSSIL 6 #define _VCS_MONOTONE 7 STATIC FUNCTION VCSDetect( cDir ) hb_default( @cDir, "" ) IF ! Empty( cDir ) cDir := hb_DirSepAdd( cDir ) ENDIF DO CASE CASE hb_DirExists( cDir + ".svn" ) ; RETURN _VCS_SVN CASE hb_DirExists( cDir + ".git" ) ; RETURN _VCS_GIT CASE hb_DirExists( cDir + ".hg" ) ; RETURN _VCS_MERCURIAL CASE hb_DirExists( cDir + ".bzr" ) ; RETURN _VCS_BAZAAR CASE hb_FileExists( cDir + "_FOSSIL_" ) ; RETURN _VCS_FOSSIL CASE hb_DirExists( cDir + "_MTN" ) ; RETURN _VCS_MONOTONE CASE hb_DirExists( cDir + "CVS" ) ; RETURN _VCS_CVS CASE hb_DirExists( cDir + "_svn" ) ; RETURN _VCS_SVN /* NOTE: When SVN_ASP_DOT_NET_HACK envvar is set. [vszakats] */ ENDCASE RETURN _VCS_UNKNOWN STATIC FUNCTION VCSID( hbmk, cDir, cVCSHEAD, /* @ */ cType ) LOCAL cStdOut LOCAL nType := VCSDetect( cDir ) LOCAL cCommand LOCAL cResult := "" LOCAL tmp, tmp1 SWITCH nType CASE _VCS_SVN cType := "svn" cCommand := "svnversion " + iif( Empty( cDir ), ".", cDir ) EXIT CASE _VCS_GIT cType := "git" cCommand := "git" + iif( Empty( cDir ), "", " --work-tree=" + cDir + ".git" ) + " rev-parse --short HEAD" EXIT CASE _VCS_MERCURIAL cType := "mercurial" cCommand := "hg head" + iif( Empty( cDir ), "", " -R " + cDir ) EXIT CASE _VCS_CVS cType := "cvs" EXIT CASE _VCS_BAZAAR cType := "bazaar" cCommand := "bzr version-info" + iif( Empty( cDir ), "", " " + cDir ) EXIT CASE _VCS_FOSSIL cType := "fossil" cCommand := "fossil info" EXIT CASE _VCS_MONOTONE cType := "monotone" cCommand := "mtn status" EXIT OTHERWISE /* No version control system detected, roll our own. */ cType := "hbmk" cCommand := NIL cResult := "1" cStdOut := hb_MemoRead( cVCSHEAD ) tmp1 := "#define _HBMK_VCS_ID_" tmp := At( tmp1, cStdOut ) IF tmp > 0 cStdOut := SubStr( cStdOut, tmp + Len( tmp1 ) + 1 ) tmp := At( Chr( 10 ), cStdOut ) IF tmp > 0 cStdOut := Left( cStdOut, tmp - 1 ) cResult := hb_ntos( Val( AllTrim( StrTran( cStdOut, '"' ) ) ) + 1 ) ENDIF ENDIF ENDSWITCH IF ! Empty( cCommand ) IF hbmk[ _HBMK_lTRACE ] IF ! hbmk[ _HBMK_lQuiet ] _hbmk_OutStd( hbmk, I_( "VCS version command:" ) ) ENDIF OutStd( cCommand + _OUT_EOL ) ENDIF hb_processRun( cCommand,, @cStdOut ) SWITCH nType CASE _VCS_SVN /* 10959 */ CASE _VCS_GIT /* fe3bb56 */ cStdOut := StrTran( cStdOut, Chr( 13 ) ) cResult := StrTran( cStdOut, Chr( 10 ) ) EXIT CASE _VCS_MERCURIAL /* changeset: 696:9e33729cafae... */ tmp := At( Chr( 10 ), cStdOut ) IF tmp > 0 cStdOut := Left( cStdOut, tmp - 1 ) cResult := AllTrim( StrTran( cStdOut, "changeset:" ) ) ENDIF EXIT CASE _VCS_BAZAAR /* revision-id: pqm@pqm.ubuntu.com-20090813025005-k2k8pa2o38b8m0l8 date: 2009-08-13 03:50:05 +0100 build-date: 2009-08-13 16:53:32 +0200 revno: 4602 branch-nick: bzr */ tmp := At( "revno: ", cStdOut ) IF tmp > 0 cStdOut := SubStr( cStdOut, tmp + Len( "revno: " ) ) tmp := At( Chr( 10 ), cStdOut ) IF tmp > 0 cResult := Left( cStdOut, tmp - 1 ) ENDIF ENDIF EXIT CASE _VCS_FOSSIL /* project-name: Fossil repository: C:/fossil/fossil.fossil local-root: C:/fossil/src/ project-code: CE59BB9F186226D80E49D1FA2DB29F935CCA0333 server-code: 9fbdba27d27885515cbf885579dbffa7cebd8d95 checkout: c774e298c3f213f7487fb0ba638edfa3f1b89edf 2009-09-18 20:58:06 UTC parent: 0eb08b860c5b851c074113fd459d1cd0671f4805 2009-09-16 21:29:18 UTC tags: trunk */ tmp := At( "checkout:", cStdOut ) IF tmp > 0 cStdOut := LTrim( SubStr( cStdOut, tmp + Len( "checkout:" ) ) ) tmp := At( " ", cStdOut ) IF tmp > 0 cResult := Left( cStdOut, tmp - 1 ) ENDIF ENDIF EXIT CASE _VCS_MONOTONE /* ---------------------------------------------------------------------- Revision: c79f2332a1e9036bb52ac1f412b92e6a69fc9071 Parent: bf8b93290ea4e8e946961f51c47f8f4638f65372 Author: ??? Date: 2010.07.14. 1:11:47 Branch: free.lp.se:LPlib Changes against parent bf8b93290ea4e8e946961f51c47f8f4638f65372 no changes */ tmp := At( "Revision:", cStdOut ) IF tmp > 0 cStdOut := StrTran( LTrim( SubStr( cStdOut, tmp + Len( "Revision:" ) ) ), Chr( 13 ) ) tmp := At( Chr( 10 ), cStdOut ) IF tmp > 0 cResult := Left( cStdOut, tmp - 1 ) ENDIF ENDIF EXIT ENDSWITCH ENDIF RETURN cResult STATIC FUNCTION hbmk_TARGETNAME( hbmk ) RETURN iif( hbmk[ _HBMK_nArgTarget ] == 0, _HBMK_TARGENAME_ADHOC, PathSepToForward( hbmk[ _HBMK_aArgs ][ hbmk[ _HBMK_nArgTarget ] ] ) ) STATIC FUNCTION hbmk_TARGETTYPE( hbmk ) IF hbmk[ _HBMK_lContainer ] ; RETURN "hbcontainer" ELSEIF hbmk[ _HBMK_lCreateLib ] ; RETURN "hblib" ELSEIF hbmk[ _HBMK_lCreateDyn ] .AND. ! hbmk[ _HBMK_lDynVM ] ; RETURN "hbdyn" ELSEIF hbmk[ _HBMK_lCreateDyn ] .AND. hbmk[ _HBMK_lDynVM ] ; RETURN "hbdynvm" ELSEIF hbmk[ _HBMK_lCreateImpLib ] ; RETURN "hbimplib" ELSEIF hbmk[ _HBMK_lStopAfterHarbour ] .AND. hbmk[ _HBMK_lCreatePPO ] ; RETURN "hbppo" ELSEIF hbmk[ _HBMK_lStopAfterHarbour ] .AND. hbmk[ _HBMK_lCreateHRB ] ; RETURN "hbhrb" ENDIF RETURN "hbexe" STATIC FUNCTION hbmk_CPU( hbmk ) DO CASE CASE HBMK_ISPLAT( "dos|os2|cygwin" ) .OR. ; HBMK_ISCOMP( "mingw|msvc|pocc|watcom|bcc|xcc" ) .OR. ; ( hbmk[ _HBMK_cPLAT ] == "win" .AND. hbmk[ _HBMK_cCOMP ] == "icc" ) RETURN "x86" CASE HBMK_ISCOMP( "gcc|icc|clang|sunpro|diab|pcc" ) /* TOFIX: This isn't necessarily correct, since these inherit the default CPU architecture from OS default, by and large, and targets can be overridden using user options. */ RETURN "x86" CASE hbmk[ _HBMK_cCOMP ] == "mingw64" .OR. ; hbmk[ _HBMK_cCOMP ] == "msvc64" .OR. ; hbmk[ _HBMK_cCOMP ] == "pocc64" RETURN "x86_64" CASE hbmk[ _HBMK_cCOMP ] == "msvcia64" .OR. ; hbmk[ _HBMK_cCOMP ] == "iccia64" RETURN "ia64" CASE hbmk[ _HBMK_cCOMP ] == "mingwarm" .OR. ; hbmk[ _HBMK_cCOMP ] == "msvcarm" .OR. ; hbmk[ _HBMK_cCOMP ] == "poccarm" RETURN "arm" CASE hbmk[ _HBMK_cCOMP ] == "msvcmips" RETURN "mips" CASE hbmk[ _HBMK_cCOMP ] == "msvcsh" RETURN "sh" ENDCASE RETURN "" /* Return standard dynamic lib name suffix used by Harbour */ STATIC FUNCTION hbmk_DYNSUFFIX( hbmk ) SWITCH hbmk[ _HBMK_cPLAT ] CASE "wce" RETURN "-wce-" + hbmk[ _HBMK_cCPU ] CASE "win" DO CASE CASE hbmk[ _HBMK_cCOMP ] == "bcc" RETURN "-bcc" CASE hbmk[ _HBMK_cCPU ] == "x86_64" RETURN "-x64" CASE !( hbmk[ _HBMK_cCPU ] == "x86" ) RETURN "-" + hbmk[ _HBMK_cCPU ] ENDCASE EXIT ENDSWITCH RETURN "" /* Keep this public, it's used from macro. */ FUNCTION hbmk_KEYW( hbmk, cFileName, cKeyword, cValue, cOperator ) LOCAL tmp IF cKeyword == hbmk[ _HBMK_cPLAT ] .OR. ; cKeyword == hbmk[ _HBMK_cCOMP ] RETURN .T. ENDIF SWITCH cKeyword CASE "mt" ; RETURN hbmk[ _HBMK_lMT ] CASE "st" ; RETURN ! hbmk[ _HBMK_lMT ] CASE "gui" ; RETURN hbmk[ _HBMK_lGUI ] CASE "std" ; RETURN ! hbmk[ _HBMK_lGUI ] CASE "debug" ; RETURN hbmk[ _HBMK_lDEBUG ] CASE "nodebug" ; RETURN ! hbmk[ _HBMK_lDEBUG ] CASE "shared" ; RETURN hbmk[ _HBMK_lSHARED ] CASE "static" ; RETURN ! hbmk[ _HBMK_lSHARED ] CASE "lngcpp" ; RETURN hbmk[ _HBMK_lCPP ] != NIL .AND. hbmk[ _HBMK_lCPP ] CASE "lngc" ; RETURN hbmk[ _HBMK_lCPP ] != NIL .AND. ! hbmk[ _HBMK_lCPP ] CASE "winuni" ; RETURN hbmk[ _HBMK_lWINUNI ] CASE "winansi" ; RETURN ! hbmk[ _HBMK_lWINUNI ] CASE "unix" ; RETURN HBMK_ISPLAT( "bsd|hpux|sunos|beos|qnx|android|vxworks|symbian|linux|darwin|cygwin|minix|aix" ) CASE "allwin" ; RETURN HBMK_ISPLAT( "win|wce" ) CASE "allgcc" ; RETURN HBMK_ISCOMP( "gcc|mingw|mingw64|mingwarm|djgpp|gccomf|clang|open64|pcc" ) CASE "allmingw" ; RETURN HBMK_ISCOMP( "mingw|mingw64|mingwarm" ) CASE "allmsvc" ; RETURN HBMK_ISCOMP( "msvc|msvc64|msvcia64|msvcarm" ) CASE "allpocc" ; RETURN HBMK_ISCOMP( "pocc|pocc64|poccarm" ) CASE "allicc" ; RETURN HBMK_ISCOMP( "icc|iccia64" ) CASE "xhb" ; RETURN _HBMODE_IS_XHB( hbmk[ _HBMK_nHBMODE ] ) CASE "hb10" ; RETURN hbmk[ _HBMK_nHBMODE ] == _HBMODE_HB10 CASE "hb20" ; RETURN hbmk[ _HBMK_nHBMODE ] == _HBMODE_HB20 ENDSWITCH IF cKeyword == hbmk_CPU( hbmk ) RETURN .T. ENDIF IF cKeyword == hbmk_TARGETTYPE( hbmk ) RETURN .T. ENDIF IF ! HBMK_IS_IN( cKeyword, "|win|wce|dos|os2" +; "|bsd|hpux|sunos|beos|qnx|android|vxworks|symbian|linux|darwin|cygwin|minix|aix" +; "|msvc|msvc64|msvcia64|msvcarm" +; "|pocc|pocc64|poccarm|xcc" +; "|mingw|mingw64|mingwarm|bcc|watcom" +; "|gcc|gccomf|djgpp" +; "|hblib|hbdyn|hbdynvm|hbimplib|hbexe" +; "|icc|iccia64|clang|open64|sunpro|diab|pcc" +; "|x86|x86_64|ia64|arm|mips|sh" ) /* handle pseudo-functions */ IF cOperator == "=" .AND. cValue != NIL SWITCH cKeyword CASE "hb_ispath" cValue := hb_PathNormalize( PathMakeAbsolute( PathSepToSelf( MacroProc( hbmk, cValue, cFileName ) ), cFileName ) ) RETURN iif( Empty( hb_FNameNameExt( cValue ) ), hb_DirExists( cValue ), hb_FileExists( cValue ) ) ENDSWITCH ENDIF tmp := MacroGet( hbmk, cKeyWord, "" ) IF cValue != NIL SWITCH cOperator CASE "=" RETURN hb_asciiUpper( tmp ) == hb_asciiUpper( cValue ) CASE ">" RETURN hb_asciiUpper( tmp ) > hb_asciiUpper( cValue ) CASE "<" RETURN hb_asciiUpper( tmp ) < hb_asciiUpper( cValue ) ENDSWITCH ELSE IF ! Empty( tmp ) .AND. !( tmp == "0" ) .AND. !( Lower( tmp ) == "no" ) RETURN .T. ENDIF ENDIF ENDIF RETURN .F. STATIC PROCEDURE ParseCOMPPLATCPU( hbmk, cString, nMainTarget ) LOCAL aToken := hb_ATokens( Lower( cString ), "/", .T., .T. ) LOCAL cToken IF Len( aToken ) == 1 IF ! Empty( cString ) SWITCH nMainTarget CASE _TARG_PLAT ; hbmk[ _HBMK_cPLAT ] := AllTrim( cString ) ; EXIT CASE _TARG_COMP ; hbmk[ _HBMK_cCOMP ] := AllTrim( cString ) ; EXIT CASE _TARG_CPU ; hbmk[ _HBMK_cCPU ] := AllTrim( cString ) ; EXIT ENDSWITCH ENDIF ELSE FOR EACH cToken IN aToken IF ! Empty( cToken ) SWITCH cToken:__enumIndex() CASE 1 ; hbmk[ _HBMK_cPLAT ] := AllTrim( cToken ) ; EXIT CASE 2 ; hbmk[ _HBMK_cCOMP ] := AllTrim( cToken ) ; EXIT CASE 3 ; hbmk[ _HBMK_cCPU ] := AllTrim( cToken ) ; EXIT ENDSWITCH IF cToken:__enumIndex() > 3 EXIT ENDIF ENDIF NEXT ENDIF RETURN STATIC FUNCTION MacOSXFiles( hbmk, nType, cPROGNAME ) LOCAL cString HB_SYMBOL_UNUSED( hbmk ) SWITCH nType CASE 1 #pragma __cstream|cString := %s %TAB%CFBundleInfoDictionaryVersion %TAB%6.0 %TAB%CFBundleIdentifier %TAB%%__APPID__% %TAB%CFBundleDevelopmentRegion %TAB%English %TAB%CFBundleExecutable %TAB%%__APPNAME__% %TAB%CFBundleIconFile %TAB%%__APPICON__% %TAB%CFBundleName %TAB%%__APPNAME__% %TAB%CFBundlePackageType %TAB%%__APPTYPE__% %TAB%CFBundleSignature %TAB%%__APPSIGN__% %TAB%CFBundleGetInfoString %TAB%%__APPNAME__% version %__APPVERSION__%, %__APPCOPYRIGHT__% %TAB%CFBundleLongVersionString %TAB%%__APPVERSION__%, %__APPCOPYRIGHT__% %TAB%NSHumanReadableCopyright %TAB%%__APPCOPYRIGHT__% %TAB%LSRequiresCarbon %TAB% %TAB%CSResourcesFileMapped %TAB% #pragma __endtext EXIT CASE 2 cString := "%__APPTYPE__%%__APPSIGN__%" EXIT ENDSWITCH cString := StrTran( cString, "%TAB%", Chr( 9 ) ) cString := StrTran( cString, "%__APPNAME__%", cPROGNAME ) cString := StrTran( cString, "%__APPTYPE__%", "APPL" ) cString := StrTran( cString, "%__APPSIGN__%", PadR( cPROGNAME, 4, "?" ) ) cString := StrTran( cString, "%__APPID__%" ) /* TODO */ cString := StrTran( cString, "%__APPVERSION__%" ) /* TODO */ cString := StrTran( cString, "%__APPCOPYRIGHT__%" ) /* TODO */ IF ! Empty( hbmk[ _HBMK_aICON ] ) cString := StrTran( cString, "%__APPICON__%", hb_FNameNameExt( hbmk[ _HBMK_aICON ][ 1 ] ) ) ENDIF RETURN cString STATIC FUNCTION mk_extern( hbmk, cInputName, cBin_LibHBX, cOpt_LibHBX, cLibHBX_Regex, cOutputName ) LOCAL aExtern IF ( aExtern := __hb_extern_get_list( hbmk, cInputName, cBin_LibHBX, cOpt_LibHBX, cLibHBX_Regex ) ) != NIL __hb_extern_gen( hbmk, aExtern, cOutputName ) RETURN .T. ENDIF RETURN .F. STATIC FUNCTION __hb_extern_get_list( hbmk, cInputName, cBin_LibHBX, cOpt_LibHBX, cLibHBX_Regex ) LOCAL aExtern := NIL LOCAL hExtern LOCAL cStdOut, cStdErr LOCAL cTempFile LOCAL pRegex LOCAL aResult LOCAL tmp IF ! Empty( cBin_LibHBX ) .AND. ; ! Empty( cLibHBX_Regex ) IF hb_FileExists( cInputName ) cOpt_LibHBX := StrTran( cOpt_LibHBX, "{LI}", FNameEscape( cInputName, hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ) ) IF "{OT}" $ cOpt_LibHBX FClose( hb_FTempCreateEx( @cTempFile,,, ".tmp" ) ) cOpt_LibHBX := StrTran( cOpt_LibHBX, "{OT}", FNameEscape( cTempFile, hbmk[ _HBMK_nCmd_Esc ], hbmk[ _HBMK_nCmd_FNF ] ) ) ENDIF IF hb_processRun( cBin_LibHBX + " " + cOpt_LibHBX,, @cStdOut, @cStdErr ) == 0 IF ! Empty( cTempFile ) cStdOut := MemoRead( cTempFile ) ENDIF IF ! Empty( pRegex := hb_regexComp( cLibHBX_Regex, .T., .T. ) ) aResult := hb_regexAll( pRegex, StrTran( cStdOut, Chr( 13 ) ),,,,, .T. ) aExtern := {} hExtern := { => } FOR EACH tmp IN aResult tmp[ 2 ] := hb_asciiUpper( tmp[ 2 ] ) IF !( tmp[ 2 ] $ hExtern ) AAdd( aExtern, tmp[ 2 ] ) hExtern[ tmp[ 2 ] ] := NIL ENDIF NEXT tmp := hb_cdpSelect( "EN" ) ASort( aExtern,,, {| tmp, tmp1 | tmp < tmp1 } ) hb_cdpSelect( tmp ) ENDIF ENDIF IF ! Empty( cTempFile ) FErase( cTempFile ) ENDIF ENDIF ENDIF RETURN aExtern #define _HB_FUNC_INCLUDE_ "HB_FUNC_INCLUDE" #define _HB_FUNC_EXCLUDE_ "HB_FUNC_EXCLUDE" #define _HB_SELF_PREFIX "__HBEXTERN__" #define _HB_SELF_SUFFIX "__" STATIC PROCEDURE __hb_extern_get_exception_list( cInputName, /* @ */ aInclude, /* @ */ aExclude, /* @ */ hDynamic ) LOCAL cFile LOCAL pRegex LOCAL tmp aInclude := {} aExclude := {} hDynamic := { => } IF ! Empty( cFile := MemoRead( cInputName ) ) IF ! Empty( pRegex := hb_regexComp( "[[:space:]]" + _HB_FUNC_INCLUDE_ + "[[:space:]]([a-zA-Z0-9_].[^ \t\n\r]*)", .T., .T. ) ) FOR EACH tmp IN hb_regexAll( pRegex, StrTran( cFile, Chr( 13 ) ),,,,, .T. ) AAdd( aInclude, Upper( tmp[ 2 ] ) ) NEXT ENDIF IF ! Empty( pRegex := hb_regexComp( "[[:space:]]" + _HB_FUNC_EXCLUDE_ + "[[:space:]]([a-zA-Z0-9_].[^ \t\n\r]*)", .T., .T. ) ) FOR EACH tmp IN hb_regexAll( pRegex, StrTran( cFile, Chr( 13 ) ),,,,, .T. ) AAdd( aExclude, Upper( tmp[ 2 ] ) ) NEXT ENDIF IF ! Empty( pRegex := hb_regexComp( "^DYNAMIC ([a-zA-Z0-9_]*)$", .T., .T. ) ) FOR EACH tmp IN hb_regexAll( pRegex, StrTran( cFile, Chr( 13 ) ),,,,, .T. ) hDynamic[ Upper( tmp[ 2 ] ) ] := tmp[ 2 ] NEXT ENDIF ENDIF RETURN STATIC FUNCTION __hb_extern_gen( hbmk, aFuncList, cOutputName ) LOCAL aExtern LOCAL cExtern LOCAL tmp LOCAL aInclude LOCAL aExclude LOCAL hDynamic LOCAL cSelfName := _HB_SELF_PREFIX + StrToDefine( hb_FNameName( cOutputName ) ) + _HB_SELF_SUFFIX LOCAL cLine := PadR( "/* -------------------------------------------------------------------- ", 72 ) + "*/" + hb_eol() LOCAL cHelp := PadR( "/* Syntax: // HB_FUNC_INCLUDE ", 72 ) + "*/" + hb_eol() +; PadR( "/* // HB_FUNC_EXCLUDE ", 72 ) + "*/" + hb_eol() __hb_extern_get_exception_list( cOutputName, @aInclude, @aExclude, @hDynamic ) cExtern := "/*" + hb_eol() cExtern += " * $" + "Id" + "$" + hb_eol() cExtern += " */" + hb_eol() IF Empty( aInclude ) .AND. ; Empty( aExclude ) cExtern += hb_eol() cExtern += cLine cExtern += PadR( "/* NOTE: You can add manual override which functions to include or ", 72 ) + "*/" + hb_eol() cExtern += PadR( "/* exclude from automatically generated EXTERNAL/DYNAMIC list. ", 72 ) + "*/" + hb_eol() cExtern += cHelp cExtern += cLine ELSE cExtern += hb_eol() cExtern += cLine cExtern += PadR( "/* NOTE: Following comments are control commands for the generator. ", 72 ) + "*/" + hb_eol() cExtern += PadR( "/* Do not edit them unless you know what you are doing. ", 72 ) + "*/" + hb_eol() cExtern += cHelp cExtern += cLine IF ! Empty( aInclude ) cExtern += hb_eol() FOR EACH tmp IN aInclude cExtern += "// " + _HB_FUNC_INCLUDE_ + " " + tmp + hb_eol() NEXT ENDIF IF ! Empty( aExclude ) cExtern += hb_eol() FOR EACH tmp IN aExclude cExtern += "// " + _HB_FUNC_EXCLUDE_ + " " + tmp + hb_eol() NEXT ENDIF ENDIF cExtern += hb_eol() cExtern += cLine cExtern += PadR( "/* WARNING: Automatically generated code below. DO NOT EDIT! ", 72 ) + "*/" + hb_eol() cExtern += PadR( "/* Regenerate using " + _SELF_NAME_ + " '-hbx=' option. ", 72 ) + "*/" + hb_eol() cExtern += cLine cExtern += hb_eol() cExtern += "#ifndef " + "__HBEXTERN_CH__" + StrToDefine( hb_FNameName( cOutputName ) ) + "__" + hb_eol() cExtern += "#define " + "__HBEXTERN_CH__" + StrToDefine( hb_FNameName( cOutputName ) ) + "__" + hb_eol() cExtern += hb_eol() cExtern += "#if defined( __HBEXTREQ__ ) .OR. defined( " + cSelfName + "ANNOUNCE" + " )" + hb_eol() cExtern += " ANNOUNCE " + cSelfName + hb_eol() cExtern += "#endif" + hb_eol() cExtern += hb_eol() cExtern += "#if defined( __HBEXTREQ__ ) .OR. defined( " + cSelfName + "REQUEST" + " )" + hb_eol() cExtern += " #command DYNAMIC => EXTERNAL " + hb_eol() cExtern += "#endif" + hb_eol() cExtern += hb_eol() IF Empty( aInclude ) aExtern := aFuncList ELSE aExtern := {} FOR EACH tmp IN aFuncList IF AScan( aInclude, {| flt | hb_WildMatch( flt, tmp, .T. ) } ) > 0 AAdd( aExtern, tmp ) ENDIF NEXT ENDIF FOR EACH tmp IN aExtern IF ! hb_WildMatch( "HB_GT_*_DEFAULT", tmp, .T. ) .AND. ; ! hb_WildMatch( _HB_SELF_PREFIX + "*" + _HB_SELF_SUFFIX, tmp, .T. ) .AND. ; AScan( aExclude, {| flt | hb_WildMatch( flt, tmp, .T. ) } ) == 0 cExtern += "DYNAMIC " + hb_HGetDef( hDynamic, tmp, tmp ) + hb_eol() ENDIF NEXT cExtern += hb_eol() cExtern += "#if defined( __HBEXTREQ__ ) .OR. defined( " + cSelfName + "REQUEST" + " )" + hb_eol() cExtern += " #uncommand DYNAMIC => EXTERNAL " + hb_eol() cExtern += "#endif" + hb_eol() cExtern += hb_eol() cExtern += "#endif" + hb_eol() /* Do not touch the file if the content is unchanged */ IF hb_MemoRead( cOutputName ) == cExtern RETURN .T. ENDIF IF hbmk[ _HBMK_lInfo ] _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Updating extern header: %1$s" ), cOutputName ) ) ENDIF IF hb_MemoWrit( cOutputName, cExtern ) RETURN .T. ENDIF _hbmk_OutErr( hbmk, I_( "Error: Updating extern header." ) ) RETURN .F. /* TODO: Consider dropping all embedded headers, now that the runner "knows" where Harbour headers reside on disk. */ STATIC FUNCTION hbmk_CoreHeaderFiles() STATIC s_hHeaders := NIL #if defined( HBMK_WITH_EMBEDDED_HEADERS ) .OR. ; defined( HBMK_WITH_ALL_EMBEDDED_HEADERS ) IF s_hHeaders == NIL s_hHeaders := { => } /* command to store header files in hash array */ #command ADD HEADER TO FILE <(cFile)> => ; #pragma __streaminclude <(cFile)> | \[ <(cFile)> \] := %s #if defined( HBMK_WITH_ALL_EMBEDDED_HEADERS ) ADD HEADER TO s_hHeaders FILE "achoice.ch" ADD HEADER TO s_hHeaders FILE "assert.ch" ADD HEADER TO s_hHeaders FILE "blob.ch" ADD HEADER TO s_hHeaders FILE "box.ch" ADD HEADER TO s_hHeaders FILE "button.ch" ADD HEADER TO s_hHeaders FILE "color.ch" ADD HEADER TO s_hHeaders FILE "common.ch" ADD HEADER TO s_hHeaders FILE "dbedit.ch" ADD HEADER TO s_hHeaders FILE "dbinfo.ch" ADD HEADER TO s_hHeaders FILE "dbstruct.ch" ADD HEADER TO s_hHeaders FILE "directry.ch" ADD HEADER TO s_hHeaders FILE "error.ch" ADD HEADER TO s_hHeaders FILE "fileio.ch" ADD HEADER TO s_hHeaders FILE "getexit.ch" ADD HEADER TO s_hHeaders FILE "hb.ch" ADD HEADER TO s_hHeaders FILE "hbclass.ch" ADD HEADER TO s_hHeaders FILE "hbcom.ch" ADD HEADER TO s_hHeaders FILE "hbdebug.ch" ADD HEADER TO s_hHeaders FILE "hbdyn.ch" ADD HEADER TO s_hHeaders FILE "hbextcdp.ch" ADD HEADER TO s_hHeaders FILE "hbextern.ch" ADD HEADER TO s_hHeaders FILE "hbextlng.ch" ADD HEADER TO s_hHeaders FILE "hbgfx.ch" ADD HEADER TO s_hHeaders FILE "hbgfxdef.ch" ADD HEADER TO s_hHeaders FILE "hbgtinfo.ch" ADD HEADER TO s_hHeaders FILE "hbhash.ch" ADD HEADER TO s_hHeaders FILE "hbhrb.ch" ADD HEADER TO s_hHeaders FILE "hbinkey.ch" ADD HEADER TO s_hHeaders FILE "hblang.ch" ADD HEADER TO s_hHeaders FILE "hblpp.ch" ADD HEADER TO s_hHeaders FILE "hbmacro.ch" ADD HEADER TO s_hHeaders FILE "hbmath.ch" ADD HEADER TO s_hHeaders FILE "hbmemory.ch" ADD HEADER TO s_hHeaders FILE "hbmemvar.ch" ADD HEADER TO s_hHeaders FILE "hboo.ch" ADD HEADER TO s_hHeaders FILE "hbpers.ch" ADD HEADER TO s_hHeaders FILE "hbsetup.ch" ADD HEADER TO s_hHeaders FILE "hbsix.ch" ADD HEADER TO s_hHeaders FILE "hbsocket.ch" ADD HEADER TO s_hHeaders FILE "hbstdgen.ch" ADD HEADER TO s_hHeaders FILE "hbsxdef.ch" ADD HEADER TO s_hHeaders FILE "hbthread.ch" ADD HEADER TO s_hHeaders FILE "hbtrace.ch" ADD HEADER TO s_hHeaders FILE "hbusrrdd.ch" ADD HEADER TO s_hHeaders FILE "hbver.ch" ADD HEADER TO s_hHeaders FILE "hbzlib.ch" ADD HEADER TO s_hHeaders FILE "inkey.ch" ADD HEADER TO s_hHeaders FILE "memoedit.ch" ADD HEADER TO s_hHeaders FILE "ord.ch" ADD HEADER TO s_hHeaders FILE "rddsys.ch" ADD HEADER TO s_hHeaders FILE "reserved.ch" ADD HEADER TO s_hHeaders FILE "set.ch" ADD HEADER TO s_hHeaders FILE "setcurs.ch" ADD HEADER TO s_hHeaders FILE "simpleio.ch" ADD HEADER TO s_hHeaders FILE "std.ch" ADD HEADER TO s_hHeaders FILE "tbrowse.ch" ADD HEADER TO s_hHeaders FILE "harbour.hbx" ADD HEADER TO s_hHeaders FILE "hbcpage.hbx" ADD HEADER TO s_hHeaders FILE "hblang.hbx" ADD HEADER TO s_hHeaders FILE "hbscalar.hbx" ADD HEADER TO s_hHeaders FILE "hbusrrdd.hbx" #else ADD HEADER TO s_hHeaders FILE "color.ch" ADD HEADER TO s_hHeaders FILE "common.ch" ADD HEADER TO s_hHeaders FILE "directry.ch" ADD HEADER TO s_hHeaders FILE "error.ch" ADD HEADER TO s_hHeaders FILE "fileio.ch" ADD HEADER TO s_hHeaders FILE "hbhash.ch" ADD HEADER TO s_hHeaders FILE "hbmemory.ch" ADD HEADER TO s_hHeaders FILE "hbver.ch" ADD HEADER TO s_hHeaders FILE "inkey.ch" ADD HEADER TO s_hHeaders FILE "setcurs.ch" ADD HEADER TO s_hHeaders FILE "simpleio.ch" #endif hb_HCaseMatch( s_hHeaders, .T. ) ENDIF #endif RETURN s_hHeaders /* Implement hbshell (formerly known as hbrun) */ #ifndef _HBMK_EMBEDDED_ #if defined( __PLATFORM__DOS ) #define _EXT_FILE_ "hb_ext.ini" #else #define _EXT_FILE_ "hb_extension" #endif #define _EXT_ENV_ "HB_EXTENSION" STATIC PROCEDURE __hbshell( cFile, ... ) LOCAL aExtension := {} LOCAL hbmk LOCAL cHBC LOCAL cExt LOCAL tmp LOCAL l_cHB_INSTALL_PREFIX LOCAL aINCPATH s_cDirBase_hbshell := hb_DirBase() s_cProgName_hbshell := hb_ProgName() /* Set CP and language */ SetUILang( GetUILang() ) /* Detect Harbour dir layout */ hbmk := hbmk_new() hbmk_init_stage2( hbmk ) IF ! hbmk_harbour_dirlayout_detect( hbmk, @l_cHB_INSTALL_PREFIX, .T. ) IF hb_Version( HB_VERSION_SHARED ) OutErr( StrTran( I_( "Warning: Failed to detect Harbour.\nRun this tool from its original location inside the Harbour installation." ), "\n", hb_eol() ) + _OUT_EOL ) ENDIF ENDIF hbmk[ _HBMK_cCOMP ] := hb_Version( HB_VERSION_BUILD_COMP ) hbmk[ _HBMK_cPLAT ] := hb_Version( HB_VERSION_BUILD_PLAT ) hbmk[ _HBMK_cCPU ] := hb_Version( HB_VERSION_CPU ) hbmk_harbour_dirlayout_init( hbmk, l_cHB_INSTALL_PREFIX ) __hbshell_ext_static_init() /* Load permanent extensions */ /* NOTE: The drawback of this feature is that users might omit using '#require' keyword in script source, rendering these scripts non-portable. */ __hbshell_LoadExtFromFile( aExtension, __hbshell_ConfigDir() + _EXT_FILE_ ) __hbshell_LoadExtFromString( aExtension, GetEnv( _EXT_ENV_ ) ) /* Do the thing */ IF ! Empty( cFile ) cFile := PathSepToSelf( cFile ) ENDIF IF !( cFile == "." ) .AND. ; ! Empty( hb_FNameName( cFile ) ) .AND. ; ! Empty( cFile := FindInPath( cFile,, { ".hb", ".hrb" } ) ) cExt := Lower( hb_FNameExt( cFile ) ) IF !( cExt == ".hb" .OR. ; cExt == ".hrb" .OR. ; cExt == ".dbf" ) cExt := __hbshell_FileSig( cFile ) ENDIF SWITCH cExt CASE ".hb" /* NOTE: Assumptions: - one dynamic lib belongs to one .hbc file (true for dynamic builds in contrib) - dynamic libs will reference and automatically load all their dependencies (true on all systems so far) - this tool is located in well known place inside the Harbour dir tree. - contribs/addons are located in well-known place inside the Harbour dir tree - 3rd party addons can be loaded, too if they are installed into the Harbour dir tree and built the same way as contribs. - dynamic libs are installed into bin dir. (this is not true on *nix, there they are in lib dir, and it is a problem in configurations where lib dir contains component, so to solve it we use the same values as was used to build itself.) */ */ __hbshell_LoadExtFromSource( aExtension, cFile ) /* NOTE: Find .hbc file. Load .hbc file. Process .hbc references. Pick include paths. Load libs. Add include paths to include path list. For this we need to know where Harbour tree is located. */ /* NOTE: - most filters and macros in .hbc files won't work in this mode */ FOR EACH tmp IN aExtension IF ! HBC_Find( hbmk, cHBC := hb_FNameExtSet( tmp, ".hbc" ) ) OutErr( hb_StrFormat( I_( "Warning: Cannot find %1$s" ), cHBC ) + _OUT_EOL ) ENDIF NEXT aINCPATH := {} FOR EACH tmp IN hbmk[ _HBMK_aINCPATH ] AAdd( aINCPATH, "-I" + tmp ) NEXT cFile := hb_compileBuf( hbmk_CoreHeaderFiles(), hb_ProgName(), "-n2", "-w", "-es2", "-q0", ; hb_ArrayToParams( aINCPATH ), "-D" + _HBMK_SHELL, cFile ) IF cFile == NIL ErrorLevel( 1 ) EXIT ENDIF CASE ".hrb" __hbshell_ext_init( aExtension ) hb_argShift( .T. ) hb_hrbRun( cFile, ... ) EXIT CASE ".dbf" __hbshell_ext_init( aExtension ) __hbshell_prompt( hb_AParams(), "USE " + cFile + " SHARED" ) EXIT ENDSWITCH ELSE __hbshell_ext_init( aExtension ) __hbshell_prompt( hb_AParams() ) ENDIF RETURN STATIC FUNCTION __hbshell_FileSig( cFile ) LOCAL hFile LOCAL cBuff, cSig, cExt cExt := ".hb" hFile := FOpen( cFile, FO_READ ) IF hFile != F_ERROR cSig := hb_hrbSignature() cBuff := Space( hb_BLen( cSig ) ) FRead( hFile, @cBuff, hb_BLen( cBuff ) ) FClose( hFile ) IF cBuff == cSig cExt := ".hrb" ENDIF ENDIF RETURN cExt STATIC FUNCTION __hbshell_ConfigDir() LOCAL cEnvVar LOCAL cDir #if defined( __PLATFORM__WINDOWS ) cEnvVar := "APPDATA" #else cEnvVar := "HOME" #endif IF ! Empty( GetEnv( cEnvVar ) ) #if defined( __PLATFORM__DOS ) cDir := GetEnv( cEnvVar ) + hb_ps() + "~harbour" #else cDir := GetEnv( cEnvVar ) + hb_ps() + ".harbour" #endif ELSE cDir := hb_DirBase() ENDIF RETURN cDir + hb_ps() STATIC PROCEDURE __hbshell_LoadExtFromFile( aExtension, cFileName ) LOCAL cItem FOR EACH cItem IN hb_ATokens( StrTran( MemoRead( cFileName ), Chr( 13 ) ), Chr( 10 ) ) IF "#" $ cItem cItem := Left( cItem, At( "#", cItem ) - 1 ) ENDIF IF ! Empty( cItem ) AAdd( aExtension, cItem ) ENDIF NEXT RETURN STATIC PROCEDURE __hbshell_LoadExtFromString( aExtension, cString ) LOCAL cItem FOR EACH cItem IN hb_ATokens( cString,, .T. ) IF ! Empty( cItem ) AAdd( aExtension, cItem ) ENDIF NEXT RETURN STATIC PROCEDURE __hbshell_LoadExtFromSource( aExtension, cFileName ) LOCAL cFile := MemoRead( cFileName ) LOCAL pRegex LOCAL tmp tmp := hb_cdpSelect( "EN" ) pRegex := hb_regexComp( _HBMK_REGEX_REQUIRE, .F. /* lCaseSensitive */, .T. /* lNewLine */ ) hb_cdpSelect( tmp ) IF ! Empty( pRegex ) FOR EACH tmp IN hb_regexAll( pRegex, cFile, ; NIL /* lCaseSensitive */, ; NIL /* lNewLine */, NIL, ; NIL /* nGetMatch */, ; .T. /* lOnlyMatch */ ) AAdd( aExtension, SubStr( ATail( tmp ), 2, Len( ATail( tmp ) ) - 2 ) /* Last group in match marker */ ) NEXT ENDIF RETURN STATIC PROCEDURE __hbshell_ext_static_init() LOCAL tmp LOCAL nCount LOCAL cName nCount := __dynsCount() FOR tmp := 1 TO nCount cName := __dynsGetName( tmp ) IF LEFTEQUAL( cName, "__HBEXTERN__" ) .AND. ; ! HBMK_IS_IN( cName, "__HBEXTERN__HBCPAGE__" ) s_hLibExt[ Lower( SubStr( cName, Len( "__HBEXTERN__" ) + 1, Len( cName ) - Len( "__HBEXTERN__" ) - Len( "__" ) ) ) ] := NIL ENDIF NEXT RETURN STATIC PROCEDURE __hbshell_ext_init( aExtension ) LOCAL cName IF ! Empty( aExtension ) FOR EACH cName IN aExtension hbshell_ext_load( cName ) NEXT ENDIF RETURN /* NOTE: Requires -shared mode build */ /* TOFIX: Load components from detected Harbour dir layout */ /* TODO: Load .hbc file (handle -stop command in it) and extend header search path accordingly */ FUNCTION hbshell_ext_load( cName ) LOCAL cFileName LOCAL hLib LOCAL tmp IF ! Empty( cName ) IF hb_Version( HB_VERSION_SHARED ) IF !( cName $ s_hLibExt ) cFileName := FindInPath( tmp := hb_libName( cName + hb_libPostfix() ),; iif( hb_Version( HB_VERSION_UNIX_COMPAT ), GetEnv( "LD_LIBRARY_PATH" ), GetEnv( "PATH" ) ) ) IF Empty( cFileName ) OutErr( hb_StrFormat( I_( "'%1$s' (%2$s) not found." ), cName, tmp ) + _OUT_EOL ) ELSE hLib := hb_libLoad( cFileName ) IF Empty( hLib ) OutErr( hb_StrFormat( I_( "Error loading '%1$s' (%2$s)." ), cName, cFileName ) + _OUT_EOL ) ELSE s_hLibExt[ cName ] := hLib RETURN .T. ENDIF ENDIF ENDIF ELSE OutErr( hb_StrFormat( I_( "Cannot load '%1$s'. Requires -shared %2$s build." ), cName, hb_FNameName( hbshell_ProgName() ) ) + _OUT_EOL ) ENDIF ENDIF RETURN .F. FUNCTION hbshell_ext_unload( cName ) IF cName $ s_hLibExt .AND. s_hLibExt[ cName ] != NIL hb_HDel( s_hLibExt, cName ) RETURN .T. ENDIF RETURN .F. FUNCTION hbshell_ext_get_list() LOCAL aName := Array( Len( s_hLibExt ) ) LOCAL hLib FOR EACH hLib IN s_hLibExt aName[ hLib:__enumIndex() ] := hLib:__enumKey() + iif( Empty( hLib ), "", "*" ) NEXT ASort( aName ) RETURN aName STATIC FUNCTION __plugin_ext() #pragma __cstream|RETURN %s /* * Harbour Project source code: * extension manager plugin * * Copyright 2012 Viktor Szakats (harbour syenar.net) * www - http://harbour-project.org */ FUNCTION __hbshell_plugin() RETURN {; "id" => "ext",; "init" => {| hConIO | __init( hConIO ) } ,; "exit" => {| context | HB_SYMBOL_UNUSED( context ) } ,; "cmd" => {| context, cCommand | __command( context, cCommand ) } } STATIC FUNCTION __init( hConIO ) RETURN { hConIO, { ; "load" => { "" , "Load." , {| context, cCommand | load( context, cCommand ) } },; "unload" => { "" , "Unload." , {| context, cCommand | unload( context, cCommand ) } },; "list" => { "" , "List." , {| context, cCommand | list( context ) } } } } STATIC PROCEDURE __disp( context, cText ) Eval( context[ 1 ][ "displine" ], cText ) RETURN STATIC FUNCTION __command( context, cCommand ) LOCAL aCommand LOCAL nPos IF ! Empty( context ) aCommand := hb_ATokens( cCommand, " " ) IF ! Empty( aCommand ) .AND. ( nPos := hb_HPos( context[ 2 ], Lower( aCommand[ 1 ] ) ) ) > 0 Eval( hb_HValueAt( context[ 2 ], nPos )[ 3 ], context, cCommand ) RETURN .T. ENDIF ENDIF RETURN .F. /* Commands */ STATIC PROCEDURE load( context, cCommand ) LOCAL aToken := hb_ATokens( cCommand, " " ) LOCAL tmp FOR tmp := 2 TO Len( aToken ) hbshell_ext_load( aToken[ tmp ] ) NEXT RETURN STATIC PROCEDURE unload( context, cCommand ) LOCAL aToken := hb_ATokens( cCommand, " " ) LOCAL tmp FOR tmp := 2 TO Len( aToken ) hbshell_ext_unload( aToken[ tmp ] ) NEXT RETURN STATIC PROCEDURE list( context ) LOCAL cName FOR EACH cName IN hbshell_ext_get_list() __disp( context, cName ) NEXT RETURN #pragma __endtext #include "directry.ch" #command ADD PLUGIN TO FILE <(cFile)> => ; #pragma __streaminclude <(cFile)> | \[ <(cFile)> \] := %s #command ADD PLUGIN TO STRING => ; \[ <"cExpr"> \] := STATIC FUNCTION __hbshell_plugins() LOCAL hPlugins := { => } LOCAL cDir LOCAL cExt LOCAL file ADD PLUGIN TO hPlugins STRING __plugin_ext() cDir := __hbshell_ConfigDir() FOR EACH cExt IN { "*.hb", "*.hrb" } FOR EACH file IN Directory( cDir + cExt ) hPlugins[ cDir + file[ F_NAME ] ] := MemoRead( cDir + file[ F_NAME ] ) NEXT NEXT RETURN hPlugins #define _PLUGIN_hHRB 1 #define _PLUGIN_hMethods 2 #define _PLUGIN_ctx 3 #define _PLUGIN_cID 4 #define _PLUGIN_MAX_ 4 STATIC FUNCTION __hbshell_plugins_load( hPlugins, aParams ) LOCAL hConIO := {; "displine" => {| c | __hbshell_ToConsole( c ) } ,; "gethidden" => {|| __hbshell_GetHidden() } } LOCAL plugin LOCAL plugins := {} LOCAL hHRBEntry LOCAL cFile LOCAL oError FOR EACH cFile IN hPlugins plugin := Array( _PLUGIN_MAX_ ) plugin[ _PLUGIN_hHRB ] := NIL IF !( Lower( hb_FNameExt( cFile:__enumKey() ) ) == ".hrb" ) cFile := hb_compileFromBuf( cFile, hbmk_CoreHeaderFiles(), hb_ProgName(), "-n2", "-w", "-es2", "-q0" ) ENDIF IF ! Empty( cFile ) BEGIN SEQUENCE WITH {| oError | Break( oError ) } plugin[ _PLUGIN_hHRB ] := hb_hrbLoad( HB_HRB_BIND_FORCELOCAL, cFile ) IF Empty( hHRBEntry := hb_hrbGetFunSym( plugin[ _PLUGIN_hHRB ], "__hbshell_plugin" ) ) plugin[ _PLUGIN_hHRB ] := NIL ENDIF RECOVER USING oError plugin[ _PLUGIN_hHRB ] := NIL OutErr( hb_StrFormat( I_( "Error: Loading shell plugin: %1$s\n'%2$s'" ), cFile:__enumKey(), hbmk_ErrorMessage( oError ) ) + _OUT_EOL ) END ENDIF IF ! Empty( plugin[ _PLUGIN_hHRB ] ) plugin[ _PLUGIN_hMethods ] := Do( hHRBEntry ) IF ! Empty( plugin[ _PLUGIN_hMethods ] ) plugin[ _PLUGIN_ctx ] := Eval( plugin[ _PLUGIN_hMethods ][ "init" ], hConIO, aParams ) IF ! Empty( plugin[ _PLUGIN_ctx ] ) plugin[ _PLUGIN_cID ] := plugin[ _PLUGIN_hMethods ][ "id" ] IF ! Empty( plugin[ _PLUGIN_cID ] ) AAdd( plugins, plugin ) ENDIF ENDIF ENDIF ENDIF NEXT RETURN plugins STATIC FUNCTION __hbshell_plugins_command( plugins, cCommand, cDomain ) LOCAL plugin FOR EACH plugin IN plugins IF Left( cCommand, Len( plugin[ _PLUGIN_cID ] ) + 1 ) == plugin[ _PLUGIN_cID ] + "." IF Eval( plugin[ _PLUGIN_hMethods ][ "cmd" ], plugin[ _PLUGIN_ctx ], SubStr( cCommand, Len( plugin[ _PLUGIN_cID ] ) + 2 ) ) RETURN .T. ENDIF ELSEIF cDomain == plugin[ _PLUGIN_cID ] IF Eval( plugin[ _PLUGIN_hMethods ][ "cmd" ], plugin[ _PLUGIN_ctx ], cCommand ) RETURN .T. ENDIF ENDIF NEXT RETURN .F. STATIC FUNCTION __hbshell_plugins_valid_id( plugins, cID ) LOCAL plugin FOR EACH plugin IN plugins IF plugin[ _PLUGIN_cID ] == cID RETURN .T. ENDIF NEXT RETURN .F. STATIC FUNCTION __hbshell_plugins_valid_id_list( plugins ) LOCAL plugin LOCAL aList := {} FOR EACH plugin IN plugins AAdd( aList, plugin[ _PLUGIN_cID ] ) NEXT RETURN aList STATIC PROCEDURE __hbshell_plugins_unload( plugins ) LOCAL plugin FOR EACH plugin IN plugins Eval( plugin[ _PLUGIN_hMethods ][ "exit" ], plugin[ _PLUGIN_ctx ] ) NEXT RETURN #include "color.ch" #include "inkey.ch" #include "setcurs.ch" /* TODO: rewrite the full-screen shell to be a simple stdout/stdin shell */ STATIC PROCEDURE __hbshell_prompt( aParams, cCommand ) LOCAL GetList LOCAL cLine LOCAL nMaxRow, nMaxCol LOCAL nHistIndex LOCAL bKeyUP, bKeyDown, bKeyIns, bKeyResize LOCAL lResize := .F. LOCAL plugins LOCAL cDomain := "" LOCAL cPrompt LOCAL tmp hbshell_gtInteractive() IF ! hb_gtInfo( HB_GTI_ISSCREENPOS ) OutErr( hb_StrFormat( I_( "hbshell: Error: Interactive session not possible with %1$s terminal driver" ), hb_gtVersion( 0 ) ) + _OUT_EOL ) RETURN ENDIF hb_gtInfo( HB_GTI_ICONRES, 1 ) hb_Scroll() Set( _SET_SCOREBOARD, .F. ) GetList := {} __hbshell_HistoryLoad() AAdd( s_aHistory, PadR( "quit", HB_LINE_LEN ) ) nHistIndex := Len( s_aHistory ) + 1 hb_gtInfo( HB_GTI_RESIZEMODE, HB_GTI_RESIZEMODE_ROWS ) SetKey( K_ALT_V, {|| hb_gtInfo( HB_GTI_CLIPBOARDPASTE ) } ) Set( _SET_EVENTMASK, hb_bitOr( INKEY_KEYBOARD, HB_INKEY_GTEVENT ) ) s_nRow := 3 __hbshell_Exec( "?? hb_Version()" ) IF HB_ISSTRING( cCommand ) AAdd( s_aHistory, PadR( cCommand, HB_LINE_LEN ) ) __hbshell_Info( cCommand ) __hbshell_Exec( cCommand ) ELSE cCommand := "" ENDIF plugins := __hbshell_plugins_load( __hbshell_plugins(), aParams ) WHILE .T. IF cLine == NIL cLine := Space( HB_LINE_LEN ) ENDIF __hbshell_Info( cCommand ) nMaxRow := MaxRow() nMaxCol := MaxCol() hb_DispOutAt( nMaxRow, 0, cPrompt := cDomain + "." ) AAdd( GetList, Get():New( nMaxRow, Len( cPrompt ), {| v | iif( PCount() == 0, cLine, cLine := v ) }, "cLine", "@KS" + hb_ntos( nMaxCol - Len( cPrompt ) + 1 ) ) ) ATail( GetList ):display() SetCursor( iif( ReadInsert(), SC_INSERT, SC_NORMAL ) ) bKeyIns := SetKey( K_INS, ; {|| SetCursor( iif( ReadInsert( ! ReadInsert() ), ; SC_NORMAL, SC_INSERT ) ) } ) bKeyUp := SetKey( K_UP, ; {|| iif( nHistIndex > 1, ; cLine := s_aHistory[ --nHistIndex ], ) } ) bKeyDown := SetKey( K_DOWN, ; {|| cLine := iif( nHistIndex < Len( s_aHistory ), ; s_aHistory[ ++nHistIndex ], ; ( nHistIndex := Len( s_aHistory ) + 1, Space( HB_LINE_LEN ) ) ) } ) bKeyResize := SetKey( HB_K_RESIZE,; {|| lResize := .T., hb_KeyPut( K_ENTER ) } ) ReadModal( GetList ) GetList := {} SetKey( K_DOWN, bKeyDown ) SetKey( K_UP, bKeyUp ) SetKey( K_INS, bKeyIns ) SetKey( HB_K_RESIZE, bKeyResize ) IF LastKey() == K_ESC .OR. Empty( cLine ) .OR. ; ( lResize .AND. LastKey() == K_ENTER ) IF lResize lResize := .F. ELSE cLine := NIL ENDIF IF nMaxRow != MaxRow() .OR. nMaxCol != MaxCol() hb_Scroll( nMaxRow, 0 ) ENDIF LOOP ENDIF IF Empty( s_aHistory ) .OR. !( ATail( s_aHistory ) == cLine ) IF Len( s_aHistory ) < HB_HISTORY_LEN AAdd( s_aHistory, cLine ) ELSE ADel( s_aHistory, 1 ) s_aHistory[ Len( s_aHistory ) ] := cLine ENDIF ENDIF nHistIndex := Len( s_aHistory ) + 1 cCommand := AllTrim( cLine, " " ) cLine := NIL hb_Scroll( nMaxRow, 0 ) __hbshell_Info( cCommand ) IF ! Empty( cCommand ) IF Left( cCommand, 1 ) == "." IF cCommand == "." cDomain := "" ELSEIF __hbshell_plugins_valid_id( plugins, SubStr( cCommand, 2 ) ) cDomain := SubStr( cCommand, 2 ) ELSE FOR EACH tmp IN __hbshell_plugins_valid_id_list( plugins ) __hbshell_ToConsole( "." + tmp ) NEXT ENDIF ELSE IF ! __hbshell_plugins_command( plugins, cCommand, cDomain ) __hbshell_Exec( cCommand ) ENDIF IF s_nRow >= MaxRow() hb_Scroll( 3, 0, MaxRow(), MaxCol(), 1 ) s_nRow := MaxRow() - 1 ENDIF ENDIF ENDIF ENDDO __hbshell_plugins_unload( plugins ) RETURN STATIC PROCEDURE __hbshell_ToConsole( cText ) QQOut( cText + hb_eol() ) RETURN STATIC FUNCTION __hbshell_GetHidden() LOCAL GetList := {} LOCAL cPassword := Space( 128 ) LOCAL nSavedRow LOCAL bKeyPaste QQOut( I_( "Enter password: " ) ) nSavedRow := Row() AAdd( GetList, hb_Get():New( Row(), Col(), {| v | iif( PCount() == 0, cPassword, cPassword := v ) }, "cPassword", "@S" + hb_ntos( MaxCol() - Col() + 1 ), hb_ColorIndex( SetColor(), CLR_STANDARD ) + "," + hb_ColorIndex( SetColor(), CLR_STANDARD ) ) ) ATail( GetList ):hideInput( .T. ) ATail( GetList ):postBlock := {|| ! Empty( cPassword ) } ATail( GetList ):display() SetCursor( iif( ReadInsert(), SC_INSERT, SC_NORMAL ) ) bKeyPaste := SetKey( K_ALT_V, {|| hb_gtInfo( HB_GTI_CLIPBOARDPASTE ) } ) ReadModal( GetList ) /* Positions the cursor on the line previously saved */ SetPos( nSavedRow, MaxCol() - 1 ) SetKey( K_ALT_V, bKeyPaste ) QQOut( hb_eol() ) RETURN AllTrim( cPassword ) STATIC PROCEDURE __hbshell_Info( cCommand ) IF cCommand != NIL hb_DispOutAt( 0, 0, "PP: ", "W/N" ) hb_DispOutAt( 0, 4, PadR( cCommand, MaxCol() - 3 ), "N/R" ) ENDIF IF Used() hb_DispOutAt( 1, 0, ; PadR( "RDD: " + PadR( rddName(), 6 ) +; " | Area:" + Str( Select(), 3 ) +; " | Dbf: " + PadR( Alias(), 10 ) +; " | Index: " + PadR( ordName( IndexOrd() ), 8 ) +; " | # " + Str( RecNo(), 7 ) + "/" + Str( RecCount(), 7 ), ; MaxCol() + 1 ), "N/BG" ) ELSE hb_DispOutAt( 1, 0, ; PadR( "RDD: " + Space( 6 ) +; " | Area:" + Space( 3 ) +; " | Dbf: " + Space( 10 ) +; " | Index: " + Space( 8 ) +; " | # " + Space( 7 ) + "/" + Space( 7 ), ; MaxCol() + 1 ), "N/BG" ) ENDIF IF s_lPreserveHistory hb_DispOutAt( 1, MaxCol(), "o", "R/BG" ) ENDIF hb_DispOutAt( 2, 0, PadR( "Ext: " + ArrayToList( hbshell_ext_get_list(), ", " ), MaxCol() + 1 ), iif( hb_Version( HB_VERSION_SHARED ), "W/B", "N/N*" ) ) RETURN STATIC PROCEDURE __hbshell_Err( oErr, cCommand ) LOCAL xArg, cMessage cMessage := I_( "Could not execute:" ) + ";;" + cCommand + ";;" IF oErr:ClassName == "ERROR" cMessage += oErr:Description IF ! Empty( oErr:Operation ) cMessage += " " + oErr:Operation ENDIF IF HB_ISARRAY( oErr:Args ) .AND. Len( oErr:Args ) > 0 cMessage += ";" + I_( "Arguments:" ) FOR EACH xArg IN oErr:Args cMessage += ";" + hb_CStr( xArg ) NEXT ENDIF ELSEIF HB_ISSTRING( oErr ) cMessage += oErr ENDIF cMessage += ";;" + ProcName( 2 ) + "(" + hb_ntos( ProcLine( 2 ) ) + ")" Alert( cMessage ) Break( oErr ) STATIC PROCEDURE __hbshell_Exec( cCommand ) LOCAL pHRB, cHRB, cFunc, bBlock, nRowMin cFunc := "STATIC FUNCTION __HBDOT()" + hb_eol() +; "RETURN {||" + hb_eol() +; " " + cCommand + hb_eol() +; " RETURN __mvSetBase()" + hb_eol() +; "}" + hb_eol() DevPos( s_nRow, s_nCol ) BEGIN SEQUENCE WITH {| oErr | __hbshell_Err( oErr, cCommand ) } cHRB := hb_compileFromBuf( cFunc, hb_ProgName(), "-n2", "-q2" ) IF Empty( cHRB ) Eval( ErrorBlock(), I_( "Syntax error." ) ) ELSE pHRB := hb_hrbLoad( cHRB ) IF ! Empty( pHrb ) bBlock := hb_hrbDo( pHRB ) Eval( bBlock ) ENDIF ENDIF END s_nRow := Row() s_nCol := Col() nRowMin := 3 IF s_nRow < nRowMin s_nRow := nRowMin ENDIF __mvSetBase() RETURN #define _HISTORY_DISABLE_LINE "no" #if defined( __PLATFORM__DOS ) #define _FNAME_HISTORY_ "hbhist.ini" #else #define _FNAME_HISTORY_ ".hb_history" #endif EXIT PROCEDURE __hbshell_exit() __hbshell_HistorySave() RETURN STATIC PROCEDURE __hbshell_HistoryLoad() LOCAL cHistory LOCAL cLine s_lWasLoad := .T. IF s_lPreserveHistory cHistory := StrTran( MemoRead( __hbshell_ConfigDir() + _FNAME_HISTORY_ ), Chr( 13 ) ) IF Left( cHistory, Len( _HISTORY_DISABLE_LINE + Chr( 10 ) ) ) == _HISTORY_DISABLE_LINE + Chr( 10 ) s_lPreserveHistory := .F. ELSE FOR EACH cLine IN hb_ATokens( StrTran( cHistory, Chr( 13 ) ), Chr( 10 ) ) IF ! Empty( cLine ) AAdd( s_aHistory, PadR( cLine, HB_LINE_LEN ) ) ENDIF NEXT ENDIF ENDIF RETURN STATIC PROCEDURE __hbshell_HistorySave() LOCAL cHistory LOCAL cLine LOCAL cDir IF s_lWasLoad .AND. s_lPreserveHistory cHistory := "" FOR EACH cLine IN s_aHistory IF !( Lower( AllTrim( cLine ) ) == "quit" ) cHistory += AllTrim( cLine ) + hb_eol() ENDIF NEXT IF ! hb_DirExists( cDir := __hbshell_ConfigDir() ) hb_DirCreate( cDir ) ENDIF hb_MemoWrit( cDir + _FNAME_HISTORY_, cHistory ) ENDIF RETURN #if defined( __PLATFORM__WINDOWS ) /* NOTE: Using an optional contrib component dynamically. It's a little trick to work around the limitation that core components cannot depend on contribs. This way we depend on it, but only dynamically. Probably in the future, this functionality should be moved to core. [vszakats] */ DYNAMIC win_regWrite DYNAMIC win_regDelete STATIC FUNCTION __hbshell_win_reg_self( lRegister, lAllUser ) IF ! hb_IsFunction( "__HBEXTERN__HBWIN__" ) .AND. ; ! hbshell_ext_load( "hbwin" ) RETURN .F. ENDIF IF ! hb_IsFunction( "win_regWrite" ) .OR. ; ! hb_IsFunction( "win_regDelete" ) RETURN .F. ENDIF RETURN __hbshell_win_reg_app( lRegister, lAllUser, hb_ProgName() ) STATIC FUNCTION __hbshell_win_reg_app( lRegister, lAllUser, cAppPath ) LOCAL cHive := iif( HB_ISLOGICAL( lAllUser ) .AND. lAllUser, "HKEY_CLASSES_ROOT", "HKEY_CURRENT_USER\Software\Classes" ) LOCAL lSuccess := .T. LOCAL tmp LOCAL aEntries := {; cHive + '\' , "" ,; cHive + '\.hb\' , "HarbourScript" ,; cHive + '\HarbourScript\' , "Harbour Script file" ,; cHive + '\HarbourScript\DefaultIcon\' , cAppPath + ",-1" ,; cHive + '\HarbourScript\Shell\' , "Run" ,; cHive + '\HarbourScript\Shell\Run\' , "" ,; cHive + '\HarbourScript\Shell\Run\Command\', cAppPath + ' "%1"' } IF lRegister FOR tmp := 1 TO Len( aEntries ) STEP 2 lSuccess := lSuccess .AND. win_regWrite( aEntries[ tmp ], aEntries[ tmp + 1 ] ) NEXT ELSE FOR tmp := Len( aEntries ) - 1 TO 3 STEP -2 lSuccess := win_regDelete( aEntries[ tmp ] ) NEXT ENDIF RETURN lSuccess #endif /* ------------------------------------------------------------- */ /* for interactive shell and running .hrb. Though it'd be much better if .hrb would natively support list of #require-ed modules, which could be queried and loaded. shell could support #require as well. */ /* Public hbshell API */ FUNCTION hbshell_DirBase() RETURN s_cDirBase_hbshell FUNCTION hbshell_ProgName() RETURN s_cProgName_hbshell FUNCTION hbshell_gtInteractive() hb_gtSelect( hb_gtCreate( __hbshell_gtDefault() ) ) RETURN NIL STATIC FUNCTION __hbshell_gtDefault() #if defined( __PLATFORM__WINCE ) RETURN "GTWVT" #elif defined( __PLATFORM__WINDOWS ) RETURN "GTWIN" #elif defined( __PLATFORM__DOS ) RETURN "GTDOS" #elif defined( __PLATFORM__OS2 ) RETURN "GTOS2" #elif defined( __PLATFORM__UNIX ) .AND. ! defined( __PLATFORM__VXWORKS ) .AND. ! defined( __PLATFORM__SYMBIAN ) RETURN "GTTRM" #else RETURN "GTCGI" #endif #endif /* _HBMK_EMBEDDED_ */ /* ------------------------------------------------------------- */ STATIC PROCEDURE convert_hbmake_to_hbp( hbmk, cSrcName, cDstName ) LOCAL cSrc := MemoRead( cSrcName ) LOCAL cDst LOCAL aDst := {} LOCAL tmp LOCAL cLine LOCAL cSetting LOCAL cValue LOCAL aValue LOCAL cMAIN := NIL _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Loading hbmake project file: %1$s" ), cSrcName ) ) IF Empty( cDstName ) cDstName := hb_FNameExtSet( cSrcName, ".hbp" ) ENDIF AAdd( aDst, "# Automatically converted by " + _SELF_NAME_ + " from hbmake project:" ) AAdd( aDst, hb_StrFormat( "# %1$s", cSrcName ) ) AAdd( aDst, "" ) cSrc := StrTran( cSrc, Chr( 13 ) + Chr( 10 ), Chr( 10 ) ) cSrc := StrTran( cSrc, Chr( 9 ), " " ) FOR EACH cLine IN hb_ATokens( cSrc, Chr( 10 ) ) tmp := At( " =", cLine ) IF tmp > 0 cSetting := AllTrim( Left( cLine, tmp - 1 ) ) cValue := AllTrim( SubStr( cLine, tmp + Len( " =" ) ) ) aValue := hb_ATokens( cValue ) IF ! Empty( cValue ) SWITCH cSetting CASE "COMPRESS" IF cValue == "YES" AAdd( aDst, "-compr=on" ) ENDIF EXIT CASE "GUI" IF cValue == "YES" AAdd( aDst, "-gui" ) ENDIF EXIT CASE "MT" IF cValue == "YES" AAdd( aDst, "-mt" ) ENDIF EXIT CASE "PROJECT" IF Len( aValue ) >= 1 AAdd( aDst, "-o" + hb_FNameName( aValue[ 1 ] ) ) ENDIF EXIT CASE "USERLIBS" FOR EACH tmp IN aValue AAdd( aDst, "-l" + hb_FNameName( tmp ) ) NEXT EXIT CASE "PRGFILES" FOR EACH tmp IN aValue IF !( tmp == "$(PS)" ) IF cMAIN == NIL cMAIN := tmp ENDIF AAdd( aDst, tmp ) ENDIF NEXT EXIT CASE "CFILES" FOR EACH tmp IN aValue IF !( tmp == "$(CF)" ) AAdd( aDst, tmp ) ENDIF NEXT EXIT CASE "OBJFILES" FOR EACH tmp IN aValue IF !( tmp == "$(OB)" ) AAdd( aDst, tmp ) ENDIF NEXT EXIT CASE "OBJCFILES" FOR EACH tmp IN aValue IF !( tmp == "$(OBC)" ) AAdd( aDst, tmp ) ENDIF NEXT EXIT CASE "RESFILES" FOR EACH tmp IN aValue AAdd( aDst, tmp ) NEXT EXIT CASE "TOPMODULE" IF !( cValue == cMAIN ) tmp := AScan( aDst, {| tmp | tmp == cValue } ) IF tmp > 0 hb_ADel( aDst, tmp, .T. ) hb_AIns( aDst, 1, cValue, .T. ) ENDIF ENDIF EXIT CASE "CONTRIBLIBS" FOR EACH tmp IN aValue AAdd( aDst, "-l" + hb_FNameName( tmp ) ) NEXT EXIT CASE "HARBOURFLAGS" FOR EACH tmp IN aValue AAdd( aDst, tmp ) NEXT EXIT ENDSWITCH ENDIF ENDIF NEXT cDst := "" FOR EACH tmp IN aDst cDst += tmp + hb_eol() NEXT _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Saving as .hbp file: %1$s" ), cDstName ) ) hb_MemoWrit( cDstName, cDst ) RETURN STATIC PROCEDURE convert_xbp_to_hbp( hbmk, cSrcName, cDstName ) LOCAL cSrc := MemoRead( cSrcName ) LOCAL cDst LOCAL aDst := {} LOCAL tmp LOCAL cLine LOCAL cSetting LOCAL cValue LOCAL aValue LOCAL cMAIN := NIL LOCAL lGlobalSection := .T. _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Loading xbp (xbuild) project file: %1$s" ), cSrcName ) ) IF Empty( cDstName ) cDstName := hb_FNameExtSet( cSrcName, ".hbp" ) ENDIF AAdd( aDst, "# Automatically converted by " + _SELF_NAME_ + " from xbuild project:" ) AAdd( aDst, hb_StrFormat( "# %1$s", cSrcName ) ) AAdd( aDst, "" ) AAdd( aDst, "-inc" ) IF ".lib" $ cSrcName AAdd( aDst, "-hblib" ) ELSEIF ".dll" $ cSrcName AAdd( aDst, "-hbdyn" ) ENDIF cSrc := StrTran( cSrc, Chr( 13 ) + Chr( 10 ), Chr( 10 ) ) cSrc := StrTran( cSrc, Chr( 9 ), " " ) FOR EACH cLine IN hb_ATokens( cSrc, Chr( 10 ) ) IF Left( cLine, 1 ) == "[" .AND. Right( cLine, 1 ) == "]" lGlobalSection := .F. AAdd( aDst, SubStr( cLine, 2, Len( cLine ) - 2 ) ) ELSEIF lGlobalSection tmp := At( " =", cLine ) IF tmp > 0 cSetting := AllTrim( Left( cLine, tmp - 1 ) ) cValue := AllTrim( SubStr( cLine, tmp + Len( " =" ) ) ) aValue := hb_ATokens( cValue ) IF ! Empty( cValue ) SWITCH cSetting CASE "LDEBUG" IF cValue == ".T." AAdd( aDst, "-debug" ) ENDIF EXIT CASE "LGUI" IF cValue == ".T." AAdd( aDst, "-gui" ) ENDIF EXIT CASE "LMT" IF cValue == ".T." AAdd( aDst, "-mt" ) ENDIF EXIT CASE "LUSEDLL" IF cValue == ".T." AAdd( aDst, "-shared" ) ENDIF EXIT CASE "MAPFILE" IF ! Empty( cValue ) AAdd( aDst, "-map" ) ENDIF EXIT CASE "TARGETFOLDER" IF ! Empty( cValue ) AAdd( aDst, "-o" + hb_DirSepAdd( cValue ) ) ENDIF EXIT CASE "LIBFOLDERS" FOR EACH tmp IN aValue AAdd( aDst, "-L" + tmp ) NEXT EXIT CASE "INCLUDEFOLDERS" FOR EACH tmp IN aValue AAdd( aDst, "-incpath=" + tmp ) NEXT EXIT CASE "MYC_FLAGS" FOR EACH tmp IN aValue AAdd( aDst, "-cflag=" + tmp ) NEXT EXIT CASE "MYDEFINES" FOR EACH tmp IN aValue AAdd( aDst, "-D" + tmp ) NEXT EXIT CASE "MYLINK_FLAGS" FOR EACH tmp IN aValue AAdd( aDst, "-ldflag=" + tmp ) NEXT EXIT CASE "MYRC_FLAGS" FOR EACH tmp IN aValue AAdd( aDst, "-resflag=" + tmp ) NEXT EXIT CASE "MYPRG_FLAGS" FOR EACH tmp IN aValue AAdd( aDst, tmp ) NEXT EXIT ENDSWITCH ENDIF ENDIF ENDIF NEXT cDst := "" FOR EACH tmp IN aDst cDst += tmp + hb_eol() NEXT _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Saving as .hbp file: %1$s" ), cDstName ) ) hb_MemoWrit( cDstName, cDst ) RETURN STATIC PROCEDURE convert_xhp_to_hbp( hbmk, cSrcName, cDstName ) LOCAL cSrc := MemoRead( cSrcName ) LOCAL cDst LOCAL aDst := {} LOCAL tmp, tmp1 LOCAL cLine LOCAL cSetting LOCAL cValue LOCAL aValue LOCAL cFile LOCAL hLIBPATH := { => } LOCAL cMAIN := NIL LOCAL lFileSection := .F. _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Loading xhp (xMate) project file: %1$s" ), cSrcName ) ) IF Empty( cDstName ) cDstName := hb_FNameExtSet( cSrcName, ".hbp" ) ENDIF AAdd( aDst, "# Automatically converted by " + _SELF_NAME_ + " from xMate project:" ) AAdd( aDst, hb_StrFormat( "# %1$s", cSrcName ) ) AAdd( aDst, "" ) AAdd( aDst, "-inc" ) cSrc := StrTran( cSrc, Chr( 13 ) + Chr( 10 ), Chr( 10 ) ) cSrc := StrTran( cSrc, Chr( 9 ), " " ) FOR EACH cLine IN hb_ATokens( cSrc, Chr( 10 ) ) IF cLine == "[Files]" lFileSection := .T. ELSEIF lFileSection tmp := At( "=", cLine ) IF tmp > 0 cFile := AllTrim( Left( cLine, tmp - 1 ) ) SWITCH Lower( hb_FNameExt( cFile ) ) CASE ".c" CASE ".prg" IF !( "%HB_INSTALL%\" $ cFile ) tmp := StrTran( cFile, "%HOME%\" ) IF " " $ tmp tmp := Chr( 34 ) + tmp + Chr( 34 ) ENDIF AAdd( aDst, tmp ) ENDIF EXIT CASE ".lib" CASE ".a" IF !( "%C_LIB_INSTALL%\" $ cFile ) .AND. ; !( "%HB_LIB_INSTALL%\" $ cFile ) cFile := StrTran( cFile, "%HOME%\" ) IF !( hb_FNameDir( cFile ) $ hLIBPATH ) .AND. ! Empty( hb_FNameDir( cFile ) ) hLIBPATH[ hb_FNameDir( cFile ) ] := NIL ENDIF tmp := hb_FNameName( cFile ) IF hb_FNameExt( cFile ) == ".a" .AND. Left( tmp, 3 ) == "lib" tmp := SubStr( tmp, 4 ) ENDIF tmp := "-l" + tmp IF " " $ tmp tmp := Chr( 34 ) + tmp + Chr( 34 ) ENDIF AAdd( aDst, tmp ) ENDIF EXIT CASE ".obj" CASE ".o" IF !( "%C_LIB_INSTALL%\" $ cFile ) .AND. ; !( "%HB_LIB_INSTALL%\" $ cFile ) tmp := StrTran( cFile, "%HOME%\" ) IF " " $ tmp tmp := Chr( 34 ) + tmp + Chr( 34 ) ENDIF AAdd( aDst, tmp ) ENDIF EXIT ENDSWITCH ENDIF ELSE tmp := At( "=", cLine ) IF tmp > 0 cSetting := AllTrim( Left( cLine, tmp - 1 ) ) cValue := AllTrim( SubStr( cLine, tmp + Len( "=" ) ) ) aValue := hb_ATokens( cValue ) IF ! Empty( cValue ) SWITCH cSetting CASE "Create Map/List File" IF cValue == "Yes" AAdd( aDst, "-map" ) ENDIF EXIT CASE "Final Path" IF ! Empty( cValue ) AAdd( aDst, "-o" + hb_DirSepAdd( StrTran( cValue, "%HOME%\" ) ) ) ENDIF EXIT CASE "Include" FOR EACH tmp IN aValue IF !( "%HB_INSTALL%\" $ tmp ) IF Left( tmp, 2 ) == "-I" tmp := SubStr( tmp, 3 ) ENDIF tmp := StrTran( StrTran( tmp, '"' ), "%HOME%\" ) FOR EACH tmp1 IN hb_ATokens( tmp, ";" ) IF ! Empty( tmp1 ) AAdd( aDst, "-incpath=" + tmp1 ) ENDIF NEXT ENDIF NEXT EXIT CASE "Define" FOR EACH tmp IN aValue IF Left( tmp, 2 ) == "-D" tmp := SubStr( tmp, 3 ) ENDIF AAdd( aDst, "-D" + tmp ) NEXT EXIT CASE "Params" FOR EACH tmp IN aValue AAdd( aDst, "-runflag=" + tmp ) NEXT EXIT ENDSWITCH ENDIF ENDIF ENDIF NEXT FOR EACH tmp IN hLIBPATH AAdd( aDst, "-L" + tmp:__enumKey() ) NEXT cDst := "" FOR EACH tmp IN aDst cDst += tmp + hb_eol() NEXT _hbmk_OutStd( hbmk, hb_StrFormat( I_( "Saving as .hbp file: %1$s" ), cDstName ) ) hb_MemoWrit( cDstName, cDst ) RETURN STATIC FUNCTION GetUILang() LOCAL cLNG IF Empty( cLNG := GetEnv( "HB_LANG" ) ) IF Empty( cLNG := hb_UserLang() ) cLNG := "en" ENDIF ENDIF RETURN StrTran( cLNG, "_", "-" ) STATIC PROCEDURE SetUILang( cUILNG ) LOCAL tmp /* Setup input CP of the translation */ hb_cdpSelect( "UTF8EX" ) /* Configure terminal and OS codepage */ hb_SetTermCP( hb_cdpTerm() ) Set( _SET_OSCODEPAGE, hb_cdpOS() ) /* Configure language */ IF cUILNG == "en" hb_i18n_Set( NIL ) hb_langSelect( cUILNG ) ELSE tmp := "${hb_root}" + _SELF_NAME_ + ".${hb_lng}.hbl" tmp := StrTran( tmp, "${hb_root}", hb_DirSepAdd( hb_DirBase() ) ) tmp := StrTran( tmp, "${hb_lng}", StrTran( cUILNG, "-", "_" ) ) IF hb_i18n_Check( tmp := hb_MemoRead( tmp ) ) hb_i18n_Set( hb_i18n_RestoreTable( tmp ) ) hb_langSelect( cUILNG ) ELSE hb_i18n_Set( NIL ) hb_langSelect( "en" ) ENDIF ENDIF RETURN INIT PROCEDURE ClipInit() hb_cdpSelect( "UTF8EX" ) RETURN STATIC PROCEDURE ShowHeader( hbmk ) LOCAL cTrsText LOCAL cTrsTextI OutStd( "Harbour Make (" + _SELF_NAME_ + ") " + HBRawVersion() + _OUT_EOL +; "Copyright (c) 1999-2012, Viktor Szakáts" + _OUT_EOL +; "http://harbour-project.org/" + _OUT_EOL ) IF !( hbmk[ _HBMK_cUILNG ] == "en" ) .AND. ; !( hbmk[ _HBMK_cUILNG ] == "en-GB" ) .AND. ; !( hbmk[ _HBMK_cUILNG ] == "en-US" ) cTrsText := hb_i18n_gettext_noop( "Translation (%1$s): (add your name here)" ) cTrsTextI := I_( cTrsText ) IF !( cTrsText == cTrsTextI ) .AND. ! Empty( cTrsTextI ) OutStd( hb_StrFormat( cTrsTextI, hbmk[ _HBMK_cUILNG ] ) + _OUT_EOL ) ENDIF ENDIF OutStd( _OUT_EOL ) RETURN STATIC FUNCTION HBRawVersion() RETURN StrTran( Version(), "Harbour " ) STATIC PROCEDURE ShowHelp( hbmk, lLong ) LOCAL aText_Basic := {; I_( "Syntax:" ),; "",; hb_StrFormat( I_( " %1$s [options] [] " ), _SELF_NAME_ ),; "",; I_( "Options:" ) } LOCAL aText_Supp := {; "",; I_( "Supported values for each supported value:" ),; " - linux : gcc, clang, icc, watcom, sunpro, open64, pcc",; " - darwin : gcc, clang, icc, pcc",; " - win : mingw, msvc, bcc, watcom, icc, pocc, xcc,",; " mingw64, msvc64, msvcia64, iccia64, pocc64",; " - wce : mingwarm, mingw, msvcarm, poccarm",; " - os2 : gcc, gccomf, watcom",; " - dos : djgpp, watcom",; " - bsd : gcc, clang, pcc",; " - hpux : gcc",; " - beos : gcc",; " - qnx : gcc",; " - android : gcc, gccarm",; " - vxworks : gcc, diab",; " - symbian : gcc",; " - cygwin : gcc",; " - minix : gcc, clang, ack",; " - aix : gcc",; " - sunos : gcc, sunpro, pcc" } LOCAL aOpt_Basic := {; { "-o" , I_( "output file name" ) },; { "-l" , I_( "link with library. should be without path, extension and 'lib' prefix (unless part of libname). Do not add core Harbour libraries, they are automatically added as needed." ) },; { "-L" , I_( "additional path to search for libraries" ) },; { "-i

|-incpath=

" , I_( "additional path to search for headers" ) },; { "-static|-shared" , I_( "link with static/shared libs" ) },; { "-mt|-st" , I_( "link with multi/single-thread Harbour VM" ) },; { "-gt" , I_( "link with GT GT driver, can be repeated to link with more GTs. First one will be the default at runtime" ) },; { "-hbexe" , I_( "create executable (default)" ) },; { "-hblib" , I_( "create static library" ) },; { "-hbdyn" , I_( "create dynamic library (without linked Harbour VM)" ) },; { "-hbdynvm" , I_( "create dynamic library" ) },; { "-hbimplib" , I_( "create import library" ) }} LOCAL aOpt_Help := {; { "-help|--help" , I_( "long help" ) } } LOCAL aOpt_Long := {; NIL,; { "-gui|-std" , I_( "create GUI/console executable" ) },; { "-main=" , I_( "override the name of starting function/procedure" ) },; { "-request=" , I_( "force function/procedure to be linked" ) },; { "-fullstatic" , I_( "link with all static libs" ) },; { "-pic[-]" , I_( "create position independent object code (always enabled in -hbdyn/-hbdynvm modes)" ) },; { "-[full|fix]shared" , I_( "create shared Harbour binaries without/with absolute dir reference to Harbour library (default: 'fullshared' when Harbour is installed on system location, 'fixshared' otherwise) (fix/full option in *nix only)" ) },; { "-nulrdd[-]" , I_( "link with nulrdd" ) },; { "-[no]debug" , I_( "add/exclude C compiler debug info. For Harbour level debug, use Harbour option -b as usual" ) },; { "-[no]optim" , I_( "toggle C compiler optimizations (default: on)" ) },; { "-[no]cpp[=def]" , I_( "force C/C++ mode or reset to default" ) },; /* { "-c=[]" , I_( "select C standard. Allowed values are: iso90, iso99, iso1x, gnu90, gnu99, gnu1x" ) }, */; /* { "-cpp=[]" , I_( "select C++ standard. Allowed values are: iso98, iso03, iso0x, gnu98, gnu0x" ) }, */; { "-[no]map" , I_( "create (or not) a map file" ) },; { "-[no]implib" , I_( "create (or not) an import library (in -hbdyn/-hbexe mode). The name will have a postfix added." ) },; { "-implib=" , I_( "create import library (in -hbdyn/-hbexe mode) name to (default: same as output)" ) },; { "-ln=" , I_( "create symbolic link pointing to ( is considered relative to )" ) },; { "-[no]strip" , I_( "strip (no strip) binaries" ) },; { "-[no]trace" , I_( "show commands executed" ) },; { "-[no]beep" , I_( "enable (or disable) single beep on successful exit, double beep on failure" ) },; { "-[no]ignore" , I_( "ignore errors when running compiler tools (default: off)" ) },; { "-[no]hbcppmm" , I_( "override standard C++ memory management functions with Harbour ones" ) },; { "-winuni[-]" , I_( "select between UNICODE (WIDE) and ANSI compilation modes (default: ANSI) (Windows only. For WinCE it is always set to UNICODE)" ) },; { "-nohblib[-]" , I_( "do not use static core Harbour libraries when linking" ) },; { "-nodefgt[-]" , I_( "do not link default GTs (effective in -static mode)" ) },; { "-nolibgrouping[-]" , I_( "disable library grouping on gcc based compilers" ) },; { "-nomiscsyslib[-]" , I_( "do not add extra list of system libraries to default library list" ) },; { "-traceonly" , I_( "show commands to be executed, but do not execute them" ) },; { "-[no]warn[=lev]" , I_( "set C compiler warning level\n can be: max, yes, low, no, def (default: yes)" ) },; { "-[no]compr[=lev]" , I_( "compress executable/dynamic lib (needs UPX)\n can be: min, max, def" ) },; { "-[no]run" , I_( "run/do not run output executable" ) },; { "-vcshead=" , I_( "generate .ch header file with local repository information. SVN, CVS, Git, Mercurial, Bazaar, Fossil and Monotone are currently supported. Generated header will define macro _HBMK_VCS_TYPE_ with the name of detected VCS and _HBMK_VCS_ID_ with the unique ID of local repository" ) },; { "-tshead=" , I_( "generate .ch header file with timestamp information. Generated header will define macros _HBMK_BUILD_DATE_, _HBMK_BUILD_TIME_, _HBMK_BUILD_TIMESTAMP_ with the date/time of build" ) },; { "-icon=" , I_( "set as application icon. should be a supported format on the target platform" ) },; { "-manifest=" , I_( "embed manifest in executable/dynamic lib (Windows only)" ) },; { "-sign=" , I_( "sign executable with (Windows and Darwin only)" ) },; { "-signpw=" , I_( "use as password when signing executable (Windows and Darwin only)" ) },; { "-instfile=" , I_( "add in to the list of files to be copied to path specified by -instpath option. is an optional copy group, it must be at least two characters long." ) },; { "-instpath=" , I_( "copy target to . if is a directory, it should end with path separatorm, in this case files specified by -instfile option will also be copied. can be specified multiple times. is an optional copy group, it must be at least two characters long. Build target will be automatically copied to default (empty) copy group." ) },; { "-instforce[-]" , I_( "copy target to install path even if it is up to date" ) },; { "-depimplib[-]" , I_( "enable (or disable) import library generation for import library sources specified in -depimplibs= options (default: yes)" ) },; { "-stop[=]" , I_( "stop without doing anything and display if specified" ) },; { "-echo=" , I_( "echo text on screen" ) },; { "-pause" , I_( "force waiting for a key on exit in case of failure (with alternate GTs only)" ) },; { "-info" , I_( "turn on informational messages" ) },; { "-quiet[-]" , I_( "suppress all screen messages" ) },; NIL,; { "-bldf[-]" , I_( "inherit all/no (default) flags from Harbour build" ) },; { "-bldf=[p][c][l]" , I_( "inherit .prg/.c/linker flags (or none) from Harbour build" ) },; { "-F" , I_( "link with framework (Darwin only)" ) },; { "-prgflag=" , I_( "pass flag to Harbour" ) },; { "-cflag=" , I_( "pass flag to C compiler" ) },; { "-resflag=" , I_( "pass flag to resource compiler (Windows only)" ) },; { "-ldflag=" , I_( "pass flag to linker (executable)" ) },; { "-aflag=" , I_( "pass flag to linker (static library)" ) },; { "-dflag=" , I_( "pass flag to linker (dynamic library)" ) },; { "-iflag=" , I_( "pass flag to import library creation command" ) },; { "-runflag=" , I_( "pass flag to output executable when -run option is used" ) },; { "-cflag+=" , hb_StrFormat( I_( "pass flag to C compiler overriding C compiler flags added by %1$s itself. Use with caution." ), _SELF_NAME_ ) },; { "-3rd=" , hb_StrFormat( I_( "options/flags reserved for 3rd party tools, always ignored by %1$s itself" ), _SELF_NAME_ ) },; { "-jobs=" , I_( "start n compilation threads (multiprocess platforms only)" ) },; { "-inc" , I_( "enable incremental build mode" ) },; { "-[no]head[=]" , I_( "control source header parsing (in incremental build mode)\n can be: native (uses compiler to extract dependencies), full (default, uses simple text parser on the whole file), dep, off" ) },; { "-rebuild" , I_( "rebuild (in incremental build mode)" ) },; { "-rebuildall" , I_( "rebuild with sub-projects (in incremental build mode)" ) },; { "-clean" , I_( "clean (in incremental build mode)" ) },; { "-workdir=

" , hb_StrFormat( I_( "working directory\n(default: %1$s/plat/comp in incremental mode, OS temp directory otherwise)" ), _WORKDIR_BASE_ ) },; NIL,; { "-hbl[=]" , hb_StrFormat( I_( "output .hbl filename. %1$s macro is accepted in filename" ), _LNG_MARKER ) },; { "-lng=" , hb_StrFormat( I_( "list of languages to be replaced in %1$s macros in .pot/.po filenames and output .hbl/.po filenames. Comma separared list:\n-lng=en,hu-HU,de" ), _LNG_MARKER ) },; { "-po=" , I_( "create/update .po file from source. Merge it with previous .po file of the same name" ) },; { "-[no]minipo" , I_( "do (not) add Harbour version number and source file reference to .po (default: add them)" ) },; { "-rebuildpo" , I_( "recreate .po file, thus removing all obsolete entries in it" ) },; NIL,; { "-hbx=[<.ch>]" , I_( "Create Harbour header (in .hbx format) with all external symbols. Empty parameter will disable it." ) },; { "-autohbc=<.ch:.hbc>", I_( "<.ch> is a header file name. <.hbc> is a .hbc filename to be automatically included in case the header is found in any of the compiled sources. (EXPERIMENTAL)" ) },; NIL,; { "-deppkgname=" , I_( " is the name of the dependency. name of the package depedency. Can be specified multiple times." ) },; { "-depkeyhead=" , I_( " is the name of the dependency. is the key header (.h) of the package dependency. Multiple alternative headers can be specified." ) },; { "-depoptional=" , I_( " is the name of the dependency. can be 'yes' or 'no', specifies whether the dependency is optional. Default: no" ) },; { "-depcontrol=" , I_( " is the name of the dependency. is a value that controls how detection is done. Accepted values: no, yes, force, nolocal, local. Default: content of envvar HBMK_WITH_" ) },; { "-depincroot=" , I_( " is the name of the dependency. Set as root directory for paths specified in -depincpath options." ) },; { "-depincpath=" , I_( " is the name of the dependency. Add to the header detection path list." ) },; { "-depincpathlocal= " , I_( " is the name of the dependency. Add to the header detection path list, where is pointing to a directory local to the project and containing an embedded (or locally hosted) dependency." ) },; { "-depimplibs=" , I_( " is the name of the dependency. Add to the import library source list." ) },; { "-depimplibd=" , I_( " is the name of the dependency. Set generated import library name to " ) },; NIL,; { "-plugin=" , I_( "add plugin. can be: .hb, .prg, .hrb" ) },; { "-pi=" , I_( "pass input file to plugins" ) },; { "-pflag=" , I_( "pass flag to plugins" ) },; NIL,; { "Options below are available on command line only:" },; NIL,; { "-target=