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

2009-04-07 12:02 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* contrib/hbqt/generator/hbqtgen.prg
    ! Few more refinements.
This commit is contained in:
Pritpal Bedi
2009-04-07 19:04:05 +00:00
parent d28163e6ce
commit 5f5f53cb32
2 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-04-07 12:02 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbqt/generator/hbqtgen.prg
! Few more refinements.
2009-04-07 11:45 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbqt/generator/hbqtgen.prg
! Updated to post latest demoqt.prg.

28
harbour/contrib/hbqt/generator/hbqtgen.prg
View File

@@ -1049,36 +1049,32 @@ STATIC FUNCTION HBRawVersion()
/*----------------------------------------------------------------------*/
STATIC FUNCTION BuildDocument( cWidget, doc_, cPathDoc )
LOCAL cFile := cPathDoc + s_PathSep + cWidget +'.txt'
LOCAL dcc_:={}
LOCAL hHandle, cFile
BuildHeader( @dcc_ )
aadd( dcc_, '/* ' )
aadd( dcc_, ' * HBQtGen v1.0 - Harbour Callable Wrappers Generator for QT v4.5 >' )
aadd( dcc_, ' * HBQtGen v1.0 - Harbour Callable Wrappers Generator for QT v4.5 ' )
aadd( dcc_, ' * ' )
aadd( dcc_, ' * Please do not modify this document as it is subject to change in future. >' )
aadd( dcc_, ' * Please do not modify this document as it is subject to change in future. ' )
aadd( dcc_, ' * ' )
aadd( dcc_, ' * Pritpal Bedi <pritpal@vouchcac.com> >' )
aadd( dcc_, ' * Pritpal Bedi <pritpal@vouchcac.com> ' )
aadd( dcc_, ' * ' )
aadd( dcc_, ' * '+dtoc( date() ) + ' - ' + time() + ' >' )
aadd( dcc_, ' * '+dtoc( date() ) + ' - ' + time() )
aadd( dcc_, ' * ' )
aadd( dcc_, ' */ ' )
aadd( dcc_, ' ' )
aadd( dcc_, ' ' )
aadd( dcc_, ' ' )
aeval( doc_, {|e| aadd( dcc_, e ) } )
cFile := cPathDoc + s_PathSep + cWidget +'.txt'
aadd( dcc_, ' ' )
aadd( dcc_, "/*----------------------------------------------------------------------*/" )
aadd( dcc_, ' ' )
aadd( dcc_, ' ' )
OutStd( "Creating: " + cFile + hb_osNewLine() )
hHandle := fcreate( cFile )
IF hHandle != -1
aeval( dcc_, { |e| fWrite( hHandle, e + s_NewLine, len( e ) + len( s_NewLine ) ) } )
fClose( hHandle )
ENDIF
RETURN file( cFile )
RETURN CreateTarget( cFile, dcc_ )
/*----------------------------------------------------------------------*/