diff --git a/harbour/ft_helpc.b32 b/harbour/ft_helpc.b32 new file mode 100644 index 0000000000..0edd79aa79 --- /dev/null +++ b/harbour/ft_helpc.b32 @@ -0,0 +1,31 @@ +.path.c = ngdoc +.path.h = include +.path.exe = bin +.path.lib = lib\b32 +.path.obj = obj;ngdoc +.path.prg = ngdoc +PROJECT: ft_helpc.exe + +ft_helpc.obj : ft_helpc.c + +ft_helpc.c : ft_helpc.prg + +.prg.c: + bin\harbour $< /n /ongdoc\ /iinclude /p /DNANFOR + +ft_helpc.exe: ft_helpc.obj + echo -v -O2 > bld.32 + echo -engdoc\ft_helpc.exe >> bld.32 + echo -Iinclude >> bld.32 + echo ngdoc\ft_helpc.c >> bld.32 + echo lib\b32\harbour.lib >> bld.32 + echo lib\b32\terminal.lib >> bld.32 + echo lib\b32\hbgt.lib >> bld.32 + echo lib\b32\hbpp.lib >> bld.32 + echo lib\b32\rdd.lib >> bld.32 + echo lib\b32\common.lib >> bld.32 + echo lib\b32\runner.lib >> bld.32 + bcc32 @bld.32 + del bld.32 + + diff --git a/harbour/ngdoc/ha.lnk b/harbour/ngdoc/ha.lnk index ddd25edf0e..ba669684bf 100644 --- a/harbour/ngdoc/ha.lnk +++ b/harbour/ngdoc/ha.lnk @@ -1,6 +1,6 @@ !name: Harbour Build 31 Reference Guide !credits: -Release : 01/01/2000 +Release : 01/18/2000 Build By Luiz Rafael Culik Functions Documented by: Victor Szel diff --git a/harbour/ngdoc/harbour.lnk b/harbour/ngdoc/harbour.lnk new file mode 100644 index 0000000000..62646942ba --- /dev/null +++ b/harbour/ngdoc/harbour.lnk @@ -0,0 +1,11 @@ +!name: Harbour build 31 reference Guide +!Credits: HARBOUR(c) http://www.harbour-project.org + 01/15/2000 +!menu: Reference +Functions A-M Funcam.ngo +Functions N-_ Funcn_.ngo +Command Comm.ngo +!menu: HARBOUR +READ ME overview.ngo +LICENSE license.ngo + diff --git a/harbour/ngdoc/harbour.rsp b/harbour/ngdoc/harbour.rsp new file mode 100644 index 0000000000..5e27be3d18 --- /dev/null +++ b/harbour/ngdoc/harbour.rsp @@ -0,0 +1,125 @@ +source\rdd\dbcmd.c +source\rtl\achoice.prg +source\rtl\adir.prg +source\rtl\alert.prg +source\rtl\arrays.c +source\rtl\asort.prg +source\rtl\binnum.c +source\rtl\break.c +source\rtl\browdb.prg +source\rtl\browse.prg +source\rtl\classes.c +source\rtl\codebloc.c +source\rtl\console.c +source\rtl\copyfile.c +source\rtl\dates.c +source\rtl\dbedit.prg +source\rtl\descend.c +source\rtl\devoutp.prg +source\rtl\dir.c +source\rtl\dircmd.prg +source\rtl\do.c +source\rtl\dummy.prg +source\rtl\empty.c +source\rtl\environ.c +source\rtl\errorapi.c +source\rtl\errorsys.prg +source\rtl\extend.c +source\rtl\fieldbl.prg +source\rtl\filesys.c +source\rtl\fm.c +source\rtl\gtapi.c +source\rtl\gtxxx.c +source\rtl\harbinit.prg +source\rtl\hardcr.c +source\rtl\initexit.c +source\rtl\inkey.c +source\rtl\input.prg +source\rtl\isprint.c +source\rtl\itemapi.c +source\rtl\langapi.c +source\rtl\len.c +source\rtl\license.prg +source\rtl\math.c +source\rtl\memofile.c +source\rtl\memoline.c +source\rtl\memvarbl.prg +source\rtl\memvars.c +source\rtl\menuto.prg +source\rtl\mlcount.c +source\rtl\mouseapi.c +source\rtl\mousexxx.c +source\rtl\msgxxx.c +source\rtl\mtran.c +source\rtl\natmsg.c +source\rtl\net.c +source\rtl\objfunc.prg +source\rtl\oemansi.c +source\rtl\oldbox.c +source\rtl\oldclear.c +source\rtl\pcount.c +source\rtl\proc.c +source\rtl\pvalue.c +source\rtl\readkey.prg +source\rtl\readme.prg +source\rtl\readvar.prg +source\rtl\samples.c +source\rtl\set.c +source\rtl\setcolor.c +source\rtl\setfunc.prg +source\rtl\setkey.prg +source\rtl\setta.prg +source\rtl\soundex.c +source\rtl\strings.c +source\rtl\tbcolumn.prg +source\rtl\tbrowse.prg +source\rtl\tclass.prg +source\rtl\terror.prg +source\rtl\text.prg +source\rtl\tget.prg +source\rtl\tgetlist.prg +source\rtl\tone.c +source\rtl\trace.c +source\rtl\transfrm.c +source\rtl\type.c +source\rtl\valtype.c +source\rtl\wait.prg +source\rtl\word.c +source\rtl\xhelp.c +source\rtl\xsavescr.prg +source\tools\asciisum.c +source\tools\ascpos.c +source\tools\atdiff.c +source\tools\chareven.c +source\tools\charmix.c +source\tools\charodd.c +source\tools\chrcount.c +source\tools\chrfirst.c +source\tools\chrtotal.c +source\tools\ctchksum.c +source\tools\ctchrmix.c +source\tools\ctcrypt.c +source\tools\dates2.c +source\tools\datesx.c +source\tools\fileread.prg +source\tools\hb_f.c +source\tools\html.prg +source\tools\io.c +source\tools\mathx.c +source\tools\nconvert.prg +source\tools\numtxten.prg +source\tools\numtxthu.prg +source\tools\rtf.prg +source\tools\ng.prg +source\tools\strasint.c +source\tools\strcount.c +source\tools\strcspn.c +source\tools\strdiff.c +source\tools\strexpan.c +source\tools\strfmt.c +source\tools\stringp.prg +source\tools\stringsx.c +source\tools\strleft.c +source\tools\strpbrk.c +source\tools\strright.c + diff --git a/harbour/source/tools/html.prg b/harbour/source/tools/html.prg index 8c5da4f6c8..858e68df38 100644 --- a/harbour/source/tools/html.prg +++ b/harbour/source/tools/html.prg @@ -1,5 +1,6 @@ /* +======= * $Id$ */ diff --git a/harbour/source/tools/ng.prg b/harbour/source/tools/ng.prg new file mode 100644 index 0000000000..c6e9a15010 --- /dev/null +++ b/harbour/source/tools/ng.prg @@ -0,0 +1,154 @@ + +/* + * Harbour Project source code: + * Norton Guide Support Code For FT_HELPC + * + * 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 TNortonGuide +*+ +*+北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北 +*+ +CLASS TNortonGuide + + DATA cFile + DATA nHandle + METHOD New( cFile ) + + METHOD WritePar( cPar ) + METHOD WriteLink( clink ) + METHOD CLOSE() + METHOD WriteParBold( cPar ) + METHOD WriteTitle( cTopic , cTitle ) +ENDCLASS +METHOD NEW( cFile ) CLASS TNortonGuide + + IF VALTYPE( cFile ) <> NIL .AND. VALTYPE( cFile ) == "C" + Self:cFile := LOWER( cFile ) + Self:nHandle := FCREATE( Self:cFile ) + ENDIF + +RETURN Self + +METHOD WritePar( cPar ) CLASS TNortonGuide + + FWRITE( Self:nHandle, ALLTRIM( cPar ) + CRLF ) + +RETURN Self + +METHOD WriteParBold( cPar ) CLASS TNortonGuide + + FWRITE( Self:nHandle, '^b' + ALLTRIM( cPar ) + '^b^' + CRLF ) + +RETURN Self + +METHOD WriteTitle( cTopic, cTitle ) CLASS TNortonGuide + + LOCAL cTemp + LOCAL nPos + LOCAL cWrite + + cTopic := ALLTRIM( cTopic ) + + FWRITE( Self:nHandle, "!Short: " + cTopic + CRLF ) + + Self:WriteParBold(cTitle ) + +RETURN Self + +METHOD CLOSE() CLASS TNortonGuide + + FCLOSE( Self:nHandle ) + +RETURN Self + +METHOD WriteLink( cLink ) CLASS TNortonGuide + + FWRITE( Self:nHandle, cLink ) + +RETURN Self + +*+ EOF: NG.PRG +/* $DOC$ + * $FUNCNAME$ + * TNortonGuide() + * $CATEGORY$ + * Harbour Tools + * $ONELINER$ + * Norton Guide Class + * $SYNTAX$ + * oNg:=TNortonGuide():New() + * $ARGUMENTS$ + * Name of the Ng Source file to create + * $RETURNS$ + * 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 + * $EXAMPLES$ + * FUNCTION MAIN() + * + * 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 + * + * $TESTS$ + * + * $STATUS$ + * R + * $COMPLIANCE$ + * This is a new Harbour Tools class + * $PLATFORMS$ + * ALL + * $FILES$ + * + * $SEEALSO$ + * TCLASS() + * $END$ + */ diff --git a/harbour/source/tools/rtf.prg b/harbour/source/tools/rtf.prg index b3ca13465f..b22ff07a63 100644 --- a/harbour/source/tools/rtf.prg +++ b/harbour/source/tools/rtf.prg @@ -1,7 +1,6 @@ - /* - * $Id$ - */ +* $Id$ +*/ /* * Harbour Project source code: diff --git a/harbour/source/tools/troff.prg b/harbour/source/tools/troff.prg new file mode 100644 index 0000000000..381ba39c06 --- /dev/null +++ b/harbour/source/tools/troff.prg @@ -0,0 +1,137 @@ + +/* + * Harbour Project source code: + * TROFF Support Code For FT_HELPC + * + * 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 TTROFF +*+ +*+北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北北 +*+ +CLASS TTROFF + + DATA cFile + DATA nHandle + METHOD New( cFile ) + + METHOD WritePar( cPar ) + METHOD WriteLink( clink ) + METHOD CLOSE() + METHOD WriteParBold( cPar ) + METHOD WriteTitle( cTitle, cTopic ) + METHOD WriteText( cText ) +ENDCLASS +METHOD NEW( cFile ) CLASS TTROFF + + IF VALTYPE( cFile ) <> NIL .AND. VALTYPE( cFile ) == "C" + Self:cFile := LOWER( cFile ) + Self:nHandle := FCREATE( Self:cFile ) + ENDIF +RETURN Self +METHOD WriteTitle( cTopic, cTitle ) CLASS TTROFF + + LOCAL cWriteTitle := '.br' + CRLF + ; + '.ta' + CRLF + ; + '.in 0.08i' + CRLF + ; + '.ps -3' + CRLF + ; + '.vs -3' + CRLF + ; + '.sp 2' + CRLF + ; + '\fB' + cTitle + CRLF + LOCAL cWriteTopic := '.de }n' + CRLF + ; + '.bp' + CRLF + ; + '.sp .5i' + CRLF + ; + '..' + CRLF + ; + '.wh -.8i }n' + CRLF + ; + '.sp .5i' + CRLF + ; + '.po -.4i' + CRLF + ; + '.ll 7.5i' + CRLF + ; + '.ps 9' + CRLF + ; + '.vs 9' + CRLF + ; + '.in 0i' + CRLF + ; + '.ta 1.63265i' + CRLF + ; + '.sp 2' + CRLF + ; + '.ne 20' + CRLF + ; + '.ps +3' + CRLF + ; + '.vs +3' + CRLF + ; + cTopic + CRLF + LOCAL cTemp + LOCAL Npos + LOCAL cWriteTemp + nPos := AT( "()", cTopic ) + IF nPos > 0 + cTemp := SUBSTR( cTopic, nPos + 1 ) + ELSE + cTemp := SUBSTR( cTopic, 21 ) + ENDIF + cWriteTemp := cTemp + CRLF + ; + '.in 0i' + CRLF + ; + '.br' + CRLF + ; + '\l 6.24i ' + CRLF + ; + '.br' + CRLF + FWRITE( Self:nHandle, cWriteTopic ) + FWRITE( Self:nHandle, cWriteTitle ) + FWRITE( Self:nHandle, cWriteTemp ) +RETURN Self + +METHOD WriteText( cText ) CLASS TTROFF + + FWRITE( Self:nHandle, cText + CRLF ) +RETURN Self +METHOD WritePar( cPar ) CLASS TTROFF + + FWRITE( Self:nHandle, ALLTRIM( STRTRAN( cPar, ".", "\." ) ) + CRLF ) +RETURN Self +METHOD WriteParBold( cPar ) CLASS TTROFF + + LOCAL cWriteBold := '.sp' + CRLF + ; + '.in 0.08i' + CRLF + ; + '\fB' + cPar + CRLF + ; + '.sp' + CRLF + ; + '.in 0.4i' + CRLF + FWRITE( Self:nHandle, cWriteBold ) +RETURN Self + +METHOD CLOSE() CLASS TTROFF + + FCLOSE( Self:nHandle ) +RETURN Self + +METHOD WriteLink( cLink ) CLASS TTROFF + + FWRITE( Self:nHandle, ALLTRIM( cLink ) +CRLF) + +RETURN Self + +*+ EOF: TROFF.PRG