204 lines
4.8 KiB
Plaintext
204 lines
4.8 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* OS/2 IPF Documentation Support Code For HBDOC
|
|
*
|
|
* Copyright 2000 Luiz Rafael Culik <Culik@sl.conex.net>
|
|
* 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/).
|
|
*
|
|
*/
|
|
|
|
#define CRLF hb_osnewline()
|
|
|
|
#include 'hbclass.ch'
|
|
|
|
*+±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
|
|
*+
|
|
*+ Class TOs2
|
|
*+
|
|
*+±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
|
|
*+
|
|
|
|
CLASS TOs2
|
|
DATA cFile
|
|
DATA nHandle
|
|
DATA aLinkRef
|
|
DATA nRef
|
|
METHOD New( cFile )
|
|
METHOD WritePar(cPar)
|
|
METHOD WriteLink(cLink)
|
|
METHOD ScanLink(cLink)
|
|
|
|
METHOD WriteJumpLink( cLink,cName,cText )
|
|
METHOD Close()
|
|
METHOD WriteText(cPar)
|
|
METHOD WriteParBold(cPar)
|
|
METHOD WriteTitle(cTopic, cTitle )
|
|
METHOD DostoOs2Text(cText)
|
|
METHOD WriteJumpTitle( cTitle, cTopic )
|
|
ENDCLASS
|
|
|
|
METHOD New( cFile ) CLASS TOs2
|
|
|
|
IF Self:aLinkRef==NIL
|
|
Self:aLinkRef:={}
|
|
Self:nRef:=1
|
|
ENDIF
|
|
|
|
IF VALTYPE( cFile ) <> NIL .AND. VALTYPE( cFile ) == "C"
|
|
Self:cFile := LOWER( cFile )
|
|
Self:nHandle := FCREATE( Self:cFile )
|
|
ENDIF
|
|
|
|
FWRITE( Self:nHandle, ':userdoc.'+CRLF)
|
|
|
|
FWRITE( Self:nHandle, ':docprof toc=123456.'+CRLF)
|
|
fWrite(Self:nHandle,':title.'+"Harbour Reference Guide"+CRLF)
|
|
|
|
fWrite(Self:nHandle,'.* FT_HelpC generated IPF Source File.'+CRLF)
|
|
|
|
fWrite(Self:nHandle,'.* FT_HELPC Document Source Extractor, (c)2000 Luiz Rafael Culik.'+CRLF)
|
|
|
|
RETURN Self
|
|
|
|
METHOD WritePar( cPar ) CLASS TOs2
|
|
|
|
FWRITE( Self:nHandle, Self:DostoOs2Text( cPar ) + CRLF )
|
|
|
|
RETURN Self
|
|
|
|
method WriteText(cPar) CLASS TOs2
|
|
|
|
FWRITE( Self:nHandle, cPar + CRLF )
|
|
|
|
Return Self
|
|
|
|
METHOD WriteParBold( cPar ) CLASS TOs2
|
|
|
|
FWRITE( Self:nHandle, ':p.:hp2.' + ALLTRIM( cPar ) + CRLF +':ehp2.'+ CRLF)
|
|
|
|
RETURN Self
|
|
|
|
METHOD WriteTitle( cTopic, cTitle ) CLASS TOs2
|
|
|
|
LOCAL cTemp
|
|
LOCAL nPos
|
|
LOCAL cWrite
|
|
LOCAL nItem
|
|
cTopic := ALLTRIM( cTopic )
|
|
|
|
IF Self:Scanlink(cTopic) ==0
|
|
nItem:=ASCAN(Self:aLinkRef,{|a| a[1]==cTopic})
|
|
ELSE // Just in case that nItem>0 so the Link is already referenced
|
|
nItem:=ASCAN(Self:aLinkRef,{|a| a[1]==cTopic})
|
|
ENDIF
|
|
|
|
|
|
|
|
fWrite(Self:nHandle,':h1 res='+Alltrim(str(nItem))+'.'+cTopic+CRLF)
|
|
fWrite(Self:nHandle,':i1 id='+UPPER(cTopic)+"."+UPPER(cTopic)+CRLF)
|
|
FWRITE( Self:nHandle,":p."+cTitle+CRLF)
|
|
|
|
|
|
RETURN Self
|
|
|
|
METHOD CLOSE() CLASS TOs2
|
|
|
|
FWRITE( Self:nHandle,':euserdoc.'+CRLF)
|
|
|
|
FCLOSE( Self:nHandle )
|
|
|
|
RETURN Self
|
|
|
|
METHOD WriteLink( cLink ) CLASS TOs2
|
|
LOCAL nItem
|
|
|
|
if Self:Scanlink(cLink) ==0
|
|
nItem:=ASCAN(Self:aLinkRef,{|a| a[1]==cLink}) // Again.
|
|
ELSE
|
|
nItem:=ASCAN(Self:aLinkRef,{|a,b| a[1]==cLink})
|
|
|
|
endif
|
|
|
|
IF nItem=0
|
|
nItem:=Self:nRef
|
|
ENDIF
|
|
|
|
FWRITE( Self:nHandle, ":link reftype=hd res="+ALLTRIM(STR(nItem))+"."+Self:aLinkRef[nItem,1]+":elink."+CRLF)
|
|
|
|
FWRITE( Self:nHandle,".br"+CRLF)
|
|
|
|
RETURN Self
|
|
|
|
METHOD ScanLink(cLink) CLASS TOs2
|
|
|
|
LOCAL nItem
|
|
LOCAL nReturn
|
|
|
|
nItem:=ASCAN(Self:aLinkRef,{|a,b| a[1]==cLink})
|
|
|
|
IF nItem==0
|
|
AADD(Self:aLinkRef,{cLink,Self:nRef})
|
|
Self:nRef++
|
|
ENDIF
|
|
|
|
RETURN nItem
|
|
|
|
METHOD DosToOs2Text(cText) CLASS TOs2
|
|
LOCAL cReturn
|
|
|
|
cReturn := STRTRAN(cText,'"',"&cdq.")
|
|
cReturn := STRTRAN(cReturn,':',"&colon.")
|
|
cReturn := STRTRAN(cReturn,',',"&comma.")
|
|
|
|
Return cReturn
|
|
|
|
METHOD WriteJumpTitle( cTitle, cTopic ) class TOs2
|
|
|
|
LOCAL cTemp
|
|
LOCAL nPos
|
|
LOCAL cWrite
|
|
|
|
nPos := AT( "()", cTitle )
|
|
|
|
cTopic := ALLTRIM( HB_OEMTOANSI(cTopic ))
|
|
|
|
cWrite := ':fn id='+cTopic+'.'
|
|
|
|
FWRITE( Self:nHandle, cWrite )
|
|
|
|
Self:WriteParBold( cTopic )
|
|
|
|
RETURN Self
|
|
METHOD WriteJumpLink( cLink,cText ) class TOs2
|
|
|
|
FWRITE( Self:nHandle, " :link refid="+aLLTRIM( HB_OEMTOANSI(cLink) ) +"reftype=fn."+ cLink+":elink." +cText+ CRLF )
|
|
|
|
RETURN Self
|
|
|