From 5f5f53cb32e0e2733727598fde74add479842aff Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Tue, 7 Apr 2009 19:04:05 +0000 Subject: [PATCH] 2009-04-07 12:02 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * contrib/hbqt/generator/hbqtgen.prg ! Few more refinements. --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbqt/generator/hbqtgen.prg | 28 ++++++++++------------ 2 files changed, 16 insertions(+), 16 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index f3df4dee04..84eb7fcca9 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -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. diff --git a/harbour/contrib/hbqt/generator/hbqtgen.prg b/harbour/contrib/hbqt/generator/hbqtgen.prg index 7622f364bd..27a918c934 100644 --- a/harbour/contrib/hbqt/generator/hbqtgen.prg +++ b/harbour/contrib/hbqt/generator/hbqtgen.prg @@ -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 >' ) + aadd( dcc_, ' * Pritpal Bedi ' ) 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_ ) /*----------------------------------------------------------------------*/