" + CRLF + cTitle + CRLF + "

/* * $Id$ */ /* * Harbour Project source code: * HTML Support Code For FT_HELPC * * 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 of the License, or * (at your option) any later version, with one exception: * * The exception is that if you link the Harbour Runtime Library (HRL) * and/or the Harbour Virtual Machine (HVM) 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 HRL * and/or HVM code into it. * * 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 program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit * their web site at http://www.gnu.org/). * */ #include 'hbclass.ch' #include 'common.ch' #define CRLF HB_OSNewLine() Static nX:=0 *+北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北 *+ *+ Class THTML *+ *+北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北 *+ CLASS THTML DATA nHandle DATA cFile METHOD New( cFile ) METHOD WriteTitle( cTitle ) METHOD WritePar( cPar ) METHOD WriteParBold( cPar ) METHOD WriteLink( cLink ) METHOD WriteText(cText) METHOD CLOSE() ENDCLASS METHOD New( cFile ) CLASS THTML 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 ) RETURN Self METHOD WriteTitle( cTitle ) CLASS THTML FWRITE( Self:nHandle, "" + CRLF + cTitle + CRLF + "" + CRLF +''+CRLF+'' + 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) + '