" + CRLF + cTitle + CRLF + "

/* * $Id$ */ /* * Harbour Project source code: * HTML Support Code For HBDOC * HTML .CMH support code for HBDOC * * Copyright 2000 Luiz Rafael Culik * www - http://www.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 'common.ch' #define CRLF HB_OSNewLine() STATIC nX := 0 *+北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北 *+ *+ Class THTML *+ *+北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北 *+ CLASS THTML DATA nHandle DATA cFile METHOD New( cFile ,aMetaContents) METHOD WriteTitle( cTitle ) METHOD WritePar( cPar ) METHOD WriteParBold( cPar ) METHOD WriteLink( cLink ,cName) METHOD WriteLinkTable( cLink ,cName) METHOD WriteChmLink( cLink ,cName) METHOD WriteText( cText ) METHOD WriteMetaTag(cTag,cDescription) METHOD CLOSE() // The Follow methods is for html source files for .CHM help METHOD NewChm( cFile ,aMetaContents,cFuncName) METHOD ADDoBJECT(cType,cClassid) METHOD ADDPARAM(cName,cValue) METHOD EndOBJect() METHOD NewContent(cFile) METHOD ListItem() ENDCLASS METHOD New( cFile,aMetaContents ) CLASS THTML Local nCount IF Nx > 0 FCLOSE( NX ) ENDIF IF VALTYPE( cFile ) <> NIL .AND. VALTYPE( cFile ) == "C" Self:cFile := LOWER( cFile ) Self:nHandle := FCREATE( Self:cFile ) ENDIF nX := Self:nHandle FWRITE( Self:nHandle, "" + CRLF ) FWRITE( Self:nHandle, "" + CRLF ) if Valtype(aMetaContents) <> NIL .and. Valtype(aMetaContents)=="A" For nCount:=1 to len(aMetaContents) Self:WriteMetaTag(aMetaContents[nCount,1],aMetaContents[nCount,2]) NEXT Endif RETURN Self METHOD WriteTitle( cTitle ) CLASS THTML FWRITE( Self:nHandle, "" + CRLF + cTitle + CRLF + "" + CRLF + '' + CRLF ) FWRITE( Self:nHandle, "" + CRLF ) RETURN Self METHOD WritePar( cPar ) CLASS THTML // cPar:=STRTRAN(cPar,"<","<") // cPar:=STRTRAN(cPar,">",">") FWRITE( Self:nHandle, '

' + ALLTRIM( cPar ) + '

' + CRLF ) RETURN Self METHOD WriteText( cPar ) CLASS THTML FWRITE( Self:nHandle, cPar + CRLF ) RETURN Self METHOD WriteParBold( cPar, lEndDl, lPar ) CLASS THTML DEFAULT lEnddl TO .T. DEFAULT lPar TO .T. IF lEndDl .AND. lPar FWRITE( Self:nHandle, "

" + CRLF + "" + CRLF + "

" + ALLTRIM( cPar ) + '