20000220-06:20 GMT-8 Brian Hays <bhays@abacuslaw.com>
This commit is contained in:
Brian Hays
@@ -1,3 +1,10 @@
|
||||
20000220-06:20 GMT-8 Brian Hays <bhays@abacuslaw.com>
|
||||
* ng.prg
|
||||
* os2.prg
|
||||
* rtf.prg
|
||||
* troff.prg
|
||||
* edited docs
|
||||
|
||||
20000220-03:40 GMT-8 Brian Hays <bhays@abacuslaw.com>
|
||||
* doc\gnulice.txt
|
||||
* Removed extraneous headers and Table Of Contents
|
||||
|
||||
@@ -4,7 +4,7 @@
|
||||
|
||||
/*
|
||||
* Harbour Project source code:
|
||||
* Norton Guide Support Code For FT_HELPC
|
||||
* Norton Guide Support Code For HBDOC
|
||||
*
|
||||
* Copyright 2000 Luiz Rafael Culik <Culik@sl.conex.net>
|
||||
* www - http://www.harbour-project.org
|
||||
@@ -51,7 +51,7 @@ CLASS TNortonGuide
|
||||
|
||||
METHOD WritePar( cPar )
|
||||
METHOD WriteLink( clink )
|
||||
METHOD CLOSE()
|
||||
METHOD Close()
|
||||
METHOD WriteParBold( cPar )
|
||||
METHOD WriteTitle( cTopic , cTitle )
|
||||
ENDCLASS
|
||||
@@ -105,50 +105,50 @@ RETURN Self
|
||||
|
||||
/* $DOC$
|
||||
* $FUNCNAME$
|
||||
* TNortonGuide()
|
||||
* TNortonGuide()
|
||||
* $CATEGORY$
|
||||
* Harbour Tools
|
||||
* Harbour Tools
|
||||
* $ONELINER$
|
||||
* Norton Guide Class
|
||||
* Norton Guide Class
|
||||
* $SYNTAX$
|
||||
* oNg:=TNortonGuide():New(<cFile>)
|
||||
* oNg:=TNortonGuide():New(<cFile>)
|
||||
* $ARGUMENTS$
|
||||
* <cFile> Name of the Ng Source file to create
|
||||
* <cFile> Name of the Ng Source file to create
|
||||
* $RETURNS$
|
||||
* An instance of the TNortonGuide Class
|
||||
* An instance of the TNortonGuide Class
|
||||
* $DESCRIPTION$
|
||||
* TNortonGuide() is a class that create the Norton Guide Source
|
||||
* Code of the same name you pass to the constructor.
|
||||
* The class methods are as follows:
|
||||
* New(<cFile>) Create a new instance of the THtml class.
|
||||
* Close() Close the create file
|
||||
* WriteTitle(<cTopic>,<cTitle>) Write the file title
|
||||
* WritePar(<cPar>) Writes a paragrafer
|
||||
* WriteParBold(<cPar>) Same as WritePar(), but the text is bold style.
|
||||
* WriteLink(<cLink>) Write a link to another topic
|
||||
* TNortonGuide() is a class that creates the Norton Guide Source
|
||||
* Code of the same name you pass to the constructor.
|
||||
* The class methods are as follows:
|
||||
* New(<cFile>) Create an instance of the TNortonGuide class
|
||||
* Close() Close the created file
|
||||
* WriteTitle(<cTopic>,<cTitle>) Write the file title
|
||||
* WritePar(<cPar>) Write a paragraph
|
||||
* WriteParBold(<cPar>) Same as WritePar(), but the text is bold
|
||||
* WriteLink(<cLink>) Write a link to another topic
|
||||
* $EXAMPLES$
|
||||
* FUNCTION MAIN()
|
||||
* FUNCTION MAIN()
|
||||
*
|
||||
* LOCAL oNg
|
||||
* LOCAL oNg
|
||||
*
|
||||
* oNg := TNortonGuide():New( "ngi\harbour.ngi" )
|
||||
* oNg:WriteTitle( "Harbour Reference Guide" )
|
||||
* oNg:WritePar( "HARBOUR" )
|
||||
* oNg:WriteLink( "OverView" )
|
||||
* oNg:WriteLink( "License" )
|
||||
*
|
||||
* oNg:WritePar( "See the Links Above" )
|
||||
* oNg:Close()
|
||||
* RETURN Nil
|
||||
* oNg := TNortonGuide():New( "ngi\harbour.ngi" )
|
||||
* oNg:WriteTitle( "Harbour Reference Guide" )
|
||||
* oNg:WritePar( "HARBOUR" )
|
||||
* oNg:WriteLink( "OverView" )
|
||||
* oNg:WriteLink( "License" )
|
||||
*
|
||||
* oNg:WritePar( "See the Links Above" )
|
||||
* oNg:Close()
|
||||
* RETURN Nil
|
||||
* $TESTS$
|
||||
* $STATUS$
|
||||
* R
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
* This is a new Harbour Tools class
|
||||
* This is a new Harbour Tools class
|
||||
* $PLATFORMS$
|
||||
* ALL
|
||||
* ALL
|
||||
* $FILES$
|
||||
* $SEEALSO$
|
||||
* TCLASS()
|
||||
* TTroff(), TRtf(), THtml(), TOs2()
|
||||
* $END$
|
||||
*/
|
||||
|
||||
@@ -4,7 +4,7 @@
|
||||
|
||||
/*
|
||||
* Harbour Project source code:
|
||||
* Norton Guide Support Code For FT_HELPC
|
||||
* OS/2 IPF Documentation Support Code For HBDOC
|
||||
*
|
||||
* Copyright 2000 Luiz Rafael Culik <Culik@sl.conex.net>
|
||||
* www - http://www.harbour-project.org
|
||||
@@ -53,7 +53,7 @@ CLASS TOs2
|
||||
METHOD WritePar(cPar)
|
||||
METHOD WriteLink(cLink)
|
||||
METHOD ScanLink(cLink)
|
||||
METHOD CLOSE()
|
||||
METHOD Close()
|
||||
METHOD WriteParBold(cPar)
|
||||
METHOD WriteTitle(cTopic, cTitle )
|
||||
METHOD DostoOs2Text(cText)
|
||||
@@ -65,7 +65,7 @@ METHOD New( cFile ) CLASS TOs2
|
||||
Self:aLinkRef:={}
|
||||
Self:nRef:=1
|
||||
ENDIF
|
||||
|
||||
|
||||
IF VALTYPE( cFile ) <> NIL .AND. VALTYPE( cFile ) == "C"
|
||||
Self:cFile := LOWER( cFile )
|
||||
Self:nHandle := FCREATE( Self:cFile )
|
||||
@@ -98,9 +98,9 @@ METHOD WriteTitle( cTopic, cTitle ) CLASS TOs2
|
||||
cTopic := ALLTRIM( cTopic )
|
||||
|
||||
IF Self:Scanlink(cTopic) ==0
|
||||
nItem:=ASCAN(Self:aLinkRef,{|a| a[1]==cTopic})
|
||||
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})
|
||||
nItem:=ASCAN(Self:aLinkRef,{|a| a[1]==cTopic})
|
||||
ENDIF
|
||||
|
||||
fWrite(Self:nHandle,':title.'+ALLTRIM(cTitle)+CRLF)
|
||||
@@ -128,7 +128,7 @@ RETURN Self
|
||||
|
||||
METHOD WriteLink( cLink ) CLASS TOs2
|
||||
LOCAL nItem
|
||||
|
||||
|
||||
if Self:Scanlink(cLink) ==0
|
||||
nItem:=ASCAN(Self:aLinkRef,{|a| a[1]==cLink}) // Again.
|
||||
ELSE
|
||||
@@ -171,55 +171,55 @@ Return cReturn
|
||||
|
||||
/* $DOC$
|
||||
* $FUNCNAME$
|
||||
* TOs2()
|
||||
* TOs2()
|
||||
* $CATEGORY$
|
||||
* Harbour Tools
|
||||
* Harbour Tools
|
||||
* $ONELINER$
|
||||
* OS/2 Class
|
||||
* OS/2 Documentation Class
|
||||
* $SYNTAX$
|
||||
* oNg:=TOs2():New(<cFile>)
|
||||
* oNg:=TOs2():New(<cFile>)
|
||||
* $ARGUMENTS$
|
||||
* <cFile> Name of the IPF Source file to create
|
||||
* <cFile> Name of the IPF Source file to create
|
||||
* $RETURNS$
|
||||
* An instance of the TOs2 Class
|
||||
* An instance of the TOs2 Class
|
||||
* $DESCRIPTION$
|
||||
* TOs2() is a class that create the Norton Guide Source
|
||||
* Code of the same name you pass to the constructor.
|
||||
* The class methods are as follows:
|
||||
* New(<cFile>) Create a new instance of the THtml class.
|
||||
* Close() Close the create file
|
||||
* WriteTitle(<cTopic>,<cTitle>) Write the file title
|
||||
* WritePar(<cPar>) Writes a paragrafer
|
||||
* WriteParBold(<cPar>) Same as WritePar(), but the text is bold style.
|
||||
* WriteLink(<cLink>) Write a link to another topic
|
||||
* ScanLink(<clink>) Scan the aLinkRef array for a valid topic
|
||||
* DosToOs2Text(<cText>) Convert a Dos string to a OS/2 String
|
||||
* TOs2() is a class that creates the OS/2 IPF Source
|
||||
* of the same name you pass to the constructor.
|
||||
* The class methods are as follows:
|
||||
* New(<cFile>) Create a new instance of the TOs2 class
|
||||
* Close() Close the created file
|
||||
* WriteTitle(<cTopic>,<cTitle>) Write the file title
|
||||
* WritePar(<cPar>) Write a paragraph
|
||||
* WriteParBold(<cPar>) Same as WritePar(), but the text is bold
|
||||
* WriteLink(<cLink>) Write a link to another topic
|
||||
* ScanLink(<clink>) Scan the aLinkRef array for a valid topic
|
||||
* DosToOs2Text(<cText>) Convert a Dos string to a OS/2 String
|
||||
* $EXAMPLES$
|
||||
* FUNCTION MAIN()
|
||||
* FUNCTION MAIN()
|
||||
*
|
||||
* LOCAL oNg
|
||||
* LOCAL oNg
|
||||
*
|
||||
* oNg := TOs2():New( "ngi\harbour.ngi" )
|
||||
* oNg:WriteTitle( "Harbour Reference Guide" )
|
||||
* oNg:WritePar( "HARBOUR" )
|
||||
* oNg:WriteLink( "OverView" )
|
||||
* oNg:WriteLink( "License" )
|
||||
*
|
||||
* oNg:WritePar( "See the Links Above" )
|
||||
* oNg:Close()
|
||||
* RETURN Nil
|
||||
* oNg := TOs2():New( "ngi\harbour.ngi" )
|
||||
* oNg:WriteTitle( "Harbour Reference Guide" )
|
||||
* oNg:WritePar( "HARBOUR" )
|
||||
* oNg:WriteLink( "OverView" )
|
||||
* oNg:WriteLink( "License" )
|
||||
*
|
||||
* oNg:WritePar( "See the Links Above" )
|
||||
* oNg:Close()
|
||||
* RETURN Nil
|
||||
*
|
||||
* $TESTS$
|
||||
*
|
||||
* $STATUS$
|
||||
* R
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
* This is a new Harbour Tools class
|
||||
* This is a new Harbour Tools class
|
||||
* $PLATFORMS$
|
||||
* ALL
|
||||
* ALL
|
||||
* $FILES$
|
||||
*
|
||||
* $SEEALSO$
|
||||
* TCLASS()
|
||||
* TNortonGuide()
|
||||
* $END$
|
||||
*/
|
||||
|
||||
@@ -4,7 +4,7 @@
|
||||
|
||||
/*
|
||||
* Harbour Project source code:
|
||||
* RTF Support Code For FT_HELPC
|
||||
* RTF Documentation Support Code For HBDOC
|
||||
*
|
||||
* Copyright 2000 Luiz Rafael Culik <Culik@sl.conex.net>
|
||||
* www - http://www.harbour-project.org
|
||||
@@ -51,7 +51,7 @@ CLASS TRTF
|
||||
METHOD New( cFile )
|
||||
METHOD WritePar( cPar )
|
||||
METHOD WriteLink( clink )
|
||||
METHOD CLOSE()
|
||||
METHOD Close()
|
||||
METHOD WriteParBold( cPar )
|
||||
METHOD WriteTitle( cTitle, cTopic )
|
||||
METHOD EndPar()
|
||||
@@ -112,7 +112,7 @@ RETURN Self
|
||||
METHOD WritePar( cPar ) CLASS TRTF
|
||||
cPar:=StrTran(cPar,"{","\{")
|
||||
cPar:=StrTran(cPar,"}","\}")
|
||||
FWRITE( Self:nHandle, '\pard{\cf1\fs30 ' + HB_OEMTOANSI(" ")+ HB_OEMTOANSI(cPar ))
|
||||
FWRITE( Self:nHandle, '\pard{\cf1\fs30 ' + HB_OEMTOANSI(" ")+ HB_OEMTOANSI(cPar ))
|
||||
RETURN Self
|
||||
|
||||
METHOD EndPar() CLASS TRTF
|
||||
@@ -173,56 +173,56 @@ RETURN Self
|
||||
|
||||
/* $DOC$
|
||||
* $FUNCNAME$
|
||||
* TRtf()
|
||||
* TRtf()
|
||||
* $CATEGORY$
|
||||
* Harbour Tools
|
||||
* Harbour Tools
|
||||
* $ONELINER$
|
||||
* Rtf Class
|
||||
* Rtf Class
|
||||
* $SYNTAX$
|
||||
* oNg:=TRtf():New(<cFile>)
|
||||
* oNg:=TRtf():New(<cFile>)
|
||||
* $ARGUMENTS$
|
||||
* <cFile> Name of the RTF file to create
|
||||
* <cFile> Name of the RTF file to create
|
||||
* $RETURNS$
|
||||
* An instance of the TRtf Class
|
||||
* An instance of the TRtf Class
|
||||
* $DESCRIPTION$
|
||||
* TRtf() is a class that create the Norton Guide Source
|
||||
* Code of the same name you pass to the constructor.
|
||||
* The class methods are as follows:
|
||||
* New(<cFile>) Create a new instance of the THtml class.
|
||||
* Close() Close the create file
|
||||
* WriteTitle(<cTopic>,<cTitle>) Write the file title
|
||||
* WritePar(<cPar>) Writes a paragrafer
|
||||
* WriteParBold(<cPar>) Same as WritePar(), but the text is bold style.
|
||||
* WriteLink(<cLink>) Write a link to another topic
|
||||
* WriteHeader() Writes the RTF header
|
||||
* EndPar() Write the end paragrafer delimeter
|
||||
* TRtf() is a class that creates the RTF Documentation Source
|
||||
* Code of the same name you pass to the constructor.
|
||||
* The class methods are as follows:
|
||||
* New(<cFile>) Create a new instance of the TRtf class
|
||||
* Close() Close the create file
|
||||
* WriteTitle(<cTopic>,<cTitle>) Write the file title
|
||||
* WritePar(<cPar>) Write a paragraph
|
||||
* WriteParBold(<cPar>) Same as WritePar(), but the text is bold
|
||||
* WriteLink(<cLink>) Write a link to another topic
|
||||
* WriteHeader() Write the RTF header
|
||||
* EndPar() Write the end paragraph delimiter
|
||||
* $EXAMPLES$
|
||||
* FUNCTION MAIN()
|
||||
* FUNCTION MAIN()
|
||||
*
|
||||
* LOCAL oRtf
|
||||
* LOCAL oRtf
|
||||
*
|
||||
* oRtf := TRtf():New( "rtf\harbour.rtf" )
|
||||
* oRtf:WriteHeader()
|
||||
* oRtf:WriteTitle( "Harbour Reference Guide" )
|
||||
* oRtf:WritePar( "HARBOUR" ):Endpar()
|
||||
* oRtf:WriteLink( "OverView" )
|
||||
* oRtf:WriteLink( "License" )
|
||||
*
|
||||
* oRtf:WritePar( "See the Links Above" ):EndPar()
|
||||
* oRtf:Close()
|
||||
* RETURN Nil
|
||||
* oRtf := TRtf():New( "rtf\harbour.rtf" )
|
||||
* oRtf:WriteHeader()
|
||||
* oRtf:WriteTitle( "Harbour Reference Guide" )
|
||||
* oRtf:WritePar( "HARBOUR" ):Endpar()
|
||||
* oRtf:WriteLink( "OverView" )
|
||||
* oRtf:WriteLink( "License" )
|
||||
*
|
||||
* oRtf:WritePar( "See the Links Above" ):EndPar()
|
||||
* oRtf:Close()
|
||||
* RETURN Nil
|
||||
*
|
||||
* $TESTS$
|
||||
*
|
||||
* $STATUS$
|
||||
* R
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
* This is a new Harbour Tools class
|
||||
* This is a new Harbour Tools class
|
||||
* $PLATFORMS$
|
||||
* ALL
|
||||
* ALL
|
||||
* $FILES$
|
||||
*
|
||||
* $SEEALSO$
|
||||
* TCLASS()
|
||||
* TNortonGuide()
|
||||
* $END$
|
||||
*/
|
||||
|
||||
@@ -4,7 +4,7 @@
|
||||
|
||||
/*
|
||||
* Harbour Project source code:
|
||||
* TROFF Support Code For FT_HELPC
|
||||
* TROFF Support Code For HBDOC
|
||||
*
|
||||
* Copyright 2000 Luiz Rafael Culik <Culik@sl.conex.net>
|
||||
* www - http://www.harbour-project.org
|
||||
@@ -50,7 +50,7 @@ CLASS TTROFF
|
||||
METHOD New( cFile )
|
||||
METHOD WritePar( cPar )
|
||||
METHOD WriteLink( clink )
|
||||
METHOD CLOSE()
|
||||
METHOD Close()
|
||||
METHOD WriteParBold( cPar )
|
||||
METHOD WriteTitle( cTitle, cTopic )
|
||||
METHOD WriteText( cText )
|
||||
@@ -138,54 +138,54 @@ RETURN Self
|
||||
|
||||
/* $DOC$
|
||||
* $FUNCNAME$
|
||||
* TTroff()
|
||||
* TTroff()
|
||||
* $CATEGORY$
|
||||
* Harbour Tools
|
||||
* Harbour Tools
|
||||
* $ONELINER$
|
||||
* Troff Class
|
||||
* Troff Class
|
||||
* $SYNTAX$
|
||||
* oTroff:=TTrof():New(<cFile>)
|
||||
* oTroff:=TTrof():New(<cFile>)
|
||||
* $ARGUMENTS$
|
||||
* <cFile> Name of the RTF file to create
|
||||
* <cFile> Name of the Troff file to create
|
||||
* $RETURNS$
|
||||
* An instance of the TTroff Class
|
||||
* An instance of the TTroff Class
|
||||
* $DESCRIPTION$
|
||||
* TRtf() is a class that create the Norton Guide Source
|
||||
* Code of the same name you pass to the constructor.
|
||||
* The class methods are as follows:
|
||||
* New(<cFile>) Create a new instance of the THtml class.
|
||||
* Close() Close the create file
|
||||
* WriteTitle(<cTopic>,<cTitle>) Write the file title
|
||||
* WritePar(<cPar>) Writes a paragrafer
|
||||
* WriteParBold(<cPar>) Same as WritePar(), but the text is bold style.
|
||||
* WriteLink(<cLink>) Write a link to another topic
|
||||
* WriteText() Writes a text with out formating
|
||||
* TTroff() is a class that creates the TROFF Documentation Source
|
||||
* Code of the same name you pass to the constructor.
|
||||
* The class methods are as follows:
|
||||
* New(<cFile>) Create a new instance of the THtml class
|
||||
* Close() Close the created file
|
||||
* WriteTitle(<cTopic>,<cTitle>) Write the file title
|
||||
* WritePar(<cPar>) Write a paragraph
|
||||
* WriteParBold(<cPar>) Same as WritePar(), but the text is bold
|
||||
* WriteLink(<cLink>) Write a link to another topic
|
||||
* WriteText() Writes text without formating
|
||||
* $EXAMPLES$
|
||||
* FUNCTION MAIN()
|
||||
* FUNCTION MAIN()
|
||||
*
|
||||
* LOCAL oTroff
|
||||
* oTroff := TTroff():New( "tr\harbour.ngi" )
|
||||
* oTroff:WriteTitle( "Harbour Reference Guide" )
|
||||
* oTroff:WritePar( "HARBOUR" )
|
||||
* oTroff:WriteLink( "OverView" )
|
||||
* oTroff:WriteLink( "License" )
|
||||
*
|
||||
* oTroff:WritePar( "See the Links Above" )
|
||||
* oTroff:Close()
|
||||
* LOCAL oTroff
|
||||
* oTroff := TTroff():New( "tr\harbour.ngi" )
|
||||
* oTroff:WriteTitle( "Harbour Reference Guide" )
|
||||
* oTroff:WritePar( "HARBOUR" )
|
||||
* oTroff:WriteLink( "OverView" )
|
||||
* oTroff:WriteLink( "License" )
|
||||
*
|
||||
* RETURN Nil
|
||||
* oTroff:WritePar( "See the Links Above" )
|
||||
* oTroff:Close()
|
||||
*
|
||||
* RETURN Nil
|
||||
*
|
||||
* $TESTS$
|
||||
*
|
||||
* $STATUS$
|
||||
* R
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
* This is a new Harbour Tools class
|
||||
* This is a new Harbour Tools class
|
||||
* $PLATFORMS$
|
||||
* ALL
|
||||
* ALL
|
||||
* $FILES$
|
||||
*
|
||||
* $SEEALSO$
|
||||
* TCLASS()
|
||||
* TNortonGuide()
|
||||
* $END$
|
||||
*/
|
||||
|
||||
Reference in New Issue
Block a user