diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 6447f2f085..9bf727521c 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,71 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ +2007-11-11 18:07 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) + * contrib/mtpl.mak + * contrib/mtpl_b32.mak + * contrib/mtpl_vc.mak + + Added support for HB_ROOT. + + Now default HB_*_INSTALL dirs are set inside make files. + (to avoid manipulating these envvars on the batch file level) + + * contrib/libmisc/make_b32.bat + * contrib/libmisc/make_vc.bat + - Removed HB_*_INSTALL manipulation from .bat files. + + * contrib/hgf/win32/make_b32.bat + * contrib/hgf/win32/make_vc.bat + - contrib/hgf/win32/make_b32.mak + - contrib/hgf/win32/make_vc.mak + + contrib/hgf/win32/common.mak + + Now using contrib template make files. + + * make_b32.bat + * make_vc.bat + * common.mak + ! Moved HB_*_INSTALL defaulting to make file level. + + + contrib/ole + + contrib/ole/common.mak + + contrib/ole/oleauto.prg + + contrib/ole/test/sample.odt + + contrib/ole/test/testole.prg + + contrib/ole/test/bld_b32.bat + + contrib/ole/ole2.c + + contrib/ole/make_b32.bat + + contrib/ole/make_vc.bat + + contrib/ole/Makefile + + Restored "old" OLE implementation, as it was reported + by Mindaugas Kavaliaskuas that it works better in some + respects than the newer version in /contrib/win32. + Until we know further about the details there is no + reason to not have this contrib. + + Added CreateObject() and GetActiveObject() to enhance + compatibility with newer implementation. + + Standardized make files. + * test moved to test dir. + + Added VC make file. + + * contrib/win32/test/testole.prg + + contrib/ole/test/testole.prg + + The two test apps from the two OLE implementations + were merged and now they are the same. A quick look + shows differences when detecting the presence of + an OLE object. "old" OLE GPFs with "new" OLE method, + "new" OLE RTEs with "old" OLE method. + + * contrib/pdflib/common.mak + * contrib/pdflib/pdf1.prg + * contrib/pdflib/pdfhbdocs.prg + * contrib/pdflib/pdfhbdoc.c + * contrib/pdflib/Makefile + ! Removed GLOBAL requirement. + ! Moved away C code inside .prg. + ! Fixed some unused var warnings. + ! Removed some unused stuff. + ; Now there are clashing symbols. I suspect this is an + unfinished contrib, even in xhb. + 2007-11-11 16:07 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * contrib/xhb/hbcompat.ch + Added hb_At() translation to extended At() diff --git a/harbour/common.mak b/harbour/common.mak index bc9c7a553e..b4b0aefc8a 100644 --- a/harbour/common.mak +++ b/harbour/common.mak @@ -40,6 +40,24 @@ LIBEXT=.lib #LIBPREF= #!endif +#********************************************************** +# Install directory defaults. +#********************************************************** + +!ifndef HB_INSTALL_PREFIX +HB_INSTALL_PREFIX = . +!endif + +!ifndef HB_BIN_INSTALL +HB_BIN_INSTALL = $(HB_INSTALL_PREFIX)\bin +!endif +!ifndef HB_INC_INSTALL +HB_INC_INSTALL = $(HB_INSTALL_PREFIX)\include +!endif +!ifndef HB_LIB_INSTALL +HB_LIB_INSTALL = $(HB_INSTALL_PREFIX)\lib +!endif + #********************************************************** # diff --git a/harbour/contrib/hgf/win32/common.mak b/harbour/contrib/hgf/win32/common.mak new file mode 100644 index 0000000000..189f244f8d --- /dev/null +++ b/harbour/contrib/hgf/win32/common.mak @@ -0,0 +1,23 @@ +# +# $Id$ +# + +LIBNAME = hgfwin32 + +LIB_PATH = $(LIB_DIR)\$(LIBNAME)$(LIBEXT) + +# +# LIB rules +# + +LIB_OBJS = \ + $(OBJ_DIR)\button$(OBJEXT) \ + $(OBJ_DIR)\edit$(OBJEXT) \ + $(OBJ_DIR)\form$(OBJEXT) \ + $(OBJ_DIR)\menu$(OBJEXT) \ + $(OBJ_DIR)\menuitem$(OBJEXT) \ + $(OBJ_DIR)\winctrl$(OBJEXT) \ + $(OBJ_DIR)\win32$(OBJEXT) + +all: \ + $(LIB_PATH) \ diff --git a/harbour/contrib/hgf/win32/make_b32.bat b/harbour/contrib/hgf/win32/make_b32.bat index 196f67c091..46a2cf1386 100644 --- a/harbour/contrib/hgf/win32/make_b32.bat +++ b/harbour/contrib/hgf/win32/make_b32.bat @@ -3,6 +3,23 @@ rem rem $Id$ rem +rem --------------------------------------------------------------- +rem This is a generic template file, if it doesn't fit your own needs +rem please DON'T MODIFY IT. +rem +rem Instead, make a local copy and modify that one, or make a call to +rem this batch file from your customized one. [vszakats] +rem +rem Set any of the below settings to customize your build process: +rem set HB_MAKE_PROGRAM= +rem set HB_MAKE_FLAGS= +rem --------------------------------------------------------------- + +if "%HB_CC_NAME%" == "" set HB_CC_NAME=b32 +if "%HB_MAKE_PROGRAM%" == "" set HB_MAKE_PROGRAM=make.exe +set HB_ROOT=..\..\.. +set HB_MAKEFILE=..\..\mtpl_%HB_CC_NAME%.mak + rem --------------------------------------------------------------- rem Save the user value, force silent file overwrite with COPY @@ -10,30 +27,30 @@ rem (not all Windows versions support the COPY /Y flag) set HB_ORGENV_COPYCMD=%COPYCMD% set COPYCMD=/Y +rem --------------------------------------------------------------- + if "%1" == "clean" goto CLEAN if "%1" == "CLEAN" goto CLEAN +if "%1" == "install" goto INSTALL +if "%1" == "INSTALL" goto INSTALL + :BUILD - make -fmake_b32.mak %1 %2 %3 > make_b32.log - if errorlevel 1 notepad make_b32.log - -:BUILD_OK - - copy ..\..\..\lib\b32\hgfwin32.lib ..\..\..\lib\*.* > nul + %HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% %1 %2 %3 > make_%HB_CC_NAME%.log + if errorlevel 1 notepad make_%HB_CC_NAME%.log goto EXIT :CLEAN - if exist ..\..\..\lib\b32\hgfwin32.lib del ..\..\..\lib\b32\hgfwin32.lib - if exist ..\..\..\lib\b32\hgfwin32.bak del ..\..\..\lib\b32\hgfwin32.bak - if exist ..\..\..\obj\b32\win32.obj del ..\..\..\obj\b32\win32.obj - if exist ..\..\..\obj\b32\button.obj del ..\..\..\obj\b32\button.obj - if exist ..\..\..\obj\b32\edit.obj del ..\..\..\obj\b32\edit.obj - if exist ..\..\..\obj\b32\form.obj del ..\..\..\obj\b32\form.obj - if exist ..\..\..\obj\b32\menu.obj del ..\..\..\obj\b32\menu.obj - if exist ..\..\..\obj\b32\menuitm.obj del ..\..\..\obj\b32\menuitm.obj - if exist ..\..\..\obj\b32\winctrl.obj del ..\..\..\obj\b32\winctrl.obj + %HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% CLEAN > make_%HB_CC_NAME%.log + if exist make_%HB_CC_NAME%.log del make_%HB_CC_NAME%.log > nul + if exist inst_%HB_CC_NAME%.log del inst_%HB_CC_NAME%.log > nul + goto EXIT + +:INSTALL + + %HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% INSTALL > nul goto EXIT :EXIT diff --git a/harbour/contrib/hgf/win32/make_b32.mak b/harbour/contrib/hgf/win32/make_b32.mak deleted file mode 100644 index 207d313321..0000000000 --- a/harbour/contrib/hgf/win32/make_b32.mak +++ /dev/null @@ -1,42 +0,0 @@ -# -# $Id$ -# - -# makefile for Borland C/C++ 32 bits -# Building of hgfwin32.lib - Harbour GUI framework for Win32 - -INCLUDE_DIR = ..\..\..\include - -BIN_DIR = ..\..\..\bin\b32 -OBJ_DIR = ..\..\..\obj\b32 -LIB_DIR = ..\..\..\lib\b32 - -$(LIB_DIR)\hgfwin32.lib : \ - $(OBJ_DIR)\button.obj \ - $(OBJ_DIR)\edit.obj \ - $(OBJ_DIR)\form.obj \ - $(OBJ_DIR)\menu.obj \ - $(OBJ_DIR)\menuitem.obj \ - $(OBJ_DIR)\winctrl.obj \ - $(OBJ_DIR)\win32.obj - -$(OBJ_DIR)\button.c : button.prg -$(OBJ_DIR)\button.obj : $(OBJ_DIR)\button.c -$(OBJ_DIR)\edit.c : edit.prg -$(OBJ_DIR)\edit.obj : $(OBJ_DIR)\edit.c -$(OBJ_DIR)\form.c : form.prg -$(OBJ_DIR)\form.obj : $(OBJ_DIR)\form.c -$(OBJ_DIR)\menu.c : menu.prg -$(OBJ_DIR)\menu.obj : $(OBJ_DIR)\menu.c -$(OBJ_DIR)\menuitem.c : menuitem.prg -$(OBJ_DIR)\menuitem.obj : $(OBJ_DIR)\menuitem.c -$(OBJ_DIR)\winctrl.c : winctrl.prg -$(OBJ_DIR)\winctrl.obj : $(OBJ_DIR)\winctrl.c -$(OBJ_DIR)\win32.obj : win32.c - -.c.obj: - bcc32 $(CLIBFLAGS) -DHB_API_MACROS -c -O2 -I$(INCLUDE_DIR) -o$@ $< - tlib $(LIB_DIR)\hgfwin32.lib -+$@,, - -.prg.c: - $(BIN_DIR)\harbour.exe $< -q0 -w -es2 -gc0 -n -i$(INCLUDE_DIR) -o$@ \ No newline at end of file diff --git a/harbour/contrib/hgf/win32/make_vc.bat b/harbour/contrib/hgf/win32/make_vc.bat index 7cea63b88c..01e367088b 100644 --- a/harbour/contrib/hgf/win32/make_vc.bat +++ b/harbour/contrib/hgf/win32/make_vc.bat @@ -3,6 +3,23 @@ rem rem $Id$ rem +rem --------------------------------------------------------------- +rem This is a generic template file, if it doesn't fit your own needs +rem please DON'T MODIFY IT. +rem +rem Instead, make a local copy and modify that one, or make a call to +rem this batch file from your customized one. [vszakats] +rem +rem Set any of the below settings to customize your build process: +rem set HB_MAKE_PROGRAM= +rem set HB_MAKE_FLAGS= +rem --------------------------------------------------------------- + +if "%HB_CC_NAME%" == "" set HB_CC_NAME=vc +if "%HB_MAKE_PROGRAM%" == "" set HB_MAKE_PROGRAM=nmake.exe +set HB_ROOT=..\..\.. +set HB_MAKEFILE=..\..\mtpl_%HB_CC_NAME%.mak + rem --------------------------------------------------------------- rem Save the user value, force silent file overwrite with COPY @@ -10,19 +27,33 @@ rem (not all Windows versions support the COPY /Y flag) set HB_ORGENV_COPYCMD=%COPYCMD% set COPYCMD=/Y -SET _LIB=%LIB% -SET _PATH=%PATH% -SET _INCLUDE=%INCLUDE% -SET LIB=C:\COMPILER\VC\LIB;%PATH% -SET PATH=C:\COMPILER\VC\BIN;%PATH% -SET INCLUDE=..\..\..\INCLUDE;C:\COMPILER\VC\INCLUDE;%_INCLUDE% -nmake /f make_vc.mak %1 %2 %3 -SET LIB=%_LIB% -SET PATH=%_PATH% -SET INCLUDE=%_INCLUDE% -SET _LIB= -SET _PATH= -SET _INCLUDE= +rem --------------------------------------------------------------- + +if "%1" == "clean" goto CLEAN +if "%1" == "CLEAN" goto CLEAN + +if "%1" == "install" goto INSTALL +if "%1" == "INSTALL" goto INSTALL + +:BUILD + + %HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% %1 %2 %3 > make_%HB_CC_NAME%.log + if errorlevel 1 notepad make_%HB_CC_NAME%.log + goto EXIT + +:CLEAN + + %HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% CLEAN > make_%HB_CC_NAME%.log + if exist make_%HB_CC_NAME%.log del make_%HB_CC_NAME%.log > nul + if exist inst_%HB_CC_NAME%.log del inst_%HB_CC_NAME%.log > nul + goto EXIT + +:INSTALL + + %HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% INSTALL > nul + goto EXIT + +:EXIT rem --------------------------------------------------------------- diff --git a/harbour/contrib/hgf/win32/make_vc.mak b/harbour/contrib/hgf/win32/make_vc.mak deleted file mode 100644 index 2a90478181..0000000000 --- a/harbour/contrib/hgf/win32/make_vc.mak +++ /dev/null @@ -1,73 +0,0 @@ -# -# $Id$ -# - -# makefile for Microsoft Visual C++ 32 bits -# Building of hgfwin32.lib - Harbour GUI framework for Win32 - -INCLUDE_DIR = ..\..\..\include -HARBOUR_EXE = ..\..\..\bin\vc\HARBOUR.EXE -CC = CL -CFLAGS = -W3 -nologo -I$(INCLUDE_DIR) -DWIN32 -CLIBFLAGS = $(CFLAGS) -c -DHB_API_MACROS -CLIBFLAGSDEBUG = $(CLIBFLAGS) -Zi - -BIN_DIR = ..\..\..\bin\vc -OBJ_DIR = ..\..\..\obj\vc -LIB_DIR = ..\..\..\lib\vc - -HGFWIN_LIB = $(LIB_DIR)\hgfwin32.lib -HGFWIN_LIB_OBJS = \ - $(OBJ_DIR)\button.obj \ - $(OBJ_DIR)\edit.obj \ - $(OBJ_DIR)\form.obj \ - $(OBJ_DIR)\menu.obj \ - $(OBJ_DIR)\menuitem.obj \ - $(OBJ_DIR)\winctrl.obj \ - $(OBJ_DIR)\win32.obj - -$(HGFWIN_LIB) : $(HGFWIN_LIB_OBJS) - lib /OUT:$(HGFWIN_LIB) $(HGFWIN_LIB_OBJS) - -# -# ADS dependencies -# - -$(OBJ_DIR)\button.c : button.prg - $(HARBOUR_EXE) $** $(HARBOURFLAGS) -o$*.c - -$(OBJ_DIR)\button.obj : $(OBJ_DIR)\button.c - $(CC) $(CLIBFLAGS) -Fo$@ $** - -$(OBJ_DIR)\edit.c : edit.prg - $(HARBOUR_EXE) $** $(HARBOURFLAGS) -o$*.c - -$(OBJ_DIR)\edit.obj : $(OBJ_DIR)\edit.c - $(CC) $(CLIBFLAGS) -Fo$@ $** - -$(OBJ_DIR)\form.c : form.prg - $(HARBOUR_EXE) $** $(HARBOURFLAGS) -o$*.c - -$(OBJ_DIR)\form.obj : $(OBJ_DIR)\form.c - $(CC) $(CLIBFLAGS) -Fo$@ $** - -$(OBJ_DIR)\menu.c : menu.prg - $(HARBOUR_EXE) $** $(HARBOURFLAGS) -o$*.c - -$(OBJ_DIR)\menu.obj : $(OBJ_DIR)\menu.c - $(CC) $(CLIBFLAGS) -Fo$@ $** - -$(OBJ_DIR)\menuitem.c : menuitem.prg - $(HARBOUR_EXE) $** $(HARBOURFLAGS) -o$*.c - -$(OBJ_DIR)\menuitem.obj : $(OBJ_DIR)\menuitem.c - $(CC) $(CLIBFLAGS) -Fo$@ $** - -$(OBJ_DIR)\winctrl.c : winctrl.prg - $(HARBOUR_EXE) $** $(HARBOURFLAGS) -o$*.c - -$(OBJ_DIR)\winctrl.obj : $(OBJ_DIR)\winctrl.c - $(CC) $(CLIBFLAGS) -Fo$@ $** - -$(OBJ_DIR)\win32.obj : win32.c - $(CC) $(CLIBFLAGS) -Fo$@ $** diff --git a/harbour/contrib/libmisc/make_b32.bat b/harbour/contrib/libmisc/make_b32.bat index fe7a397dad..48d2d5cca2 100644 --- a/harbour/contrib/libmisc/make_b32.bat +++ b/harbour/contrib/libmisc/make_b32.bat @@ -49,12 +49,6 @@ if "%1" == "INSTALL" goto INSTALL :INSTALL - if "%HB_INSTALL_PREFIX%" == "" set HB_INSTALL_PREFIX=..\.. - - if "%HB_BIN_INSTALL%" == "" set HB_BIN_INSTALL=%HB_INSTALL_PREFIX%\bin - if "%HB_INC_INSTALL%" == "" set HB_INC_INSTALL=%HB_INSTALL_PREFIX%\include - if "%HB_LIB_INSTALL%" == "" set HB_LIB_INSTALL=%HB_INSTALL_PREFIX%\lib - %HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% INSTALL > nul goto EXIT diff --git a/harbour/contrib/libmisc/make_vc.bat b/harbour/contrib/libmisc/make_vc.bat index 2ab08989e6..8d620fd539 100644 --- a/harbour/contrib/libmisc/make_vc.bat +++ b/harbour/contrib/libmisc/make_vc.bat @@ -49,12 +49,6 @@ if "%1" == "INSTALL" goto INSTALL :INSTALL - if "%HB_INSTALL_PREFIX%" == "" set HB_INSTALL_PREFIX=..\.. - - if "%HB_BIN_INSTALL%" == "" set HB_BIN_INSTALL=%HB_INSTALL_PREFIX%\bin - if "%HB_INC_INSTALL%" == "" set HB_INC_INSTALL=%HB_INSTALL_PREFIX%\include - if "%HB_LIB_INSTALL%" == "" set HB_LIB_INSTALL=%HB_INSTALL_PREFIX%\lib - %HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% INSTALL > nul goto EXIT diff --git a/harbour/contrib/mtpl.mak b/harbour/contrib/mtpl.mak index 04fd9049e9..a2418e4dd1 100644 --- a/harbour/contrib/mtpl.mak +++ b/harbour/contrib/mtpl.mak @@ -31,15 +31,33 @@ LIBEXT = .lib .SUFFIXES: $(LIBEXT) $(OBJEXT) .prg .c .cpp .asm +#********************************************************** +# Install directory defaults. +#********************************************************** + +!ifndef HB_INSTALL_PREFIX +HB_INSTALL_PREFIX = $(HB_ROOT) +!endif + +!ifndef HB_BIN_INSTALL +HB_BIN_INSTALL = $(HB_INSTALL_PREFIX)\bin +!endif +!ifndef HB_INC_INSTALL +HB_INC_INSTALL = $(HB_INSTALL_PREFIX)\include +!endif +!ifndef HB_LIB_INSTALL +HB_LIB_INSTALL = $(HB_INSTALL_PREFIX)\lib +!endif + #********************************************************** # Directory macros. These should never have to change. #********************************************************** -OBJ_DIR = ..\..\obj\$(HB_CC_NAME) -LIB_DIR = ..\..\lib\$(HB_CC_NAME) -BIN_DIR = ..\..\bin\$(HB_CC_NAME) +OBJ_DIR = $(HB_ROOT)\obj\$(HB_CC_NAME) +LIB_DIR = $(HB_ROOT)\lib\$(HB_CC_NAME) +BIN_DIR = $(HB_ROOT)\bin\$(HB_CC_NAME) -INCLUDE_DIR = ..\..\include +INCLUDE_DIR = $(HB_ROOT)\include #********************************************************** # Macros to access Harbour executable and other goodies diff --git a/harbour/contrib/mtpl_b32.mak b/harbour/contrib/mtpl_b32.mak index 77aa6f5fe9..2681de4d4a 100644 --- a/harbour/contrib/mtpl_b32.mak +++ b/harbour/contrib/mtpl_b32.mak @@ -24,7 +24,11 @@ #********************************************************** -!include ..\mtpl.mak +!ifndef HB_ROOT +HB_ROOT = ..\.. +!endif + +!include $(HB_ROOT)\contrib\mtpl.mak #********************************************************** # C compiler definition and C flags. These should never have to change. diff --git a/harbour/contrib/mtpl_vc.mak b/harbour/contrib/mtpl_vc.mak index f79330c383..234cd1c863 100644 --- a/harbour/contrib/mtpl_vc.mak +++ b/harbour/contrib/mtpl_vc.mak @@ -25,7 +25,11 @@ HB_VISUALC_VER = 60 #********************************************************** -!include ..\mtpl.mak +!ifndef HB_ROOT +HB_ROOT = ..\.. +!endif + +!include $(HB_ROOT)\contrib\mtpl.mak #********************************************************** # C compiler definition and C flags. These should never have to change. diff --git a/harbour/contrib/ole/Makefile b/harbour/contrib/ole/Makefile new file mode 100644 index 0000000000..f1baf72a28 --- /dev/null +++ b/harbour/contrib/ole/Makefile @@ -0,0 +1,15 @@ +# +# $Id$ +# + +ROOT = ../../ + +C_SOURCES=\ + ole2.c \ + +PRG_SOURCES=\ + oleauto.prg \ + +LIBNAME=hbole + +include $(TOP)$(ROOT)config/lib.cf diff --git a/harbour/contrib/ole/common.mak b/harbour/contrib/ole/common.mak new file mode 100644 index 0000000000..cb029a6e04 --- /dev/null +++ b/harbour/contrib/ole/common.mak @@ -0,0 +1,18 @@ +# +# $Id$ +# + +LIBNAME = hbole + +LIB_PATH = $(LIB_DIR)\$(LIBNAME)$(LIBEXT) + +# +# LIB rules +# + +LIB_OBJS = \ + $(OBJ_DIR)\ole2$(OBJEXT) \ + $(OBJ_DIR)\oleauto$(OBJEXT) + +all: \ + $(LIB_PATH) \ diff --git a/harbour/contrib/ole/make_b32.bat b/harbour/contrib/ole/make_b32.bat new file mode 100644 index 0000000000..48d2d5cca2 --- /dev/null +++ b/harbour/contrib/ole/make_b32.bat @@ -0,0 +1,60 @@ +@echo off +rem +rem $Id$ +rem + +rem --------------------------------------------------------------- +rem This is a generic template file, if it doesn't fit your own needs +rem please DON'T MODIFY IT. +rem +rem Instead, make a local copy and modify that one, or make a call to +rem this batch file from your customized one. [vszakats] +rem +rem Set any of the below settings to customize your build process: +rem set HB_MAKE_PROGRAM= +rem set HB_MAKE_FLAGS= +rem --------------------------------------------------------------- + +if "%HB_CC_NAME%" == "" set HB_CC_NAME=b32 +if "%HB_MAKE_PROGRAM%" == "" set HB_MAKE_PROGRAM=make.exe +set HB_MAKEFILE=..\mtpl_%HB_CC_NAME%.mak + +rem --------------------------------------------------------------- + +rem Save the user value, force silent file overwrite with COPY +rem (not all Windows versions support the COPY /Y flag) +set HB_ORGENV_COPYCMD=%COPYCMD% +set COPYCMD=/Y + +rem --------------------------------------------------------------- + +if "%1" == "clean" goto CLEAN +if "%1" == "CLEAN" goto CLEAN + +if "%1" == "install" goto INSTALL +if "%1" == "INSTALL" goto INSTALL + +:BUILD + + %HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% %1 %2 %3 > make_%HB_CC_NAME%.log + if errorlevel 1 notepad make_%HB_CC_NAME%.log + goto EXIT + +:CLEAN + + %HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% CLEAN > make_%HB_CC_NAME%.log + if exist make_%HB_CC_NAME%.log del make_%HB_CC_NAME%.log > nul + if exist inst_%HB_CC_NAME%.log del inst_%HB_CC_NAME%.log > nul + goto EXIT + +:INSTALL + + %HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% INSTALL > nul + goto EXIT + +:EXIT + +rem --------------------------------------------------------------- + +rem Restore user value +set COPYCMD=%HB_ORGENV_COPYCMD% diff --git a/harbour/contrib/ole/make_vc.bat b/harbour/contrib/ole/make_vc.bat new file mode 100644 index 0000000000..8d620fd539 --- /dev/null +++ b/harbour/contrib/ole/make_vc.bat @@ -0,0 +1,60 @@ +@echo off +rem +rem $Id$ +rem + +rem --------------------------------------------------------------- +rem This is a generic template file, if it doesn't fit your own needs +rem please DON'T MODIFY IT. +rem +rem Instead, make a local copy and modify that one, or make a call to +rem this batch file from your customized one. [vszakats] +rem +rem Set any of the below settings to customize your build process: +rem set HB_MAKE_PROGRAM= +rem set HB_MAKE_FLAGS= +rem --------------------------------------------------------------- + +if "%HB_CC_NAME%" == "" set HB_CC_NAME=vc +if "%HB_MAKE_PROGRAM%" == "" set HB_MAKE_PROGRAM=nmake.exe +set HB_MAKEFILE=..\mtpl_%HB_CC_NAME%.mak + +rem --------------------------------------------------------------- + +rem Save the user value, force silent file overwrite with COPY +rem (not all Windows versions support the COPY /Y flag) +set HB_ORGENV_COPYCMD=%COPYCMD% +set COPYCMD=/Y + +rem --------------------------------------------------------------- + +if "%1" == "clean" goto CLEAN +if "%1" == "CLEAN" goto CLEAN + +if "%1" == "install" goto INSTALL +if "%1" == "INSTALL" goto INSTALL + +:BUILD + + %HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% %1 %2 %3 > make_%HB_CC_NAME%.log + if errorlevel 1 notepad make_%HB_CC_NAME%.log + goto EXIT + +:CLEAN + + %HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% CLEAN > make_%HB_CC_NAME%.log + if exist make_%HB_CC_NAME%.log del make_%HB_CC_NAME%.log > nul + if exist inst_%HB_CC_NAME%.log del inst_%HB_CC_NAME%.log > nul + goto EXIT + +:INSTALL + + %HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% INSTALL > nul + goto EXIT + +:EXIT + +rem --------------------------------------------------------------- + +rem Restore user value +set COPYCMD=%HB_ORGENV_COPYCMD% diff --git a/harbour/contrib/ole/ole2.c b/harbour/contrib/ole/ole2.c new file mode 100644 index 0000000000..c835a31a7a --- /dev/null +++ b/harbour/contrib/ole/ole2.c @@ -0,0 +1,714 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * OLE library + * + * Copyright 2000,2003 José F. Giménez (JFG) + * 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, or (at your option) + * any later version. + * + * 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 software; see the file COPYING. If not, write to + * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, + * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/). + * + * As a special exception, the Harbour Project gives permission for + * additional uses of the text contained in its release of Harbour. + * + * The exception is that, if you link the Harbour libraries 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 Harbour library code into it. + * + * This exception does not however invalidate any other reasons why + * the executable file might be covered by the GNU General Public License. + * + * This exception applies only to the code released by the Harbour + * Project under the name Harbour. If you copy code from other + * Harbour Project or Free Software Foundation releases into a copy of + * Harbour, as the General Public License permits, the exception does + * not apply to the code that you add in this way. To avoid misleading + * anyone as to the status of such modified files, you must delete + * this exception notice from them. + * + * If you write modifications of your own for Harbour, it is your choice + * whether to permit this exception to apply to your modifications. + * If you do not wish that, delete this exception notice. + * + */ + +/************************************************************************* +* * +* CreateOleObject( cOleName | cCLSID [, cIID ] ) -> hOleObject * +* * +* OleInvoke( hOleObject, cMethodName, uParam1, ..., uParamN ) * +* -> uResult * +* * +* OleSetProperty( hOleObject, cPropertyName, uParam1, ..., uParamN ) * +* -> lOk * +* * +* OleGetProperty( hOleObject, cPropertyName, uParam1, ..., uParamN ) * +* -> uResult * +* * +* OleIsObject() -> lIsObject * +* * +* OleError() -> nError * +* * +* Ole2TxtError() -> cError * +* * +* OleUninitialize() -> Nil * +* * +\************************************************************************/ + +#define HB_OS_WIN_32_USED + +#include +#include + +#include "hbvm.h" +#include "hbapiitm.h" +#include "hbapicls.h" +#include "hbdate.h" + +static far VARIANTARG RetVal; +static EXCEPINFO excep; +static HRESULT nOleError = 0; +static int lInitialized = 0; + +static double DateToDbl( LPSTR cDate ) +{ + double nDate; + + nDate = hb_dateEncStr( cDate ) - 0x0024d9abL; + + return ( nDate ); +} + +static LPSTR DblToDate( double nDate ) +{ + static char *cDate = "00000000"; + + hb_dateDecStr( cDate, nDate + 0x0024d9abL ); + + return ( cDate ); +} + +static LPSTR AnsiToWide( LPSTR cAnsi ) +{ + unsigned short wLen; + LPSTR cString; + + wLen = MultiByteToWideChar( CP_ACP, MB_PRECOMPOSED, cAnsi, -1, 0, 0 ); + cString = ( char * ) hb_xgrab( wLen * 2 ); + MultiByteToWideChar( CP_ACP, MB_PRECOMPOSED, cAnsi, -1, + ( LPWSTR ) cString, wLen ); + return ( cString ); +} + +static LPSTR WideToAnsi( LPSTR cWide ) +{ + unsigned short wLen; + LPSTR cString; + + wLen = WideCharToMultiByte( CP_ACP, 0, ( LPWSTR ) cWide, -1, + NULL, 0, NULL, NULL ); + cString = hb_xgrab( (!wLen) ? 2 : wLen ); + WideCharToMultiByte( CP_ACP, 0, ( LPWSTR ) cWide, -1, + cString, wLen, NULL, NULL ); + return ( cString ); +} + +static void GetParams(DISPPARAMS * dParams) +{ + VARIANTARG * pArgs = NULL; + PHB_ITEM uParam; + int n, nArgs, nArg; + LPSTR cString; + + nArgs = hb_pcount() - 2; + + if( nArgs > 0 ) + { + pArgs = ( VARIANTARG * ) hb_xgrab( sizeof( VARIANTARG ) * nArgs ); + + for( n = 0; n < nArgs; n++ ) + { + // Los parametros en VARIANTARG[] hay que ponerlos en orden inverso + nArg = nArgs + 2 - n; + + VariantInit( &( pArgs[ n ] ) ); + + uParam = hb_param( nArg, 0xFFFF ); + + switch( hb_itemType( uParam ) ) + { + case '\0': +#if !defined(__BORLANDC__) && !defined(__XCC__) + pArgs[ n ].vt = VT_EMPTY; +#else + pArgs[ n ].n1.n2.vt = VT_EMPTY; +#endif + break; + + case HB_IT_STRING: + case HB_IT_MEMO: +#if !defined(__BORLANDC__) && !defined(__XCC__) + pArgs[ n ].vt = VT_BSTR; +#else + pArgs[ n ].n1.n2.vt = VT_BSTR; +#endif + cString = AnsiToWide( hb_parc( nArg ) ); +#if !defined(__BORLANDC__) && !defined(__XCC__) + pArgs[ n ].bstrVal = SysAllocString( (LPVOID) cString ); +#else + pArgs[ n ].n1.n2.n3.bstrVal = SysAllocString( (LPVOID) cString ); +#endif + hb_xfree( cString ); + break; + + case HB_IT_LOGICAL: +#if !defined(__BORLANDC__) && !defined(__XCC__) + pArgs[ n ].vt = VT_BOOL; + pArgs[ n ].boolVal = hb_parl( nArg ); +#else + pArgs[ n ].n1.n2.vt = VT_BOOL; + pArgs[ n ].n1.n2.n3.boolVal = hb_parl( nArg ); +#endif + break; + + case HB_IT_INTEGER: + case HB_IT_LONG: + case HB_IT_NUMERIC: +#if !defined(__BORLANDC__) && !defined(__XCC__) + pArgs[ n ].vt = VT_I4; + pArgs[ n ].lVal = hb_parnl( nArg ); +#else + pArgs[ n ].n1.n2.vt = VT_I4; + pArgs[ n ].n1.n2.n3.lVal = hb_parnl( nArg ); +#endif + break; + + case HB_IT_DOUBLE: +#if !defined(__BORLANDC__) && !defined(__XCC__) + pArgs[ n ].vt = VT_R8; + pArgs[ n ].dblVal = hb_parnd( nArg ); +#else + pArgs[ n ].n1.n2.vt = VT_R8; + pArgs[ n ].n1.n2.n3.dblVal = hb_parnd( nArg ); +#endif + break; + case HB_IT_DATE: +#if !defined(__BORLANDC__) && !defined(__XCC__) + pArgs[ n ].vt = VT_DATE; + pArgs[ n ].dblVal = DateToDbl( hb_pards( nArg ) ); +#else + pArgs[ n ].n1.n2.vt = VT_DATE; + pArgs[ n ].n1.n2.n3.dblVal = DateToDbl( hb_pards( nArg ) ); +#endif + break; + + case HB_IT_OBJECT: + { + PHB_DYNS pData; +#if !defined(__BORLANDC__) && !defined(__XCC__) + pArgs[ n ].vt = VT_EMPTY; +#else + pArgs[ n ].n1.n2.vt = VT_EMPTY; +#endif + if ( hb_stricmp( hb_objGetClsName( uParam ), "TOleAuto" ) == 0 ) + { + pData = hb_dynsymFindName( "hObj" ); + if( pData ) + { + hb_vmPushSymbol( hb_dynsymSymbol( pData ) ); + hb_vmPush( uParam ); + hb_vmDo( 0 ); +#if !defined(__BORLANDC__) && !defined(__XCC__) + pArgs[ n ].vt = VT_DISPATCH; + pArgs[ n ].pdispVal = ( IDispatch * ) hb_parnl( -1 ); +#else + pArgs[ n ].n1.n2.vt = VT_DISPATCH; + pArgs[ n ].n1.n2.n3.pdispVal = ( IDispatch * ) hb_parnl( -1 ); +#endif + } + } + } + break; + } + } + } + + dParams->rgvarg = pArgs; + dParams->cArgs = nArgs; + dParams->rgdispidNamedArgs = 0; + dParams->cNamedArgs = 0; + +} + +static void FreeParams(DISPPARAMS * dParams) +{ + int n; + + if( dParams->cArgs > 0 ) + { + for( n = 0; n < ( int ) dParams->cArgs; n++ ) + VariantClear( &(dParams->rgvarg[ n ]) ); + + hb_xfree( ( LPVOID ) dParams->rgvarg ); + } +} + +static void RetValue( void ) +{ + LPSTR cString; + +#if !defined(__BORLANDC__) && !defined(__XCC__) + switch( RetVal.vt ) + { + case VT_BSTR: + cString = WideToAnsi( ( LPSTR ) RetVal.bstrVal ); + hb_retc( cString ); + hb_xfree( cString ); + break; + + case VT_BOOL: + hb_retl( RetVal.boolVal ); + break; + + case VT_DISPATCH: + hb_retnl( ( LONG ) RetVal.pdispVal ); + break; + + case VT_I4: + hb_retnl( ( LONG ) RetVal.iVal ); + break; + + case VT_R8: + hb_retnd( RetVal.dblVal ); + break; + + case VT_DATE: + hb_retds( DblToDate( RetVal.dblVal ) ); + break; + + case VT_EMPTY: + hb_ret(); + break; + + default: + if ( nOleError == S_OK ) + nOleError = (HRESULT) -1; + hb_ret(); + break; + } + + if( RetVal.vt != VT_DISPATCH ) + VariantClear( &RetVal ); +#else + switch( RetVal.n1.n2.vt ) + { + case VT_BSTR: + cString = WideToAnsi( ( LPSTR ) RetVal.n1.n2.n3.bstrVal ); + hb_retc( cString ); + hb_xfree( cString ); + break; + + case VT_BOOL: + hb_retl( RetVal.n1.n2.n3.boolVal ); + break; + + case VT_DISPATCH: + hb_retnl( ( LONG ) RetVal.n1.n2.n3.pdispVal ); + break; + + case VT_I4: + hb_retnl( ( LONG ) RetVal.n1.n2.n3.iVal ); + break; + + case VT_R8: + hb_retnd( RetVal.n1.n2.n3.dblVal ); + break; + + case VT_DATE: + hb_retds( DblToDate( RetVal.n1.n2.n3.dblVal ) ); + break; + + case VT_EMPTY: + hb_ret(); + break; + + default: + if ( nOleError == S_OK ) + nOleError = (HRESULT) -1; + hb_ret(); + break; + } + + if( RetVal.n1.n2.vt != VT_DISPATCH ) + VariantClear( &RetVal ); +#endif + +} + + +HB_FUNC( CREATEOLEOBJECT ) // ( cOleName | cCLSID [, cIID ] ) +{ + LPSTR cCLSID; + GUID ClassID, iid; + LPIID riid = (LPIID) &IID_IDispatch; + void *pDisp = NULL; /* IDispatch */ + /* void * + * used intentionally to inform compiler that there is no + * strict-aliasing + */ + + nOleError = S_OK; + + if ( !lInitialized ) + nOleError = OleInitialize( NULL ); + lInitialized = 1; + + if ( (nOleError == S_OK) || (nOleError == (HRESULT) S_FALSE) ) + { + + cCLSID = AnsiToWide( hb_parc( 1 ) ); + if ( hb_parc( 1 )[ 0 ] == '{' ) + nOleError = CLSIDFromString( ( LPOLESTR ) cCLSID, (LPCLSID) &ClassID ); + else + nOleError = CLSIDFromProgID( ( LPCOLESTR ) cCLSID, (LPCLSID) &ClassID ); + hb_xfree( cCLSID ); + + if ( hb_pcount() == 2 ) + { + if ( hb_parc( 2 )[ 0 ] == '{' ) + { + cCLSID = AnsiToWide( hb_parc( 2 ) ); + nOleError = CLSIDFromString( ( LPOLESTR ) cCLSID, &iid ); + hb_xfree( cCLSID ); + } + else + memcpy( ( LPVOID ) &iid, hb_parc( 2 ), sizeof( iid ) ); + + riid = &iid; + } + + if ( nOleError == S_OK ) + nOleError = CoCreateInstance( &ClassID, NULL, CLSCTX_SERVER, + (REFIID) riid, &pDisp ); + } + + hb_retnl( ( LONG ) pDisp ); + +} + +HB_FUNC( OLESHOWEXCEPTION ) +{ + if ( (LONG) nOleError == DISP_E_EXCEPTION ) + { + LPSTR source, description; + + source = WideToAnsi( (LPVOID) excep.bstrSource ); + description = WideToAnsi( (LPVOID) excep.bstrDescription ); + MessageBox( NULL, description, source, MB_ICONHAND ); + hb_xfree( source ); + hb_xfree( description ); + } +} + +HB_FUNC( OLEINVOKE ) // (hOleObject, szMethodName, uParams...) +{ + IDispatch * pDisp = ( IDispatch * ) hb_parnl( 1 ); + LPSTR cMember; + DISPID lDispID; + DISPPARAMS dParams; + UINT uArgErr; + + VariantInit( &RetVal ); + memset( (LPBYTE) &excep, 0, sizeof( excep ) ); + + cMember = AnsiToWide( hb_parc( 2 ) ); + nOleError = pDisp->lpVtbl->GetIDsOfNames( pDisp, &IID_NULL, + ( LPVOID ) &cMember, 1, + LOCALE_USER_DEFAULT, &lDispID ); + hb_xfree( cMember ); + + if ( nOleError == S_OK ) + { + GetParams( &dParams ); + nOleError = pDisp->lpVtbl->Invoke( pDisp, + lDispID, + &IID_NULL, + LOCALE_USER_DEFAULT, + DISPATCH_METHOD, + &dParams, + &RetVal, + &excep, + &uArgErr ) ; + FreeParams( &dParams ); + } + + RetValue(); +} + +HB_FUNC( OLESETPROPERTY ) // (hOleObject, cPropName, uValue, uParams...) +{ + IDispatch * pDisp = ( IDispatch * ) hb_parnl( 1 ); + LPSTR cMember; + DISPID lDispID, lPropPut = DISPID_PROPERTYPUT; + DISPPARAMS dParams; + UINT uArgErr; + + VariantInit( &RetVal ); + memset( (LPBYTE) &excep, 0, sizeof( excep ) ); + + cMember = AnsiToWide( hb_parc( 2 ) ); + nOleError = pDisp->lpVtbl->GetIDsOfNames( pDisp, &IID_NULL, + ( LPVOID ) &cMember, 1, + LOCALE_USER_DEFAULT, &lDispID ); + hb_xfree( cMember ); + + if ( nOleError == S_OK ) + { + GetParams( &dParams ); + dParams.rgdispidNamedArgs = &lPropPut; + dParams.cNamedArgs = 1; + + nOleError = pDisp->lpVtbl->Invoke( pDisp, + lDispID, + &IID_NULL, + LOCALE_USER_DEFAULT, + DISPATCH_PROPERTYPUT, + &dParams, + NULL, // No return value + &excep, + &uArgErr ); + + FreeParams( &dParams ); + } + + hb_ret(); +} + +HB_FUNC( OLEGETPROPERTY ) // (hOleObject, cPropName, uParams...) +{ + IDispatch * pDisp = ( IDispatch * ) hb_parnl( 1 ); + LPSTR cMember; + DISPID lDispID; + DISPPARAMS dParams; + UINT uArgErr; + + VariantInit( &RetVal ); + memset( (LPBYTE) &excep, 0, sizeof( excep ) ); + + cMember = AnsiToWide( hb_parc( 2 ) ); + nOleError = pDisp->lpVtbl->GetIDsOfNames( pDisp, &IID_NULL, + ( LPVOID ) &cMember, 1, + LOCALE_USER_DEFAULT, &lDispID ); + hb_xfree( cMember ); + + if ( nOleError == S_OK ) + { + GetParams( &dParams ); + nOleError = pDisp->lpVtbl->Invoke( pDisp, + lDispID, + &IID_NULL, + LOCALE_USER_DEFAULT, + DISPATCH_PROPERTYGET, + &dParams, + &RetVal, + &excep, + &uArgErr ); + + FreeParams( &dParams ); + } + + RetValue(); + +} + +HB_FUNC( OLEERROR ) +{ + hb_retnl( (LONG) nOleError ); +} + +HB_FUNC( OLEISOBJECT ) +{ +#if !defined(__BORLANDC__) && !defined(__XCC__) + hb_retl( RetVal.vt == VT_DISPATCH ); +#else + hb_retl( RetVal.n1.n2.vt == VT_DISPATCH ); +#endif +} + +HB_FUNC( OLEUNINITIALIZE ) +{ + if( lInitialized ) + OleUninitialize(); + lInitialized = 0; +} + +HB_FUNC( OLE2TXTERROR ) +{ + switch ( (LONG) nOleError) + { + case S_OK: + hb_retc( "S_OK" ); + break; + + case CO_E_CLASSSTRING: + hb_retc( "CO_E_CLASSSTRING" ); + break; + + case OLE_E_WRONGCOMPOBJ: + hb_retc( "OLE_E_WRONGCOMPOBJ" ); + break; + + case REGDB_E_CLASSNOTREG: + hb_retc( "REGDB_E_CLASSNOTREG" ); + break; + + case REGDB_E_WRITEREGDB: + hb_retc( "REGDB_E_WRITEREGDB" ); + break; + + case E_OUTOFMEMORY: + hb_retc( "E_OUTOFMEMORY" ); + break; + + case E_INVALIDARG: + hb_retc( "E_INVALIDARG" ); + break; + + case E_UNEXPECTED: + hb_retc( "E_UNEXPECTED" ); + break; + + case DISP_E_UNKNOWNNAME: + hb_retc( "DISP_E_UNKNOWNNAME" ); + break; + + case DISP_E_UNKNOWNLCID: + hb_retc( "DISP_E_UNKNOWNLCID" ); + break; + + case DISP_E_BADPARAMCOUNT: + hb_retc( "DISP_E_BADPARAMCOUNT" ); + break; + + case DISP_E_BADVARTYPE: + hb_retc( "DISP_E_BADVARTYPE" ); + break; + + case DISP_E_EXCEPTION: + hb_retc( "DISP_E_EXCEPTION" ); + break; + + case DISP_E_MEMBERNOTFOUND: + hb_retc( "DISP_E_MEMBERNOTFOUND" ); + break; + + case DISP_E_NONAMEDARGS: + hb_retc( "DISP_E_NONAMEDARGS" ); + break; + + case DISP_E_OVERFLOW: + hb_retc( "DISP_E_OVERFLOW" ); + break; + + case DISP_E_PARAMNOTFOUND: + hb_retc( "DISP_E_PARAMNOTFOUND" ); + break; + + case DISP_E_TYPEMISMATCH: + hb_retc( "DISP_E_TYPEMISMATCH" ); + break; + + case DISP_E_UNKNOWNINTERFACE: + hb_retc( "DISP_E_UNKNOWNINTERFACE" ); + break; + + case DISP_E_PARAMNOTOPTIONAL: + hb_retc( "DISP_E_PARAMNOTOPTIONAL" ); + break; + + default: + hb_retc( "Unknown error" ); + break; + }; +} + +HB_FUNC( GETOLEOBJECT ) +{ + BSTR wCLSID; + IID ClassID, iid; + LPIID riid = (LPIID) &IID_IDispatch; + IUnknown *pUnk = NULL; + char *cOleName = hb_parc( 1 ); + void *pDisp = NULL; /* IDispatch */ + /* void * + * used intentionally to inform compiler that there is no + * strict-aliasing + */ + + nOleError = S_OK; + + wCLSID = (BSTR) AnsiToWide( (LPSTR)cOleName ); + + if ( cOleName[ 0 ] == '{' ) + { + nOleError = CLSIDFromString( wCLSID, (LPCLSID) &ClassID ); + } + else + { + nOleError = CLSIDFromProgID( wCLSID, (LPCLSID) &ClassID ); + } + + hb_xfree( wCLSID ); + + if ( hb_pcount() == 2 ) + { + char * cID = hb_parc( 2 ); + if ( cID[ 0 ] == '{' ) + { + wCLSID = (BSTR)AnsiToWide( (LPSTR)cID ); + nOleError = CLSIDFromString( wCLSID, &iid ); + hb_xfree( wCLSID ); + } + else + { + memcpy( ( LPVOID ) &iid, cID, sizeof( iid ) ); + } + + riid = &iid; + } + + if ( nOleError == S_OK ) + { + nOleError = GetActiveObject( &ClassID, NULL, &pUnk ); + + if ( nOleError == S_OK ) + { + nOleError = pUnk->lpVtbl->QueryInterface( pUnk, riid, &pDisp ); + } + } + + hb_retnl( ( LONG ) pDisp ); +} + +HB_FUNC( MESSAGEBOX ) +{ + hb_retni( MessageBox( ( HWND ) hb_parnl( 1 ), hb_parc( 2 ), hb_parc( 3 ), hb_parni( 4 ) ) ); +} diff --git a/harbour/contrib/ole/oleauto.prg b/harbour/contrib/ole/oleauto.prg new file mode 100644 index 0000000000..eaf5f8f40a --- /dev/null +++ b/harbour/contrib/ole/oleauto.prg @@ -0,0 +1,225 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * OLE library + * + * Copyright 2000,2003 José F. Giménez (JFG) + * 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, or (at your option) + * any later version. + * + * 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 software; see the file COPYING. If not, write to + * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, + * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/). + * + * As a special exception, the Harbour Project gives permission for + * additional uses of the text contained in its release of Harbour. + * + * The exception is that, if you link the Harbour libraries 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 Harbour library code into it. + * + * This exception does not however invalidate any other reasons why + * the executable file might be covered by the GNU General Public License. + * + * This exception applies only to the code released by the Harbour + * Project under the name Harbour. If you copy code from other + * Harbour Project or Free Software Foundation releases into a copy of + * Harbour, as the General Public License permits, the exception does + * not apply to the code that you add in this way. To avoid misleading + * anyone as to the status of such modified files, you must delete + * this exception notice from them. + * + * If you write modifications of your own for Harbour, it is your choice + * whether to permit this exception to apply to your modifications. + * If you do not wish that, delete this exception notice. + * + */ + + +#include "hbclass.ch" + + +CLASS TOleAuto + + DATA hObj + + METHOD New( cAutoObj ) CONSTRUCTOR + METHOD GetActiveObject( cClass ) + METHOD End() + + METHOD Invoke( cMember, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 ) + METHOD Set( cProperty, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 ) + METHOD Get( cProperty, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 ) + + ERROR HANDLER OnError( cMsg, nError ) + +ENDCLASS + +//-------------------------------------------------------------------- + +METHOD New( uObj ) CLASS TOleAuto + + IF ValType( uObj )="C" + ::hObj := CreateOleObject( uObj ) + ELSE + ::hObj := uObj + ENDIF + +RETURN Self + +METHOD GetActiveObject( cClass ) CLASS TOleAuto + + IF ValType( cClass ) = 'C' + ::hObj := GetOleObject( cClass ) + // ::cClassName := cClass + ELSE + MessageBox( 0,"Invalid parameter type to constructor TOleAuto():GetActiveObject()!", "OLE Interface",0 ) + ::hObj := 0 + ENDIF + +RETURN Self + +//-------------------------------------------------------------------- + +METHOD End() CLASS TOleAuto + + ::hObj := NIL + +RETURN NIL + +//-------------------------------------------------------------------- + +METHOD Invoke( cMethod, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 ) CLASS TOleAuto + + LOCAL uObj + + IF uParam6 != NIL + uObj := OLEInvoke( ::hObj, cMethod, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 ) + ELSEIF uParam5 != NIL + uObj := OLEInvoke( ::hObj, cMethod, uParam1, uParam2, uParam3, uParam4, uParam5 ) + ELSEIF uParam4 != NIL + uObj := OLEInvoke( ::hObj, cMethod, uParam1, uParam2, uParam3, uParam4 ) + ELSEIF uParam3 != NIL + uObj := OLEInvoke( ::hObj, cMethod, uParam1, uParam2, uParam3 ) + ELSEIF uParam2 != NIL + uObj := OLEInvoke( ::hObj, cMethod, uParam1, uParam2 ) + ELSEIF uParam1 != NIL + uObj := OLEInvoke( ::hObj, cMethod, uParam1 ) + ELSE + uObj := OLEInvoke( ::hObj, cMethod ) + ENDIF + + IF OleIsObject() + RETURN TOleAuto():New( uObj ) + ELSEIF Ole2TxtError() == "DISP_E_EXCEPTION" + OLEShowException() + RETURN Self + ELSEIF OleError() != 0 + MessageBox( 0,cMethod + ": " + Ole2TxtError(), "OLE Error",0 ) + ENDIF + +RETURN uObj + +//-------------------------------------------------------------------- + +METHOD Set( cProperty, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 ) CLASS TOleAuto + + IF uParam6 != NIL + OLESetProperty( ::hObj, cProperty, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 ) + ELSEIF uParam5 != NIL + OLESetProperty( ::hObj, cProperty, uParam1, uParam2, uParam3, uParam4, uParam5 ) + ELSEIF uParam4 != NIL + OLESetProperty( ::hObj, cProperty, uParam1, uParam2, uParam3, uParam4 ) + ELSEIF uParam3 != NIL + OLESetProperty( ::hObj, cProperty, uParam1, uParam2, uParam3 ) + ELSEIF uParam2 != NIL + OLESetProperty( ::hObj, cProperty, uParam1, uParam2 ) + ELSEIF uParam1 != NIL + OLESetProperty( ::hObj, cProperty, uParam1 ) + ENDIF + + IF Ole2TxtError() == "DISP_E_EXCEPTION" + OLEShowException() + ELSEIF OleError() != 0 + MessageBox( 0,cProperty + ": " + Ole2TxtError(), "OLE Error",0 ) + ENDIF + +RETURN nil + +//-------------------------------------------------------------------- + +METHOD Get( cProperty, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 ) CLASS TOleAuto + + LOCAL uObj + + IF uParam6 != NIL + uObj := OLEGetProperty( ::hObj, cProperty, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 ) + ELSEIF uParam5 != NIL + uObj := OLEGetProperty( ::hObj, cProperty, uParam1, uParam2, uParam3, uParam4, uParam5 ) + ELSEIF uParam4 != NIL + uObj := OLEGetProperty( ::hObj, cProperty, uParam1, uParam2, uParam3, uParam4 ) + ELSEIF uParam3 != NIL + uObj := OLEGetProperty( ::hObj, cProperty, uParam1, uParam2, uParam3 ) + ELSEIF uParam2 != NIL + uObj := OLEGetProperty( ::hObj, cProperty, uParam1, uParam2 ) + ELSEIF uParam1 != NIL + uObj := OLEGetProperty( ::hObj, cProperty, uParam1 ) + ELSE + uObj := OLEGetProperty( ::hObj, cProperty ) + ENDIF + + IF Ole2TxtError() $ "DISP_E_MEMBERNOTFOUND | DISP_E_BADPARAMCOUNT | " + ; + "DISP_E_EXCEPTION" + uObj := ::Invoke( cProperty, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 ) + ELSE + IF OleIsObject() + RETURN TOleAuto():New( uObj ) + ELSEIF OleError() != 0 + MessageBox( 0,cProperty + ": " + Ole2TxtError(), "OLE Error",0 ) + ENDIF + ENDIF + +RETURN uObj + +//-------------------------------------------------------------------- + +METHOD OnError( uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 ) CLASS TOleAuto + + LOCAL cMsg := __GetMessage() + + LOCAL uObj + + IF LEFT( cMsg, 1 ) == '_' + ::Set( SUBS( cMsg, 2 ), uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 ) + ELSE + uObj := ::Get( cMsg, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 ) + ENDIF + +RETURN uObj + +EXIT PROCEDURE OLEEXIT + + OLEUninitialize() + +RETURN + +FUNCTION CreateObject( cString ) + RETURN TOleAuto():New( cString ) + +FUNCTION GetActiveObject( cString ) + RETURN TOleAuto():GetActiveObject( cString ) diff --git a/harbour/contrib/ole/test/bld_b32.bat b/harbour/contrib/ole/test/bld_b32.bat new file mode 100644 index 0000000000..fa6c5350ab --- /dev/null +++ b/harbour/contrib/ole/test/bld_b32.bat @@ -0,0 +1,9 @@ +@echo off +rem +rem $Id$ +rem + +..\..\..\bin\harbour %1 /n /i..\..\include /i..\ %2 +bcc32 -e%1.exe -O2 -d -I..\..\..\include -L..\..\..\lib\b32 %1.c debug.lib vm.lib rtl.lib gtwin.lib lang.lib rdd.lib macro.lib pp.lib dbfntx.lib dbfcdx.lib dbffpt.lib common.lib hbsix.lib hbole.lib + +rem del %1.c diff --git a/harbour/contrib/ole/test/sample.odt b/harbour/contrib/ole/test/sample.odt new file mode 100644 index 0000000000..cb66c15059 Binary files /dev/null and b/harbour/contrib/ole/test/sample.odt differ diff --git a/harbour/contrib/ole/test/testole.prg b/harbour/contrib/ole/test/testole.prg new file mode 100644 index 0000000000..90b0324391 --- /dev/null +++ b/harbour/contrib/ole/test/testole.prg @@ -0,0 +1,330 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * demonstration code for FOR EACH used for OLE objects + * this code needs HBWIN32 library + * + * Copyright 2007 Enrico Maria Giordano e.m.giordano at emagsoftware.it + * www - http://www.harbour-project.org + * + */ + +/* Explicit usage of OLE DEFAULT Method when syntax implies it. */ +#xtranslate :( ) := => :( ):Value := + +PROCEDURE Main() + + LOCAL nOption + + CLS + SetColor("W+/R") + @ 6, 25 TO 19, 55 DOUBLE + @ 8, 28 SAY "Test Harbour OLE with..." + + While .t. + @ 10, 32 PROMPT "MS Excel" + @ 11, 32 PROMPT "MS Word" + @ 12, 32 PROMPT "MS Outlook (1)" + @ 13, 32 PROMPT "MS Outlook (2)" + @ 14, 32 PROMPT "Internet Explorer" + @ 15, 32 PROMPT "XP CDO" + @ 16, 32 PROMPT "OpenOffice" + @ 17, 32 PROMPT "Quit" + + MENU TO nOption + + IF nOption == 0 + nOption := 8 + ELSEIF nOption == 1 + Exm_MSExcel() + ELSEIF nOption == 2 + Exm_MSWord() + ELSEIF nOption == 3 + Exm_MSOutlook() + ELSEIF nOption == 4 + Exm_MSOutlook2() + ELSEIF nOption == 5 + Exm_IExplorer() + ELSEIF nOption == 6 + Exm_CDO() + ELSEIF nOption == 7 + Exm_OpenOffice() + ELSEIF nOption == 8 + EXIT + ENDIF + End + + SetColor("W/N") + CLS + + RETURN + +// ; Requires Windows XP + +STATIC PROCEDURE Exm_CDO() + + LOCAL oCDOMsg + LOCAL oCDOConf + + BEGIN SEQUENCE WITH {|oErr| Break( oErr )} + oCDOMsg := CreateObject( "CDO.Message" ) + BEGIN SEQUENCE WITH {|oErr| Break( oErr )} + + oCDOConf := CreateObject( "CDO.Configuration" ) + + oCDOConf:Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") := 2 // ; cdoSendUsingPort + oCDOConf:Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") := "localhost" + oCDOConf:Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") := 25 + oCDOConf:Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") := 120 + oCDOConf:Fields:Update() + + oCDOMsg:Configuration := oCDOConf + oCDOMsg:BodyPart:Charset := "iso-8859-2" // "iso-8859-1" "utf-8" + oCDOMsg:To := "test@localhost" + oCDOMsg:From := "sender@localhost" + oCDOMsg:Subject := "Test message" + oCDOMsg:TextBody := "Test message body" + + BEGIN SEQUENCE WITH {|oErr| Break( oErr )} + oCDOMsg:Send() + RECOVER + Alert( "Error: CDO send error. [" + Ole2TxtError()+ "]" ) + END SEQUENCE + + oCDOConf := NIL + + END SEQUENCE + + oCDOMsg := NIL + + RECOVER + Alert( "Error: CDO subsystem not available. [" + Ole2TxtError()+ "]" ) + END SEQUENCE + + RETURN + +STATIC PROCEDURE Exm_IExplorer() + + LOCAL oIE + + BEGIN SEQUENCE WITH {|oErr| Break( oErr )} + oIE := CreateObject( "InternetExplorer.Application" ) + BEGIN SEQUENCE WITH {|oErr| Break( oErr )} + oIE:Visible := .T. + oIE:Navigate( "http://www.harbour-project.org" ) + END SEQUENCE + RECOVER + Alert( "Error: IExplorer not available. [" + Ole2TxtError()+ "]" ) + END SEQUENCE + + RETURN + +STATIC PROCEDURE Exm_MSExcel() + + LOCAL oExcel + LOCAL oWorkBook + LOCAL oWorkSheet + LOCAL oAS + + BEGIN SEQUENCE WITH {|oErr| Break( oErr )} + oExcel := CreateObject( "Excel.Application" ) + BEGIN SEQUENCE WITH {|oErr| Break( oErr )} + + oWorkBook := oExcel:WorkBooks:Add() + + FOR EACH oWorkSheet IN oWorkBook:WorkSheets + ? oWorkSheet:Name + NEXT + + oAS := oExcel:ActiveSheet() + + oAS:Cells:Font:Name := "Arial" + oAS:Cells:Font:Size := 12 + + // Explicit use of DEFAULT method by means of #xtranslate above!!! + oAS:Cells( 3, 1 ) := "Explict DEFAULT Method Text:" + + // Array notation seem to have REVERSED indexs for the Cells Collections!!! + // Implicitly using DEFAULT Method + oAS:Cells[ 2, 3 ] := "Implicit DEFAULT Method using *reversed* array index notation" + + // Operator overloading will attempt explict resolutin using :OleValue + oAS:Cells[ 2, 3 ] += "!" + + oAS:Cells( 4, 1 ):Value := "Numeric:" + oAS:Cells( 4, 2 ):NumberFormat := "#.##0,00" + + oAS:Cells[ 2, 4 ] := 1234.50 + oAS:Cells[ 2, 4 ] *= 4 + ? oAS:Cells[ 2, 4 ], oAS:Cells[ 2, 4 ]:Value + oAS:Cells[ 2, 4 ] /= 2 + ? oAS:Cells[ 2, 4 ], oAS:Cells[ 2, 4 ]:Value + + oAS:Cells[ 2, 4 ]++ + ? oAS:Cells[ 2, 4 ], oAS:Cells[ 2, 4 ]:Value + oAS:Cells[ 2, 4 ]-- + ? oAS:Cells[ 2, 4 ], oAS:Cells[ 2, 4 ]:Value + + oAS:Cells( 5, 1 ):Value := "Logical:" + oAS:Cells( 5, 2 ):Value := .T. + oAS:Cells( 6, 1 ):Value := "Date:" + oAS:Cells( 6, 2 ):Value := DATE() + + oAS:Columns( 1 ):Font:Bold := .T. + oAS:Columns( 2 ):HorizontalAlignment := -4152 // xlRight + + oAS:Columns( 1 ):AutoFit() + oAS:Columns( 2 ):AutoFit() + + oAS:Cells( 1, 1 ):Value := "OLE from Harbour" + oAS:Cells( 1, 1 ):Font:Size := 16 + oAS:Range( "A1:B1" ):HorizontalAlignment := 7 + + oAS:Cells( 1, 1 ):Select() + + oExcel:Visible := .T. + + oExcel:Quit() + + END SEQUENCE + RECOVER + Alert( "Error: MS Excel not available. [" + Ole2TxtError()+ "]" ) + END SEQUENCE + + RETURN + +STATIC PROCEDURE Exm_MSWord() + + LOCAL oWord + LOCAL oText + + BEGIN SEQUENCE WITH {|oErr| Break( oErr )} + oWord := CreateObject( "Word.Application" ) + BEGIN SEQUENCE WITH {|oErr| Break( oErr )} + + oWord:Documents:Add() + + oText := oWord:Selection() + + oText:Text := "OLE from Harbour" + hb_OSNewLine() + oText:Font:Name := "Arial" + oText:Font:Size := 48 + oText:Font:Bold := .T. + + oWord:Visible := .T. + oWord:WindowState := 1 // ; Maximize + + END SEQUENCE + RECOVER + Alert( "Error: MS Word not available. [" + Ole2TxtError()+ "]" ) + END SEQUENCE + + RETURN + +STATIC PROCEDURE Exm_MSOutlook() + + LOCAL oOL + LOCAL oList + + BEGIN SEQUENCE WITH {|oErr| Break( oErr )} + oOL := CreateObject( "Outlook.Application" ) + BEGIN SEQUENCE WITH {|oErr| Break( oErr )} + oList := oOL:CreateItem( 7 ) // ; olDistributionListItem + oList:DLName := "Distribution List" + oList:Display( .F. ) + END SEQUENCE + RECOVER + Alert( "Error: MS Outlook not available. [" + Ole2TxtError()+ "]" ) + END SEQUENCE + + RETURN + +STATIC PROCEDURE Exm_MSOutlook2() + + LOCAL oOL + LOCAL oLista + LOCAL oMail + LOCAL i + + oOL := TOleAuto():New( "Outlook.Application.9" ) + + IF Ole2TxtError() != "S_OK" + Alert("Outlook is not available", "Error") + ELSE + oMail := oOL:CreateItem( 0 ) // olMailItem + + FOR i := 1 TO 10 + oMail:Recipients:Add( "Contact" + LTRIM( STR( i, 2 ) ) + ; + "" ) + NEXT + + oLista := oOL:CreateItem( 7 ) // olDistributionListItem + oLista:DLName := "Test with distribution list" + oLista:Display( .F. ) + oLista:AddMembers( oMail:Recipients ) + oLista:Save() + oLista:Close( 0 ) + + oMail:End() + oLista:End() + oOL:End() + + ENDIF + + RETURN + +STATIC PROCEDURE Exm_OpenOffice() + + LOCAL oOO_ServiceManager + LOCAL oOO_Desktop + LOCAL oOO_PropVal01 + LOCAL oOO_Doc + + LOCAL cDir + + BEGIN SEQUENCE WITH {|oErr| Break( oErr )} + + oOO_ServiceManager := CreateObject( "com.sun.star.ServiceManager" ) + + BEGIN SEQUENCE WITH {|oErr| Break( oErr )} + + hb_FNameSplit( hb_ArgV( 0 ), @cDir ) + + oOO_Desktop := oOO_ServiceManager:createInstance( "com.sun.star.frame.Desktop" ) + oOO_PropVal01 := oOO_ServiceManager:Bridge_GetStruct( "com.sun.star.beans.PropertyValue" ) + oOO_Doc := oOO_Desktop:loadComponentFromURL( OO_ConvertToURL( hb_FNameMerge( cDir, "sample.odt" ) ), "_blank", 0, { oOO_PropVal01 } ) + + // ... + + oOO_Doc:Close( .T. ) + oOO_Doc := NIL + + oOO_Desktop:Terminate() + oOO_Desktop := NIL + oOO_PropVal01 := NIL + + END SEQUENCE + + oOO_ServiceManager := NIL + + RECOVER + Alert( "Error: OpenOffice not available. [" + Ole2TxtError()+ "]" ) + END SEQUENCE + + RETURN + +STATIC FUNCTION OO_ConvertToURL( cString ) + + // ; Handle UNC paths + IF !( Left( cString, 2 ) == "\\" ) + cString := StrTran( cString, ":", "|" ) + cString := "///" + cString + ENDIF + + cString := StrTran( cString, "\", "/" ) + cString := StrTran( cString, " ", "%20" ) + + RETURN "file:" + cString diff --git a/harbour/contrib/pdflib/Makefile b/harbour/contrib/pdflib/Makefile index 09574d9ca8..6dbd3e402a 100644 --- a/harbour/contrib/pdflib/Makefile +++ b/harbour/contrib/pdflib/Makefile @@ -8,8 +8,8 @@ C_SOURCES= \ pdfhbdoc.c \ PRG_SOURCES= \ - pdfhbdocs.prg \ pdf1.prg \ +# pdfhbdocs.prg \ LIBNAME=hbpdflib diff --git a/harbour/contrib/pdflib/common.mak b/harbour/contrib/pdflib/common.mak index 36938367cb..d914d9248a 100644 --- a/harbour/contrib/pdflib/common.mak +++ b/harbour/contrib/pdflib/common.mak @@ -11,8 +11,8 @@ LIB_PATH = $(LIB_DIR)\$(LIBNAME)$(LIBEXT) # LIB_OBJS = \ - $(OBJ_DIR)\pdfhbdocs$(OBJEXT) \ $(OBJ_DIR)\pdfhbdoc$(OBJEXT) \ +# $(OBJ_DIR)\pdfhbdocs$(OBJEXT) \ $(OBJ_DIR)\pdf1$(OBJEXT) \ all: \ diff --git a/harbour/contrib/pdflib/pdf1.prg b/harbour/contrib/pdflib/pdf1.prg index eccc1f4418..0d91c7a325 100644 --- a/harbour/contrib/pdflib/pdf1.prg +++ b/harbour/contrib/pdflib/pdf1.prg @@ -61,7 +61,6 @@ based on work of : Victor K. . http://www.ihaveparts.com + many new itens that Victor code dont handle */ -MEMVAR lLandScape // GLOBAL EXTERNAL CLASS TPdf @@ -516,7 +515,7 @@ RETURN nil METHOD Pdfpageorient( _cPageOrient ) CLASS TPdf - DEFAULT _cPageOrient TO Iif( lLandScape, "L", "P" ) + DEFAULT _cPageOrient TO Iif( pdf_GetLandScape(), "L", "P" ) ::aReport[ PAGEORIENT ] := _cPageOrient ::pdfPageSize( ::aReport[ PAGESIZE ] ) diff --git a/harbour/contrib/pdflib/pdfhbdoc.c b/harbour/contrib/pdflib/pdfhbdoc.c index 7336b0a0fe..7758acbdc6 100644 --- a/harbour/contrib/pdflib/pdfhbdoc.c +++ b/harbour/contrib/pdflib/pdfhbdoc.c @@ -602,3 +602,363 @@ void setText( PDF *p, const char *szText, float frow, float fcol, float h, float PDF_rect( p, frow, fcol, iw + 5, h ); PDF_stroke( p ); } + +const char szFontTable[ ] = { + "\xfa\0\xfa\0\xfa\0\xfa\0\x4d\x01\x4d\x01\x4d\x01\x85\x01" + "\x98\x01\x2b\x02\xa4\x01\x2b\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01" + "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\x41\x03\xe8\x03\x41\x03\x41\x03" + "\x0a\x03\x41\x03\x0a\x03\x0a\x03\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\x34\x02\x3a\x02\xa3\x02\x3a\x02" + "\xfa\0\xfa\0\xfa\0\xfa\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\xfa\0\xfa\0\xfa\0\xfa\0\x16\x01\x16\x01\x16\x01\x16\x01" + "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" + "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" + "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" + "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" + "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" + "\x16\x01\x4d\x01\x4d\x01\x4d\x01\x16\x01\x4d\x01\x4d\x01\x4d\x01" + "\x34\x02\x3a\x02\xa3\x02\x3a\x02\x34\x02\x3a\x02\xa3\x02\x3a\x02" + "\x34\x02\x3a\x02\xa3\x02\x3a\x02\xbc\x01\xf4\x01\xf4\x01\xf4\x01" + "\x99\x03\xa2\x03\x98\x03\x40\x03\xd2\x02\xd2\x02\x63\x02\x9b\x02" + "\x9b\x02\x9b\x02\x63\x02\x9b\x02\x9b\x02\xd2\x02\x9b\x02\x9b\x02" + "\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x63\x02\x9b\x02\x63\x02\x9b\x02" + "\x2c\x02\x63\x02\x63\x02\x9b\x02\xd2\x02\x0a\x03\xd2\x02\xd2\x02" + "\xd2\x02\x0a\x03\xd2\x02\x0a\x03\x4d\x01\x85\x01\x4d\x01\x85\x01" + "\x85\x01\xf4\x01\xbc\x01\xf4\x01\xd2\x02\x0a\x03\x9b\x02\x9b\x02" + "\x63\x02\x9b\x02\x2c\x02\x63\x02\x79\x03\xb0\x03\x41\x03\x79\x03" + "\xd2\x02\xd2\x02\x9b\x02\xd2\x02\xd2\x02\x0a\x03\xd2\x02\xd2\x02" + "\x2c\x02\x63\x02\x63\x02\x63\x02\xd2\x02\x0a\x03\xd2\x02\xd2\x02" + "\x9b\x02\xd2\x02\x63\x02\x9b\x02\x2c\x02\x2c\x02\xf4\x01\x2c\x02" + "\x63\x02\x9b\x02\x2c\x02\x63\x02\xd2\x02\xd2\x02\xd2\x02\xd2\x02" + "\xd2\x02\xd2\x02\x63\x02\x9b\x02\xb0\x03\xe8\x03\x41\x03\x79\x03" + "\xd2\x02\xd2\x02\x63\x02\x9b\x02\xd2\x02\xd2\x02\x2c\x02\x63\x02" + "\x63\x02\x9b\x02\x2c\x02\x63\x02\x4d\x01\x4d\x01\x85\x01\x4d\x01" + "\x16\x01\x16\x01\x16\x01\x16\x01\x4d\x01\x4d\x01\x85\x01\x4d\x01" + "\xd5\x01\x45\x02\xa6\x01\x3a\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\xbc\x01\xf4\x01\xf4\x01\xf4\x01" + "\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01" + "\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01" + "\x4d\x01\x4d\x01\x16\x01\x4d\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" + "\xf4\x01\x2c\x02\xf4\x01\x2c\x02\x16\x01\x16\x01\x16\x01\x16\x01" + "\x16\x01\x4d\x01\x16\x01\x16\x01\xf4\x01\x2c\x02\xbc\x01\xf4\x01" + "\x16\x01\x16\x01\x16\x01\x16\x01\x0a\x03\x41\x03\xd2\x02\x0a\x03" + "\xf4\x01\x2c\x02\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01" + "\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xf4\x01\x2c\x02\xf4\x01\xf4\x01" + "\x4d\x01\xbc\x01\x85\x01\x85\x01\x85\x01\x85\x01\x85\x01\x85\x01" + "\x16\x01\x4d\x01\x16\x01\x16\x01\xf4\x01\x2c\x02\xf4\x01\x2c\x02" + "\xf4\x01\xf4\x01\xbc\x01\xbc\x01\xd2\x02\xd2\x02\x9b\x02\x9b\x02" + "\xf4\x01\xf4\x01\xbc\x01\xf4\x01\xf4\x01\xf4\x01\xbc\x01\xbc\x01" + "\xbc\x01\xbc\x01\x85\x01\x85\x01\xe0\x01\x8a\x01\x90\x01\x5c\x01" + "\xc8\0\xdc\0\x13\x01\xdc\0\xe0\x01\x8a\x01\x90\x01\x5c\x01" + "\x1d\x02\x08\x02\x1d\x02\x3a\x02\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x85\x01\x85\x01" + "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" + "\xa7\0\xa7\0\xa7\0\xa7\0\xf4\x01\xf4\x01\xf4\x01\xf4\x01" + "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" + "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xb4\0\x16\x01\xd6\0\x16\x01" + "\xbc\x01\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\x2c\x02\x2c\x02\xf4\x01\x2c\x02\x2c\x02\x2c\x02\xf4\x01\x2c\x02" + "\0\0\0\0\0\0\0\0\xf4\x01\xf4\x01\xf4\x01\xf4\x01" + "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" + "\xfa\0\xfa\0\xfa\0\xfa\0\0\0\0\0\0\0\0\0" + "\xc5\x01\x1c\x02\x0b\x02\xf4\x01\x5e\x01\x5e\x01\x5e\x01\x5e\x01" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\xbc\x01\xf4\x01\x2c\x02\xf4\x01" + "\xbc\x01\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" + "\xe8\x03\xe8\x03\x79\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03" + "\0\0\0\0\0\0\0\0\xbc\x01\xf4\x01\xf4\x01\xf4\x01" + "\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\0\0\0\0\0\0\0\0" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\xe8\x03\xe8\x03\x79\x03\xe8\x03\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\x79\x03\xe8\x03\x79\x03\xb0\x03" + "\0\0\0\0\0\0\0\0\x14\x01\x2c\x01\x14\x01\x0a\x01" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\x63\x02\x9b\x02\x2c\x02\x63\x02\xd2\x02\x0a\x03\xd2\x02\xd2\x02" + "\x79\x03\xe8\x03\xb0\x03\xb0\x03\x36\x01\x4a\x01\x36\x01\x2c\x01" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\x9b\x02\xd2\x02\x9b\x02\xd2\x02" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\x16\x01\x16\x01\x16\x01\x16\x01" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\x16\x01\x16\x01\x16\x01\x16\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" + "\xd2\x02\xd2\x02\x9b\x02\xd2\x02\xf4\x01\x2c\x02\xf4\x01\xf4\x01" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x4d\x01\x16\x01\x4d\x01" + "\x63\x01\xda\x01\x63\x01\xda\x01\x2c\x02\x2c\x02\x2c\x02\x2c\x02" + "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x79\x03\x79\x03\x79\x03\x79\x03" + "\x9b\x02\xd2\x02\x9b\x02\xd2\x02\xde\0\x16\x01\xde\0\x16\x01" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\x85\x01\x85\x01\x85\x01\x85\x01\x48\x02\x48\x02\x48\x02\x48\x02" + "\x16\x01\x16\x01\x16\x01\x16\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01" + "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" + "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" + "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" + "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" + "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" + "\x16\x01\x4d\x01\x16\x01\x4d\x01\x16\x01\x4d\x01\x16\x01\x4d\x01" + "\x48\x02\x48\x02\x48\x02\x48\x02\x48\x02\x48\x02\x48\x02\x48\x02" + "\x48\x02\x48\x02\x48\x02\x48\x02\x2c\x02\x63\x02\x2c\x02\x63\x02" + "\xf7\x03\xcf\x03\xf7\x03\xcf\x03\x9b\x02\xd2\x02\x9b\x02\xd2\x02" + "\x9b\x02\xd2\x02\x9b\x02\xd2\x02\xd2\x02\xd2\x02\xd2\x02\xd2\x02" + "\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02" + "\x63\x02\x63\x02\x63\x02\x63\x02\x0a\x03\x0a\x03\x0a\x03\x0a\x03" + "\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x16\x01\x16\x01\x16\x01\x16\x01" + "\xf4\x01\x2c\x02\xf4\x01\x2c\x02\x9b\x02\xd2\x02\x9b\x02\xd2\x02" + "\x2c\x02\x63\x02\x2c\x02\x63\x02\x41\x03\x41\x03\x41\x03\x41\x03" + "\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x0a\x03\x0a\x03\x0a\x03\x0a\x03" + "\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x0a\x03\x0a\x03\x0a\x03\x0a\x03" + "\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02" + "\x63\x02\x63\x02\x63\x02\x63\x02\xd2\x02\xd2\x02\xd2\x02\xd2\x02" + "\x9b\x02\x9b\x02\x9b\x02\x9b\x02\xb0\x03\xb0\x03\xb0\x03\xb0\x03" + "\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02" + "\x63\x02\x63\x02\x63\x02\x63\x02\x16\x01\x4d\x01\x16\x01\x4d\x01" + "\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x4d\x01\x16\x01\x4d\x01" + "\xd5\x01\x48\x02\xd5\x01\x48\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" + "\xde\0\x16\x01\xde\0\x16\x01\x2c\x02\x2c\x02\x2c\x02\x2c\x02" + "\x2c\x02\x63\x02\x2c\x02\x63\x02\xf4\x01\x2c\x02\xf4\x01\x2c\x02" + "\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" + "\x16\x01\x4d\x01\x16\x01\x4d\x01\x2c\x02\x63\x02\x2c\x02\x63\x02" + "\x2c\x02\x63\x02\x2c\x02\x63\x02\xde\0\x16\x01\xde\0\x16\x01" + "\xde\0\x16\x01\xde\0\x16\x01\xf4\x01\x2c\x02\xf4\x01\x2c\x02" + "\xde\0\x16\x01\xde\0\x16\x01\x41\x03\x79\x03\x41\x03\x79\x03" + "\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x63\x02" + "\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x63\x02" + "\x4d\x01\x85\x01\x4d\x01\x85\x01\xf4\x01\x2c\x02\xf4\x01\x2c\x02" + "\x16\x01\x4d\x01\x16\x01\x4d\x01\x2c\x02\x63\x02\x2c\x02\x63\x02" + "\xf4\x01\x2c\x02\xf4\x01\x2c\x02\xd2\x02\x0a\x03\xd2\x02\x0a\x03" + "\xf4\x01\x2c\x02\xf4\x01\x2c\x02\xf4\x01\x2c\x02\xf4\x01\x2c\x02" + "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\x4e\x01\x85\x01\x4e\x01\x85\x01" + "\x04\x01\x18\x01\x04\x01\x18\x01\x4e\x01\x85\x01\x4e\x01\x85\x01" + "\x48\x02\x48\x02\x48\x02\x48\x02\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" + "\xa7\0\xa7\0\xa7\0\xa7\0\x2c\x02\x2c\x02\x2c\x02\x2c\x02" + "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" + "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\xbf\0\xee\0\xbf\0\xee\0" + "\x4d\x01\xf4\x01\x4d\x01\xf4\x01\x2c\x02\x2c\x02\x2c\x02\x2c\x02" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\xf4\x01\x63\x02\xf4\x01\x63\x02\xf4\x01\x63\x02\xf4\x01\x63\x02" + "\0\0\0\0\0\0\0\0\x2c\x02\x2c\x02\x2c\x02\x2c\x02" + "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" + "\x16\x01\x16\x01\x16\x01\x16\x01\0\0\0\0\0\0\0\0" + "\x19\x02\x2c\x02\x19\x02\x2c\x02\x5e\x01\x5e\x01\x5e\x01\x5e\x01" + "\xde\0\x16\x01\xde\0\x16\x01\x4d\x01\xf4\x01\x4d\x01\xf4\x01" + "\x4d\x01\xf4\x01\x4d\x01\xf4\x01\x2c\x02\x2c\x02\x2c\x02\x2c\x02" + "\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03" + "\0\0\0\0\0\0\0\0\x63\x02\x63\x02\x63\x02\x63\x02" + "\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\0\0\0\0\0\0\0\0" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" + "\xe8\x03\xe8\x03\xe8\x03\xe8\x03\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\xe8\x03\xe8\x03\xe8\x03\xe8\x03" + "\0\0\0\0\0\0\0\0\x72\x01\x72\x01\x72\x01\x72\x01" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\x2c\x02\x63\x02\x2c\x02\x63\x02\x0a\x03\x0a\x03\x0a\x03\x0a\x03" + "\xe8\x03\xe8\x03\xe8\x03\xe8\x03\x6d\x01\x6d\x01\x6d\x01\x6d\x01" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\x79\x03\x79\x03\x79\x03\x79\x03" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\x16\x01\x16\x01\x16\x01\x16\x01" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\xde\0\x16\x01\xde\0\x16\x01\x63\x02\x63\x02\x63\x02\x63\x02" + "\xb0\x03\xb0\x03\xb0\x03\xb0\x03\x63\x02\x63\x02\x63\x02\x63\x02" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" + "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" +}; + +const int szFontTable_size = 5376 ; + +HB_FUNC( CALCDATA ) +{ + int rowsperstrip = hb_parnd( 1 ); + float y = hb_parnd( 2 ); + float h = hb_parnd( 3 ); + int row, res; + int p; + + for( row = 0 ; row < h ; row += rowsperstrip ) + { + int height = row + rowsperstrip > h ? h - row :rowsperstrip; + + p = ( h - row - height ); + res = y + 1 * p; + } + + hb_retni( res ); +} diff --git a/harbour/contrib/pdflib/pdfhbdocs.prg b/harbour/contrib/pdflib/pdfhbdocs.prg index 394fd53314..e0424fb0d1 100644 --- a/harbour/contrib/pdflib/pdfhbdocs.prg +++ b/harbour/contrib/pdflib/pdfhbdocs.prg @@ -50,19 +50,12 @@ * */ - -#pragma begindump -/* declare for later use on C functions */ -#include "hbapi.h" -#include "hbfast.h" -#pragma enddump - #include "pdfhbdoc.ch" #include "common.ch" #INCLUDE "pdf.ch" /*Variaveis Staticas */ -GLOBAL lLandScape := .F. +STATIC lLandScape := .F. STATIC fontSizePoints := 10.0 /*10.0*/ STATIC NumofRows STATIC LEAD := 10 @@ -86,6 +79,9 @@ STATIC szUserpass STATIC iLastLinkPos := 0 STATIC oPdf +FUNCTION pdf_GetLandScape() + RETURN lLandScape + STATIC FUNCTION setBox( irow, icol, h, iw ) opdf:PDF_RECT( irow, icol, h, iw ) @@ -140,10 +136,6 @@ RETURN NIL FUNCTION HB_PDFNEWPAGE( szTitleT, szFile ) -LOCAL image -LOCAL scale_x -LOCAL scale_y - oPdf:pdfNewPage( "A4", Iif( fPageHeigth < fPageWidth, "P", "L" ),, "Courier", 0 ) IF Ischaracter( szFile ) IF lLandScape .OR. opdf:aReport[ PAGEORIENT ] == "L" @@ -795,7 +787,6 @@ LOCAL i FUNCTION PDFDRAWPAGE( aPage, bOnNewPage ) LOCAL cItem -LOCAL i FOR each cItem in aPage @@ -843,8 +834,10 @@ RETURN nil FUNCTION getText( szText, iFont, irow, icol, iw ) LOCAL h -LOCAL w LOCAL c + + HB_SYMBOL_UNUSED( iFont ) + h := fontSizePoints * 2.1 c := opdf:pdfTextCount( szText, irow, icol, iw, 0, 2 ) h += fontSizePoints * c @@ -855,6 +848,9 @@ FUNCTION PdfMaxBoxSize( pText, iFont, pEnd, iw, pStart ) LOCAL fMax := 0 LOCAL fCurrentSize LOCAL ulTempPos + + HB_SYMBOL_UNUSED( iw ) + FOR ulTempPos := 1 TO Len( pText ) fCurrentSize := getText( pText[ ulTempPos ], iFont, pStart[ ulTempPos ], iRow, pEnd[ ulTempPos ] ) @@ -871,6 +867,8 @@ FUNCTION PDFHR( fPos, fStart ) iRow -= LEAD opdf:PDF_stroke( ) + RETURN NIL + /* FUNCAO PDFPAGENUMBER() Retorna o numero da pagina atual sendo construida @@ -920,378 +918,7 @@ FUNCTION Pdfcomplevel( X ) opdf:PdfCompLevel( x ) RETURN NIL - // inline c functions - -#pragma begindump - int Bin2i( BYTE * pszString ) - { - - ULONG ulLen = strlen( pszString ) ; - int i = HB_MKSHORT( ( ulLen >= 1 ) ? ( BYTE ) pszString[ 0 ]:0, - ( ulLen >= 2 ) ? ( BYTE ) pszString[ 1 ] :0 ) ; - //int i; - // i = *((short *) pszString); - return i ; - } - const char szFontTable[ ] = { - "\xfa\0\xfa\0\xfa\0\xfa\0\x4d\x01\x4d\x01\x4d\x01\x85\x01" - "\x98\x01\x2b\x02\xa4\x01\x2b\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01" - "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\x41\x03\xe8\x03\x41\x03\x41\x03" - "\x0a\x03\x41\x03\x0a\x03\x0a\x03\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\x34\x02\x3a\x02\xa3\x02\x3a\x02" - "\xfa\0\xfa\0\xfa\0\xfa\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\xfa\0\xfa\0\xfa\0\xfa\0\x16\x01\x16\x01\x16\x01\x16\x01" - "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" - "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" - "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" - "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" - "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" - "\x16\x01\x4d\x01\x4d\x01\x4d\x01\x16\x01\x4d\x01\x4d\x01\x4d\x01" - "\x34\x02\x3a\x02\xa3\x02\x3a\x02\x34\x02\x3a\x02\xa3\x02\x3a\x02" - "\x34\x02\x3a\x02\xa3\x02\x3a\x02\xbc\x01\xf4\x01\xf4\x01\xf4\x01" - "\x99\x03\xa2\x03\x98\x03\x40\x03\xd2\x02\xd2\x02\x63\x02\x9b\x02" - "\x9b\x02\x9b\x02\x63\x02\x9b\x02\x9b\x02\xd2\x02\x9b\x02\x9b\x02" - "\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x63\x02\x9b\x02\x63\x02\x9b\x02" - "\x2c\x02\x63\x02\x63\x02\x9b\x02\xd2\x02\x0a\x03\xd2\x02\xd2\x02" - "\xd2\x02\x0a\x03\xd2\x02\x0a\x03\x4d\x01\x85\x01\x4d\x01\x85\x01" - "\x85\x01\xf4\x01\xbc\x01\xf4\x01\xd2\x02\x0a\x03\x9b\x02\x9b\x02" - "\x63\x02\x9b\x02\x2c\x02\x63\x02\x79\x03\xb0\x03\x41\x03\x79\x03" - "\xd2\x02\xd2\x02\x9b\x02\xd2\x02\xd2\x02\x0a\x03\xd2\x02\xd2\x02" - "\x2c\x02\x63\x02\x63\x02\x63\x02\xd2\x02\x0a\x03\xd2\x02\xd2\x02" - "\x9b\x02\xd2\x02\x63\x02\x9b\x02\x2c\x02\x2c\x02\xf4\x01\x2c\x02" - "\x63\x02\x9b\x02\x2c\x02\x63\x02\xd2\x02\xd2\x02\xd2\x02\xd2\x02" - "\xd2\x02\xd2\x02\x63\x02\x9b\x02\xb0\x03\xe8\x03\x41\x03\x79\x03" - "\xd2\x02\xd2\x02\x63\x02\x9b\x02\xd2\x02\xd2\x02\x2c\x02\x63\x02" - "\x63\x02\x9b\x02\x2c\x02\x63\x02\x4d\x01\x4d\x01\x85\x01\x4d\x01" - "\x16\x01\x16\x01\x16\x01\x16\x01\x4d\x01\x4d\x01\x85\x01\x4d\x01" - "\xd5\x01\x45\x02\xa6\x01\x3a\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\xbc\x01\xf4\x01\xf4\x01\xf4\x01" - "\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01" - "\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01" - "\x4d\x01\x4d\x01\x16\x01\x4d\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" - "\xf4\x01\x2c\x02\xf4\x01\x2c\x02\x16\x01\x16\x01\x16\x01\x16\x01" - "\x16\x01\x4d\x01\x16\x01\x16\x01\xf4\x01\x2c\x02\xbc\x01\xf4\x01" - "\x16\x01\x16\x01\x16\x01\x16\x01\x0a\x03\x41\x03\xd2\x02\x0a\x03" - "\xf4\x01\x2c\x02\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01" - "\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xf4\x01\x2c\x02\xf4\x01\xf4\x01" - "\x4d\x01\xbc\x01\x85\x01\x85\x01\x85\x01\x85\x01\x85\x01\x85\x01" - "\x16\x01\x4d\x01\x16\x01\x16\x01\xf4\x01\x2c\x02\xf4\x01\x2c\x02" - "\xf4\x01\xf4\x01\xbc\x01\xbc\x01\xd2\x02\xd2\x02\x9b\x02\x9b\x02" - "\xf4\x01\xf4\x01\xbc\x01\xf4\x01\xf4\x01\xf4\x01\xbc\x01\xbc\x01" - "\xbc\x01\xbc\x01\x85\x01\x85\x01\xe0\x01\x8a\x01\x90\x01\x5c\x01" - "\xc8\0\xdc\0\x13\x01\xdc\0\xe0\x01\x8a\x01\x90\x01\x5c\x01" - "\x1d\x02\x08\x02\x1d\x02\x3a\x02\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x85\x01\x85\x01" - "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" - "\xa7\0\xa7\0\xa7\0\xa7\0\xf4\x01\xf4\x01\xf4\x01\xf4\x01" - "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" - "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xb4\0\x16\x01\xd6\0\x16\x01" - "\xbc\x01\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\x2c\x02\x2c\x02\xf4\x01\x2c\x02\x2c\x02\x2c\x02\xf4\x01\x2c\x02" - "\0\0\0\0\0\0\0\0\xf4\x01\xf4\x01\xf4\x01\xf4\x01" - "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" - "\xfa\0\xfa\0\xfa\0\xfa\0\0\0\0\0\0\0\0\0" - "\xc5\x01\x1c\x02\x0b\x02\xf4\x01\x5e\x01\x5e\x01\x5e\x01\x5e\x01" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\xbc\x01\xf4\x01\x2c\x02\xf4\x01" - "\xbc\x01\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" - "\xe8\x03\xe8\x03\x79\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03" - "\0\0\0\0\0\0\0\0\xbc\x01\xf4\x01\xf4\x01\xf4\x01" - "\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\0\0\0\0\0\0\0\0" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\xe8\x03\xe8\x03\x79\x03\xe8\x03\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\x79\x03\xe8\x03\x79\x03\xb0\x03" - "\0\0\0\0\0\0\0\0\x14\x01\x2c\x01\x14\x01\x0a\x01" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\x63\x02\x9b\x02\x2c\x02\x63\x02\xd2\x02\x0a\x03\xd2\x02\xd2\x02" - "\x79\x03\xe8\x03\xb0\x03\xb0\x03\x36\x01\x4a\x01\x36\x01\x2c\x01" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\x9b\x02\xd2\x02\x9b\x02\xd2\x02" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\x16\x01\x16\x01\x16\x01\x16\x01" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\x16\x01\x16\x01\x16\x01\x16\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01" - "\xd2\x02\xd2\x02\x9b\x02\xd2\x02\xf4\x01\x2c\x02\xf4\x01\xf4\x01" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x4d\x01\x16\x01\x4d\x01" - "\x63\x01\xda\x01\x63\x01\xda\x01\x2c\x02\x2c\x02\x2c\x02\x2c\x02" - "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x79\x03\x79\x03\x79\x03\x79\x03" - "\x9b\x02\xd2\x02\x9b\x02\xd2\x02\xde\0\x16\x01\xde\0\x16\x01" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\x85\x01\x85\x01\x85\x01\x85\x01\x48\x02\x48\x02\x48\x02\x48\x02" - "\x16\x01\x16\x01\x16\x01\x16\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01" - "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" - "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" - "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" - "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" - "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" - "\x16\x01\x4d\x01\x16\x01\x4d\x01\x16\x01\x4d\x01\x16\x01\x4d\x01" - "\x48\x02\x48\x02\x48\x02\x48\x02\x48\x02\x48\x02\x48\x02\x48\x02" - "\x48\x02\x48\x02\x48\x02\x48\x02\x2c\x02\x63\x02\x2c\x02\x63\x02" - "\xf7\x03\xcf\x03\xf7\x03\xcf\x03\x9b\x02\xd2\x02\x9b\x02\xd2\x02" - "\x9b\x02\xd2\x02\x9b\x02\xd2\x02\xd2\x02\xd2\x02\xd2\x02\xd2\x02" - "\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02" - "\x63\x02\x63\x02\x63\x02\x63\x02\x0a\x03\x0a\x03\x0a\x03\x0a\x03" - "\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x16\x01\x16\x01\x16\x01\x16\x01" - "\xf4\x01\x2c\x02\xf4\x01\x2c\x02\x9b\x02\xd2\x02\x9b\x02\xd2\x02" - "\x2c\x02\x63\x02\x2c\x02\x63\x02\x41\x03\x41\x03\x41\x03\x41\x03" - "\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x0a\x03\x0a\x03\x0a\x03\x0a\x03" - "\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x0a\x03\x0a\x03\x0a\x03\x0a\x03" - "\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02" - "\x63\x02\x63\x02\x63\x02\x63\x02\xd2\x02\xd2\x02\xd2\x02\xd2\x02" - "\x9b\x02\x9b\x02\x9b\x02\x9b\x02\xb0\x03\xb0\x03\xb0\x03\xb0\x03" - "\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02" - "\x63\x02\x63\x02\x63\x02\x63\x02\x16\x01\x4d\x01\x16\x01\x4d\x01" - "\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x4d\x01\x16\x01\x4d\x01" - "\xd5\x01\x48\x02\xd5\x01\x48\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" - "\xde\0\x16\x01\xde\0\x16\x01\x2c\x02\x2c\x02\x2c\x02\x2c\x02" - "\x2c\x02\x63\x02\x2c\x02\x63\x02\xf4\x01\x2c\x02\xf4\x01\x2c\x02" - "\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" - "\x16\x01\x4d\x01\x16\x01\x4d\x01\x2c\x02\x63\x02\x2c\x02\x63\x02" - "\x2c\x02\x63\x02\x2c\x02\x63\x02\xde\0\x16\x01\xde\0\x16\x01" - "\xde\0\x16\x01\xde\0\x16\x01\xf4\x01\x2c\x02\xf4\x01\x2c\x02" - "\xde\0\x16\x01\xde\0\x16\x01\x41\x03\x79\x03\x41\x03\x79\x03" - "\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x63\x02" - "\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x63\x02" - "\x4d\x01\x85\x01\x4d\x01\x85\x01\xf4\x01\x2c\x02\xf4\x01\x2c\x02" - "\x16\x01\x4d\x01\x16\x01\x4d\x01\x2c\x02\x63\x02\x2c\x02\x63\x02" - "\xf4\x01\x2c\x02\xf4\x01\x2c\x02\xd2\x02\x0a\x03\xd2\x02\x0a\x03" - "\xf4\x01\x2c\x02\xf4\x01\x2c\x02\xf4\x01\x2c\x02\xf4\x01\x2c\x02" - "\xf4\x01\xf4\x01\xf4\x01\xf4\x01\x4e\x01\x85\x01\x4e\x01\x85\x01" - "\x04\x01\x18\x01\x04\x01\x18\x01\x4e\x01\x85\x01\x4e\x01\x85\x01" - "\x48\x02\x48\x02\x48\x02\x48\x02\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" - "\xa7\0\xa7\0\xa7\0\xa7\0\x2c\x02\x2c\x02\x2c\x02\x2c\x02" - "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" - "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\xbf\0\xee\0\xbf\0\xee\0" - "\x4d\x01\xf4\x01\x4d\x01\xf4\x01\x2c\x02\x2c\x02\x2c\x02\x2c\x02" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\xf4\x01\x63\x02\xf4\x01\x63\x02\xf4\x01\x63\x02\xf4\x01\x63\x02" - "\0\0\0\0\0\0\0\0\x2c\x02\x2c\x02\x2c\x02\x2c\x02" - "\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02" - "\x16\x01\x16\x01\x16\x01\x16\x01\0\0\0\0\0\0\0\0" - "\x19\x02\x2c\x02\x19\x02\x2c\x02\x5e\x01\x5e\x01\x5e\x01\x5e\x01" - "\xde\0\x16\x01\xde\0\x16\x01\x4d\x01\xf4\x01\x4d\x01\xf4\x01" - "\x4d\x01\xf4\x01\x4d\x01\xf4\x01\x2c\x02\x2c\x02\x2c\x02\x2c\x02" - "\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03" - "\0\0\0\0\0\0\0\0\x63\x02\x63\x02\x63\x02\x63\x02" - "\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\0\0\0\0\0\0\0\0" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01" - "\xe8\x03\xe8\x03\xe8\x03\xe8\x03\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\xe8\x03\xe8\x03\xe8\x03\xe8\x03" - "\0\0\0\0\0\0\0\0\x72\x01\x72\x01\x72\x01\x72\x01" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\x2c\x02\x63\x02\x2c\x02\x63\x02\x0a\x03\x0a\x03\x0a\x03\x0a\x03" - "\xe8\x03\xe8\x03\xe8\x03\xe8\x03\x6d\x01\x6d\x01\x6d\x01\x6d\x01" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\x79\x03\x79\x03\x79\x03\x79\x03" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\x16\x01\x16\x01\x16\x01\x16\x01" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\xde\0\x16\x01\xde\0\x16\x01\x63\x02\x63\x02\x63\x02\x63\x02" - "\xb0\x03\xb0\x03\xb0\x03\xb0\x03\x63\x02\x63\x02\x63\x02\x63\x02" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - "\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02" - } ; - const int szFontTable_size = 5376 ; - - HB_FUNC( CALCDATA ) - { - int rowsperstrip = hb_parnd( 1 ) ; - float y = hb_parnd( 2 ) ; - float h = hb_parnd( 3 ) ; - int row, res ; - int p ; - for ( row = 0 ; row < h ; row += rowsperstrip ) - { - int height ; - height = row + rowsperstrip > h ? h - row :rowsperstrip ; - p = ( h - row - height ) ; - res = y + 1 * p ; - } - hb_retni( res ) ; - } -#pragma enddump - - /*FUNCAO PDFBOXCOLOR(nRed,nGreen,nBlue) +/*FUNCAO PDFBOXCOLOR(nRed,nGreen,nBlue) Parametros nRed -> Quantidade de vermelho na composicao da cor ( valor entre 0 a 255) nGreen -> Quantidade de verde na composicao da cor ( valor entre 0 a 255) @@ -1307,4 +934,3 @@ FUNCTION PDFTEXTCOLOR( R, G, B ) oPdf:PDFsetrgbcolor( R / 255, G / 255, B / 255 ) RETURN NIL - diff --git a/harbour/contrib/win32/test/testole.prg b/harbour/contrib/win32/test/testole.prg index 306e279af7..90b0324391 100644 --- a/harbour/contrib/win32/test/testole.prg +++ b/harbour/contrib/win32/test/testole.prg @@ -13,16 +13,52 @@ */ /* Explicit usage of OLE DEFAULT Method when syntax implies it. */ -#xtranslate :( ) := => :( ):OleValue := +#xtranslate :( ) := => :( ):Value := PROCEDURE Main() - Exm_IExplorer() - Exm_CDO() - Exm_MSExcel() - Exm_MSWord() - Exm_MSOutlook() - Exm_OpenOffice() + LOCAL nOption + + CLS + SetColor("W+/R") + @ 6, 25 TO 19, 55 DOUBLE + @ 8, 28 SAY "Test Harbour OLE with..." + + While .t. + @ 10, 32 PROMPT "MS Excel" + @ 11, 32 PROMPT "MS Word" + @ 12, 32 PROMPT "MS Outlook (1)" + @ 13, 32 PROMPT "MS Outlook (2)" + @ 14, 32 PROMPT "Internet Explorer" + @ 15, 32 PROMPT "XP CDO" + @ 16, 32 PROMPT "OpenOffice" + @ 17, 32 PROMPT "Quit" + + MENU TO nOption + + IF nOption == 0 + nOption := 8 + ELSEIF nOption == 1 + Exm_MSExcel() + ELSEIF nOption == 2 + Exm_MSWord() + ELSEIF nOption == 3 + Exm_MSOutlook() + ELSEIF nOption == 4 + Exm_MSOutlook2() + ELSEIF nOption == 5 + Exm_IExplorer() + ELSEIF nOption == 6 + Exm_CDO() + ELSEIF nOption == 7 + Exm_OpenOffice() + ELSEIF nOption == 8 + EXIT + ENDIF + End + + SetColor("W/N") + CLS RETURN @@ -206,6 +242,40 @@ STATIC PROCEDURE Exm_MSOutlook() RETURN +STATIC PROCEDURE Exm_MSOutlook2() + + LOCAL oOL + LOCAL oLista + LOCAL oMail + LOCAL i + + oOL := TOleAuto():New( "Outlook.Application.9" ) + + IF Ole2TxtError() != "S_OK" + Alert("Outlook is not available", "Error") + ELSE + oMail := oOL:CreateItem( 0 ) // olMailItem + + FOR i := 1 TO 10 + oMail:Recipients:Add( "Contact" + LTRIM( STR( i, 2 ) ) + ; + "" ) + NEXT + + oLista := oOL:CreateItem( 7 ) // olDistributionListItem + oLista:DLName := "Test with distribution list" + oLista:Display( .F. ) + oLista:AddMembers( oMail:Recipients ) + oLista:Save() + oLista:Close( 0 ) + + oMail:End() + oLista:End() + oOL:End() + + ENDIF + + RETURN + STATIC PROCEDURE Exm_OpenOffice() LOCAL oOO_ServiceManager diff --git a/harbour/make_b32.bat b/harbour/make_b32.bat index 03c3b7965d..632311718c 100644 --- a/harbour/make_b32.bat +++ b/harbour/make_b32.bat @@ -55,12 +55,6 @@ if "%1" == "INSTALL" goto INSTALL :INSTALL - if "%HB_INSTALL_PREFIX%" == "" set HB_INSTALL_PREFIX=. - - if "%HB_BIN_INSTALL%" == "" set HB_BIN_INSTALL=%HB_INSTALL_PREFIX%\bin - if "%HB_INC_INSTALL%" == "" set HB_INC_INSTALL=%HB_INSTALL_PREFIX%\include - if "%HB_LIB_INSTALL%" == "" set HB_LIB_INSTALL=%HB_INSTALL_PREFIX%\lib - %HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% INSTALL > nul goto EXIT diff --git a/harbour/make_vc.bat b/harbour/make_vc.bat index 03514c46b6..d2541a2532 100644 --- a/harbour/make_vc.bat +++ b/harbour/make_vc.bat @@ -55,12 +55,6 @@ if "%1" == "INSTALL" goto INSTALL :INSTALL - if "%HB_INSTALL_PREFIX%" == "" set HB_INSTALL_PREFIX=. - - if "%HB_BIN_INSTALL%" == "" set HB_BIN_INSTALL=%HB_INSTALL_PREFIX%\bin - if "%HB_INC_INSTALL%" == "" set HB_INC_INSTALL=%HB_INSTALL_PREFIX%\include - if "%HB_LIB_INSTALL%" == "" set HB_LIB_INSTALL=%HB_INSTALL_PREFIX%\lib - %HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% INSTALL > nul goto EXIT