Files
harbour-core/harbour/include/hbusrrdd.ch
Przemyslaw Czerpak 3ea86f8269 2007-09-25 03:20 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbset.h
  * harbour/source/rtl/set.c
    * changed recently added hb_set*() functions to hb_setGet*()
      Please do not use these functions yet - it's possible that
      they will be removed soon.
    + added hb_setGetL(), hb_setGetCPtr(), hb_setGetNI(), hb_setGetNL()

  * harbour/contrib/libct/dattime2.c
  * harbour/contrib/samples/date.c
    * use hb_setGetCentury() instead of hb_setGetL( hb_set_century )
      we do not have hb_set_century SET switch so hb_setGetL() cannot
      be used

  * harbour/harbour.spec
  * harbour/bin/hb-func.sh
  * harbour/bin/pack_src.sh
  * harbour/contrib/Makefile
  + harbour/contrib/xhb
  + harbour/contrib/xhb/hboutdbg.c
  + harbour/contrib/xhb/cstruct.ch
  + harbour/contrib/xhb/hblog.prg
  + harbour/contrib/xhb/hblog.ch
  + harbour/contrib/xhb/hblognet.prg
  + harbour/contrib/xhb/hbxml.c
  + harbour/contrib/xhb/hbxml.h
  + harbour/contrib/xhb/hbxml.ch
  + harbour/contrib/xhb/hblogdef.ch
  + harbour/contrib/xhb/hbctypes.ch
  + harbour/contrib/xhb/wintypes.ch
  + harbour/contrib/xhb/txml.prg
  + harbour/contrib/xhb/hbsyslog.c
  + harbour/contrib/xhb/cstructc.c
  + harbour/contrib/xhb/Makefile
  + harbour/contrib/xhb/cstruct.prg
  + harbour/contrib/xhb/xhbfunc.c
    + added XHB library with xharbour compatible functions borrowed from
      xHarbour. Now it contains HBLOG, HBXML, HBCSTRUCT, HASH, INET*()
      functions and classes.

  * harbour/source/rtl/itemseri.c
  * harbour/source/rtl/strmatch.c
  * harbour/source/rtl/hbinet.c
  * harbour/source/vm/hashfunc.c
     * moved xHarbour compatible functions to XHB library

  * harbour/source/vm/classes.c
     + added support for ERROR HANDLER message in scalar classes

  * harbour/contrib/tip/mail.prg
  * harbour/contrib/tip/ftpcln.prg
    + added #include "hbcompat.ch"

  * harbour/include/hbdbferr.h
    + added new RT errors: EDBF_CREATE_TEMP, EDBF_WRITE_TEMP, EDBF_READ_TEMP

  * harbour/include/dbinfo.ch
    + added DBI_ENCRYPT, DBI_DECRYPT, DBI_MEMOPACK, DBI_DIRTYREAD
    + added DBOI_INDEXTYPE, DBOI_USECURRENT
    + added RDDI_LOCKRETRY, RDDI_DIRTYREAD

  * harbour/include/dbinfo.ch
  * harbour/include/hbrdddbf.h
  * harbour/include/hbrddfpt.h
  * harbour/include/hbrddcdx.h
  * harbour/include/hbrddntx.h
  * harbour/source/rdd/dbf1.c
  * harbour/source/rdd/dbffpt/dbffpt1.c
  * harbour/source/rdd/dbfntx/dbfntx1.c
  * harbour/source/rdd/dbfcdx/dbfcdx1.c
    + added support for MEMOPACK, table ENCRYPT/DECRYPT, index DIRTYREAD

  * harbour/include/hbapirdd.h
  * harbour/include/dbstruct.ch
  * harbour/include/hbusrrdd.ch
  * harbour/contrib/rdd_ads/ads1.c
  * harbour/contrib/rdd_ads/ace.h
  * harbour/source/rdd/dbfdbt/dbfdbt1.c
  * harbour/source/rdd/dbffpt/dbffpt1.c
  * harbour/source/rdd/dbcmd.c
  * harbour/source/rdd/wafunc.c
  * harbour/source/rdd/workarea.c
  * harbour/source/rdd/dbf1.c
  * harbour/source/rdd/sdf1.c
  * harbour/source/rdd/delim1.c
    * changed HB_IT_* as field type to HB_FT_*
    + added field flags HB_FF_*
    + added support for new field types to core code

  * harbour/source/rdd/dbf1.c
    + added support for AUTOINC (+), ROWVERSION (^), TIME (T), DAYTIME (@)
      and MODTIME (=) fields

  * harbour/contrib/rdd_ads/ads1.c
  * harbour/contrib/rdd_ads/ace.h
    + added support for ROWVERSION (^), and MODTIME (=) fields

  ! harbour/source/rdd/dbcmd.c
    * fixed bug in dbSkipper() reported by Viktor

  + harbour/include/hbsix.ch
  * harbour/source/rdd/hbsix/Makefile
  * harbour/source/rdd/hbsix/sxdate.c
  * harbour/source/rdd/hbsix/sxcompr.c
  * harbour/source/rdd/hbsix/sxcrypt.c
  + harbour/source/rdd/hbsix/sxsem.c
  + harbour/source/rdd/hbsix/sxord.c
  + harbour/source/rdd/hbsix/sxredir.c
  + harbour/source/rdd/hbsix/sxfname.c
  + harbour/source/rdd/hbsix/sxtable.c
  + harbour/source/rdd/hbsix/sxutil.c
  + harbour/source/rdd/hbsix/sxcompat.prg
  + harbour/source/rdd/hbsix/sxtrig.prg
  + harbour/source/rdd/hbsix/sxini.prg
    + added SIx3 compatible functions:
         RDD_Count(), RDD_Name(), RDD_Info(), SetRDD(),
         sxChar(), sxNum(), sxDate(), sxLog(),
         Sx_DToP(), Sx_PToD(),
         Sx_BLOB2File(), Sx_File2BLOB(),
         Sx_Compress(), Sx_Decompress(),
         Sx_FCompress(), Sx_FDecompress(),
         Sx_AutoOpen(), Sx_AutoShare(),
         Sx_MemoExt(), Sx_MemoBlk(), Sx_SetMemoBlock(), Sx_MemoPack(),
         Sx_SetTrigger(), Sx_SetTrig(), Sx_DefTrigger(), 
         Sx_INIheader(), _sx_INIinit(), _sxOpenInit(),
         Sx_SetPass(),
         Sx_Encrypt(), Sx_Decrypt(), Sx_DBFdecrypt(), Sx_DBFencrypt(),
         sx_MakeSem(), sx_KillSem(), sx_IsSem(),
         Sx_ClrScope(), Sx_SetScope(),
         Sx_Freeze(), Sx_Warm(), Sx_Chill(), Sx_Thermometer(),
         Sx_IsReindex(), Sx_Step(), Sx_KeysIncluded(),
         Sx_I_IndexName(), Sx_I_TagName(),
         Sx_IndexCount(), Sx_IndexName(), Sx_IndexType(), Sx_IndexFilter(),
         Sx_ROXLock(), Sx_ROXUnLock(), Sx_IsMyROX(), Sx_IsROXLock(),
         Sx_KeyAdd(), Sx_KeyDrop(), Sx_KeyData(),
         Sx_KeySkip(), Sx_KeyCount(), Sx_KeyNo(), Sx_KeyGoto(),
         Sx_WildSeek(), Sx_WildMatch(),
         Sx_IsFLocked(), Sx_IsReadOnly(), Sx_IsShared(),
         Sx_IsLocked(), Sx_IsDBT(),
         Sx_IDtype(), Sx_TableType(), Sx_TableName(),
         Sx_SetTurbo(), Sx_TurboArea(), Sx_SetDirty(), Sx_DirtyArea(),
         Sx_RLock(), Sx_UnLock(), Sx_GetLocks(), Sx_LockRetry(),
         Sx_SeekLast(), Sx_FindRec(),
         Sx_SkipUnique(), Sx_TagUnique(),
         Sx_TagCount(), Sx_TagOrder(), Sx_TagNo(), Sx_TagName(),
         Sx_TagInfo(), Sx_Tags(),
         Sx_SetTag(), Sx_SetTagOrder(), Sx_SetTagNo(),
         Sx_KillTag(),
         Sx_FileOrder(), Sx_SetFileOrd(), Sx_ClearOrder(),
         Sx_VSigLen(), Sx_VFGet(),
         Sx_dbCreate(), Sx_StrxCheck(), Sx_Rollback(), Sx_SortOption(),
         _sxCondSet(),
         Sx_FNameParser(), Sx_SlimFast(),
         Sx_Version(), Sx_Error(),

    + added SIx3 compatible commands:
         SET DIRTYREAD ON|OFF
         USE ... [TRIGGER <cTrigger>] [PASSWORD <cPassword>]
         SORT ... USECURRENT
         WILDSEEK <str>
         WILDSEEKNEXT <str>
         CLEAR ORDER <order>
         SET TAGORDER TO [<order>]
         SET ORDER TO TAG <(tag)> [OF <(bag)>]
         SET TAG TO [<tag> [OF <(bag)>]]
         REINDEX OPTION <eval> [STEP <step>]
         DELETE TAG <(tag1)> [OF <(bag1)>] [, <(tagN)> [OF <(bagN)>]]
         DELETE TAG ALL [OF <(bag)>]
         CLEAR SCOPE
         SET SCOPETOP TO [<value>]
         SET SCOPEBOTTOM TO [<value>]
         SET SCOPE TO [<value>]
         SET TURBOREAD ON|OFF
         MEMOPACK [BLOCK <size>] [OPTION <opt> [STEP <step>]]
         SET MEMOBLOCK TO <value>
         SUBINDEX ON <key> TO <(file)> ;
               [OPTION <eval> [STEP <every>]] [FILTERON] [EMPTY]
         SUBINDEX ON <key> TAG <(tag)> [OF <(bag)>] [TO <(bag)>] ;
               [OPTION <eval> [STEP <every>]] [FILTERON] [EMPTY]
         INDEX ON <key> [TAG <(tag)>] TO <(bag)> ;
               [OPTION <eval> [STEP <every>]] [FILTERON] [EMPTY] [SUBINDEX]
         INDEX ON <key> TAG <(tag)> [OF <(bag)>] [TO <(bag)>] ;
               [OPTION <eval> [STEP <every>]] [FILTERON] [EMPTY] [SUBINDEX]

      Unlike Ads*() functions the Sx_*() ones can be used with any RDD
      and will work if RDD supports necessary functionality.

      The global settings in SIx3 are RDD dependent in Harbour, f.e.
      in SIx3 Sx_MemoExt() change MEMO file extensions in all SIX* RDDs
      but in Harbour only in default RDD driver.
      In Harbour default trigger function "Sx_DefTrigger" is not
      enabled by default. If user needs such functionality then he
      has to enable it himself using
         rddInfo( RDDI_TRIGGER, "SX_DEFTRIGGER", [<cRDD>] )
      f.e. this code:
         init procedure sx_inittrig()
            local aRDDs := { "DBF", "DBFNTX", "DBFCDX", "SIXCDX", ;
                             "RMDBFNTX", "RMDBFCDX" }
            local aRDDList := RddList(), cRdd

            for each cRdd in aRDDs
               if ascan( aRDDList, { |x| x == cRdd } ) != 0
                  rddInfo( RDDI_TRIGGER, "SX_DEFTRIGGER", cRDD )
               endif
            next
         return
      sets SX_DEFTRIGGER as default trigger in DBF* based RDDs.

      I still do not allow to encrypt tables with memo fields to not
      replicate SIx3 bugs which may cause data corruption.
2007-09-25 01:21:03 +00:00

361 lines
12 KiB
Plaintext

/*
* $Id$
*/
/*
* Harbour Project source code:
* USRRDD
*
* Copyright 2006 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
* 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.
*
*/
/* Movement and positioning methods */
#define UR_BOF 1
#define UR_EOF 2
#define UR_FOUND 3
#define UR_GOBOTTOM 4
#define UR_GOTO 5
#define UR_GOTOID 6
#define UR_GOTOP 7
#define UR_SEEK 8
#define UR_SKIP 9
#define UR_SKIPFILTER 10
#define UR_SKIPRAW 11
/* Data management */
#define UR_ADDFIELD 12
#define UR_APPEND 13
#define UR_CREATEFIELDS 14
#define UR_DELETE 15
#define UR_DELETED 16
#define UR_FIELDCOUNT 17
#define UR_FIELDDISPLAY 18
#define UR_FIELDINFO 19
#define UR_FIELDNAME 20
#define UR_FLUSH 21
#define UR_GETREC 22
#define UR_GETVALUE 23
#define UR_GETVARLEN 24
#define UR_GOCOLD 25
#define UR_GOHOT 26
#define UR_PUTREC 27
#define UR_PUTVALUE 28
#define UR_RECALL 29
#define UR_RECCOUNT 30
#define UR_RECINFO 31
#define UR_RECNO 32
#define UR_RECID 33
#define UR_SETFIELDEXTENT 34
/* WorkArea/Database management */
#define UR_ALIAS 35
#define UR_CLOSE 36
#define UR_CREATE 37
#define UR_INFO 38
#define UR_NEW 39
#define UR_OPEN 40
#define UR_RELEASE 41
#define UR_STRUCTSIZE 42
#define UR_SYSNAME 43
#define UR_DBEVAL 44
#define UR_PACK 45
#define UR_PACKREC 46
#define UR_SORT 47
#define UR_TRANS 48
#define UR_TRANSREC 49
#define UR_ZAP 50
/* Relational Methods */
#define UR_CHILDEND 51
#define UR_CHILDSTART 52
#define UR_CHILDSYNC 53
#define UR_SYNCCHILDREN 54
#define UR_CLEARREL 55
#define UR_FORCEREL 56
#define UR_RELAREA 57
#define UR_RELEVAL 58
#define UR_RELTEXT 59
#define UR_SETREL 60
/* Order Management */
#define UR_ORDLSTADD 61
#define UR_ORDLSTCLEAR 62
#define UR_ORDLSTDELETE 63
#define UR_ORDLSTFOCUS 64
#define UR_ORDLSTREBUILD 65
#define UR_ORDSETCOND 66
#define UR_ORDCREATE 67
#define UR_ORDDESTROY 68
#define UR_ORDINFO 69
/* Filters and Scope Settings */
#define UR_CLEARFILTER 70
#define UR_CLEARLOCATE 71
#define UR_CLEARSCOPE 72
#define UR_COUNTSCOPE 73
#define UR_FILTERTEXT 74
#define UR_SCOPEINFO 75
#define UR_SETFILTER 76
#define UR_SETLOCATE 77
#define UR_SETSCOPE 78
#define UR_SKIPSCOPE 79
#define UR_LOCATE 80
/* Miscellaneous */
#define UR_COMPILE 81
#define UR_ERROR 82
#define UR_EVALBLOCK 83
/* Network operations */
#define UR_RAWLOCK 84
#define UR_LOCK 85
#define UR_UNLOCK 86
/* Memofile functions */
#define UR_CLOSEMEMFILE 87
#define UR_CREATEMEMFILE 88
#define UR_GETVALUEFILE 89
#define UR_OPENMEMFILE 90
#define UR_PUTVALUEFILE 91
/* Database file header handling */
#define UR_READDBHEADER 92
#define UR_WRITEDBHEADER 93
/* non WorkArea functions */
#define UR_INIT 94
#define UR_EXIT 95
#define UR_DROP 96
#define UR_EXISTS 97
#define UR_RDDINFO 98
/* Special and reserved methods */
#define UR_WHOCARES 99
#define UR_METHODCOUNT 99
/* FIELD types */
#ifndef HB_FT_NONE
#define HB_FT_NONE 0
#define HB_FT_STRING 1 /* "C" */
#define HB_FT_LOGICAL 2 /* "L" */
#define HB_FT_DATE 3 /* "D" */
#define HB_FT_LONG 4 /* "N" */
#define HB_FT_FLOAT 5 /* "F" */
#define HB_FT_INTEGER 6 /* "I" */
#define HB_FT_DOUBLE 7 /* "B" */
#define HB_FT_TIME 8 /* "T" */
#define HB_FT_DAYTIME 9 /* "@" */
#define HB_FT_MODTIME 10 /* "=" */
#define HB_FT_ROWVER 11 /* "^" */
#define HB_FT_AUTOINC 12 /* "+" */
#define HB_FT_CURRENCY 13 /* "Y" */
#define HB_FT_CURDOUBLE 14 /* "Z" */
#define HB_FT_VARLENGTH 15 /* "Q" */
#define HB_FT_MEMO 16 /* "M" */
#define HB_FT_ANY 17 /* "V" */
#define HB_FT_IMAGE 18 /* "P" */
#define HB_FT_BLOB 19 /* "W" */
#define HB_FT_OLE 20 /* "G" */
#endif
/* Flags for DBTRANSINFO */
#define DBTF_MATCH 0x0001
#define DBTF_PUTREC 0x0002
/* Codes for Locking methods */
#define DBLM_EXCLUSIVE 1
#define DBLM_MULTIPLE 2
#define DBLM_FILE 3
/* Codes for RawLock types */
#define FILE_LOCK 1
#define FILE_UNLOCK 2
#define REC_LOCK 3
#define REC_UNLOCK 4
#define HEADER_LOCK 5
#define HEADER_UNLOCK 6
#define APPEND_LOCK 7
#define APPEND_UNLOCK 8
/* DBOPENINFO */
#define UR_OI_AREA 1
#define UR_OI_NAME 2
#define UR_OI_ALIAS 3
#define UR_OI_SHARED 4
#define UR_OI_READONLY 5
#define UR_OI_CDPID 6
#define UR_OI_CONNECT 7
#define UR_OI_HEADER 8
#define UR_OI_SIZE 8
/* DBFIELDINFO */
#define UR_FI_NAME 1
#define UR_FI_TYPE 2
#define UR_FI_TYPEEXT 3
#define UR_FI_LEN 4
#define UR_FI_DEC 5
#define UR_FI_SIZE 5
/* DBLOCKINFO */
#define UR_LI_RECORD 1
#define UR_LI_METHOD 2
#define UR_LI_RESULT 3
#define UR_LI_SIZE 3
/* DBFILTERINFO */
#define UR_FRI_BEXPR 1
#define UR_FRI_CEXPR 2
#define UR_FRI_ACTIVE 3
#define UR_FRI_OPTIMIZED 4
#define UR_FRI_CARGO 5
#define UR_FRI_SIZE 5
/* DBRELINFO */
#define UR_RI_BEXPR 1
#define UR_RI_CEXPR 2
#define UR_RI_SCOPED 3
#define UR_RI_OPTIMIZED 4
#define UR_RI_PARENT 5
#define UR_RI_CHILD 6
#define UR_RI_NEXT 7
#define UR_RI_SIZE 7
/* DBSCOPEINFO */
#define UR_SI_BFOR 1
#define UR_SI_CFOR 2
#define UR_SI_BWHILE 3
#define UR_SI_CWHILE 4
#define UR_SI_NEXT 5
#define UR_SI_RECORD 6
#define UR_SI_REST 7
#define UR_SI_IGNOREFILTER 8
#define UR_SI_INCLUDEDELETED 9
#define UR_SI_LAST 10
#define UR_SI_IGNOREDUPS 11
#define UR_SI_BACKWARD 12
#define UR_SI_OPTIMIZED 13
#define UR_SI_SIZE 13
/* DBEVALINFO */
#define UR_EI_BLOCK 1
#define UR_EI_CEXPR 2
#define UR_EI_SCOPE 3
#define UR_EI_SIZE 3
/* DBTRANSINFO */
#define UR_TI_SRCAREA 1
#define UR_TI_DSTAREA 2
#define UR_TI_SCOPE 3
#define UR_TI_FLAGS 4
#define UR_TI_ITEMCOUNT 5
#define UR_TI_ITEMS 6
#define UR_TI_SIZE 6
/* DBTRANSITEM */
#define UR_TITEM_SOURCE 1
#define UR_TITEM_DESTIN 2
#define UR_TITEM_SIZE 2
/* DBSORTINFO */
#define UR_SRI_TRANSINFO 1
#define UR_SRI_ITEMS 2
#define UR_SRI_ITEMCOUNT 3
#define UR_SRI_SIZE 3
/* DBSORTITEM */
#define UR_SITEM_FIELD 1
#define UR_SITEM_FLAGS 2
#define UR_SITEM_SIZE 2
/* DBORDERINFO */
#define UR_ORI_BAG 1
#define UR_ORI_TAG 2
#define UR_ORI_BLOCK 3
#define UR_ORI_RESULT 4
#define UR_ORI_NEWVAL 5
#define UR_ORI_ALLTAGS 6
#define UR_ORI_SIZE 6
/* DBORDERCONDINFO */
#define UR_ORC_ACTIVE 1
#define UR_ORC_CFOR 2
#define UR_ORC_CWHILE 3
#define UR_ORC_BFOR 4
#define UR_ORC_BWHILE 5
#define UR_ORC_BEVAL 6
#define UR_ORC_STEP 7
#define UR_ORC_STARTREC 8
#define UR_ORC_NEXT 9
#define UR_ORC_RECORD 10
#define UR_ORC_REST 11
#define UR_ORC_DESCEND 12
#define UR_ORC_SCOPED 13
#define UR_ORC_ALL 14
#define UR_ORC_ADDITIVE 15
#define UR_ORC_USECURRENT 16
#define UR_ORC_CUSTOM 17
#define UR_ORC_NOOPTIMIZE 18
#define UR_ORC_COMPOUND 19
#define UR_ORC_USEFILTER 20
#define UR_ORC_TEMPORARY 21
#define UR_ORC_EXCLUSIVE 22
#define UR_ORC_CARGO 23
#define UR_ORC_SIZE 23
/* DBORDERCREATEINFO */
#define UR_ORCR_CONDINFO 1
#define UR_ORCR_BAGNAME 2
#define UR_ORCR_TAGNAME 3
#define UR_ORCR_ORDER 4
#define UR_ORCR_UNIQUE 5
#define UR_ORCR_BKEY 6
#define UR_ORCR_CKEY 7
#define UR_ORCR_SIZE 7
#define SUCCESS 0
#define FAILURE 1