From 684c58d448977cc62475bde5ddac4063e9479b95 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sat, 1 Dec 2007 01:21:26 +0000 Subject: [PATCH] 2007-12-01 02:20 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) - contrib/htmllib * contrib/Makefile * contrib/make_b32_all.bat * contrib/make_vc_all.bat * Removed htmllib (obsolete, non-maintained). --- harbour/ChangeLog | 7 + harbour/contrib/Makefile | 1 - harbour/contrib/htmllib/Makefile | 25 - harbour/contrib/htmllib/colors.ch | 190 -- harbour/contrib/htmllib/common.mak | 24 - harbour/contrib/htmllib/counter.prg | 88 - harbour/contrib/htmllib/default.ch | 274 --- harbour/contrib/htmllib/errorsys.prg | 296 ---- harbour/contrib/htmllib/ferror.ch | 87 - harbour/contrib/htmllib/forms.ch | 290 --- harbour/contrib/htmllib/htmbrows.prg | 216 --- harbour/contrib/htmllib/html.ch | 764 -------- harbour/contrib/htmllib/htmutil.prg | 209 --- harbour/contrib/htmllib/jlist.prg | 338 ---- harbour/contrib/htmllib/jwindow.prg | 434 ----- harbour/contrib/htmllib/lowfiles.ch | 59 - harbour/contrib/htmllib/make_b32.bat | 6 - harbour/contrib/htmllib/make_vc.bat | 6 - harbour/contrib/htmllib/ocgi.prg | 307 ---- harbour/contrib/htmllib/oedit.prg | 676 ------- harbour/contrib/htmllib/ofile.prg | 559 ------ harbour/contrib/htmllib/oframe.prg | 224 --- harbour/contrib/htmllib/ohtm.prg | 2436 -------------------------- harbour/contrib/htmllib/oini.prg | 507 ------ harbour/contrib/htmllib/outil.prg | 297 ---- harbour/contrib/make_b32_all.bat | 2 +- harbour/contrib/make_vc_all.bat | 2 +- 27 files changed, 9 insertions(+), 8315 deletions(-) delete mode 100644 harbour/contrib/htmllib/Makefile delete mode 100644 harbour/contrib/htmllib/colors.ch delete mode 100644 harbour/contrib/htmllib/common.mak delete mode 100644 harbour/contrib/htmllib/counter.prg delete mode 100644 harbour/contrib/htmllib/default.ch delete mode 100644 harbour/contrib/htmllib/errorsys.prg delete mode 100644 harbour/contrib/htmllib/ferror.ch delete mode 100644 harbour/contrib/htmllib/forms.ch delete mode 100644 harbour/contrib/htmllib/htmbrows.prg delete mode 100644 harbour/contrib/htmllib/html.ch delete mode 100644 harbour/contrib/htmllib/htmutil.prg delete mode 100644 harbour/contrib/htmllib/jlist.prg delete mode 100644 harbour/contrib/htmllib/jwindow.prg delete mode 100644 harbour/contrib/htmllib/lowfiles.ch delete mode 100644 harbour/contrib/htmllib/make_b32.bat delete mode 100644 harbour/contrib/htmllib/make_vc.bat delete mode 100644 harbour/contrib/htmllib/ocgi.prg delete mode 100644 harbour/contrib/htmllib/oedit.prg delete mode 100644 harbour/contrib/htmllib/ofile.prg delete mode 100644 harbour/contrib/htmllib/oframe.prg delete mode 100644 harbour/contrib/htmllib/ohtm.prg delete mode 100644 harbour/contrib/htmllib/oini.prg delete mode 100644 harbour/contrib/htmllib/outil.prg diff --git a/harbour/ChangeLog b/harbour/ChangeLog index c47b8b01e9..461a1de687 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,13 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ +2007-12-01 02:20 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) + - contrib/htmllib + * contrib/Makefile + * contrib/make_b32_all.bat + * contrib/make_vc_all.bat + * Removed htmllib (obsolete, non-maintained). + 2007-12-01 01:15 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) - contrib/btree + contrib/hbbtree diff --git a/harbour/contrib/Makefile b/harbour/contrib/Makefile index dffe7db6dd..e9b7adf55d 100644 --- a/harbour/contrib/Makefile +++ b/harbour/contrib/Makefile @@ -6,7 +6,6 @@ ROOT = ../ DIRS=\ hbbtree \ - htmllib \ libct \ libgt \ libmisc \ diff --git a/harbour/contrib/htmllib/Makefile b/harbour/contrib/htmllib/Makefile deleted file mode 100644 index eb70bb63ab..0000000000 --- a/harbour/contrib/htmllib/Makefile +++ /dev/null @@ -1,25 +0,0 @@ -# -# $Id$ -# - -ROOT = ../../ - -C_SOURCES=\ - -PRG_SOURCES=\ - ohtm.prg \ - ocgi.prg \ - oedit.prg \ - oframe.prg \ - oini.prg \ - ofile.prg \ - jwindow.prg \ - htmutil.prg \ - counter.prg \ - errorsys.prg \ - htmbrows.prg \ - jlist.prg \ - -LIBNAME=html - -include $(TOP)$(ROOT)config/lib.cf diff --git a/harbour/contrib/htmllib/colors.ch b/harbour/contrib/htmllib/colors.ch deleted file mode 100644 index cab39345ff..0000000000 --- a/harbour/contrib/htmllib/colors.ch +++ /dev/null @@ -1,190 +0,0 @@ -/* - * $Id$ - */ - -/* - * Harbour Project source code: - * Colors include file for HTMLLIB - * - * Copyright 2000 Manos Aspradakis - * 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/). - * - */ -/* - * The following parts are Copyright of the individual authors. - * www - http://www.harbour-project.org - * - * Copyright 2000 Luiz Rafael Culik - * Porting this library to Harbour - * - * See doc/license.txt for licensing terms. - * - */ - -#ifndef _COLORS_CH - -#define ALICEBLUE '#A0CF00' -#define ANTIQUEWHITE '#FFE8D0' -#define AQUA '#00FFFF' -#define AQUAMARINE '#7FFFD0' -#define AZURE '#F0FFFF' -#define BEIGE '#F0F7DF' -#define BISQUE '#FFE7C0' -#define BLACK '#000000' -#define BLANCHEDALMOND '#FFE8CF' -#define BLUE '#0000FF' -#define BLUEVIOLET '#8F28E0' -#define BROWN '#A0282F' -#define BURLYWOOD '#DFB880' -#define CADETBLUE '#5F9FA0' -#define CHARTREUSE '#7FFF00' -#define CHOCOLATE '#D0861F' -#define CORAL '#FF7F50' -#define CORNFLOWERBLUE '#6097EF' -#define CORNSILK '#FFF8DF' -#define CRIMSON '#DF173F' -#define CYAN '#00FFFF' -#define DARKBLUE '#00008F' -#define DARKCYAN '#00888F' -#define DARKGOLDENROD '#BF87F0' -#define DARKGRAY '#AFA8AF' -#define DARKGREEN '#006700' -#define DARKKHAKI '#BFB76F' -#define DARKMAGENTA '#8F008F' -#define DARKOLIVEGREEN '#50682F' -#define DARKORANGE '#FF8F00' -#define DARKORCHID '#9F30CF' -#define DARKRED '#8F0000' -#define DARKSALMON '#EF977F' -#define DARKSEAGREEN '#8FBF8F' -#define DARKSLATEBLUE '#4F3F8F' -#define DARKSLATEGRAY '#2F4F4F' -#define DARKTURQUOISE '#00CFD0' -#define DARKVIOLET '#9000D0' -#define DEEPPINK '#FF1790' -#define DEEPSKYBLUE '#00BFFF' -#define DIMGRAY '#6F686F' -#define DODGERBLUE '#1F90FF' -#define FIREBRICK '#B02020' -#define FLORALWHITE '#FFF8F0' -#define FORESTGREEN '#208820' -#define FUCHSIA '#FF00FF' -#define GAINSBORO '#DFDFDF' -#define GHOSTWHITE '#FFF8FF' -#define GOLD '#FFD700' -#define GOLDENROD '#DFA720' -#define GRAY '#808080' -#define GREEN '#008000' -#define GREENYELLOW '#AFFF2F' -#define HONEYDEW '#F0FFF0' -#define HOTPINK '#FF68B0' -#define INDIANRED '#CF5F5F' -#define INDIGO '#4F0080' -#define IVORY '#FFFFF0' -#define KHAKI '#F0E78F' -#define LAVENDER '#E0E7FF' -#define LAVENDERBLUSH '#FFF0F0' -#define LAWNGREEN '#7FFF00' -#define LEMONCHIFFON '#FFF8CF' -#define LIGHTBLUE '#AFD8E0' -#define LIGHTCORAL '#F08080' -#define LIGHTCYAN '#E0FFFF' -#define LIGHTGOLDENRODYELLOW '#FFF8D0' -#define LIGHTGREEN '#90EF90' -#define LIGHTGREY '#D0D0D0' -#define LIGHTPINK '#FFB7C0' -#define LIGHTSALMON '#FFA07F' -#define LIGHTSEAGREEN '#20B0AF' -#define LIGHTSKYBLUE '#80CFFF' -#define LIGHTSLATEGRAY '#70889F' -#define LIGHTSTEELBLUE '#B0C7DF' -#define LIGHTYELLOW '#FFFFE0' -#define LIME '#00FF00' -#define LIMEGREEN '#30CF30' -#define LINEN '#FFF0E0' -#define MAGENTA '#FF00FF' -#define MAROON '#800000' -#define MEDIUMAQUAMARINE '#60CFAF' -#define MEDIUMBLUE '#0000CF' -#define MEDIUMORCHID '#BF57D0' -#define MEDIUMPURPLE '#9070DF' -#define MEDIUMSEAGREEN '#3FB070' -#define MEDIUMSLATEBLUE '#7F68EF' -#define MEDIUMSPRINGGREEN '#00F89F' -#define MEDIUMTURQUOISE '#4FD0CF' -#define MEDIUMVIOLETRED '#C01780' -#define MIDNIGHTBLUE '#1F1870' -#define MINTCREAM '#F0FFFF' -#define MISTYROSE '#FFE7E0' -#define MOCCASIN '#FFE7B0' -#define NAVAJOWHITE '#FFDFAF' -#define NAVY '#000080' -#define OLDLACE '#FFF7E0' -#define OLIVE '#808000' -#define OLIVEDRAB '#6F8F20' -#define ORANGE '#FFA700' -#define ORANGERED '#FF4700' -#define ORCHID '#DF70D0' -#define PALEGOLDENROD '#EFE8AF' -#define PALEGREEN '#9FF89F' -#define PALETURQUOISE '#AFEFEF' -#define PALEVIOLETRED '#DF7090' -#define PAPAYAWHIP '#FFEFD0' -#define PEACHPUFF '#FFD8BF' -#define PERU '#CF873F' -#define PINK '#FFC0CF' -#define PLUM '#DFA1DF' -#define POWDERBLUE '#B0E0E0' -#define PURPLE '#800080' -#define RED '#FF0000' -#define ROSYBROWN '#BF8F8F' -#define ROYALBLUE '#4068E0' -#define SADDLEBROWN '#8F4710' -#define SALMON '#FF8070' -#define SANDYBROWN '#F0A760' -#define SEAGREEN '#2F8850' -#define SEASHELL '#FFF7EF' -#define SIENNA '#A0502F' -#define SILVER '#C0C0C0' -#define SKYBLUE '#80CFEF' -#define SLATEBLUE '#6F58CF' -#define SLATEGRAY '#708090' -#define SNOW '#FFF8FF' -#define SPRINGGREEN '#00FF7F' -#define STEELBLUE '#4080B0' -#define TAN '#D0B78F' -#define TEAL '#008080' -#define THISTLE '#DFBFDF' -#define TOMATO '#FF6040' -#define TURQUOISE '#40E0D0' -#define VIOLET '#EF80EF' -#define WHEAT '#F0DFB0' -#define WHITE '#FFFFFF' -#define WHITESMOKE '#F0F7F0' -#define YELLOW '#FFFF00' -#define YELLOWGREEN '#9FCF30' - -#define _COLORS_CH -#endif diff --git a/harbour/contrib/htmllib/common.mak b/harbour/contrib/htmllib/common.mak deleted file mode 100644 index a9af4fc130..0000000000 --- a/harbour/contrib/htmllib/common.mak +++ /dev/null @@ -1,24 +0,0 @@ -# -# $Id$ -# - -LIBNAME = html - -LIB_PATH = $(LIB_DIR)\$(LIBNAME)$(LIBEXT) - -LIB_OBJS = \ - $(OBJ_DIR)\ohtm$(OBJEXT) \ - $(OBJ_DIR)\htmbrows$(OBJEXT) \ - $(OBJ_DIR)\oedit$(OBJEXT) \ - $(OBJ_DIR)\ofile$(OBJEXT) \ - $(OBJ_DIR)\jlist$(OBJEXT) \ - $(OBJ_DIR)\oini$(OBJEXT) \ - $(OBJ_DIR)\jwindow$(OBJEXT) \ - $(OBJ_DIR)\ocgi$(OBJEXT) \ - $(OBJ_DIR)\oframe$(OBJEXT) \ - $(OBJ_DIR)\counter$(OBJEXT) \ - $(OBJ_DIR)\errorsys$(OBJEXT) \ - $(OBJ_DIR)\htmutil$(OBJEXT) \ - -all: \ - $(LIB_PATH) \ diff --git a/harbour/contrib/htmllib/counter.prg b/harbour/contrib/htmllib/counter.prg deleted file mode 100644 index 86a963256a..0000000000 --- a/harbour/contrib/htmllib/counter.prg +++ /dev/null @@ -1,88 +0,0 @@ -#include "html.ch" -#include "forms.ch" -#include "default.ch" - - - -PROC CounterCGI() -LOCAL lIsPost := .F. -LOCAL cCounterDat := "counter.dat" -LOCAL oFrm - -LOCAL oHtm, oCgi - -SET DATE BRITISH - -IF "POST" $ UPPER(GETENV("REQUEST_METHOD")) - lIsPost := .T. - oCgi := oCGI():New() // get server parameters/variables -ENDIF - -oHtm := HTML():CGINew( "Counter.htm", "My Counter File" ) - -oHtm:SetPageColor(CLR_DARK_YELLOW ) //"#FFFFCC") -oHtm:SetTextColor(CLR_WHITE) -oHtm:SetbgImage("/images/back/bg32.bmp") -oHtm:Setcenter( .f. ) -oHtm:qout( "" ) -SET FONT "Verdana" SIZE 3 OF oHtm - -DEFINE FORM oFrm ; - CAPTION "A Simple Counter" ; - NAME "MyForm"; - ACTION "/cgi-bin/counter.exe?" ; - FRAME - -CONTROL EDIT NAME "User" ; - MAXCHARS 20 ; - SIZE 20 ; - CAPTION "User Name:" ; - IN oFrm - -LINE BREAK IN oFrm -LINE IN oFrm -LINE BREAK IN oFrm -SPACE 80 IN oFrm - -CONTROL SUBMIT NAME cSubmit VALUE (" Ok ") IN oFrm - -ACTIVATE oFrm - -SET FONT "Verdana" SIZE 3 OF oHtm -oHtm:defineTable( 2,, 90,, "#9196A0" ) -oHtm:newTableRow() -oHtm:newTableCell() -oHtm:QOut( "Page Visited :" + TRANSFORM( incCounter(), "999,999,999" ) + +htmlSpace(2)+"Times") -oHtm:EndTableCell() -oHtm:EndTableRow() -oHtm:EndTable() - -oHtm:cgiClose() -RETURN - - -//컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -FUNCTION IncCounter() -LOCAL n := 0 - -IF FILE("Counter.dat") - n := VAL(MEMOREAD("counter.dat")) -ELSE - n := 0 -ENDIF -MEMOWRIT( "counter.dat", STR( n+1 ) ) -RETURN n - - -//컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 - FUNCTION GetCounter() -LOCAL n := 0 - -IF FILE("Counter.dat") - n := VAL(MEMOREAD("counter.dat")) -ELSE - incCounter() -ENDIF -RETURN n - - diff --git a/harbour/contrib/htmllib/default.ch b/harbour/contrib/htmllib/default.ch deleted file mode 100644 index f233b1de1a..0000000000 --- a/harbour/contrib/htmllib/default.ch +++ /dev/null @@ -1,274 +0,0 @@ -/* - * $Id$ - */ - -/* - * Harbour Project source code: - * DEFAULT.CH some default definition to HTMLLIB - * - * Copyright 2000 Manos Aspradakis - * 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/). - * - */ -/* - * The following parts are Copyright of the individual authors. - * www - http://www.harbour-project.org - * - * Copyright 2000 Luiz Rafael Culik - * Porting this library to Harbour - * - * See doc/license.txt for licensing terms. - * - */ - -#ifndef _DEFAULT_CH_ - -//#ifndef _BOX_CH -//#include "box.ch" -//#endif - -#ifndef _INKEY_CH -#include "inkey.ch" -#endif - -#ifndef _COMMON_CH -#include "common.ch" -#endif - -#xTranslate PERCENT( , ) => ; - ( ( * ) / 100 ) - -// --> Default parameters -#xcommand DEFAULT := ; - [, := ] => ; - := IIf( == nil, , ) ;; - [ := IIf( == nil, , ); ] - -#xcommand DEFAULT TO [, TO ] ; - => ; - IF == NIL ; := ; END ; - [; IF == NIL ; := ; END ] - -// --> OOPs -#xtranslate BYNAME [, ] => :: := [; :: := ] -#xtranslate BYNAME DEFAULT => :: := BYDEFAULT , -#xtranslate BYDEFAULT , => IIF( == NIL, , ) - - -// --> Save/Restore video state... -#xtranslate SaveState() => { row(), ; - col(), ; - SetColor(), ; - SetCursor(), ; - SaveScreen(,,,,) } - - -#xtranslate RestState() => DispBegin() ;; - RestScreen(,,,,\[5\]) ;; - SetColor(\[3\] ) ;; - SetCursor(\[4\]) ;; - SetPos(\[1\], \[2\] ) ;; - DispEnd() - - -// --> Save/Restore Table state -#xTranslate DbSaveState() => IIF( USED(),; - { Select(), ; - Recno(), ; - OrdBagName(0),; - OrdSetFocus() ; - },; - NIL ) - -#xTranslate DbRestState( ) => IIF( != NIL, ; - ( Select( \[1\] ), ; - OrdListAdd(\[3\] ), ; - OrdSetFocus(\[4\] ),; - DbGoto(\[2\] )),) - - -// --> Display a Message at MAXROW() with optional colour... -#xTranslate Message(,) => ; - DispOutAt( maxrow(), 0, PadC(, MaxCol()+1 ), ; - IIF( EMPTY(#), "R/W", # ) ) - - -// --> Display a backdrop desktop with optional color -#xTranslate DeskTop([]) => ; - DispBox( 0,0,maxrow(),maxcol(), replicate("�",9), [] ) - - -// --> Display a box with shadow (without savescreen() ) -#xTranslate ShadBox( , , , , , ) ; - => ; - DispBegin() ;; - RESTSCREEN( +1,+2,+1,+2,; - TRANSFORM( ; - SAVESCREEN( +1,+2,+1,+2 ),; - REPLICATE( 'X', ( -+1 ) * ( -+1 ) ) ) );; - DispBox( , , , , [], [] );; - SetPos( +1, +1 );; - DispEnd() - - -// --> Display a box with shadow: Saves screen for WClose() -// --> *MUST* pass to variable, e.g. -// --> -// --> LOCAL aWin := WOpen( 10, 10, 20, 30, B_DOUBLE + " ", "N/W" ) -// --> -#xTranslate WOpen( , , , , [], [] ) ; - => ; - { , , +1, +2, ; - SAVESCREEN( , , +1, +2 ) } ;; - DispBegin() ;; - RESTSCREEN( +1,+2,+1,+2,; - TRANSFORM( SAVESCREEN( +1,+2,+1,+2 ),; - REPLICATE( 'X', ( -+1 ) * ( -+1 ) ) ) );; - DispBox( , , , , ; - IIF(EMPTY(#), "旼엿耗윰 ", ), ; - IIF(EMPTY(#),"W/B", ) );; - SetPos( +1, +1 );; - DispEnd() - - -// --> Display a Caption for a WOpen() window -#xTranslate WTitle( , , ) => ; - DispBox( \[1\], \[2\], ; - \[1\], \[4\]-2, ; - replicate(" ",9), ; - IIF( EMPTY(#), "b/w", # ) ) ;; - DispOutAt( \[1\], \[2\], ; - PADC(, (\[4\]-\[2\])-1, " " ), ; - IIF( EMPTY(#), "b/w", # )) - -// --> Closes a window created with WOpen() - Restores screen -#xTranslate WClose() => RestScreen( \[1\], \[2\], ; - \[3\], \[4\], ; - \[5\] ) - - -// --> Save/Restore full screen - *MUST* pass to/from var -#xtranslate ScreenSave() => SAVESCREEN( 0, 0, 24, 79 ) -#xtranslate ScreenRest( ) => RESTSCREEN( 0, 0, 24, 79, ) - -// --> Build a Picture template -#xtranslate CAPFIRST() => ( "!" + REPLICATE( "X", LEN( ) -1 )) - -// --> Array shrink -#xTranslate ASHRINK( ) => ; - ADEL ( , LEN( ) ) ; - ; ASIZE( , LEN( ) - 1 ) - - -// --> Number to Trimmed String -#xTranslate NTRIM( ) => LTRIM(STR( )) -#xTranslate NUMTRIM( ) => LTRIM(STR( )) -// --> Convert logical to character -#xtranslate LTOC() => IIF( , "T", "F") - -// --> Convert character to logical -#xTranslate CTOL() => IIF( $ "TtYy", .T., .F.) - - -// --> Left trim a numeric -#xtranslate LSTR() => LTRIM( Str( ) ) - - -// --> Carriage Return + Line Feed -#xtranslate CRLF() => ( + CHR(13)+CHR(10) ) -#xtranslate CRLF() => CHR(13) + CHR(10) - - -// --> create a Get/Set Block -#define GSB( xVar) {|x| IIF(x == NIL, xVar, xVar := x )} - -#xtranslate GetSetBlock() => {|x| IIF(x == NIL, , := x )} - -#translate GETSET( , ) => ; - := IIF( == NIL, , := ) - - -// --> Convert Character String to Code Block -#xTranslate COMPILE() => &("{||" + + "}") - - -// --> Errors... -#define Beep() Tone(300,3) - -#xTranslate ErrorTone() => ( TONE( 1000,.01), ; - TONE( 1400,.01), ; - TONE( 1800,.01) ; - ) - - -#define DEF_PATH SET(_SET_DEFAULT) - - -// --> GETs ... -//#define OK_GETS() LASTKEY() != K_ESC .AND. UPDATED() - - - -/* - DATA TYPES -*/ -#xtranslate IS_ARRAY() => (VALTYPE()=="A") -#xtranslate IS_BLOCK() => (VALTYPE()=="B") -#xtranslate IS_CHAR() => (VALTYPE()=="C") -#xtranslate IS_DATA() => ( \>=32 .AND. \<= 253) -#xtranslate IS_DATE() => (VALTYPE()=="D") -#xtranslate IS_DEF() => !(TYPE() $ "UE") -#xtranslate IS_DIGIT() => ISDIGIT() -#xtranslate IS_INT() => ()==INT() ) -#xtranslate IS_LOGIC() => (VALTYPE()=="L") -#xtranslate IS_MEMO() => (VALTYPE()=="M") -#xtranslate IS_NUM() => (VALTYPE()=="N") -#xtranslate IS_OBJECT()=> (VALTYPE()=="O") -#xtranslate IS_TIME() => (VAL(LEFT ,2)) \< 24 .AND. ; - VAL(SUBSTR(,4,2)) \< 60 .AND. ; - VAL(RIGHT(,2 )) \<60 ) - -#translate ISNIL( ) => ( == NIL ) -#translate ISARRAY( ) => ( valtype( ) == "A" ) -#translate ISBLOCK( ) => ( valtype( ) == "B" ) -#translate ISCHARACTER( ) => ( valtype( ) == "C" ) -#translate ISDATE( ) => ( valtype( ) == "D" ) -#translate ISLOGICAL( ) => ( valtype( ) == "L" ) -#translate ISMEMO( ) => ( valtype( ) == "M" ) -#translate ISNUMBER( ) => ( valtype( ) == "N" ) -#translate ISOBJECT( ) => ( valtype( ) == "O" ) - - -#command REPEAT => DO WHILE .T. -#command UNTIL <*lexpr*> => IF (); EXIT ; END ; ENDDO - -#command IF THEN <*statement*> =>; - IF() ; ; END - -#command IF THEN ELSE =>; - IF() ; ; ELSE ; ; END - -#define _DEFAULT_CH_ -#endif diff --git a/harbour/contrib/htmllib/errorsys.prg b/harbour/contrib/htmllib/errorsys.prg deleted file mode 100644 index c8f9d75fad..0000000000 --- a/harbour/contrib/htmllib/errorsys.prg +++ /dev/null @@ -1,296 +0,0 @@ -/* - * $Id$ - */ - - -/*** -* -* Errorsys.prg -* -* Standard Clipper error handler -* -* Copyright (c) 1990-1993, Computer Associates International, Inc. -* All rights reserved. -* -* Compile: /m /n /w -* -*/ - -/* - * Harbour Project source code: - * HTML output conversion - * - * Copyright 2000 Manos Aspradakis - * 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/). - * - */ -/* - * The following parts are Copyright of the individual authors. - * www - http://www.harbour-project.org - * - * Copyright 2000 Luiz Rafael Culik - * Porting this library to Harbour - * - * See doc/license.txt for licensing terms. - * - */ - - - - -#include "default.ch" -#include "error.ch" - - -#define DEF_ERR_HEADER "Date : "+DTOC(Date())+"
"+; - "Time : "+Time()+"
" - - -// put messages to STDERR -#command ? => ?? Chr(13) + Chr(10) ; ?? -#command ?? => OutErr() - - -// used below -#xTranslate NTRIM() => ALLTrim( Str( ) ) - -REQUEST HARDCR -REQUEST MEMOWRIT - -STATIC sbFixCorrupt -STATIC scErrFooter := " " - - -/*** -* ErrorSys() -* -* Note: automatically executes at startup -*/ - -//컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -PROC ErrorSys() -//컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 - ErrorBlock( {|e| DefError(e)} ) -return - - - -/*** -* DefError() -*/ - -//컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -STATIC FUNC DefError(e) -//컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -local i, cMessage:= "" -Local cErrString := "" -LOCAL nDispCount := DispCount() -Local aError := {} -LOCAL nH := IF( PageHandle() == NIL, 0, PageHandle() ) - - // by default, division by zero yields zero - IF ( e:genCode == EG_ZERODIV ) - return (0) - END - - IF ( e:genCode == EG_CORRUPTION ) - if valtype(sbFixCorrupt) == "B" - EVAL( sbFixCorrupt, e ) - RETURN .F. - ELSE - RETURN .F. - ENDIF - ENDIF - - // for network open error, set NETERR() and subsystem default - IF ( e:genCode == EG_OPEN .and. (e:osCode == 32 .OR. e:osCode == 5); - .and. e:canDefault ) - - NETERR(.T.) - RETURN (.F.) // NOTE - - END - - - // for lock error during APPEND BLANK, set NETERR() and subsystem default - IF ( e:genCode == EG_APPENDLOCK .and. e:canDefault ) - - NETERR(.T.) - RETURN (.F.) // NOTE - - END - - // build error message - cMessage += ErrorMessage(e) - - - // display message and traceback - IF ( !Empty(e:osCode) ) - cMessage += " (DOS Error : " + NTRIM(e:osCode) + ")" - END - - // RESET System // - - cErrString := CRLF()+""+CRLF() - cErrString += '' - - cErrString += '" - - cErrString += '" - - cErrString += '' - cErrString += '' - cErrString += '"+CRLF()+""+CRLF()+"
' - cErrstring += ''+CRLF() - cErrString += "ERROR REPORT" - cErrString += "
' - cErrstring += ''+CRLF() - cErrString += DEF_ERR_HEADER - cErrString += "
' - cErrstring += ''+CRLF() - cErrString += ''+cMessage+'' - - - cErrString += '
'+CRLF() - cErrstring += ''+CRLF() - cErrString += "ERRORCODE...... :"+ NTRIM(e:GenCode)+"
"+CRLF() - cErrString += "SUBSYSTEM..... :"+ e:SubSystem +"
"+CRLF() - cErrString += "DESCRIPTION...:"+ e:Description +"
"+CRLF() - cErrString += "OPERATION......:"+ e:Operation +"
"+CRLF() - cErrString += "FILENAME........ :"+ e:FileName +"
"+CRLF() - cErrString += "TRIES............. :"+ NTRIM(e:Tries)+CRLF() - - cErrString += '
' - cErrstring += ''+CRLF() - cErrstring += '' - - i := 2 - - while ( !Empty(ProcName(i)) ) - - cErrString += "Called from "+ Trim(ProcName(i)) + ; - "(" + NTRIM(ProcLine(i)) + ")
" + CRLF() - - i++ - END - - cErrstring += '' - cErrString += '
' - cErrstring += ''+CRLF() - cErrstring += "Extra Notes..." - - cErrString += "
"+CRLF() - FWrite( nH, "
"+cErrString+CRLF() ) - //컴컴컴컴 Write/Append Error Log - MemoWrit( "Error.Log", HARDCR(cErrString)+CRLF()+; - HARDCR( MEMOREAD("Error.Log") ) ) - - FWrite( nH, ""+CRLF()+""+CRLF()+""+CRLF() ) - -/* - FWrite( nH, "
"+CRLF() ) - FWrite( nH, "]+CRLF() ) - FWrite( nH, "
"+CRLF() ) - FWrite( nH, ["+CRLF()+""+CRLF() ) - - CLOSE ALL - - // give up - ErrorLevel(1) - QUIT - -RETURN(.F.) - - - -//컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -FUNCTION SetCorruptFunc( bFunc ) -//컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -if valtype( bFunc ) == "B" - sbFixCorrupt := bFunc -ENDIF - -RETURN sbFixCorrupt - - -FUNCTION SetErrorFooter() -RETURN( scErrFooter ) - - -/*** -* ErrorMessage() -*/ -//컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -STATIC FUNC ErrorMessage(e) -//컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -local cMessage :="" - - // start error message - cMessage += if( e:severity > ES_WARNING, "Error ", "Warning " ) - - - // add subsystem name if available - IF ( ValType(e:subsystem) == "C" ) - cMessage += e:subsystem() - ELSE - cMessage += "???" - END - - - // add subsystem's error code if available - IF ( ValType(e:subCode) == "N" ) - cMessage += ("/" + NTRIM(e:subCode)) - ELSE - cMessage += "/???" - END - - - // add error description if available - IF ( ValType(e:description) == "C" ) - cMessage += ("
" + e:description) - END - - - // add either filename or operation - IF ( !Empty(e:filename) ) - cMessage += (": " + e:filename) - - ELSEIF ( !Empty(e:operation) ) - cMessage += (": " + e:operation) - - END - cMessage += CRLF() - - -return (cMessage) - diff --git a/harbour/contrib/htmllib/ferror.ch b/harbour/contrib/htmllib/ferror.ch deleted file mode 100644 index f4897d92a3..0000000000 --- a/harbour/contrib/htmllib/ferror.ch +++ /dev/null @@ -1,87 +0,0 @@ -/* - * $Id$ - */ - -/* - * Harbour Project source code: - * FERROR.CH Internal HTMLLIB module - * - * Copyright 2000 Manos Aspradakis - * 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/). - * - */ -/* - * The following parts are Copyright of the individual authors. - * www - http://www.harbour-project.org - * - * Copyright 2000 Luiz Rafael Culik - * Porting this library to Harbour - * - * See doc/license.txt for licensing terms. - * - */ - -#ifndef _FERROR_CH_ - -#define _LAST_IO_ERROR IF(FError() == 0, "", _IO_ERRORS[Ferror()] ) - -#define _IO_ERRORS { ; - "", ; //1 - "File not found", ; //2 - "Path not found", ; //3 - "Too many files open", ; //4 - "Access denied", ; //5 - "Invalid handle", ; //6 - "", ; //7 - "Insufficient memory", ; //8 - "", ; //9 - "", ; //10 - "", ; //11 - "", ; //12 - "", ; //13 - "", ; //14 - "Invalid drive specified", ; //15 - "", ; //16 - "", ; //17 - "", ; //18 - "Attempted to write to a write-protected disk", ; //19 - "", ; //20 - "Drive not ready", ; //21 - "", ; //22 - "Data CRC error", ; //23 - "", ; //24 - "", ; //25 - "", ; //26 - "", ; //27 - "", ; //28 - "Write fault", ; //29 - "Read fault", ; //30 - "", ; //31 - "Sharing violation", ; //32 - "Lock Violation" ; //33 - } - -#define _FERROR_CH_ -#endif diff --git a/harbour/contrib/htmllib/forms.ch b/harbour/contrib/htmllib/forms.ch deleted file mode 100644 index 26d545d863..0000000000 --- a/harbour/contrib/htmllib/forms.ch +++ /dev/null @@ -1,290 +0,0 @@ -/* - * $Id$ - */ - -/* - * Harbour Project source code: - * FORMS.CH Include file to create forms - * - * Copyright 2000 Manos Aspradakis - * 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/). - * - */ -/* - * The following parts are Copyright of the individual authors. - * www - http://www.harbour-project.org - * - * Copyright 2000 Luiz Rafael Culik - * Porting this library to Harbour - * - * See doc/license.txt for licensing terms. - * - */ - -#ifndef _FORMS_CH - -#xCommand DEFINE FORM ; - [NAME ] ; - [METHOD ] ; - [ACTION ] ; - [ENCTYPE ] ; - [TARGET ] ; - [ONSUBMIT ] ; - [ONRESET ] ; - [] ; - [CAPTION ] ; - [CAPCOLOR ] ; - [CAPFONTCOLOR ] ; - [CAPIMAGE ] ; - [BGIMAGE ] ; - [FONTCOLOR ] ; - [COLOR ] ; - [WIDTH ] ; - => ; - := Form():New( [], [], [], ; - <.frame.>, ) ;; - [:setTarget( <(target)> ) ;] ; - [:setEncType( <(enctype)> ) ;] ; - [:setCapClr( <(capclr)> ) ;] ; - [:setCapFntClr( <(capfntclr)> ) ;] ; - [:setCapImage( <(capimage)> ) ;] ; - [:setBgImage( <(bgimg)> ) ;] ; - [:setFontColor( <(fntclr)> ) ;] ; - [:setFrmColor( <(clr)> ) ;] ; - [:setwidth( ) ;] ; - [:setAction( <(action)> ) ;] ; - [:setOnSubmit( <(onsubmit)> ) ;] ; - [:setOnReset( <(onreset)> ) ] - - -#xCommand ACTIVATE ; - =>; - :Put(.T.) ; :End() - - -// --> Controls - -#xCommand CONTROL ; - [OF ]; - [] ; - [ALIGN ]; - [WRAP ] ; - [NAME ] ; - [VALUE ] ; - [SIZE ] ; - [MAXCHARS ] ; - [ROWS ] ; - [COLS ] ; - [ONCHANGE ] ; - [ONSELECT ] ; - [ONFOCUS ] ; - [ONBLUR ] ; - [ONCLICK ] ; - [ONMOUSEOVER ] ; - [ONMOUSEOUT ] ; - [ONMOUSEUP ] ; - [ONMOUSEDOWN ] ; - [ONKEYDOWN ] ; - [ONKEYUP ] ; - [ONKEYPRESS ] ; - [PICTURE ] ; - [] ; - [] ; - [] ; - [] ; - [CAPTION ] ; - [STYLE "+CRLF() +; - ''+CRLF()+; - CRLF()+; - ''+CRLF()+; - CRLF()+; - '"+CRLF() -cStr += '"+CRLF() -cStr += '"+CRLF() - -AADD( ::aScript, cStr ) -cStr := "" - -cStr += "Collapsable Lists: Basic Example"+CRLF() -cStr += ""+CRLF() -cStr += ''+CRLF() -cStr += '
'+CRLF() -//cStr += '
'+CRLF() - -FOR i = 0 TO ::nItems -cStr += '
'+CRLF() -NEXT -cStr += ""+CRLF() - -AADD( ::aScript, cStr ) - -RETURN Self - - -/**** -* -* -* -* -* -*/ - -METHOD Put( cFile ) CLASS NcList -IF cFile == NIL -::nH := STD_OUT -ELSE -::nH := FCreate(cFile) -ENDIF - -AEVAL( ::aScript, {|e| fWrite( ::nH, e ) }) - -FClose( ::nH ) - -RETURN Self diff --git a/harbour/contrib/htmllib/jwindow.prg b/harbour/contrib/htmllib/jwindow.prg deleted file mode 100644 index 50038bc9db..0000000000 --- a/harbour/contrib/htmllib/jwindow.prg +++ /dev/null @@ -1,434 +0,0 @@ -/* - * $Id$ - */ - -/* - * Harbour Project source code: - * Java Window Class - * - * Copyright 2000 Manos Aspradakis - * 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/). - * - */ -/* - * The following parts are Copyright of the individual authors. - * www - http://www.harbour-project.org - * - * Copyright 2000 Luiz Rafael Culik - * Porting this library to Harbour - * - * See doc/license.txt for licensing terms. - * - */ - - -#include "hbclass.ch" -#include "html.ch" -#include "default.ch" - - -Class JWindow - -DATA nH -DATA Name init "" -DATA oHtm -DATA VarName init "" -DATA URL init "" -DATA Features init "" - -DATA ScreenX, ScreenY init 100 -DATA height, width init 300 -DATA innerHeight, innerWidth, outerHeight init 0 -DATA alwaysRaised, alwaysLowered init .F. -DATA Menubar, personalBar init .F. -DATA location, directories, copyHistory init .F. -DATA Toolbar init .F. -DATA Status, TitleBar init .T. -DATA Scrollbars, Resizable, dependent init .T. - -DATA Title -DATA aScriptSRC -DATA aServerSRC -DATA bgImage, bgColor, fontColor -DATA Style - -DATA onLoad -DATA onUnLoad - -METHOD New( cVarName, cUrl, cName, x, y, w, h ) - -METHOD setOnLoad( c ) INLINE ::onLoad := c -METHOD setOnUnLoad( c ) INLINE ::onUnLoad := c - - -METHOD Alert( c ) INLINE HB_SYMBOL_UNUSED( c ), ::QOut( "alert('c')" ) -METHOD confirm( c ) INLINE HB_SYMBOL_UNUSED( c ), ::QOut( "confirm('c')" ) -METHOD SetSize(x,y,h,w) -METHOD Write( c ) -METHOD lineBreak() INLINE ::QOut( "
" ) -METHOD Paragraph() INLINE ::QOut( "

" ) -METHOD center(l) INLINE ::QOut( IF( l , "
", "
" ) ) -METHOD bold(l) INLINE ::QOut( IF( l , "", "" ) ) -METHOD Italic(l) INLINE ::QOut( IF( l , "", "" ) ) -METHOD ULine(l) INLINE ::QOut( IF( l , "", "" ) ) -METHOD Put() -METHOD Begin() -METHOD End() -METHOD QOut( c ) -METHOD WriteLN( c ) INLINE ::qOut( c ) -METHOD SetFeatures( alwaysRaised, alwaysLowered,; - Resizable, Menubar, personalBar,; - dependent, location, directories,; - Scrollbars, Status, TitleBar, Toolbar ) - -METHOD ImageURL( cImage, cUrl, nHeight, nBorder, ; - cOnClick, cOnMsover, cOnMsout,; - cName, cAlt ) - -//METHOD Debug() INLINE __clsDebug( self ) NOSELF - -ENDCLASS - - - -/**** -* -* Start a new window definition -* -* -* -*/ - -METHOD New( cVarName, cUrl, cName, x, y, w, h ) Class JWindow - -DEFAULT cVarName := "newWin" -DEFAULT cURL := " " -DEFAULT cName := cVarName //"newWin" -DEFAULT x := 100 -DEFAULT y := 100 -DEFAULT h := 300 -DEFAULT w := 300 - -::nH := PageHandle() -::oHtm := oPage() -::varName := cVarName -::URL := cUrl -::Name := cName - -::ScreenX := x -::ScreenY := y -::height := h -::width := w - -// objectViewer( self ) - - -RETURN Self - - - -/**** -* -* Set the properties of the window -* -* -* -*/ - -METHOD SetFeatures( alwaysRaised, alwaysLowered,; - Resizable, Menubar, personalBar,; - dependent, location, directories,; - Scrollbars, Status, TitleBar, Toolbar, copyHistory ) Class JWindow - -LOCAL cStr := "" - -DEFAULT alwaysRaised := ::alwaysRaised -DEFAULT alwaysLowered := ::alwaysLowered -DEFAULT Resizable := ::Resizable -DEFAULT Menubar := ::Menubar -DEFAULT personalBar := ::personalBar -DEFAULT dependent := ::dependent -DEFAULT location := ::location -DEFAULT directories := ::directories -DEFAULT Scrollbars := ::Scrollbars -DEFAULT Status := ::Status -DEFAULT TitleBar := ::TitleBar -DEFAULT Toolbar := ::Toolbar -DEFAULT copyHistory := ::copyHistory - - -IF alwaysRaised ; cStr += "alwaysraised=yes," ; ELSE ; cStr += "alwaysraised=no," ;ENDIF -IF alwaysLowered ; cStr += "alwayslowered=yes," ; ELSE ; cStr += "alwayslowered=no," ;ENDIF -IF Resizable ; cStr += "resizable=yes," ; ELSE ; cStr += "resizable=no," ;ENDIF -IF Menubar ; cStr += "menubar=yes," ; ELSE ; cStr += "menubar=no," ;ENDIF -IF personalBar ; cStr += "personalbar=yes," ; ELSE ; cStr += "personalbar=no," ;ENDIF -IF dependent ; cStr += "dependent=yes," ; ELSE ; cStr += "dependent=no," ;ENDIF -IF location ; cStr += "location=yes," ; ELSE ; cStr += "location=no," ;ENDIF -IF directories ; cStr += "directories=yes," ; ELSE ; cStr += "directories=no," ;ENDIF -IF Scrollbars ; cStr += "scrollbars=yes," ; ELSE ; cStr += "scrollbars=no," ;ENDIF -IF Status ; cStr += "status=yes," ; ELSE ; cStr += "status=no," ;ENDIF -IF TitleBar ; cStr += "titlebar=yes," ; ELSE ; cStr += "titlebar=no," ;ENDIF -IF Toolbar ; cStr += "toolbar=yes," ; ELSE ; cStr += "toolbar=no," ;ENDIF -IF copyHistory ; cStr += "copyHistory=yes," ; ELSE ; cStr += "copyHistory=no," ;ENDIF - -::features += IF( EMPTY( ::Features ), cStr+",", cStr ) - - -RETURN Self - - - - -/**** -* -* set the size for the window -* -* -* -*/ - -METHOD SetSize(x,y,h,w) Class JWindow -LOCAL cStr := "" -DEFAULT x := ::ScreenX ,; - y := ::ScreenY ,; - h := ::height ,; - w := ::width - -::ScreenX := x -::ScreenY := y -::height := h -::width := w - -cStr := "screenX="+ NTRIM(::screenX) +"," - -cStr:= cStr+ "screenY="+ NTRIM(::screenY) +"," -cStr:= cStr+ "height=" + NTRIM(::height) +"," -cStr:= cStr+ "width=" + NTRIM(::width) - -::features += IF( EMPTY( ::Features ), cStr+",", cStr ) - -RETURN Self - - - -/**** -* -* Open the window from within the current document -* -* -* -*/ - -METHOD Put() Class JWindow -LOCAL cStr := "" - -IF ::nH == NIL - ::nH := pageHandle() - IF ::nH == NIL - RETURN Self - ENDIF -ENDIF - -IF Empty( ::features ) - ::setSize() - ::setFeatures() -endif - -IF VALTYPE( ::name ) != "C" - ::name := "newWin" -ENDIF - -cStr += ::varName + " = window.open('"+; - ::URL +"', '"+; - ::varName + "', '"+; - ::features + "')" - -JavaCMD( ::nH, cStr ) - -RETURN Self - - -/**** -* -* Output stand alone Javascript code in the current document -* -*/ - -METHOD Write( c ) Class JWindow - JavaCMD( ::nH, ::varName+".document.write('"+c+"')" + CRLF() ) -RETURN Self - - -/**** -* -* Output Javascript (or HTML) code in the current document and -* in the current script -* -*/ - -METHOD QOut( c ) Class JWindow - FWrite( ::nH, ::varName+".document.write('"+c+"')"+CRLF() ) -RETURN Self - - -/**** -* -* Begin HTML output to the window from within the current document -* and the current script -* -* -*/ - -METHOD Begin() Class JWindow -LOCAL i - -FWrite( ::nH, ""+CRLF() ) - -RETURN Self - - -/**** -* -* End HTML output to the window -* -* -* -*/ - -METHOD End() Class JWindow - -JavaCMD( ::nH, ::varName+".document.write('')" + CRLF() ) - -RETURN Self - - - - -/**** -* -* Place an image link to the window -* -* -* -*/ - -METHOD ImageURL( cImage, cUrl, nHeight, nBorder, ; - cOnClick, cOnMsover, cOnMsout,; - cName, cAlt ) Class JWindow - - -LOCAL cStr := "" - -DEFAULT cUrl := "" - -IF cName != NIL - cStr += ' NAME= "'+cName + '"'+CRLF() -ENDIF -IF cAlt != NIL - cStr += ' ALT= "'+cAlt+ '"'+CRLF() -ENDIF - -IF nBorder != NIL - cStr += " BORDER = "+NTRIM(nBorder) + CRLF() -ENDIF - -IF nHeight != NIL - cStr += " HEIGHT = "+NTRIM(nHeight) + "% " + CRLF() -ENDIF - -IF cOnClick != NIL - cStr += ' onClick="'+cOnClick+'"' + CRLF() -ENDIF -IF cOnMsOver != NIL - cStr += ' onMouseOver="'+cOnMsOver+'"' + CRLF() -ENDIF -IF cOnMsOut != NIL - cStr += ' onMouseOut="'+cOnMsOut+'"'+CRLF() -ENDIF - -IF cURL != NIL - ::QOut( '' ) -ELSE - ::QOut( '' ) -ENDIF -RETURN Self - - - -//*** EOF ***// - diff --git a/harbour/contrib/htmllib/lowfiles.ch b/harbour/contrib/htmllib/lowfiles.ch deleted file mode 100644 index 9667213aae..0000000000 --- a/harbour/contrib/htmllib/lowfiles.ch +++ /dev/null @@ -1,59 +0,0 @@ -/* - * $Id$ - */ - -/* - * Harbour Project source code: - * LOWFILES.CH low files commands - * - * Copyright 2000 Manos Aspradakis - * 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/). - * - */ -/* - * The following parts are Copyright of the individual authors. - * www - http://www.harbour-project.org - * - * Copyright 2000 Luiz Rafael Culik - * Porting this library to Harbour - * - * See doc/license.txt for licensing terms. - * - */ - -// Lowfiles.ch - -#include "fileio.ch" - -#translate FGOTOP() => FSEEK( , 0 ) - -#translate FGOBOTTOM() => FSEEK( , 0, FS_END) - -#translate FPOS() => FSEEK( , 0, FS_RELATIVE ) - -#translate FBOF() => (FPOS() == 0) - -#translate FEOF() => (FPOS() == FSize()) - diff --git a/harbour/contrib/htmllib/make_b32.bat b/harbour/contrib/htmllib/make_b32.bat deleted file mode 100644 index c484512c4c..0000000000 --- a/harbour/contrib/htmllib/make_b32.bat +++ /dev/null @@ -1,6 +0,0 @@ -@echo off -rem -rem $Id$ -rem - -call ..\mtpl_b32.bat %1 %2 %3 %4 %5 %6 %7 %8 %9 diff --git a/harbour/contrib/htmllib/make_vc.bat b/harbour/contrib/htmllib/make_vc.bat deleted file mode 100644 index 4ceb9b9261..0000000000 --- a/harbour/contrib/htmllib/make_vc.bat +++ /dev/null @@ -1,6 +0,0 @@ -@echo off -rem -rem $Id$ -rem - -call ..\mtpl_vc.bat %1 %2 %3 %4 %5 %6 %7 %8 %9 diff --git a/harbour/contrib/htmllib/ocgi.prg b/harbour/contrib/htmllib/ocgi.prg deleted file mode 100644 index 507a67079c..0000000000 --- a/harbour/contrib/htmllib/ocgi.prg +++ /dev/null @@ -1,307 +0,0 @@ - -/* - * $Id$ - */ - -/* - * Harbour Project source code: - * Cgi Class - * - * Copyright 2000 Manos Aspradakis - * 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/). - * - */ -/* - * The following parts are Copyright of the individual authors. - * www - http://www.harbour-project.org - * - * Copyright 2000 Luiz Rafael Culik - * Porting this library to Harbour - * - * See doc/license.txt for licensing terms. - * - */ - - -#include "hbclass.ch" -#include "default.ch" -#include "html.ch" - - - -CLASS oCgi FROM HTML - -DATA nH -DATA Server_Software -DATA Server_Name -DATA Gateway_Interface -DATA Server_Protocol -DATA Server_Port -DATA Request_Method -DATA Http_Accept -DATA Http_User_agent -DATA Http_Referer -DATA Path_Info -DATA Path_Translated -DATA Script_Name -DATA Query_String -DATA Remote_Host -DATA Remote_Addr -DATA ipAddress -DATA Remote_User -DATA Auth_Type -DATA Auth_User -DATA Auth_Pass -DATA Content_Type -DATA Content_Length -DATA Annotation_Server - -DATA aQueryFields INIT {} - -METHOD New( c ) -METHOD CGIField( c ) - -METHOD toObject() - - -ENDCLASS - - - -/**** -* -* oCgi():new() -* -* -* -*/ - -METHOD New( cInBuffer ) Class oCgi -LOCAL i -LOCAL aTemp := {} -LOCAL aVar := {} - - // function in oHtm.prg - ::nH := PageHandle() - - ::Server_Software := GetEnv( "SERVER_SOFTWARE" ) - ::Server_Name := GetEnv( "SERVER_NAME" ) - ::Gateway_Interface := GetEnv( "GATEWAY_INTERFACE" ) - ::Server_Protocol := GetEnv( "SERVER_PROTOCOL" ) - ::Server_Port := GetEnv( "SERVER_PORT" ) - ::Request_Method := GetEnv( "REQUEST_METHOD" ) - ::Http_Accept := GetEnv( "HTTP_ACCEPT" ) - ::Http_User_agent := GetEnv( "HTTP_USER_AGENT" ) - ::Http_Referer := GetEnv( "HTTP_REFERER" ) - ::Path_Info := GetEnv( "PATH_INFO" ) - ::Path_Translated := GetEnv( "PATH_TRANSLATED" ) - ::Script_Name := GetEnv( "SCRIPT_NAME" ) - ::Query_String := GetEnv( "QUERY_STRING" ) - ::Remote_Host := GetEnv( "REMOTE_HOST" ) - ::Remote_Addr := GetEnv( "REMOTE_ADDR" ) - ::ipAddress := GetEnv( "REMOTE_ADDR" ) - ::Remote_User := GetEnv( "REMOTE_USER" ) - ::Auth_Type := GetEnv( "AUTH_TYPE" ) - ::Auth_User := GetEnv( "AUTH_USER" ) - ::Auth_Pass := GetEnv( "AUTH_PASS" ) - ::Content_Type := GetEnv( "CONTENT_TYPE" ) - ::Content_Length := GetEnv( "CONTENT_LENGTH" ) - ::Annotation_Server := GetEnv( "ANNOTATION_SERVER" ) - - IF cInBuffer != NIL - ::Query_String := RTRIM( cInBuffer ) - ELSE - IF "POST" $ UPPER(::Request_Method) - ::Query_String := RTRIM(FReadStr( STD_IN, VAL(::CONTENT_LENGTH) )) - ENDIF - ENDIF - - IF !empty( ::Query_String ) - - ::aQueryFields := {} - - aTemp := listAsArray( ::Query_String, "&" ) // separate fields - - IF LEN( aTemp ) != 0 - FOR i=1 TO LEN( aTemp ) - aVar := LISTASARRAY( aTemp[i], "=" ) - IF LEN( aVar ) == 2 - AADD(::aQueryFields, {aVar[1], decodeURL(aVar[2]) } ) - ENDIF - NEXT - ENDIF - ENDIF - -//#ifdef _CLASS_CH -RETURN ::ToObject() //Self -//#else -//RETURN Self -//#endif - - - -//#ifdef _CLASS_CH - - -/**** -* -* oCgi():ToObject() -* -* Creates instance variables out of CGI FORM return values -* or URL encoded content. -* -* It subclasses the oCGI class to a *new* class -*/ - -METHOD ToObject() CLAss ocgi -local i -LOCAL nScope:=1 -LOCAL aDb, oNew -STATIC sn := 0 - -// --> create new oObject class from this one... -sn++ -//aDB := ClassNew( "NewCgi"+STRZERO(sn,3), {|| oCGI() }, "cgi" ) -aDb:= hbClass():New("NewCgi"+STRZERO(sn,3),__CLS_PARAM("oCgi" ) ) -FOR i = 1 TO LEN( ::aQueryFields ) - IF ::aQueryFields[i,2] == NIL .OR. EMPTY(::aQueryFields[i,2]) - ::aQueryFields[i,2] := "" - ENDIF - //ClassData( ::aQueryFields[i,1], ::aQueryFields[i,2] ) - adb:AddData( ::aQueryFields[i,1],::aQueryFields[i,2],,nScope) -// adb:AddData( ,,,nScope) -// aDb:AddMultiData(,,if(.F.,1,if(.F.,2,if(.F.,4,nScope) ) ) + if(.F.,16,0 ),__MULTIPARAM("nH" ) ) -NEXT -adb:Create() -//aDB := ClassMAKE() -//hNewClass := aDB[_CLASS_HANDLE] -oNew := adb:Instance() -//aDb := ClassEndIns( oNew, aDB ) -//aDB[_CLASS_OBJECT] := oNew -//oNew:Dict := aDB -oNew:aQueryFields := ::aQueryFields -oNew:Server_Software := ::Server_Software -oNew:Server_Name := ::Server_Name -oNew:Gateway_Interface := ::Gateway_Interface -oNew:Server_Protocol := ::Server_Protocol -oNew:Server_Port := ::Server_Port -oNew:Request_Method := ::Request_Method -oNew:Http_Accept := ::Http_Accept -oNew:Http_User_agent := ::Http_User_agent -oNew:Http_Referer := ::Http_Referer -oNew:Path_Info := ::Path_Info -oNew:Path_Translated := ::Path_Translated -oNew:Script_Name := ::Script_Name -oNew:Query_String := ::Query_String -oNew:Remote_Host := ::Remote_Host -oNew:Remote_Addr := ::Remote_Addr -oNew:ipAddress := ::ipAddress -oNew:Remote_User := ::Remote_User -oNew:Auth_Type := ::Auth_Type -oNew:Content_Type := ::Content_Type -oNew:Content_Length := ::Content_Length -oNew:Annotation_Server := ::Annotation_Server -oNew:nH := IF( PageHandle()==NIL, STD_OUT, PageHandle() ) - -RETURN oNew - -//#endif - -// ripped from HARBOUR - -METHOD CGIField( cQueryName ) Class oCgi - - LOCAL cRet := "" - LOCAL nRet - - DEFAULT cQueryName := "" - - nRet := aScan( ::aQueryFields, ; - { |x| upper( x[1] ) = upper( cQueryName ) } ) - - IF nRet > 0 - cRet := ::aQueryFields[nRet, 2] - ENDIF - -RETURN( cRet ) - - -// ripped from HARBOUR - -FUNCTION ParseString( cString, cDelim, nRet ) - - LOCAL cBuf, aElem, nPosFim, nSize, i - - nSize := len( cString ) - len( StrTran( cString, cDelim, '' ) ) + 1 - aElem := array( nSize ) - - cBuf := cString - i := 1 - FOR i := 1 TO nSize - nPosFim := at( cDelim, cBuf ) - - IF nPosFim > 0 - aElem[i] := substr( cBuf, 1, nPosFim - 1 ) - ELSE - aElem[i] := cBuf - ENDIF - - cBuf := substr( cBuf, nPosFim + 1, len( cBuf ) ) - - NEXT i - -RETURN( aElem[ nRet ] ) - - -// ripped from HARBOUR - -FUNCTION Hex2Dec( cHex ) - - LOCAL aHex := { { "0", 00 }, ; - { "1", 01 }, ; - { "2", 02 }, ; - { "3", 03 }, ; - { "4", 04 }, ; - { "5", 05 }, ; - { "6", 06 }, ; - { "7", 07 }, ; - { "8", 08 }, ; - { "9", 09 }, ; - { "A", 10 }, ; - { "B", 11 }, ; - { "C", 12 }, ; - { "D", 13 }, ; - { "E", 14 }, ; - { "F", 15 } } - LOCAL nRet - LOCAL nRes - - nRet := ascan( aHex, { |x| upper( x[1] ) = upper( left( cHex, 1 ) ) } ) - nRes := aHex[nRet, 2] * 16 - nRet := ascan( aHex, { |x| upper( x[1] ) = upper( right( cHex, 1 ) ) } ) - nRes += aHex[nRet, 2] - - RETURN( nRes ) - diff --git a/harbour/contrib/htmllib/oedit.prg b/harbour/contrib/htmllib/oedit.prg deleted file mode 100644 index f3c2736500..0000000000 --- a/harbour/contrib/htmllib/oedit.prg +++ /dev/null @@ -1,676 +0,0 @@ -/* - * $Id$ - */ - -/* - * Harbour Project source code: - * Editing and Forms Class for HTMLLIB - * - * Copyright 2000 Manos Aspradakis - * 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/). - * - */ -/* - * The following parts are Copyright of the individual authors. - * www - http://www.harbour-project.org - * - * Copyright 2000 Luiz Rafael Culik - * Porting this library to Harbour - * - * See doc/license.txt for licensing terms. - * - */ - - -#include "hbclass.ch" -#include "default.ch" -#include "forms.ch" -#include "html.ch" - -#define _OPTION_TEXT 1 -#define _OPTION_VALUE 2 -#define _OPTION_LABEL 3 -#define _OPTION_SELECTED 4 -#define _OPTION_DISABLED 5 - - -STATIC soForm - -/**** -* -* Class HControl() -* -* -*/ - -CLASS HControl // ALIAS hCtr -DATA nH -DATA Document -DATA Form - - -DATA Caption -DATA lBreak INIT .F. - - -DATA Type INIT "TEXT" -DATA Name -DATA Value -DATA Size -DATA rows, cols - -DATA cOutPut INIT "" - -DATA Picture INIT "@X" - -DATA aOptions INIT {} // SELECT options - -DATA TabIndex INIT 0 -DATA disabled INIT .F. -DATA readOnly INIT .F. -DATA Multiple INIT .F. -DATA style -DATA id - -DATA MaxLength // length in chars -DATA MaxChars // length on screen - -DATA Checked INIT .F. // checkboxes... -DATA lLabel init .f. - -DATA Source, Align // images... -DATA Wrap // textarea - -DATA onBlur -DATA onChange -DATA onFocus -DATA onSelect -DATA onClick -DATA onMouseOver -DATA onMouseOut -DATA onMouseDown -DATA onMouseup -DATA onKeyPress -DATA onKeyDown -DATA onKeyUp -DATA onSelect - -METHOD SetName( c ) INLINE ::Name := c -METHOD SetValue( c ) INLINE ::Value := c -METHOD SetStyle( c ) INLINE ::Style := c -METHOD SetId( c ) INLINE ::id := c -METHOD SetRows( c ) INLINE ::Rows := c -METHOD SetCols( c ) INLINE ::Cols := c -METHOD SetCaption(c) INLINE ::Caption := c -METHOD SetPicture(c) INLINE ::picture := c -METHOD SetOnBlur(c) INLINE ::onBlur := c -METHOD SetOnChange(c) INLINE ::onChange := c -METHOD SetOnFocus(c) INLINE ::onFocus := c -METHOD SetOnSelect(c) INLINE ::onSelect := c -METHOD SetOnClick(c) INLINE ::onClick := c -METHOD SetOnMsOver(c) INLINE ::onMouseOver := c -METHOD SetOnMsOut(c) INLINE ::onMouseOut := c -METHOD SetSize( n ) INLINE ::Size := n -METHOD SetMaxChars( n ) INLINE ::MaxChars := n -METHOD SetChecked( l ) INLINE ::Checked := l -METHOD SetAlign( c ) INLINE ::Align := c -METHOD SetWrap( c ) INLINE ::wrap := c -METHOD SetSource( c ) INLINE ::Source := c -METHOD SetReadOnly( l ) INLINE ::readOnly := l -METHOD SetDisabled( l ) INLINE ::disabled := l -METHOD SetMultiple( l ) INLINE ::multiple := l -METHOD SetOnMsDown(c) INLINE ::onMouseDown := c -METHOD SetOnMsUp(c) INLINE ::onMouseup := c -METHOD SetOnKPress(c) INLINE ::onKeyPress := c -METHOD SetOnKDown(c) INLINE ::onKeyDown := c -METHOD SetOnKUp(c) INLINE ::onKeyUp := c -METHOD SetOnSelect(c) INLINE ::onSelect := c -METHOD SetLabel(l) INLINE ::lLabel := l -//METHOD Debug() INLINE __clsDebug( self ) - -METHOD Put(lPut) -METHOD AddOption( cOption, cValue, cLabel, lSelected, lDisabled ) -METHOD SetControl( name,rows,cols,size,maxchars,value,onfocus,; - onblur,onchange,onselect,onclick,onmsover,onmsout,; - onmsdown,onmsup,onkdown,onkup,onkprs, ; - pic,cap,dis,ro,lMulti,checked,; - align,wrap,type, Style, Id ,lLabel) - -ENDCLASS - - - -/**** -* -* HControl():Put() -* -* -*/ - -method Put(lPut) CLASS HControl -LOCAL i, cStr := "" - -HB_SYMBOL_UNUSED( lPut ) - -::nH := pageHandle() -::form := currentForm() - -::cOutput += IF( ::lBreak, CRLF()+"
", CRLF() ) -IF ::lLabel - ::cOutPut+=CRLF()+"