169631527c
* contrib/hbhttpd/log.prg
* contrib/hbtip/log.prg
* contrib/hbziparc/ziparc.prg
* src/rtl/hbdoc.prg
* src/rtl/hbi18n2.prg
* src/rtl/memvarhb.prg
* src/rtl/tlabel.prg
* src/rtl/treport.prg
% use HB_FNAMEEXTSETDEF() instead of manual logic.
it also fixes RTEs in hbziparc when passed non-string
filename to nearly any of its APIs.
* utils/hbi18n/hbi18n.hbp
* missed -shared enabler in .hbp
* utils/hbmk2/Makefile
* utils/hbmk2/hbmk2.hbp
+ enabled -shared build for hbmk2
* utils/hbmk2/hbmk2.prg
% consolidated .hbc finder logic
% moved 'hbmk' structure initializations to subfunctions
+ added Harbour installation autodetection for hbmk2's
runner mode. It's copy-paste code yet.
+ added automatic include path configuration in hbmk2's
runner mode. It means that now #require-d extensions
will have their include paths setup, so their header
will be found, so they can be used now.
; I more and more see it a reality to integrate hbrun
functionality into hbmk2. #require logic needs
much of hbmk2's facilities, and hbmk2 already has
basic runner capabilities. Contrib libs (and plugins)
will all have to be loaded dynamically in such case,
but since it works well, it should not be a problem.
Finally hbmk2 can be the utility that runs scripts
dynamically and also able to build an exe from them,
using the exact same source code, without any external
configuration, if the source code provides "#require"
clues. All it needs is both dynamic and static versions
of extensions (=contribs or addons).
123 lines
3.5 KiB
Plaintext
123 lines
3.5 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* TIP simple logger class
|
|
*
|
|
* Copyright 2009 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, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this software; see the file COPYING. If not, write to
|
|
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
|
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries with other
|
|
* files to produce an executable, this does not by itself cause the
|
|
* resulting executable to be covered by the GNU General Public License.
|
|
* Your use of that executable is in no way restricted on account of
|
|
* linking the Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
*/
|
|
|
|
#include "hbclass.ch"
|
|
|
|
#include "fileio.ch"
|
|
|
|
CREATE CLASS TIPLOG
|
|
|
|
METHOD New( cFileName )
|
|
METHOD Add( cMsg )
|
|
METHOD Close()
|
|
METHOD Clear()
|
|
|
|
PROTECTED:
|
|
|
|
VAR cFileName
|
|
VAR fhnd
|
|
|
|
ENDCLASS
|
|
|
|
METHOD New( cFileName ) CLASS TIPLOG
|
|
|
|
IF ! HB_ISSTRING( cFileName )
|
|
cFileName := "hbtip"
|
|
ENDIF
|
|
|
|
IF Set( _SET_DEFEXTENSIONS )
|
|
cFileName := hb_FNameExtSetDef( cFileName, ".log" )
|
|
ENDIF
|
|
|
|
::cFileName := cFileName
|
|
|
|
RETURN Self
|
|
|
|
METHOD Add( cMsg ) CLASS TIPLOG
|
|
LOCAL cDir, cName, cExt
|
|
LOCAL n
|
|
|
|
IF Empty( ::fhnd ) .OR. ::fhnd == F_ERROR
|
|
|
|
hb_FNameSplit( ::cFileName, @cDir, @cName, @cExt )
|
|
|
|
n := 1
|
|
DO WHILE .T.
|
|
::fhnd := hb_FCreate( hb_FNameMerge( cDir, cName + "-" + hb_ntos( n ), cExt ), NIL, FO_EXCL )
|
|
IF ::fhnd != F_ERROR .OR. ;
|
|
FError() == 3 /* path not found */
|
|
EXIT
|
|
ENDIF
|
|
n++
|
|
ENDDO
|
|
ENDIF
|
|
|
|
IF ! Empty( ::fhnd ) .AND. ::fhnd != F_ERROR
|
|
RETURN FWrite( ::fhnd, cMsg ) == hb_BLen( cMsg )
|
|
ENDIF
|
|
|
|
RETURN .F.
|
|
|
|
METHOD Close() CLASS TIPLOG
|
|
LOCAL lRetVal
|
|
|
|
IF ! Empty( ::fhnd ) .AND. ::fhnd != F_ERROR
|
|
lRetVal := FClose( ::fhnd )
|
|
::fhnd := NIL
|
|
RETURN lRetVal
|
|
ENDIF
|
|
|
|
RETURN .F.
|
|
|
|
METHOD Clear() CLASS TIPLOG
|
|
RETURN ::Close() .AND. FErase( ::cFileName ) == 0
|