From 6d76b86b9fa630531a1bb1788afcaf4d2fffab33 Mon Sep 17 00:00:00 2001 From: Brian Hays Date: Mon, 21 Feb 2000 02:29:26 +0000 Subject: [PATCH] 20000220-06:20 GMT-8 Brian Hays --- harbour/ChangeLog | 7 ++++ harbour/source/tools/ng.prg | 64 ++++++++++++++-------------- harbour/source/tools/os2.prg | 76 +++++++++++++++++----------------- harbour/source/tools/rtf.prg | 72 ++++++++++++++++---------------- harbour/source/tools/troff.prg | 66 ++++++++++++++--------------- 5 files changed, 146 insertions(+), 139 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 20d39952bf..5858900f20 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,10 @@ +20000220-06:20 GMT-8 Brian Hays + * ng.prg + * os2.prg + * rtf.prg + * troff.prg + * edited docs + 20000220-03:40 GMT-8 Brian Hays * doc\gnulice.txt * Removed extraneous headers and Table Of Contents diff --git a/harbour/source/tools/ng.prg b/harbour/source/tools/ng.prg index c735a3035a..49122c8a13 100644 --- a/harbour/source/tools/ng.prg +++ b/harbour/source/tools/ng.prg @@ -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 * 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() + * oNg:=TNortonGuide():New() * $ARGUMENTS$ - * Name of the Ng Source file to create + * 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() Create a new instance of the THtml class. - * Close() Close the create file - * WriteTitle(,) Write the file title - * WritePar() Writes a paragrafer - * WriteParBold() Same as WritePar(), but the text is bold style. - * WriteLink() 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() Create an instance of the TNortonGuide class + * Close() Close the created file + * WriteTitle(,) Write the file title + * WritePar() Write a paragraph + * WriteParBold() Same as WritePar(), but the text is bold + * WriteLink() 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$ */ diff --git a/harbour/source/tools/os2.prg b/harbour/source/tools/os2.prg index 7291184fd5..ebcc755934 100644 --- a/harbour/source/tools/os2.prg +++ b/harbour/source/tools/os2.prg @@ -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 * 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() + * oNg:=TOs2():New() * $ARGUMENTS$ - * Name of the IPF Source file to create + * 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() Create a new instance of the THtml class. - * Close() Close the create file - * WriteTitle(,) Write the file title - * WritePar() Writes a paragrafer - * WriteParBold() Same as WritePar(), but the text is bold style. - * WriteLink() Write a link to another topic - * ScanLink() Scan the aLinkRef array for a valid topic - * DosToOs2Text() 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() Create a new instance of the TOs2 class + * Close() Close the created file + * WriteTitle(,) Write the file title + * WritePar() Write a paragraph + * WriteParBold() Same as WritePar(), but the text is bold + * WriteLink() Write a link to another topic + * ScanLink() Scan the aLinkRef array for a valid topic + * DosToOs2Text() 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$ */ diff --git a/harbour/source/tools/rtf.prg b/harbour/source/tools/rtf.prg index bf5eee7e83..4c11d94284 100644 --- a/harbour/source/tools/rtf.prg +++ b/harbour/source/tools/rtf.prg @@ -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 * 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() + * oNg:=TRtf():New() * $ARGUMENTS$ - * Name of the RTF file to create + * 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() Create a new instance of the THtml class. - * Close() Close the create file - * WriteTitle(,) Write the file title - * WritePar() Writes a paragrafer - * WriteParBold() Same as WritePar(), but the text is bold style. - * WriteLink() 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() Create a new instance of the TRtf class + * Close() Close the create file + * WriteTitle(,) Write the file title + * WritePar() Write a paragraph + * WriteParBold() Same as WritePar(), but the text is bold + * WriteLink() 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$ */ diff --git a/harbour/source/tools/troff.prg b/harbour/source/tools/troff.prg index 40900eec49..b96f444615 100644 --- a/harbour/source/tools/troff.prg +++ b/harbour/source/tools/troff.prg @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * TROFF Support Code For FT_HELPC + * TROFF Support Code For HBDOC * * Copyright 2000 Luiz Rafael Culik * 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() + * oTroff:=TTrof():New() * $ARGUMENTS$ - * Name of the RTF file to create + * 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() Create a new instance of the THtml class. - * Close() Close the create file - * WriteTitle(,) Write the file title - * WritePar() Writes a paragrafer - * WriteParBold() Same as WritePar(), but the text is bold style. - * WriteLink() 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() Create a new instance of the THtml class + * Close() Close the created file + * WriteTitle(,) Write the file title + * WritePar() Write a paragraph + * WriteParBold() Same as WritePar(), but the text is bold + * WriteLink() 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$ */