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

2009-05-30 01:33 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* utils/hbmk2/hbmk2.prg
    + Added support for wildcarded project specs:
      - This command will build each .hbp file found in current dir:
        > hbmk2 *.hbp
      - This command will build all .prg files in current dir,
        each into a separate executable as separate projects:
        > hbmk2 -target=*.prg
This commit is contained in:
Viktor Szakats
2009-05-29 23:36:24 +00:00
parent 1ea8b84235
commit 27665fc35d
2 changed files with 38 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -17,6 +17,15 @@
past entries belonging to these authors: Viktor Szakats.
*/
2009-05-30 01:33 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* utils/hbmk2/hbmk2.prg
+ Added support for wildcarded project specs:
- This command will build each .hbp file found in current dir:
> hbmk2 *.hbp
- This command will build all .prg files in current dir,
each into a separate executable as separate projects:
> hbmk2 -target=*.prg
2009-05-30 01:12 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* INSTALL
* Minor update.

40
harbour/utils/hbmk2/hbmk2.prg
View File

@@ -237,10 +237,11 @@ REQUEST hbmk_KEYW
#ifndef _HBMK_EMBEDDED_
PROCEDURE Main( ... )
LOCAL aArgs := hb_AParams()
LOCAL aArgsIn := hb_AParams()
LOCAL aArgsProc := {}
LOCAL nResult
LOCAL cName
LOCAL tmp
LOCAL tmp, tmp1
LOCAL lPause := hb_gtInfo( HB_GTI_ISGRAPHIC )
LOCAL lUTF8
@@ -256,7 +257,7 @@ PROCEDURE Main( ... )
self names are detected.
For compatibility with hbmk script aliases. */
IF ! Empty( aArgs )
IF ! Empty( aArgsIn )
hb_FNameSplit( hb_argv( 0 ),, @cName )
@@ -264,27 +265,44 @@ PROCEDURE Main( ... )
IF Left( tmp, 1 ) == "x"
tmp := SubStr( tmp, 2 )
hb_AIns( aArgs, 1, "-xhb", .T. )
AAdd( aArgsProc, "-xhb" )
ENDIF
DO CASE
CASE Right( tmp, 5 ) == "hbcmp" .OR. ;
Left( tmp, 5 ) == "hbcmp" .OR. ;
tmp == "clipper" ; hb_AIns( aArgs, 1, "-hbcmp", .T. )
tmp == "clipper" ; AAdd( aArgsProc, "-hbcmp" )
CASE Right( tmp, 4 ) == "hbcc" .OR. ;
Left( tmp, 4 ) == "hbcc" ; hb_AIns( aArgs, 1, "-hbcc", .T. )
Left( tmp, 4 ) == "hbcc" ; AAdd( aArgsProc, "-hbcc" )
CASE Right( tmp, 5 ) == "hblnk" .OR. ;
Left( tmp, 5 ) == "hblnk" ; hb_AIns( aArgs, 1, "-hblnk", .T. )
Left( tmp, 5 ) == "hblnk" ; AAdd( aArgsProc, "-hblnk" )
CASE tmp == "rtlink" .OR. ;
tmp == "exospace" .OR. ;
tmp == "blinker" ; hb_AIns( aArgs, 1, "-rtlink", .T. )
tmp == "blinker" ; AAdd( aArgsProc, "-rtlink" )
CASE Right( tmp, 5 ) == "hblib" .OR. ;
Left( tmp, 5 ) == "hblib" ; hb_AIns( aArgs, 1, "-hblib", .T. )
Left( tmp, 5 ) == "hblib" ; AAdd( aArgsProc, "-hblib" )
CASE Right( tmp, 5 ) == "hbdyn" .OR. ;
Left( tmp, 5 ) == "hbdyn" ; hb_AIns( aArgs, 1, "-hbdyn", .T. )
Left( tmp, 5 ) == "hbdyn" ; AAdd( aArgsProc, "-hbdyn" )
ENDCASE
ENDIF
/* Expand wildcard project specs */
FOR EACH tmp IN aArgsIn
DO CASE
CASE Lower( FN_ExtGet( tmp ) ) == ".hbp"
tmp := FN_Expand( tmp, .T. )
ASize( aArgsProc, Len( aArgsProc ) + Len( tmp ) )
ACopy( tmp, aArgsProc, Len( aArgsProc ) - Len( tmp ) + 1 )
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
/* Handle multitarget command lines */
nTargetTODO := 1
@@ -294,7 +312,7 @@ PROCEDURE Main( ... )
nTarget := 0
lHadTarget := .F.
FOR EACH tmp IN aArgs
FOR EACH tmp IN aArgsProc
DO CASE
CASE Lower( FN_ExtGet( tmp ) ) == ".hbp" .AND. ! lHadTarget
nTarget++