See ChangeLog entry 2000-01-13 19:45 GMT-5 David G. Holm <dholm@jsd-llc.com>
This commit is contained in:
David G. Holm
@@ -1,3 +1,26 @@
|
||||
2000-01-13 19:45 GMT-5 David G. Holm <dholm@jsd-llc.com>
|
||||
|
||||
* ngdoc/bldfthe.bat
|
||||
+ Updated file provided by Luiz Rafael Culik
|
||||
|
||||
* ngdoc/ft_helpc.prg
|
||||
+ Updated file provided by Luiz Rafael Culik
|
||||
|
||||
* ngdoc/ha.lnk
|
||||
+ Updated file provided by Luiz Rafael Culik
|
||||
|
||||
* source/rtl/license.prg
|
||||
+ Updated file provided by Luiz Rafael Culik
|
||||
|
||||
* source/rtl/readme.prg
|
||||
+ Updated file provided by Luiz Rafael Culik
|
||||
|
||||
* source/tools/rtf.prg
|
||||
+ Updated file provided by Luiz Rafael Culik
|
||||
|
||||
* source/tools/html.prg
|
||||
+ Updated file provided by Luiz Rafael Culik
|
||||
|
||||
2000-01-10 16:10 GMT-5 David G. Holm <dholm@jsd-llc.com>
|
||||
|
||||
* ngdoc/ft_helpc.prg
|
||||
|
||||
@@ -15,7 +15,7 @@
|
||||
lib\b32\hbgt.lib : \
|
||||
ascpos.obj atdiff.obj chareven.obj charodd.obj chrcount.obj \
|
||||
chrtotal.obj charmix.obj asciisum.obj chrfirst.obj io.obj numtxthu.obj numtxten.obj nconvert.obj \
|
||||
rtf.obj strasint.obj strcount.obj strcspn.obj strdiff.obj strexpan.obj \
|
||||
rtf.obj strasint.obj strcount.obj strcspn.obj strdiff.obj strexpan.obj html.obj \
|
||||
strleft.obj strpbrk.obj strright.obj
|
||||
|
||||
ascpos.obj : ascpos.c extend.h hbdefs.h
|
||||
@@ -40,11 +40,12 @@ numtxten.obj : numtxten.c extend.h hbdefs.h
|
||||
nconvert.obj : nconvert.c extend.h hbdefs.h
|
||||
io.obj : io.c extend.h hbdefs.h
|
||||
rtf.obj : rtf.c extend.h hbdefs.h
|
||||
html.obj : html.c extend.h hbdefs.h
|
||||
|
||||
numtxthu.c : numtxthu.prg harbour.exe
|
||||
numtxten.c : numtxten.prg harbour.exe
|
||||
rtf.c : rtf.prg harbour.exe
|
||||
|
||||
html.c : html.prg harbour.exe
|
||||
.prg.c:
|
||||
bin\harbour $< /n /osource\tools\ /iinclude
|
||||
|
||||
|
||||
@@ -4,5 +4,5 @@ rem $Id$
|
||||
rem
|
||||
|
||||
..\bin\harbour %1 %2 /n /iinclude /DNANFOR
|
||||
bcc32 -e..\bin\%1.exe -O2 -I..\include -L..\lib\b32 -v harbour.lib terminal.lib hbpp.lib hbgt.lib common.lib rdd.lib %1.c
|
||||
bcc32 -e..\bin\%1.exe -O2 -I..\include -L..\lib\b32 -v harbour.lib terminal.lib hbpp.lib hbgt.lib common.lib rdd.lib %1.c
|
||||
rem del %1.c
|
||||
|
||||
2846
harbour/ngdoc/ft_helpc.prg
Normal file
2846
harbour/ngdoc/ft_helpc.prg
Normal file
File diff suppressed because it is too large
Load Diff
43
harbour/ngdoc/ha.lnk
Normal file
43
harbour/ngdoc/ha.lnk
Normal file
@@ -0,0 +1,43 @@
|
||||
!name: Harbour Build 31 Reference Guide
|
||||
!credits:
|
||||
Release : 01/01/2000
|
||||
Build By Luiz Rafael Culik
|
||||
Functions Documented by:
|
||||
Victor Szel
|
||||
Chen Luiz Rafael Culik
|
||||
!Menu: Commands
|
||||
Command Comm.ngo
|
||||
!menu: A-E
|
||||
Array array.ngo
|
||||
Code Block codeblo.ngo
|
||||
Console Input consimpu.ngo
|
||||
Conversion Conv.ngo
|
||||
Data base Database.ngo
|
||||
Data Input And Output datai.ngo
|
||||
Dos dos.ngo
|
||||
!menu:F-N
|
||||
Error Recovery error.ngo
|
||||
Enviroment Envirom.ngo
|
||||
Events Event.ngo
|
||||
File Management FILEMANa.ngo
|
||||
Internal Internal.ngo
|
||||
Gt Gt.ngo
|
||||
Misc Misc.ngo
|
||||
Nation Nation.ngo
|
||||
!menu: O-T
|
||||
Object Manipulation obj.ngo
|
||||
Operating System Specific opersyst.ngo
|
||||
Parameter Checks Parame.ngo
|
||||
Run-Time Library, Strings runtime.ngo
|
||||
Strings Strings.ngo
|
||||
Tbrowse Class tbrow.ngo
|
||||
Terminal Terminal.ngo
|
||||
!menu: U-Z
|
||||
Unknown unknown.ngo
|
||||
Utility Utility.ngo
|
||||
VARIABLE MANAGEMENT mv.ngo
|
||||
document doc.ngo
|
||||
!Menu: HARBOUR
|
||||
License license.ngo
|
||||
Readme readme.ngo
|
||||
Tools Tools.ngo
|
||||
42
harbour/source/rtl/license.prg
Normal file
42
harbour/source/rtl/license.prg
Normal file
@@ -0,0 +1,42 @@
|
||||
/*
|
||||
* $Id$
|
||||
*/
|
||||
|
||||
/* $DOC$
|
||||
* $FUNCNAME$
|
||||
* License
|
||||
* $CATEGORY$
|
||||
* Document
|
||||
* $ONELINER$
|
||||
* Harbour License
|
||||
* $DESCRIPTION$
|
||||
*
|
||||
* THE HARBOUR PROJECT LICENSE
|
||||
* ===========================
|
||||
*
|
||||
* 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/).
|
||||
*
|
||||
* $SEEALSO$
|
||||
* OverView
|
||||
* $END$
|
||||
*/
|
||||
96
harbour/source/rtl/readme.prg
Normal file
96
harbour/source/rtl/readme.prg
Normal file
@@ -0,0 +1,96 @@
|
||||
/*
|
||||
* $Id$
|
||||
*/
|
||||
|
||||
/* $DOC$
|
||||
* $FUNCNAME$
|
||||
* OVERVIEW
|
||||
* $CATEGORY$
|
||||
* Document
|
||||
* $ONELINER$
|
||||
* HARBOUR Read me
|
||||
* $DESCRIPTION$
|
||||
*
|
||||
* The Harbour project
|
||||
*
|
||||
* ************************************************************************
|
||||
* * This file contains information on obtaining, installing, and using *
|
||||
* * Harbour. Please read it *completely* before asking for help. *
|
||||
* ************************************************************************
|
||||
|
||||
* Harbour is a free implementation of an xBase language compiler. It is
|
||||
* designed to be source code compatible with the CA-Clipper(r) compiler.
|
||||
* That means that if you've got some code that would compile using
|
||||
* CA-Clipper(r) then it should compile under Harbour. The Harbour-Project
|
||||
* web page is:
|
||||
* http://www.Harbour-Project.org/
|
||||
*
|
||||
*
|
||||
* Status and other information is always available from the web site.
|
||||
* There is a Harbour mailing list. Harbour is still at a very early
|
||||
* stage of development, so the mailing list is very much a Developers
|
||||
* only list, although every body is welcome to join in the discussions.
|
||||
*
|
||||
* We would like you to join the Harbour development team. If you are
|
||||
* interested you may suscribe to our mailing list and start contributing
|
||||
* to this free public project.
|
||||
*
|
||||
* Please feel free to report all questions, ideas, suggestions, fixes,
|
||||
* code, etc. you may need and want. With the help of all of you, the Harbour
|
||||
* compiler and runtime libraries will become a reality very soon.
|
||||
*
|
||||
*
|
||||
* What this distribution contains
|
||||
* ===============================
|
||||
*
|
||||
* This distribution is a Source code only distribution. It does not contain
|
||||
* any executable files. Executable versions of Harbour are available from
|
||||
* the web site. Executable versions of Harbour DO NOT create runable
|
||||
* programs. Harbour at the moment produces C output code, which must be
|
||||
* compiled with the Harbour Virtual Machine and the support libraries
|
||||
* in order to create a functioning program.
|
||||
* Please test running Harbour against your Clipper source code and report
|
||||
* any problems that might occur.
|
||||
*
|
||||
* Very important: The preprocessor functionality is not built in yet. So
|
||||
* you may test only Clipper language without preprocessor commands, etc.
|
||||
*
|
||||
*
|
||||
* Installation
|
||||
* ------------
|
||||
*
|
||||
* 1. Unzip with Harbour zip file using pkunzip or equivalent.
|
||||
* E.G. pkunzip -d build72.zip
|
||||
* This will create Harbour/ directory and all the relevant sub
|
||||
* directories.
|
||||
*
|
||||
* 2. Compile Harbour using your C compiler. Make files for different
|
||||
* platforms are included in the <WHERE ARE THEY?> directory.
|
||||
*
|
||||
*
|
||||
* --- COPYRIGHT ---
|
||||
*
|
||||
* What copyright information do we have
|
||||
*
|
||||
*
|
||||
* --- LICENCE ---
|
||||
*
|
||||
* Information about the License for usage of Harbour is available in the
|
||||
* file LICENCE.TXT (when we have a license)
|
||||
*
|
||||
* --- DISCLAIMER ---
|
||||
*
|
||||
* Participants of The Harbour Project assume no responsibility for errors or omissions in these materials.
|
||||
*
|
||||
* THESE MATERIALS ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR NON-INFRINGEMENT.
|
||||
*
|
||||
* Participants of The Harbour Project further do not warrant the accuracy or completeness of the code, information, text, output or any other items contained within these materials. Participants of The Harbour Project shall not be liable for any special, direct, indirect, incidental, or consequential damages, including without limitation, lost revenues or lost profits, which may result from the use or mis-use of these materials.
|
||||
*
|
||||
* The information in The Harbour Project is subject to change without notice and does not represent any future commitment by the participants of The Harbour Project.
|
||||
*
|
||||
* The Harbour Project
|
||||
*
|
||||
* $SEEALSO$
|
||||
* License
|
||||
* $END$
|
||||
*/
|
||||
83
harbour/source/tools/html.prg
Normal file
83
harbour/source/tools/html.prg
Normal file
@@ -0,0 +1,83 @@
|
||||
/*
|
||||
* $Id$
|
||||
*/
|
||||
|
||||
/*
|
||||
* Harbour Project source code:
|
||||
* HTML 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/).
|
||||
*
|
||||
*/
|
||||
|
||||
#include 'hbclass.ch'
|
||||
|
||||
#define CRLF HB_OSNewLine()
|
||||
|
||||
CLASS THTML
|
||||
|
||||
DATA nHandle
|
||||
DATA cFile
|
||||
METHOD New(cFile)
|
||||
METHOD WriteTitle(cTitle)
|
||||
METHOD WritePar(cPar)
|
||||
METHOD WriteParBold(cPar)
|
||||
METHOD WriteLink(cLink)
|
||||
METHOD Close()
|
||||
ENDCLASS
|
||||
|
||||
Method New(cFile) CLASS THTML
|
||||
IF VALTYPE(cFile ) <> NIL .and. VALTYPE(cFile )=="C"
|
||||
Self:cFile:=cFile
|
||||
Self:nHandle:=FCREATE(Self:cFile)
|
||||
ENDIF
|
||||
FWRITE(Self:nHandle,"<HEAD>"+CRLF)
|
||||
RETURN Self
|
||||
METHOD WriteTitle(cTitle) CLASS THTML
|
||||
FWRITE(Self:nHandle,"<TITLE>"+CRLF+cTitle+CRLF+"</Title>"+CRLF+'<body bgcolor="#FFFFFF">'+CRLF)
|
||||
RETURN Self
|
||||
METHOD WritePar(cPar) CLASS THTML
|
||||
FWRITE(Self:nHandle,"<p>"+cPar+'</p>'+CRLF)
|
||||
RETURN Self
|
||||
|
||||
METHOD WriteParBold(cPar) CLASS THTML
|
||||
FWRITE(Self:nHandle,"<p><b>"+cPar+'</b></p>'+CRLF)
|
||||
RETURN Self
|
||||
METHOD Close() CLASS THTML
|
||||
FWRITE(Self:nHandle,"</body>"+CRLF)
|
||||
FCLOSE(Self:nHandle)
|
||||
RETURN Self
|
||||
METHOD WriteLink(cLink) CLASS THTML
|
||||
LOCAL nPos,cTemp:=''
|
||||
nPos:=AT("()",cLink)
|
||||
IF nPos>0
|
||||
cTemp:=SubStr(cLink,1,nPos-1)+'.html'
|
||||
FWrite(Self:nHandle,"<p><a href="+cTemp+">"+cLink+"</a></p>"+CRLF)
|
||||
ELSE
|
||||
cTemp:=Alltrim(cLink)+'.html'
|
||||
FWrite(Self:nHandle,"<p><a href="+cTemp+">"+cLink+"</a></p>"+CRLF)
|
||||
ENDIF
|
||||
RETURN Self
|
||||
142
harbour/source/tools/rtf.prg
Normal file
142
harbour/source/tools/rtf.prg
Normal file
@@ -0,0 +1,142 @@
|
||||
/*
|
||||
* $Id$
|
||||
*/
|
||||
|
||||
/*
|
||||
* Harbour Project source code:
|
||||
* RTF 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 TRTF
|
||||
|
||||
DATA cFile
|
||||
DATA nHandle
|
||||
METHOD WriteHeader()
|
||||
METHOD New(cFile)
|
||||
|
||||
METHOD WritePar(cPar)
|
||||
METHOD WriteLink(clink)
|
||||
METHOD Close()
|
||||
METHOD WriteParBold(cPar)
|
||||
METHOD WriteTitle(cTitle,cTopic)
|
||||
METHOD EndPar()
|
||||
ENDCLASS
|
||||
METHOD NEW(cFile) Class TRTF
|
||||
|
||||
IF VALTYPE(cFile ) <> NIL .and. VALTYPE(cFile )=="C"
|
||||
Self:cFile:=cFile
|
||||
Self:nHandle:=FCREATE(Self:cFile)
|
||||
ENDIF
|
||||
RETURN Self
|
||||
|
||||
METHOD WriteHeader() CLASS TRTF
|
||||
LOCAL cHeader:='{\rtf1\ansi\pard\plain\fs20'+CRLF+;
|
||||
'\deff5{\fonttbl'+CRLF+;
|
||||
'{\f0\froman Tms Rmn;}'+CRLF+;
|
||||
'{\f1\fdecor Symbol;}'+CRLF+;
|
||||
'{\f2\fswiss Helv;}'+CRLF+;
|
||||
'{\f3\fmodern LinePrinter;}'+CRLF+;
|
||||
'{\f4\froman Terminal;}'+CRLF+;
|
||||
'{\f5\froman Times New Roman;}'+CRLF+;
|
||||
'{\f6\fswiss Arial;}'+CRLF+;
|
||||
'{\f7\froman CG Times (WN);}'+CRLF+;
|
||||
'{\f8\fmodern Courier;}'+CRLF+;
|
||||
'{\f9\fmodern Modern;}'+CRLF+;
|
||||
'{\f10\fscript Script;}'+CRLF+;
|
||||
'{\f11\fswiss Univers (WN);}'+CRLF+;
|
||||
'{\f12\fnil Wingdings;}'+CRLF+;
|
||||
'{\f13\fswiss MS Sans Serif;}'+CRLF+;
|
||||
'}'+CRLF
|
||||
|
||||
LOCAL cColortable:='{\colortbl;'+CRLF+;
|
||||
'\red0\green0\blue0;'+CRLF+;
|
||||
'\red0\green0\blue128;'+CRLF+;
|
||||
'\red0\green128\blue128;'+CRLF+;
|
||||
'\red0\green128\blue0;'+CRLF+;
|
||||
'\red128\green0\blue0;'+CRLF+;
|
||||
'\red128\green0\blue128;'+CRLF+;
|
||||
'\red128\green128\blue0;'+CRLF+;
|
||||
'\red128\green128\blue128;'+CRLF+;
|
||||
'\red64\green64\blue64;'+CRLF+;
|
||||
'\red0\green0\blue255;'+CRLF+;
|
||||
'\red0\green255\blue255;'+CRLF+;
|
||||
'\red0\green255\blue0;'+CRLF+;
|
||||
'\red255\green0\blue0;'+CRLF+;
|
||||
'\red192\green192\blue192;'+CRLF+;
|
||||
'\red255\green255\blue0;'+CRLF+;
|
||||
'\red255\green255\blue255;'+CRLF+;
|
||||
'}'+CRLF
|
||||
|
||||
FWRITE(Self:nHandle,cHeader)
|
||||
FWRITE(Self:nHandle,cColorTable)
|
||||
RETURN Self
|
||||
|
||||
METHOD WritePar(cPar) CLASS TRTF
|
||||
|
||||
FWRITE(Self:nHandle,'\pard{\cf1\fs20 '+alltrim(cPar))
|
||||
RETURN Self
|
||||
METHOD EndPar() CLASS TRTF
|
||||
FWRITE(Self:nHandle, ' }\par'+CRLF)
|
||||
RETURN Self
|
||||
METHOD WriteParBold(cPar) CLASS TRTF
|
||||
FWRITE(Self:nHandle,'\pard{\plain\cf1\f2\fs20\i\b\qc '+alltrim(cPar)+' }\par'+CRLF)
|
||||
RETURN Self
|
||||
|
||||
METHOD WriteTitle(cTitle,cTopic) Class TRTF
|
||||
LOCAL cTemp,nPos
|
||||
LOCAL cWrite
|
||||
nPos:=At("()",cTitle)
|
||||
IF nPos>0
|
||||
cTemp:=alltrim(STRTRAN(cTitle,"()","xx"))
|
||||
else
|
||||
cTemp:=alltrim(cTitle)
|
||||
endif
|
||||
cTopic:=Alltrim(cTopic)
|
||||
cWrite:='{\f2'+CRLF+;
|
||||
' #{\footnote \pard\plain \fs20 # '+cTemp +' }'+CRLF+;
|
||||
' ${\footnote \pard\plain \fs20 $ '+Alltrim(cTopic) +' }'+CRLF+;
|
||||
' K{\footnote \pard\plain \fs20 K '+Alltrim(cTopic) +' }'+CRLF+;
|
||||
'}'+CRLF
|
||||
|
||||
FWRITE(Self:nHandle,cWrite)
|
||||
Self:WritePar(cTopic):EndPar()
|
||||
RETURN Self
|
||||
METHOD CLOSE() CLASS TRTF
|
||||
FWRITE(Self:nHandle,'\page'+CRLF)
|
||||
FWRITE(Self:nHandle,'}'+CRLF)
|
||||
|
||||
FCLOSE(Self:nHandle)
|
||||
RETURN Self
|
||||
|
||||
METHOD WriteLink(cLink) CLASS TRTF
|
||||
FWRITE(Self:nHandle,'\pard{\cf1\fs20 {\f2\uldb '+alltrim(cLink)+'}{\v\f2 '+alltrim(strtran(cLink,"()","xx")) +'} }\par'+CRLF)
|
||||
RETURN Self
|
||||
Reference in New Issue
Block a user