[xHarbour-developers] ChangeLog: 2012-06-22 09:22 UTC+0100 Miguel Angel Marchuet
2012-06-22 09:22 UTC+0100 Miguel Angel Marchuet * source\rdd\dbf1.c * source\rdd\workarea.c ! Minor fix under HB_COMPAT_FOXPRO flag, fixed open tables for f3 type with fields autoincremental flags. Best regards, Miguel Angel Marchuet -- Live Security Virtual Conference Exclusive live event will cover all the ways today's security and threat landscape has changed and how IT managers can respond. Discussions will include endpoint security, mobile security and the latest in malware threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/ ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] ourxdbu
for those who may be interested I have uploaded new version to sourceforge ourxdbu and www.xharbour.com / XHC -- Atentamente *Miguel Angel Marchuet* __ Información de ESET Smart Security, versión de la base de firmas de virus 5906 (20110225) __ ESET Smart Security ha comprobado este mensaje. http://www.eset.com -- Free Software Download: Index, Search & Analyze Logs and other IT data in Real-Time with Splunk. Collect, index and harness all the fast moving IT data generated by your applications, servers and devices whether physical, virtual or in the cloud. Deliver compliance at lower cost and gain new business insights. http://p.sf.net/sfu/splunk-dev2dev ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] posible bug at __dbsort
Sorry, but i'm working about SORT TO not about index SORT command is to order fisically the database file. tgis change don't cause index corruption ;) only cause correct fisically order ... El 17/02/2011 20:17, Vicente Guerra escribió: > On Thu, 17 Feb 2011, Miguel Angel Marchuet Frutos wrote: >> I change this lines to solve the problem at hbdbsort.c,clipper may work in >> this way, but I think it's a bug that should be corrected > If Clipper works in "bug mode", fixing it would cause > index corruption on shared environments. > > What about adding a new system flag? > > Atte. >Vic > > -- > The ultimate all-in-one performance toolkit: Intel(R) Parallel Studio XE: > Pinpoint memory and threading errors before they happen. > Find and fix more than 250 security defects in the development cycle. > Locate bottlenecks in serial and parallel code that limit performance. > http://p.sf.net/sfu/intel-dev2devfeb > ___ > xHarbour-developers mailing list > xHarbour-developers@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/xharbour-developers > > __ Información de ESET Smart Security, versión de la base de firmas > de virus 5884 (20110217) __ > > ESET Smart Security ha comprobado este mensaje. > > http://www.eset.com > > > > -- The ultimate all-in-one performance toolkit: Intel(R) Parallel Studio XE: Pinpoint memory and threading errors before they happen. Find and fix more than 250 security defects in the development cycle. Locate bottlenecks in serial and parallel code that limit performance. http://p.sf.net/sfu/intel-dev2devfeb ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] MEMIO
memio don't works properly it doesn't free all memory when hb_drop is executed -- Atentamente *Miguel Angel Marchuet* __ Información de ESET Smart Security, versión de la base de firmas de virus 5883 (20110217) __ ESET Smart Security ha comprobado este mensaje. http://www.eset.com -- The ultimate all-in-one performance toolkit: Intel(R) Parallel Studio XE: Pinpoint memory and threading errors before they happen. Find and fix more than 250 security defects in the development cycle. Locate bottlenecks in serial and parallel code that limit performance. http://p.sf.net/sfu/intel-dev2devfeb___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] posible bug at sort
I detected an inconsistency in the ordering, instead of using the codepage of RDD was using a comparison without. as letters or etc. were not well ordered. I change this lines to solve the problem at hbdbsort.c,clipper may work in this way, but I think it's a bug that should be corrected ANY OPINIONS /* Compare buffers */ /* if( bIgnoreCase ) iResult = hb_stricmp( ( const char * ) pQuickSort->pCmpBufferA, ( const char * ) pQuickSort->pCmpBufferB ); else iResult = strcmp( ( const char * ) pQuickSort->pCmpBufferA, ( const char * ) pQuickSort->pCmpBufferB ); */ if( bIgnoreCase ) iResult = hb_cdpicmp( ( const char * ) pQuickSort->pCmpBufferA, sizeof( ( const char * ) pQuickSort->pCmpBufferA ), ( const char * ) pQuickSort->pCmpBufferB, sizeof( ( const char * ) pQuickSort->pCmpBufferB ), pArea->area.cdPage, 0 ); else iResult = hb_cdpcmp( ( const char * ) pQuickSort->pCmpBufferA, sizeof( ( const char * ) pQuickSort->pCmpBufferA ), ( const char * ) pQuickSort->pCmpBufferB, sizeof( ( const char * ) pQuickSort->pCmpBufferB ), pArea->area.cdPage, 0 ); -- Atentamente *Miguel Angel Marchuet* __ Información de ESET Smart Security, versión de la base de firmas de virus 5882 (20110217) __ ESET Smart Security ha comprobado este mensaje. http://www.eset.com -- The ultimate all-in-one performance toolkit: Intel(R) Parallel Studio XE: Pinpoint memory and threading errors before they happen. Find and fix more than 250 security defects in the development cycle. Locate bottlenecks in serial and parallel code that limit performance. http://p.sf.net/sfu/intel-dev2devfeb___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] posible bug at __dbsort
I detected an inconsistency in the ordering, instead of using the codepage of RDD was using a comparison without. as letters or etc. were not well ordered. I change this lines to solve the problem at hbdbsort.c,clipper may work in this way, but I think it's a bug that should be corrected ANY OPINIONS /* Compare buffers */ /* if( bIgnoreCase ) iResult = hb_stricmp( ( const char * ) pQuickSort->pCmpBufferA, ( const char * ) pQuickSort->pCmpBufferB ); else iResult = strcmp( ( const char * ) pQuickSort->pCmpBufferA, ( const char * ) pQuickSort->pCmpBufferB ); */ if( bIgnoreCase ) iResult = hb_cdpicmp( ( const char * ) pQuickSort->pCmpBufferA, pField->uiLen, ( const char * ) pQuickSort->pCmpBufferB, pField->uiLen, pArea->area.cdPage, 0 ); else iResult = hb_cdpcmp( ( const char * ) pQuickSort->pCmpBufferA, pField->uiLen, ( const char * ) pQuickSort->pCmpBufferB, pField->uiLen, pArea->area.cdPage, 0 ); -- Atentamente *Miguel Angel Marchuet* __ Información de ESET Smart Security, versión de la base de firmas de virus 5882 (20110217) __ ESET Smart Security ha comprobado este mensaje. http://www.eset.com -- The ultimate all-in-one performance toolkit: Intel(R) Parallel Studio XE: Pinpoint memory and threading errors before they happen. Find and fix more than 250 security defects in the development cycle. Locate bottlenecks in serial and parallel code that limit performance. http://p.sf.net/sfu/intel-dev2devfeb___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2010-10-19 13:24 UTC+0100 Miguel Angel Marchuet
2010-10-19 13:24 UTC+0100 Miguel Angel Marchuet * include\dbinfo.ch * source\rdd\bmdbfcdx\bmdbfcdx1.c * source\rdd\bmdbfcdx\redbfcdx1.c * source\rdd\dbfcdx\dbfcdx1.c * source\rdd\dbffpt\dbffpt1.c * source\rtl\filenet.c * Added DBOI_TEMPORARY as 133 /* is index open in temporary mode */ * Undo hb_snprintf because don't work at the same way as sprintf, and client-server don't runs properly. Best regards, Miguel Angel Marchuet __ Información de ESET Smart Security, versión de la base de firmas de virus 5544 (20101019) __ ESET Smart Security ha comprobado este mensaje. http://www.eset.com -- Download new Adobe(R) Flash(R) Builder(TM) 4 The new Adobe(R) Flex(R) 4 and Flash(R) Builder(TM) 4 (formerly Flex(R) Builder(TM)) enable the development of rich applications that run across multiple browsers and platforms. Download your free trials today! http://p.sf.net/sfu/adobe-dev2dev ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] GPF running harbour.exe with the next code
Can anybody solve the GPF building
proc main()
LOCAL bLine
bLine := {|o,| o }
RETURN
Thank's in advance
Miguel Angel Marchuet
--
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2010-05-20 09:49 UTC+0100 Miguel Angel Marchuet
2010-05-20 09:49 UTC+0100 Miguel Angel Marchuet * contrib\filemem\filemem.c * include\dbinfo.ch * include\fileio.ch * include\hbapierr.h * include\hbapifs.h * include\hbapirdd.h * source\rdd\dbcmd.c * source\rdd\dbcmd53.c * source\rdd\dbf1.c * source\rdd\dbf1net.c * source\rdd\dbfcdx\dbfcdx1.c * source\rdd\hbdbsort.c * source\rdd\wacore.c * source\rdd\wafunc.c * source\rdd\workarea.c * source\rtl\filebuf.c * source\rtl\filenet.c * source\vm\errorapi.c + Added flush method at file subsystem. * changed Whitespaces to align code. * changed USHORT or ULONG by HB_ERRCODE where nedded. + added hb_dbfErrorRT to reduce repeated code. + Added suport for dbf files with signature 0x32 Visual FoxPro, autoincrement enabled. * include\blob.ch ! fixed bug for bad type. ( the major part of this code is based on harbour code, but with little changes ) Best regards, Miguel Angel Marchuet -- ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2010-05-11 16:35 UTC+0100 Miguel Angel Marchuet
2010-05-11 16:35 UTC+0100 Miguel Angel Marchuet * source/vm/maindllp.c ! fixed some castings from call at dll. Best regards, Miguel Angel Marchuet -- ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] Harbour vs xHarbour - SpeedTest
dlmalloc is yet at xharbour, only need a parameter building xharbour to use it review fm.c i test it and is not the cause of speed diference ;) Walter Negro escribió: > Ron, Patrick, Andi > > I found the main cause of the speed difference for SpeedTest. > Harbor are using an alternative memory alocator instead of using malloc. > This is a public domain code written by Doug Lea > (http://gee.cs.oswego.edu/dl/html/malloc.html); dlmalloc is obviously > very fast to reuse chunks of memory, that is why a profit so important > when using speedtst. > > Soon I will have the performance values using dlmalloc in xHarbour and > the performance values using malloc in Harbour. > > Walter Negro > > > > -- > Download Intel® Parallel Studio Eval > Try the new software tools for yourself. Speed compiling, find bugs > proactively, and fine-tune applications for parallel performance. > See why Intel Parallel Studio got high marks during beta. > http://p.sf.net/sfu/intel-sw-dev > ___ > xHarbour-developers mailing list > xHarbour-developers@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/xharbour-developers > > __ Información de ESET Smart Security, versión de la base de firmas > de virus 4909 (20100302) __ > > ESET Smart Security ha comprobado este mensaje. > > http://www.eset.com > > > > __ Información de ESET Smart Security, versión de la base de firmas de virus 4909 (20100302) __ ESET Smart Security ha comprobado este mensaje. http://www.eset.com -- Download Intel® Parallel Studio Eval Try the new software tools for yourself. Speed compiling, find bugs proactively, and fine-tune applications for parallel performance. See why Intel Parallel Studio got high marks during beta. http://p.sf.net/sfu/intel-sw-dev ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] RDD syncing
Yes, but I'm pretty busy lately with other projects, SAT, EDICOM, eCommerce, ... soon, I hope to generate xharbour enable real services (windows platform) I've it running yet. to terminate the outstanding issues in RDDS as subsystems TTS (Transaction), compatibility dBaseIV, FileCache to acceleration subsystem temporary tables in shared memory. The current RDD system is very stable and rarely cause inconsistencies in index or memos. I also have other tasks such outstanding compatibility with other platforms (WinCE and Win64). On the remote file server, despite having a slower machine than the harbor, operates faster, I tested the same server with the eighth of harbor and the result is impressive. It would be interesting for someone to investigate and solve the current problems of xharbour vm, I can not do everything and no one is discouraged collaboration. Best regards, Miguel Angel Marchuet Patrick Mast, xHarbour. escribió: Hello, Miguel, are you still syncing RDD fixes/enhancements with Harbour? Like: http://harbour-project.svn.sourceforge.net/viewvc/harbour-project?view=rev&revision=13765 Thanks! ;-) Patrick -- SOLARIS 10 is the OS for Data Centers - provides features such as DTrace, Predictive Self Healing and Award Winning ZFS. Get Solaris 10 NOW http://p.sf.net/sfu/solaris-dev2dev ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers __ Información de ESET Smart Security, versión de la base de firmas de virus 4875 (20100217) __ ESET Smart Security ha comprobado este mensaje. http://www.eset.com -- SOLARIS 10 is the OS for Data Centers - provides features such as DTrace, Predictive Self Healing and Award Winning ZFS. Get Solaris 10 NOW http://p.sf.net/sfu/solaris-dev2dev___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2010-01-20 20:53 UTC+0100 Miguel Angel Marchuet
2010-01-20 20:53 UTC+0100 Miguel Angel Marchuet * includes/adordd.ch + added missing ado entries. Best regards, Miguel Angel Marchuet -- Throughout its 18-year history, RSA Conference consistently attracts the world's best and brightest in the field, creating opportunities for Conference attendees to learn about information security's most important issues through interactions with peers, luminaries and emerging and established companies. http://p.sf.net/sfu/rsaconf-dev2dev ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-11-20 00:02 UTC+0100 Miguel Angel Marchuet
2009-11-20 00:02 UTC+0100 Miguel Angel Marchuet * include\hbsetup.h * Added HB_LEGACY_LEVEL2 by default to admit HB_OS_WIN_32_USED, _WIN64 and HB_WINCE changed by HB_OS_WIN_USED, HB_OS_WIN_64, HB_OS_WIN_CE on previous commit. Please don't use it any more. Best regards, Miguel Angel Marchuet -- Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] Proposal for HB_IS_NUMERIC.
I have read the conversation about numerical consideration.
I propose an alternative solution RT error. Eliminating certain RT errors with
pragmas
for example:
# pragma NoTestError = BASE | 1340
not emerge for the 1340 runtime error division by 0 and be the default value 0
course may only be prepared as disabled those functions. PADL, PADR.
or when the key error exceeds 240 characters and thus operate as C/52 instead
of C/53.
# pragma NoTestError = DBFCDX | 1054
[SPANISH]
He leido atentamente la cnversación acerca de la consideración de numéricos.
Propongo una solución alternativa, Eliminar ciertos RT error usando pragmas
por ejemplo
#pragma NoTestError=BASE|1340
para que no emerja el runtime error 1340 division por 0 y resulte el valor por
defecto 0
evidentemente solo podran desactivarse aquellas funciones preparadas como.
PADL, PADR.
o bien el error cuando la key excede los 240 caractereS y asi actue como en
CL52 en lugar de CL53.
#pragma NoTestError=DBFCDX|1054
Best regards,
Miguel Angel Marchuet
Ron Pinkas escribió:
> Eduardo,
>
>> So, we could review all string functions like str(), strzero(), pad(),
>> etc, that call HB_IS_NUMERIC(), HB_IT_NUMERIC or ISNUM() to maintain, at
>> least, expected results or run time error, if any argument is inverted or
>> with any data type changed.
>>
>> f.e.:
>>
>> ? str("a",10,2)
>> ? strzero("b",10)
>> ? padl("9","*",10)
>> ? padr("9","*",10)
>> ? padc("9","*",10)
>
> Please note that it is absolutely VALID CODE to pass a single char as a
> NUMERIC value. I have lot's of such code intentionally. It would therefore
> be wrong to break a documented feature which has been working for years.
>
> Ron
>
>
> --
> Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
> trial. Simplify your report design, integration and deployment - and focus on
> what you do best, core application coding. Discover what's new with
> Crystal Reports now. http://p.sf.net/sfu/bobj-july
> ___
> xHarbour-developers mailing list
> xHarbour-developers@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/xharbour-developers
>
> __ Información de ESET NOD32 Antivirus, versión de la base de firmas
> de virus 4578 (20091106) __
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
>
__ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4586 (20091108) __
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-11-09 09:51 UTC+0100 Miguel Angel Marchuet
2009-11-09 09:51 UTC+0100 Miguel Angel Marchuet * contrib\filemem\filemem.c * contrib\firebird\firebird.c * contrib\freeimage\source\fi_winfu.c * contrib\freeimage\source\fi_wrp.c * contrib\gd\include\gd.h * contrib\gd\source\gdwrp.c * contrib\gtwvg\gtwvg.c * contrib\gtwvg\gtwvg.h * contrib\gtwvg\wvtcore.c * contrib\gtwvg\wvtutils.c * contrib\gtwvw\samples\winapi.c * contrib\hbmzip\hbmzip.c * contrib\hbzlib\include\hbz.h * contrib\hbzlib\include\hbzip2.h * contrib\libnf\caplock.c * contrib\libnf\descend.c * contrib\libnf\getenvrn.c * contrib\libnf\numlock.c * contrib\libnf\origin.c * contrib\mysql\mysql.c * contrib\pgsql\postgres.c * contrib\rdd_ads\ace32.c * contrib\rdd_ads\ads1.c * contrib\rdd_ads\adsfunc.c * contrib\rdd_ads\adsmgmnt.c * contrib\rdd_ads\rddads.h * contrib\tipssl\inetssl.c * contrib\tipssl\inetssl.h * contrib\what32\_wintbar.c * contrib\what32\source\_winbmp.c * contrib\what32\source\_winbrsh.c * contrib\what32\source\_winclpb.c * contrib\what32\source\_wincret.c * contrib\what32\source\_windate.c * contrib\what32\source\_windc.c * contrib\what32\source\_windir.c * contrib\what32\source\_windlg.c * contrib\what32\source\_windraw.c * contrib\what32\source\_winfont.c * contrib\what32\source\_wingdi.c * contrib\what32\source\_winhead.c * contrib\what32\source\_winilst.c * contrib\what32\source\_winini.c * contrib\what32\source\_winkbrd.c * contrib\what32\source\_winmain.c * contrib\what32\source\_winmeta.c * contrib\what32\source\_winmmcap.c * contrib\what32\source\_winmous.c * contrib\what32\source\_winpen.c * contrib\what32\source\_winrect.c * contrib\what32\source\_winreg.c * contrib\what32\source\_winrgn.c * contrib\what32\source\_winsys.c * contrib\what32\source\_wintbar.c * contrib\what32\source\_wintext.c * contrib\what32\source\_winview.c * contrib\what32\source\_winwnd.c * include\clipdefs.h * include\hb_io.h * include\hbapi.h * include\hbapifs.h * include\hbatomic.h * include\hbdefs.h * include\hbgtcore.h * include\hbgtinfo.ch * include\hbinit.h * include\hbipapi.h * include\hbole.h * include\hbsetup.h * include\hbwince.h * include\inet.h * include\thread.h * source\common\hbdate.c * source\common\hbfsapi.c * source\common\hbgete.c * source\common\hbver.c * source\common\hbwince.c * source\ct\ctnet.c * source\ct\dattime3.c * source\ct\disk.c * source\ct\envparam.c * source\ct\files.c * source\ct\keyset.c * source\ct\print.c * source\ct\settime.c * source\odbc\odbc.c * source\pp\ppgen.c * source\rdd\dbf1.c * source\rdd\dbf1net.c * source\rdd\dbfcdx\dbfcdx1.c * source\rdd\dbfnsx\dbfnsx1.c * source\rtl\bkgtsks.c * source\rtl\cdpapi.c * source\rtl\console.c * source\rtl\copyfile.c * source\rtl\diskspac.c * source\rtl\disksphb.c * source\rtl\dllcall.c * source\rtl\file.c * source\rtl\filebuf.c * source\rtl\filenet.c * source\rtl\filestat.c * source\rtl\filesys.c * source\rtl\fserror.c * source\rtl\fssize.c * source\rtl\fstemp.c * source\rtl\gtalleg\ssf.h * source\rtl\gtapi.c * source\rtl\gtcgi\cgiread.c * source\rtl\gtclip.c * source\rtl\gtgui\gtdef.c * source\rtl\gtgui\gtgui.c * source\rtl\gtkbstat.c * source\rtl\gtkeycod.c * source\rtl\gtpca\gtpca.c * source\rtl\gtstd\gtstd.c * source\rtl\gtsys.c * source\rtl\gttone.c * source\rtl\gtwin\gtwin.c * source\rtl\gtwvt\gtwvt.c * source\rtl\gtwvt\gtwvt.h * source\rtl\hbffind.c * source\rtl\hbgtcore.c * source\rtl\hbip.c * source\rtl\hboutdbg.c * source\rtl\hbrandom.c * source\rtl\hbserv.c * source\rtl\hbsyslog.c * source\rtl\idle.c * source\rtl\isprint.c * source\rtl\net.c * source\rtl\oemansi.c * source\rtl\seconds.c * source\rtl\set.c * source\rtl\tprinter.c * source\tip\utils.c * source\vm\cmdarg.c * source\vm\dynlibhb.c * source\vm\errorapi.c * source\vm\estack.c * source\vm\fm.c * source\vm\hvm.c * source\vm\inet.c * source\vm\maindll.c * source\vm\maindlle.c * source\vm\maindllh.c * source\vm\maindllp.c * source\vm\mainstd.c * source\vm\mainwin.c * source\vm\thread.c * source\vm\usedll.c * utils\hbfilere\hbfilere.c * utils\hbfilere\hbfilere.h * utils\hbmake\hbmlang.c * utils\hbpp\hbppcore.c * Added some missing castings. * Changed HB_OS_WIN_32_USED by HB_OS_WIN_USED, for all common windows platforms 16,32,64,... versions. * Changed _WIN64 by HB_OS_WIN_64 for especific 64 bits versions * Changed HB_WINCE by HB_OS_WIN_CE for especific Windows versions. * Cleaning code in general. (spaces after end
[xHarbour-developers] 2009-10-21 17:32 UTC+0100 Miguel Angel Marchuet
2009-10-21 17:32 UTC+0100 Miguel Angel Marchuet * source/vm/arrayshb.c * 2nd parameter of ADEL function can be now negative reference position to array. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4529 (20091021) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Come build with us! The BlackBerry(R) Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9 - 12, 2009. Register now! http://p.sf.net/sfu/devconference ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] ADEL() problem
¿ en que version era posible haver eso ?
Augusto Infante escribió:
> The following line fails to delete the last element of an array:
>
> ADEL( aArray, -1, .T. )
>
> Replacing -1 with LEN( aArray ) works. It used to work fine until a couple
> of months ago.
>
> Here's a self contained test showing the problem:
>
> FUNCTION Main( ... )
>LOCAL aArray := {"", "", ""}
>
>ADEL( aArray, -1, .T. )
>ADEL( aArray, -1, .T. )
>? "Lenght aArray: " + CSTR( LEN( aArray ) )
>inkey(0)
>
>ADEL( aArray, LEN( aArray ), .T. )
>ADEL( aArray, LEN( aArray ), .T. )
>? "Lenght aArray: " + CSTR( LEN( aArray ) )
>inkey(0)
> RETURN NIL
>
> Thanks
> Augusto Infante
>
>
>
> --
> Come build with us! The BlackBerry(R) Developer Conference in SF, CA
> is the only developer event you need to attend this year. Jumpstart your
> developing skills, take BlackBerry mobile applications to market and stay
> ahead of the curve. Join us from November 9 - 12, 2009. Register now!
> http://p.sf.net/sfu/devconference
> ___
> xHarbour-developers mailing list
> xHarbour-developers@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/xharbour-developers
>
> __ Información de ESET NOD32 Antivirus, versión de la base de firmas
> de virus 4527 (20091020) __
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
>
__ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4529 (20091021) __
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] ADEL() problem
with this or similar code it can works:
HB_FUNC( ADEL )
{
PHB_ITEM pArray = hb_param( 1, HB_IT_ARRAY );
if( pArray )
{
if( pArray->item.asArray.value->ulLen )
{
long lpos = ISNUM( 2 ) ? hb_parnl( 2 ) : 1;
lpos = lpos > 0 ? lpos : hb_arrayLen( pArray ) + lpos + 1;
if( hb_arrayDel( pArray, ( ULONG ) lpos ) )
{
#ifndef HB_C52_STRICT
PHB_ITEM pShrink = hb_param( 3, HB_IT_LOGICAL );
if( pShrink && pShrink->item.asLogical.value )
{
hb_arraySize( pArray, pArray->item.asArray.value->ulLen - 1
);
}
#endif
}
}
/* ADel() returns the array itself */
if( hb_stackItemFromBase( 1 )->type & HB_IT_BYREF )
{
hb_itemCopy( hb_stackReturnItem(), pArray );
}
else
{
hb_itemForwardValue( hb_stackReturnItem(), pArray );
}
}
}
Best regards,
Miguel Angel marchuet
__ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4529 (20091021) __
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-10-09 16:06 UTC+0100 Miguel Angel Marchuet
2009-10-09 16:06 UTC+0100 Miguel Angel Marchuet * file.c ! Fixed IsDirectory, broken after last casting work. Tested under windows platforms, need test on others as linux. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4493 (20091009) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Come build with us! The BlackBerry(R) Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9 - 12, 2009. Register now! http://p.sf.net/sfu/devconference ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] Bad line error
THIS GENERATE BAD LINE ERROR ANNOUNCE RDDSYS #include "hbclass.ch" CLASS TApp METHOD New() CONSTRUCTOR METHOD Test() BLOCK <|| __OutDebug( 1 ) __OutDebug( 2 ) __OutDebug( 3 ) __OutDebug( 4 ) RETURN Nil > ENDCLASS METHOD New() CLASS TApp RETURN Self FUNCTION MAIN() // Generating error TApp():Nor() RETURN Nil __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4490 (20091008) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Come build with us! The BlackBerry(R) Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9 - 12, 2009. Register now! http://p.sf.net/sfu/devconference ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] xHarbour and UNICODE
Ron Pinkas escribió:
> Miguel,
>
> I believe that Jacek is talking about full native VM support for
> UNICODE, f.e. assume an extra member in the asString structure to
> indicate encoding. Though I must admit I have no understanding of what
> kind of support can be provided for multiple languages in a single string.
>
> Ron
>
Yes, and I think the same as i purpose some time ago to Luiz Rafael.
But it has a speed cost in vm. and how identify strings.
LOCAL cUTF8Var:= _T"dfgkdjf"
LOCAL cSTRVar := "dfgkdjf" //As SetCodePage
LOCAL cWideVar:= _W"dfgkdjf"
LOCAL cSTROemVar := _O"dfgkdjf"
LOCAL cSTRAnsiVar := _A"dfgkdjf"
struct hb_struString
{
ULONG length;
ULONG allocated;
char * value;
HB_COUNTER* pulHolders; /* number of holders of this string */
USHORT uencode;/* utf8, ansi, oem, wide,... */
};
Nice work.
Any voluntaries :)
Best regards,
Miguel Angel Marchuet
__ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4490 (20091008) __
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] xHarbour and UNICODE
Not at all. remember that xharbour has implemented the next api, that can help to you: HB_UTF8SUBSTR HB_UTF8LEFT HB_UTF8RIGHT HB_UTF8PEEK HB_UTF8POKE HB_UTF8STUFF HB_UTF8LEN HB_UTF8STRTRAN HB_STRTOUTF8 HB_UTF8TOSTR HB_UTF8CHR with the same parameters than SUBSTR etc... Transform automatically strings to another subsystem is very dangerous because is difficult to recognize always the subtype of string. For example can be binary string with no translate allowed, resolve this question is developer work. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4490 (20091008) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Come build with us! The BlackBerry(R) Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9 - 12, 2009. Register now! http://p.sf.net/sfu/devconference ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] xHarbour and UNICODE
Really no change is necessary at xharbour, to finish your aplication.
GetValue and PutValue don't knows the content of char * saved at database
this is not important.
For example we save utf8 strings in a standard dbf, obviously we need to
overload comparation method to sort properly, but you don't have this problem.
If you use windows aplication don't need to convert unicode to PLWIN, you only
need
to convert to wide to paint chars correctly.
for example
HB_EXPORT LPWSTR hb_oleUTF8ToWide( LPSTR cString )
{
if( cString )
{
DWORD length;
wchar_t * wString;
length = MultiByteToWideChar( CP_UTF8, 0, cString, -1, NULL, 0 );
wString = ( wchar_t * ) hb_xgrab( ( length + 1 ) * sizeof( wchar_t ) );
if( MultiByteToWideChar( CP_UTF8, 0, cString, -1, wString, length + 1 ) )
return (LPWSTR) wString;
else
hb_xfree( wString );
}
return NULL;
}
HB_FUNC( UTF8TOWIDE ) // ( cAnsiStr ) -> cWideStr
{
char *cString = hb_parc( 1 );
if( cString )
{
BSTR wString = hb_oleUTF8ToWide( cString );
if( wString )
{
hb_retclenAdopt( (char *) wString, SysStringLen( wString ) );
return;
}
}
hb_ret();
return;
}
__ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4489 (20091008) __
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] xHarbour and UNICODE
OurXDbu is builded with xharbour and internally works with utf8 and wide chars. you can download it and select chinnese language to see the program . The same can be do for data. Is not a problem of xharbour, is a problem of developers. Of course is possible to do work more easy, adding some features to string items to identify: oem, ansi, wide, utf8 and others to do automated comparatives , upper, lower, sort and conversions to save it to another supports. I don't have enough time for this at the moment. But remember, no change is necessary to do an UNICODE application. Best regards, Miguel Angel Marchuet Jacek Potempa escribió: > Hi All, > > Now (ver. 1.2.1) all xHarbour codepages seem to be 8-bit (one byte per > character). There are some provisions for converting existing codepages > to UNICODE on Input/Output operations but all internal VM operation is > performed using the 8-bit host codepage. > > While for DBF files it may be enough, most of the SQL databases do > support UNICODE and many users need to use UNICODE in their applications. > > So the question. Are there any plans to extend xHarbour for UNICODE? > > Regards, > Jacek > > > -- > Come build with us! The BlackBerry(R) Developer Conference in SF, CA > is the only developer event you need to attend this year. Jumpstart your > developing skills, take BlackBerry mobile applications to market and stay > ahead of the curve. Join us from November 9 - 12, 2009. Register now! > http://p.sf.net/sfu/devconference > ___ > xHarbour-developers mailing list > xHarbour-developers@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/xharbour-developers > > __ Information from ESET Smart Security, version of virus signature > database 4488 (20091007) __ > > The message was checked by ESET Smart Security. > > http://www.eset.com > > > > > __ Information from ESET Smart Security, version of virus signature database 4488 (20091007) __ The message was checked by ESET Smart Security. http://www.eset.com -- Come build with us! The BlackBerry(R) Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9 - 12, 2009. Register now! http://p.sf.net/sfu/devconference ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] Remote GT
With the protocol file I created, has opened the doors to new possibilities. A very simple to implement a remote GT. I'm finishing my part FileMapView protocol that aims to create files in shared memory or terminal server local machine, so if faster than the typical Local / Global Alloc jumps 2 layers as the interface of windows. Some volunteers to create the HB_GT_REMOTE protocol ? Best regards, Miguel Angel Marchuet __ Information from ESET Smart Security, version of virus signature database 4485 (20091006) __ The message was checked by ESET Smart Security. http://www.eset.com -- Come build with us! The BlackBerry® Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9-12, 2009. Register now! http://p.sf.net/sfu/devconf ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-10-05 16:40 UTC+0100 Miguel Angel Marchuet
2009-10-05 16:40 UTC+0100 Miguel Angel Marchuet * include\hbapierr.h * include\hbinit.h * include\hbrddbmc.h * include\hbrddcdx.h * include\hbrdddbf.h * include\hbrdddbt.h * include\hbrddfpt.h * include\hbrddmdx.h * include\hbrddnsx.h * include\hbrddntx.h * include\hbrddrec.h * source\rdd\bmdbfcdx\bmdbfcdx1.c * source\rdd\bmdbfcdx\redbfcdx1.c * source\rdd\dbf1.c * source\rdd\dbf1net.c * source\rdd\dbfcdx\dbfcdx1.c * source\rdd\dbffpt\dbffpt1.c * source\rdd\dbffpt\redbffpt1.c * source\rdd\dbfmdx\dbfmdx1.c * source\rdd\dbfntx\dbfntx1.c * source\vm\errorapi.c * more pending casting and cleaning structures * makefile.bc * mdir.bat * common.mak * compile.mak * contrib\Makefile + contrib\filemem\filemem.c + contrib\filemem\makefile + contrib\filemem\tests\test.prg + Added memory file subsytem developed by Mindaugas Kavaliauskas for harbour. the files with prefix "mem:" in his named will be opened and created in memory if filemem.lib is added and REQUEST HB_MEMIO. I'm preparing another subsystem based on FileMapping that can shared memory files on the same machine or via terminal server. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4481 (20091005) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Come build with us! The BlackBerry® Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9-12, 2009. Register now! http://p.sf.net/sfu/devconf ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-10-01 19:04 UTC+0100 Miguel Angel Marchuet
2009-10-01 19:04 UTC+0100 Miguel Angel Marchuet * source\rdd\usrrdd\rdds\ansirdd.prg ! fixed FieldGet value was empty always. Best regards, Miguel Angel marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4476 (20091002) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Come build with us! The BlackBerry® Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9-12, 2009. Register now! http://p.sf.net/sfu/devconf ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-10-01 17:25 UTC+0100 Miguel Angel Marchuet
2009-10-01 17:25 UTC+0100 Miguel Angel Marchuet * source\rdd\usrrdd\rdds\ansirdd.prg - removed incorrect comments. * source\rtl\filenet.c * Changes needed to activate REMOTE file server to all rdds : delim, sdf bmdbfcdx, dbfntx, dbfcdx, rmdbfcdx, sixcdx, bmsixcdx,... Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4473 (20091001) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Come build with us! The BlackBerry® Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9-12, 2009. Register now! http://p.sf.net/sfu/devconf ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-10-01 10:10 UTC+0100 Miguel Angel Marchuet
2009-10-01 10:10 UTC+0100 Miguel Angel Marchuet
* common.mak
* compile.mak
* source\rdd\Makefile
+ source\rdd\dbrename.c
+ Added DBRENAME( , , , [],
[] ) or
DBRENAME( , ) to the famili of RDD functions
DBDROP DBEXIST, that can admit
to rename at server side the files, too at client side. It first was
implemented only at filenet api with
the next functions more:
NET_COPYTO( , | )
NET_COPYFROM( , | )
NET_COPYFILE( , | )
NET_FRENAME( , ) --> nSuccess
NET_FERASE( ) --> nSuccess
NET_MAKEDIR( ) --> nOSError
NET_DIRREMOVE( ) --> nOSError
NET_FILEATTR( [] ) --> nAttributes
NET_DIRECTORY( , [] ) -->
aDirectory
NET_OPENCONNECTION( , ) ->
pSocket
NET_CLOSECONNECTION( pSocket )
Patrick can you add this functions to help ?
DBEXITS( , [], [],
[] ) -> lSuccess
DBDROP( , [], [],
[] ) -> lSuccess
DBRENAME( , [], ,
[], [] ) -> lSuccess
NET_COPYTO( , | )
NET_COPYFROM( , | )
NET_COPYFILE( , | )
NET_FRENAME( , ) --> nSuccess
NET_FERASE( ) --> nSuccess
NET_MAKEDIR( ) --> nOSError
NET_DIRREMOVE( ) --> nOSError
NET_FILEATTR( [] ) --> nAttributes
NET_DIRECTORY( , [] ) -->
aDirectory
NET_OPENCONNECTION( , ) ->
pSocket
NET_CLOSECONNECTION( pSocket )
Best regards,
Miguel Angel Marchuet
__ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4471 (20090930) __
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
Come build with us! The BlackBerry® Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9-12, 2009. Register now!
http://p.sf.net/sfu/devconf
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-09-30 18:10 UTC+0100 Miguel Angel Marchuet
2009-09-30 18:10 UTC+0100 Miguel Angel Marchuet * contrib\rdd_ads\ads1.c * contrib\rdd_ads\adsfunc.c * contrib\rdd_ads\rddads.h * include\hbapi.h * include\hbapicdp.h * include\hbapifs.h * include\hbapirdd.h * include\hbdbf.h * include\hbdbsort.h * include\hbrddbmc.h * include\hbrddcdx.h * include\hbrdddbf.h * include\hbrdddel.h * include\hbrddfpt.h * include\hbrddmdx.h * include\hbrddnsx.h * include\hbrddntx.h * include\hbrddrec.h * include\hbrddsdf.h * include\hbsxfunc.h * include\thread.h * include\usrrdd.ch * source\common\hbdate.c * source\common\hbfopen.c * source\common\hbfsapi.c * source\compiler\harbour.c * source\compiler\hbgenerr.c * source\compiler\ppcomp.c * source\ct\disk.c * source\ct\files.c * source\ct\print.c * source\ct\strfile.c * source\macro\macro.y * source\misc\hb_f.c * source\pp\ppgen.c * source\rdd\bmdbfcdx\bmdbfcdx1.c * source\rdd\bmdbfcdx\redbfcdx1.c * source\rdd\dbcmd.c * source\rdd\dbf1.c * source\rdd\dbf1net.c * source\rdd\dbfcdx\dbfcdx1.c * source\rdd\dbffpt\dbffpt1.c * source\rdd\dbffpt\redbffpt1.c * source\rdd\dbfmdx\dbfmdx1.c * source\rdd\dbfnsx\dbfnsx1.c * source\rdd\dbfntx\dbfntx1.c * source\rdd\delim1.c * source\rdd\hbdbsort.c * source\rdd\hbsix\sxcompr.c * source\rdd\hbsix\sxcrypt.c * source\rdd\hbsix\sxdate.c * source\rdd\hbsix\sxfname.c * source\rdd\hbsix\sxord.c * source\rdd\hbsix\sxsem.c * source\rdd\hbsix\sxtable.c * source\rdd\hbsix\sxutil.c * source\rdd\hsx\hsx.c * source\rdd\sdf1.c * source\rdd\usrrdd\usrrdd.c * source\rdd\wafunc.c * source\rdd\workarea.c * source\rtl\cdpapi.c * source\rtl\copyfile.c * source\rtl\dirdrive.c * source\rtl\direct.c * source\rtl\file.c * source\rtl\filebuf.c * source\rtl\filehb.c * source\rtl\filenet.c * source\rtl\filesys.c * source\rtl\fssize.c * source\rtl\fstemp.c * source\rtl\hbip.c * source\rtl\hbmd5.c * source\rtl\memofile.c * source\rtl\natmsg.c * source\rtl\philes.c * source\rtl\set.c * source\rtl\spfiles.c * source\rtl\trace.c * source\tip\utils.c * source\vm\hbi18n.c * source\vm\macro.c * source\vm\memvars.c * source\vm\runner.c * utils\hbfilere\hbfilere.c * utils\hbfilere\hbfilere.h * utils\hbpp\hbpp.c * changed var types from BYTE to char and added const, to remove some compile warnings and to me more compatible with 3rd party libraries builded for harbour and xharbour. This changes don't take advantage at runtime but some protection at build xharbour time. ! fixed a lot of compile warnings. + Added full remote rdd support using rem: prefix at database file name. As suggest me Ron Pinkas and later Przemyslaw Czerpak, using an array of function pointers. * filebuf was developed by Przemyslaw Czerpak, borrowed from Harbour, and modified by me to add especific xharbour features to remote conections. * Changed rdd structures to do more easy 3rd party developers job in the future. Best regards Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4470 (20090930) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Come build with us! The BlackBerry® Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9-12, 2009. Register now! http://p.sf.net/sfu/devconf ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] Bad number line at errors
This code add 9 extra lines to error lines:
METHOD SemaforoOn( lTry ) BLOCK <|Self,lTry|
LOCAL lReturn := .T.
IF Empty( lTry )
WHILE ! (::cAliParEje)->(
lLockRecord(, {|| .F. } ) )
ENDDO
ELSEIF ! (::cAliParEje)->( lLockRecord(
, {|| .F. } ) )
lReturn := .F.
ENDIF
RETURN lReturn
>
Best regards,
Miguel Angel Marchuet
__ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4442 (20090921) __
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
Come build with us! The BlackBerry® Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9-12, 2009. Register now!
http://p.sf.net/sfu/devconf
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] Possible bug related to hb_enumindex
This code fails in some machines : WITH OBJECT oSheet FOR EACH aData IN aaData nCol := HB_EnumIndex() WITH OBJECT oSheet:Columns( nCol ) // Ancho :ColumnWidth := anWidth[nCol] END WITH NEXT END WITH and this works always: WITH OBJECT oSheet nCol := 0 FOR EACH aData IN aaData nCol++ WITH OBJECT oSheet:Columns( nCol ) // Ancho :ColumnWidth := anWidth[nCol] END WITH NEXT END WITH Its difficult to reproduce, because the same exe works or fail depending of the machine. __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4442 (20090921) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Come build with us! The BlackBerry® Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9-12, 2009. Register now! http://p.sf.net/sfu/devconf ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] 2009-09-16 18:10 UTC+0100 Miguel Angel Marchuet
restaured Andi Jahja escribió: > These ChangeLog entries were missing from ChangeLog file. > -- > Andi > > On Wed, 16 Sep 2009 18:00:10 +0200 > Miguel Angel Marchuet wrote: > >> 2009-09-16 18:10 UTC+0100 Miguel Angel Marchuet >> * compile.mak >> * utils\hbfilere\hbfilere.c >> * utils\hbfilere\hbfilere.h >> + Added TransmitPackets that increase transfer speed. Remember that is >> needed to build >> with versions of borland 5.8 or newer, or msvc compiler. >> * source\common\hbver.c >> + Added recognision of more versions of borland compilers. >> * source\rtl\hbip.c >> - removed unneeded code. >> * source\rtl\filenet.c >> * source\rtl\session.c >> * source\rdd\dbcmd.c >> ! fixed some warnings. > > > __ Información de ESET NOD32 Antivirus, versión de la base de firmas > de virus 4435 (20090917) __ > > ESET NOD32 Antivirus ha comprobado este mensaje. > > http://www.eset.com > > > > __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4435 (20090917) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Come build with us! The BlackBerry® Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9-12, 2009. Register now! http://p.sf.net/sfu/devconf ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] ChangeLog: 2009-09-16 11:30 UTC+0700 Andi Jahja
Talking about readlocks is completely intentionally, because the server operates in serialize mode, the server is not multi thread. for this reason RE_TURBO can be activated by default. Our application is running without GPF as you explain previously. REDBFCDX is only the beginning, as i explain some months ago, all dbf based RDDS at xharbour will work with this server or another as i explain yet to other developers at private mails, and too filesys subsystem. I'm finishing too, sessions and transactions, in similar way as is implemented at dBase IV I'm very interested in your observation about TURBO, but by the moment i don't have notice about any corruption or GPF using this type of server and of course not opening tables with external applications ;) Best regards, Miguel Angel Marchuet __ Informaci�n de ESET NOD32 Antivirus, versi�n de la base de firmas de virus 4430 (20090916) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Come build with us! The BlackBerry® Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9-12, 2009. Register now! http://p.sf.net/sfu/devconf___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-09-16 18:10 UTC+0100 Miguel Angel Marchuet
2009-09-16 18:10 UTC+0100 Miguel Angel Marchuet * compile.mak * utils\hbfilere\hbfilere.c * utils\hbfilere\hbfilere.h + Added TransmitPackets that increase transfer speed. Remember that is needed to build with versions of borland 5.8 or newer, or msvc compiler. * source\common\hbver.c + Added recognision of more versions of borland compilers. * source\rtl\hbip.c - removed unneeded code. * source\rtl\filenet.c * source\rtl\session.c * source\rdd\dbcmd.c ! fixed some warnings. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4430 (20090916) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Come build with us! The BlackBerry® Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9-12, 2009. Register now! http://p.sf.net/sfu/devconf ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] GCC Warnings
I try to remove some of these warnings Andi Jahja escribió: > Here are GCC warnings on core files: > > --- start --- > source/compiler/harbour.sly:390.14-76: warning: unused value: $3 > source/compiler/harbour.sly:391.14-88: warning: unused value: $3 > source/compiler/harbour.sly:391.14-88: warning: unused value: $5 > source/compiler/harbour.sly:2880.14-2939.16: warning: unused value: $2 > source/rtl/session.c: In function 'hb_sessionID': > source/rtl/session.c:116: warning: pointer/integer type mismatch in > conditional expression > source/rtl/session.c:116: warning: return makes integer from pointer without > a cast > source/rtl/set.c: In function 'hb_setSetItem': > source/rtl/set.c:1743: warning: enumeration value 'HB_SET_ERRORLOG' not > handled in switch > source/rtl/set.c:1743: warning: enumeration value 'HB_SET_MACROBLOCKVARS' not > handled in switch > source/rtl/set.c:1743: warning: enumeration value 'HB_SET_PRINTERJOB' not > handled in switch > source/rtl/set.c:1743: warning: enumeration value 'HB_SET_TRACE' not handled > in switch > source/rtl/set.c:1743: warning: enumeration value 'HB_SET_TRACEFILE' not > handled in switch > source/rtl/set.c:1743: warning: enumeration value 'HB_SET_TRACESTACK' not > handled in switch > source/rtl/filenet.c: In function 'hb_fileNetExtOpen': > source/rtl/filenet.c:737: warning: format '%p' expects type 'void **', but > argument 3 has type 'HB_FHANDLE *' > source/rtl/filenet.c: In function 'hb_fileNetClose': > source/rtl/filenet.c:816: warning: format '%p' expects type 'void *', but > argument 3 has type 'HB_FHANDLE' > source/rtl/filenet.c: In function 'hb_fileNetLock': > source/rtl/filenet.c:852: warning: format '%p' expects type 'void *', but > argument 3 has type 'HB_FHANDLE' > source/rtl/filenet.c:880: warning: format '%p' expects type 'void *', but > argument 3 has type 'HB_FHANDLE' > source/rtl/filenet.c: In function 'hb_fileNetReadAt': > source/rtl/filenet.c:913: warning: format '%p' expects type 'void *', but > argument 3 has type 'HB_FHANDLE' > source/rtl/filenet.c: In function 'hb_fileNetReadLarge': > source/rtl/filenet.c:953: warning: format '%p' expects type 'void *', but > argument 3 has type 'HB_FHANDLE' > source/rtl/filenet.c: In function 'hb_fileNetWriteAt': > source/rtl/filenet.c:993: warning: format '%p' expects type 'void *', but > argument 3 has type 'HB_FHANDLE' > source/rtl/filenet.c: In function 'hb_fileNetWriteLarge': > source/rtl/filenet.c:1037: warning: format '%p' expects type 'void *', but > argument 3 has type 'HB_FHANDLE' > source/rtl/filenet.c: In function 'hb_fileNetWrite': > source/rtl/filenet.c:1082: warning: format '%p' expects type 'void *', but > argument 3 has type 'HB_FHANDLE' > source/rtl/filenet.c: In function 'hb_fileNetTruncAt': > source/rtl/filenet.c:1123: warning: format '%p' expects type 'void *', but > argument 3 has type 'HB_FHANDLE' > source/rtl/filenet.c: In function 'hb_fileNetSeekLarge': > source/rtl/filenet.c:1145: warning: format '%p' expects type 'void *', but > argument 3 has type 'HB_FHANDLE' > source/rtl/filenet.c:1156: warning: format '%lu' expects type 'long unsigned > int *', but argument 3 has type 'short unsigned int *' > source/rtl/filenet.c: In function 'hb_fileNetCommit': > source/rtl/filenet.c:1190: warning: format '%p' expects type 'void *', but > argument 3 has type 'HB_FHANDLE' > source/rtl/filenet.c: In function 'hb_FileNetFindNext': > source/rtl/filenet.c:1455: warning: array subscript is above array bounds > source/rtl/filenet.c: In function 'hb_FileNetFindFirst': > source/rtl/filenet.c:1408: warning: array subscript is above array bounds > source/rdd/dbcmd.c: In function 'HB_FUN_ISMARKED': > source/rdd/dbcmd.c:931: warning: passing argument 2 of 'hb_itemPutL' makes > integer from pointer without a cast > include/hbapiitm.h:136: note: expected 'BOOL' but argument is of type 'void *' > include/hbrdddbf.h:269: warning: 'hb_dbfBof' declared 'static' but never > defined > include/hbrdddbf.h:270: warning: 'hb_dbfEof' declared 'static' but never > defined > include/hbrdddbf.h:271: warning: 'hb_dbfFound' declared 'static' but never > defined > include/hbrdddbf.h:272: warning: 'hb_dbfGoBottom' declared 'static' but never > defined > include/hbrdddbf.h:273: warning: 'hb_dbfGoTo' declared 'static' but never > defined > include/hbrdddbf.h:274: warning: 'hb_dbfGoToId' declared 'static' but never > defined > include/hbrdddbf.h:275: warning: 'hb_dbfGoTop' declared 'static' but never > defined > include/hbrdddbf.h:277: warning: 'hb_dbfSkip' declared 'static' but never > defined > include/hbrdddbf.h:279: warning: 'hb_dbfSkipRaw' declared 'static' but never > defined > include/hbrdddbf.h:280: warning: 'hb_dbfAddField' declared 'static' but never > defined > include/hbrdddbf.h:281: warning: 'hb_dbfAppend' declared 'static' but never > defined > include/hbrdddbf.h:283: warning: 'hb_dbfDeleteRec' declared 'static' but > never defined > include/hbrdddbf.h:284: warning: 'hb_dbfDel
Re: [xHarbour-developers] ChangeLog: 2009-09-16 11:30 UTC+0700 Andi Jahja
Results of test:
withconst 32.41 seconds
without const 32.34 seconds
Press any key to continue...
Demostration :
#DEFINE REC_TEST 1
FUNCTION MAIN()
LOCAL p, n
REQUEST HB_GT_WIN
p := Seconds()
FOR n := 1 TO REC_TEST
CallConstTest()
NEXT
? " withconst " + AllTrim( Str( seconds() - p ) ) + " seconds"
p := Seconds()
FOR n := 1 TO REC_TEST
CallTest()
NEXT
? " without const " + AllTrim( Str( seconds() - p ) ) + " seconds"
wait
RETURN NIL
#pragma BEGINDUMP
#include "hbapi.h"
HB_FUNC( CALLCONSTTEST )
{
const int posmotrim = 100;
hb_retni( posmotrim );
}
HB_FUNC( CALLTEST )
{
int posmotrim = 100;
hb_retni( posmotrim );
}
#pragma ENDDUMP
Przemyslaw Czerpak escribió:
> On Wed, 16 Sep 2009, Enrico Maria Giordano wrote:
>>> I see the previous changes of Phil, some days ago
>>> i decided not port to xharbour (const) beacause it only
>>> changes speed by security under some compilers. I remark
>>> some compilers (BCC for example almoust at my machine)
>> I can't see how the const specifier can reduce the program speed. Did you
>> have a test that demostrates this?
>
> It may only increase the speed because it gives information to compiler
> that the body of string cannot be changed by called function so it's
> possible to use deeper optimizations.
> Runtime protection (if any) is done using readonly memory segments and
> it also can only increase the speed because CPU can use cache more
> efficiently when it knows that some memory pages cannot be modified,
> i.e. it does not have to update or sync them on write.
> There is no technical reasons to reduce the speed by using 'const' modifier
> everywhere it's possible but they are situations when missing 'const'
> reduces the speed.
> So it improve the speed and also gives additional compile time
> protection which nicely helps to locate and fix some type of bugs.
>
> best regards,
> Przemek
>
> --
> Come build with us! The BlackBerry® Developer Conference in SF, CA
> is the only developer event you need to attend this year. Jumpstart your
> developing skills, take BlackBerry mobile applications to market and stay
> ahead of the curve. Join us from November 9-12, 2009. Register now!
> http://p.sf.net/sfu/devconf
> ___
> xHarbour-developers mailing list
> xHarbour-developers@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/xharbour-developers
>
> __ Información de ESET NOD32 Antivirus, versión de la base de firmas
> de virus 4429 (20090916) __
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
>
__ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4429 (20090916) __
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
Come build with us! The BlackBerry® Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9-12, 2009. Register now!
http://p.sf.net/sfu/devconf
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] ChangeLog: 2009-09-16 11:30 UTC+0700 Andi Jahja
2) const does not affect speed. here affect, i test it carefully, it's low cost but is low cost, almoust here, i don't know if it depends on compiler, OS or hardware. But here occurs. Is a low speed cost, but exists ;) It's only a comment, is not a critical comment. I prefer first to understand why affect some instalations. Best regards, Miguel Angel Marchuet __ Informaci�n de ESET NOD32 Antivirus, versi�n de la base de firmas de virus 4428 (20090916) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Come build with us! The BlackBerry® Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9-12, 2009. Register now! http://p.sf.net/sfu/devconf___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] ChangeLog: 2009-09-16 11:30 UTC+0700 Andi Jahja
thanks andi ;) I see the previous changes of Phil, some days ago i decided not port to xharbour (const) beacause it only changes speed by security under some compilers. I remark some compilers (BCC for example almoust at my machine) I'm talking about xharbour developers, because the rest normally don't touch c code. In my opinion i prefer speed, because (const) don't report any benefit Opinions ? Best regards, Miguel Angel Marchuet Andi Jahja escribió: > 2009-09-16 11:30 UTC+0700 Andi Jahja >* source/common/hbfopen.c >* source/rtl/spfiles.c >* source/rtl/trace.c > ! hbapifs.h -> hbapi.h >fix to compile with _HB_API_INTERNAL_ and HB_STACK_MACROSand > HB_API_MACROS > >* source/rtl/filenet.c >* source/rdd/dbffpt/redbffpt1.c > ! type cast > >* source/vm/initexit.c >* source/rtl/bkgtsks.c >* source/rtl/console.c >* source/rtl/hbserv.c >* source/rtl/math.c >* source/rdd/wafunc.c >* source/rdd/wacore.c > ! define _HB_API_INTERNAL_ only if not defined yet. > -- > Andi > > > -- > Come build with us! The BlackBerry® Developer Conference in SF, CA > is the only developer event you need to attend this year. Jumpstart your > developing skills, take BlackBerry mobile applications to market and stay > ahead of the curve. Join us from November 9-12, 2009. Register now! > http://p.sf.net/sfu/devconf > ___ > xHarbour-developers mailing list > xHarbour-developers@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/xharbour-developers > > __ Información de ESET NOD32 Antivirus, versión de la base de firmas > de virus 4428 (20090916) __ > > ESET NOD32 Antivirus ha comprobado este mensaje. > > http://www.eset.com > > > > __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4428 (20090916) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Come build with us! The BlackBerry® Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9-12, 2009. Register now! http://p.sf.net/sfu/devconf ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] 2009-08-08 14:54 UTC-0800 Augusto Infante
After changes method EOF of OLEDB object is returning .F. for false and numeric for .T. Best regards, Miguel Angel Marchuet Augusto Infante escribió: > Yes, they put the log in ChangeLog.029 > > If the object returns E_FAIL TOleauto was throwing a GPF > > > > -Original Message- > From: Ron Pinkas [mailto:ron.pin...@xharbour.com] > Sent: Sunday, September 06, 2009 23:26 > To: Augusto Infante; 'Enrico Maria Giordano'; 'xHarbour Developers Mailing > List' > Subject: Re: [xHarbour-developers] 2009-08-08 14:54 UTC-0800 Augusto > Infante > > Aug, > > I just found that you made a significant change to Win32Ole.prg which is not > > recorded in ChangeLog, and I also can't find it reported to the DL. More > importantly this change causes memory leaks and may even leave orphan > references to Dispatch interfaces. > > I tried to understand the objective of the change but I can't understand > what problem it was supposed to solve - please explain the problem. > > Ron > > -- > From: "Augusto Infante" > Sent: Saturday, August 08, 2009 2:58 PM > To: "'Enrico Maria Giordano'" ; "'xHarbour > Developers Mailing List'" > Subject: [xHarbour-developers] 2009-08-08 14:54 UTC-0800 Augusto > Infante > >> 2009-08-08 14:54 UTC-0800 Augusto Infante >> * c:\xHarbour\source\rtl\win32ole.prg >>! Fixed Warning W8004 source\\rtl\\win32ole.prg 2852: 'pDisp' is >> assigned >> a value that is never used in function HB_FUN_TOLEAUTO_ONERROR. >> >> >> >> > > -- >> Let Crystal Reports handle the reporting - Free Crystal Reports 2008 >> 30-Day >> trial. Simplify your report design, integration and deployment - and focus > >> on >> what you do best, core application coding. Discover what's new with >> Crystal Reports now. http://p.sf.net/sfu/bobj-july >> ___ >> xHarbour-developers mailing list >> xHarbour-developers@lists.sourceforge.net >> https://lists.sourceforge.net/lists/listinfo/xharbour-developers >> > > > -- > Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day > trial. Simplify your report design, integration and deployment - and focus on > what you do best, core application coding. Discover what's new with > Crystal Reports now. http://p.sf.net/sfu/bobj-july > ___ > xHarbour-developers mailing list > xHarbour-developers@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/xharbour-developers > > __ Información de ESET NOD32 Antivirus, versión de la base de firmas > de virus 4406 (20090908) __ > > ESET NOD32 Antivirus ha comprobado este mensaje. > > http://www.eset.com > > > > __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4412 (20090909) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] offline
3 weeks I will be offline, Best regards Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4334 (20090814) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] changelog 2009-08-04 14:20 UTC-0300 Luiz Rafael Culik
If i want to develop a client aplicattion, which want sends mail via SSL and normal is it possible ? Please can you help me to finish linux version of hb File Server (daemon) it builds, but i don't know enought linux to test it. Best regards, Miguel Angel Marchuet Luiz Rafael Culik Guimaraes escribió: > !common.mak >makefile.bc > !changed to compile tipssl > set the HB_DIR_OPENSSL envar to openssl install directory > ! Changelog > ! Renamed to ChangeLog.029 and started an new One > > + contrib/tipssl/client.prg > + contrib/tipssl/httpcln.prg > + contrib/tipssl/mail.prg > + contrib/tipssl/popcln.prg > + contrib/tipssl/sendmail.prg > + contrib/tipssl/smtpcln.prg > + contrib/tipssl/inetssl.c > + contrib/tipssl/inetssl.h > * Added Code to support ssl connection for http/smtp/pop3 > > + contrib/tipssl/Makefile > + contrib/tipssl/test.prg > * sample to desmostrate on how to use gmail ans yahoo server > For windows, you need to install open ssl > just install > http://www.slproweb.com/download/Win32OpenSSL-0_9_8k.exe and > > http://www.microsoft.com/downloads/details.aspx?familyid=9B2DA534-3E03-4391-8A4D-074B9F2BC1BF > To get certificates from an site is easy > once openssl is instaled ( in my machine i've added v:\openssl\bin to my > path envar do ) > openssl s_client -connect -showcerts > for example > to get yahoo pop3 certificate > openssl s_client pop.mail.yahoo.com:995 -showcerts >2 2>&1 (to terminate > prest CTRL+C > open the 2 file > copy all content between -BEGIN CERTIFICATE-/-END > CERTIFICATE- inclusive > this lines to one file ( if more then one occurence, create an file to > each one > save each file in openssl\bin\certs with .pem extension. in linux save > the files to /etc/ssl/certs > > open an dos shell > under windows do > > go top openssl\bin\certs > run openssl" x509 -hash -fingerprint -noout -in fileyousaved.pem > copy fileyousave.pem to hash returned on command above > example > if you save the file as gmail.pem do > V:\OpenSSL\bin\PEM>..\openssl x509 -hash -fingerprint -noout -in > gmail.pem > 7f549ca4 << NOTE this number > SHA1 > Fingerprint=51:21:45:CE:CE:99:19:87:7D:CE:3F:52:C0:31:0F:7E:FB:B4:6A:6F > then copy gmail.pem to 7f549ca4.0 > under linux > execute the c_rehash command > > Regards > Luiz > > > -- > Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day > trial. Simplify your report design, integration and deployment - and focus on > what you do best, core application coding. Discover what's new with > Crystal Reports now. http://p.sf.net/sfu/bobj-july > ___ > xHarbour-developers mailing list > xHarbour-developers@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/xharbour-developers > > __ Información de ESET NOD32 Antivirus, versión de la base de firmas > de virus 4320 (20090809) __ > > ESET NOD32 Antivirus ha comprobado este mensaje. > > http://www.eset.com > > > > __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4325 (20090811) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-08-06 18:10 UTC+0100 Miguel Angel Marchuet
2009-08-06 18:10 UTC+0100 Miguel Angel Marchuet * source\rdd\bmdbfcdx\redbfcdx1.c * source\rtl\filenet.c * no changes, only touched or syntax. * utils\hbfilere\hbfilere.c * prepare File Server to run as daemon under linux platforms. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4312 (20090806) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-08-05 22:07 UTC+0100 Miguel Angel Marchuet
2009-08-05 22:07 UTC+0100 Miguel Angel Marchuet * source\cgi\thtm.prg ! fixed unused variable under linux builds. * utils\hbfilere\Makefile * utils\hbfilere\hbfilere.c ! fixed linux build, but not tested yet. Best regards, Miguel Angel Marchuet __ Information from ESET Smart Security, version of virus signature database 4309 (20090805) __ The message was checked by ESET Smart Security. http://www.eset.com -- Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-08-05 12:57 UTC+0100 Miguel Angel Marchuet
2009-08-05 12:57 UTC+0100 Miguel Angel Marchuet * source\rtl\filenet.c ! fixed and optimized reuse file handle under windows 2008 server platforms working as client. * source\rtl\hbip.c % minor optimizations. * tests\netrdd.prg * Added test to get best buffer size for tcp transmissions. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4307 (20090805) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-08-04 11:46 UTC+0100 Miguel Angel Marchuet
2009-08-04 11:46 UTC+0100 Miguel Angel Marchuet * include\hbapifs.h * source\rdd\bmdbfcdx\redbfcdx1.c * source\rtl\filenet.c * source\rtl\hbip.c * utils\hbfilere\hbfilere.c + Added local buffer to increase speed on SET OPTIMIZE ON filters. + Added NET_SETBUFFERSIZE( nBufferSize ) -> nBufferSize to change size of buffer on client machine. ! Fixed handle file buffers, it was merging local and remote files with the same name, path and handle. + doc\filere.txt + Added File Remote API documentation. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4303 (20090804) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] File remote public API
PRG level API for Remote File System
=
NET_COPYTO( , | )
NET_COPYFROM( , | )
NET_COPYFILE( , | )
NET_FRENAME( , ) --> nSuccess
NET_FERASE( ) --> nSuccess
NET_MAKEDIR( ) --> nOSError
NET_DIRREMOVE( ) --> nOSError
NET_FILEATTR( [] ) --> nAttributes
NET_DIRECTORY( , [] ) --> aDirectory
NET_OPENCONNECTION( , ) -> pSocket
NET_CLOSECONNECTION( pSocket )
NET_SETBUFFERSIZE( nBufferSize ) -> nBufferSize
// Some net cards need a specific size to optimize speed. try with
// aBuffSizes := {1024,2048,4096,8192,16384,32768,65535}
// We've detected that some operating systems with 100Mb Cards runs better with
8Kb of buffer
C level API
=
PHB_FILE hb_fileNetExtOpen( BYTE * pFilename, BYTE * pDefExt, USHORT
uiExFlags, BYTE * pPaths,
PHB_ITEM pError, BOOL fBufferLock );
PHB_FILE hb_fileNetCreateTemp( const BYTE * pszDir, const BYTE * pszPrefix,
ULONG ulAttr, BYTE * pszFileName );
PHB_FILE hb_fileNetCreateTempEx( BYTE * pszFileName,
const BYTE * pszDir,
const BYTE * pszPrefix,
const BYTE * pszExt,
ULONG ulAttr );
PHB_FILE hb_fileNetGetFileToTemp( PHB_FILE pFile, BYTE * pszFileName );
void hb_fileNetClose( PHB_FILE pFile );
BOOL hb_fileNetLock( PHB_FILE pFile, HB_FOFFSET ulStart, HB_FOFFSET
ulLen, int iType )
ULONG hb_fileNetReadAt( PHB_FILE pFile, BYTE * buffer, ULONG ulSize,
HB_FOFFSET llOffset )
ULONG hb_fileNetReadLarge( PHB_FILE pFile, BYTE * buffer, ULONG ulSize )
ULONG hb_fileNetWriteAt( PHB_FILE pFile, const BYTE * buffer, ULONG
ulSize, HB_FOFFSET llOffset )
USHORT hb_fileNetWrite( PHB_FILE pFile, const BYTE * pBuffer, USHORT
uiCount )
ULONG hb_fileNetWriteLarge( PHB_FILE pFile, const BYTE * buffer, ULONG
ulSize )
BOOL hb_fileNetTruncAt( PHB_FILE pFile, HB_FOFFSET llOffset )
HB_FOFFSET hb_fileNetSize( PHB_FILE pFile )
HB_FOFFSET hb_fileNetSeek( PHB_FILE pFile, LONG lOffset, USHORT uiFlags )
HB_FOFFSET hb_fileNetSeekLarge( PHB_FILE pFile, HB_FOFFSET llOffset, USHORT
uiFlags )
BOOL hb_fileNetDelete( BYTE * pszFilename, USHORT uiRemote )
void hb_fileNetCommit( PHB_FILE pFile )
HB_FHANDLE hb_fileNetHandle( PHB_FILE pFile )
BOOL hb_FileNetExists( BYTE * pszFileName, BYTE * pRetPath )
BOOL hb_FileNetFile( BYTE * pFilename )
BYTE * hb_fileNetFileName( PHB_FILE pFile )
PHB_NETFFIND hb_FileNetFindFirst( const char * pszFileName, ULONG ulAttr )
BOOL hb_FileNetFindNext( PHB_NETFFIND pffind )
void hb_FileNetFindClose( PHB_NETFFIND pffind )
ULONG hb_fileNetGetFileAttributes( BYTE * pszFileName )
void hb_FileNetDirectory( PHB_ITEM pDir, char* szSkleton, char*
szAttributes, BOOL bDirOnly, BOOL bFullPath )
BOOL hb_fileNetMkDir( BYTE * pPath )
BOOL hb_fileNetRmDir( BYTE * pPath )
USHORT hb_fileNetRemote( PHB_FILE pFile )
TODO:
NET_FOPEN
NET_FSEEK
NET_FREAD
NET_FWRITE
NET_FREADAT
NET_FWRITEAT
NET_FLOCK
NET_FCLOSE
__ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4303 (20090804) __
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-07-31 12:15 UTC+0100 Miguel Angel Marchuet
2009-07-31 12:15 UTC+0100 Miguel Angel Marchuet * include\hbrdddbf.h * include\hbrdddbt.h * include\hbrddfpt.h * source\rdd\dbf1.c - removed twice used headers. * Changed if expression that contains a function call to be happy to PellesC 6.0. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4293 (20090731) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-07-30 11:03 UTC+0100 Miguel Angel Marchuet
2009-07-30 11:03 UTC+0100 Miguel Angel Marchuet * source\rdd\bmdbfcdx\bmdbfcdx1.c * source\rdd\bmdbfcdx\redbfcdx1.c * source\rdd\dbfcdx\dbfcdx1.c * source\rdd\dbfmdx\dbfmdx1.c ! fixed silly type in previous upload. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4289 (20090729) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-07-30 00:01 UTC+0100 Miguel Angel Marchuet
2009-07-30 00:01 UTC+0100 Miguel Angel Marchuet * include\hbapirdd.h * include\hbapises.h * source\rdd\bmdbfcdx\bmdbfcdx1.c * source\rdd\bmdbfcdx\redbfcdx1.c * source\rdd\dbfcdx\dbfcdx1.c * source\rdd\dbfmdx\dbfmdx1.c * utils\hbfilere\hbfilere.c * Ridiculous changes to do happy PellesC compiler. * makefile.pc + Added missing wsock32.lib to COMPILERLIBS Now PellesC builds too Any voluntary too add WINCE ? Best regards, Miguel Angel Marchuet __ Information from ESET Smart Security, version of virus signature database 4289 (20090729) __ The message was checked by ESET Smart Security. http://www.eset.com -- Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-07-23 12:30 UTC+0100 Miguel Angel Marchuet
2009-07-23 12:30 UTC+0100 Miguel Angel Marchuet * common.mak * compile.mak * makefile.bc * makefile.dc * makefile.gc * makefile.pc * makefile.vc * makefile.wc * mdir.bat - removed -p and changed to -gc0 from standard build. + Added build of Remote File Server. bin\hbfilere.exe * source\rdd\bmdbfcdx\bmdbfcdx1.c * minor pad changes. * source\rtl\filenet.c * source\rdd\bmdbfcdx\redbfcdx1.c * source\rdd\dbf1net.c * Modified protocol to accel reading operations. by default it operates in turbo mode, if you want to acces to the same files by another rdd at the same time, you need RE_Turbo( .F. ) to reactivate read lock index. * include\hbipapi.h * source\rtl\hbip.c * modified buffers as recomend microsoft: To modify the socket send buffer, use the Windows Sockets getsockopt function to determine the current socket send buffer size (SO_SNDBUF), and then use the setsockopt function to set the socket send buffer size. When you are finished, the SO_SNDBUF value must be at least 1 byte larger than the program send buffer size. Modify the send call or the WSASend call to specify a buffer size at least 1 byte smaller than the SO_SNDBUF value. In the earlier example in the "Cause" section of this article. http://support.microsoft.com/kb/823764/en-us/ * include\hbapises.h * source\rtl\session.c ! added some fixes but remains unfinished. + utils\Makefile + utils\hbfilere\Makefile + utils\hbfilere\hbfilere.c + utils\hbfilere\hbfilere.h + Added full code of Senior File Server for xharbour. By the moment only rdd REDBFCDX can connect with this server, but i hope at next weeks, all dbf based rdds can connect with it optional, and add full FILE api to work with remote files. Best regards any enjoy with it ;) Miguel Angel Marchuet DSG Software S.L. __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4289 (20090729) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] File remote server
By the moment we don't change file remote API and rdd to a contrib, because we are doing final server test. The next week, we decide to upload code of server or remove new API. Probably we upload full code, as standard code of communications for file remote. Well hope that all the developers who wish to collaborate on improving it, such as a service that can run on Linux servers or clients can be WinCE. Best regards, Miguel Angel Marchuet Frutos DSG Software S.L. __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4273 (20090724) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] ppo files
I see that we are generating ppo files when build xharbour HARBOURFLAGS =$(HARBOURFLAGS) -po$(OBJ_DIR)\ -i$(INCLUDE_DIR) -q0 -w2 -es2 -gc2 i think it will be optional any opinion ? __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4269 (20090723) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-07-23 12:30 UTC+0100 Miguel Angel Marchuet
2009-07-23 12:30 UTC+0100 Miguel Angel Marchuet * source/rdd/dbfmdx/dfbmdx1.c * restablished copyrights, until file was replaced by new one in progress. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4269 (20090723) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] [Harbour] Remote rdd
Looking at xHarbour source code I can see that you created yest another copy of dbfcdx1.c in source/rdd/dbfmdx/dbfmdx1.c which is not MDX RDD but simple copy of DBFCDX where you changed DBFCDX to DBFMDX and replaced original authors copyrights with your own. Sorry, is not my intention, i will restablish copyright by the moment i'm rewriting fully dbfmdx1.c, but my time is limited, i have the code pseudo prepared to upload, when i finish work i will replace current file. __ Informaci�n de ESET NOD32 Antivirus, versi�n de la base de firmas de virus 4269 (20090723) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-07-23 12:30 UTC+0100 Miguel Angel Marchuet
2009-07-23 12:30 UTC+0100 Miguel Angel Marchuet * source/rtl/filenet.c * modified some api to be able to work without client/server. - bin/hbfilere.exe - Removed temporary until we decided to be free full code or not. If any body needs it please contact with me. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4269 (20090723) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-07-22 21:07 UTC+0100 Miguel Angel Marchuet
2009-07-22 21:07 UTC+0100 Miguel Angel Marchuet + tests/netrdd.prg + Added sample to test speed of netrdd REDBFCDX, required to intall hbfilere.exe + bin/hbfilere.exe + Added windows server hbfilere.exe, with limited its license by the moment. it can be used only by developers with 2 connections available. steps to install: 1) copy the server at root data folder, from bin directory 2) execute hbfilere.exe -i // to install the service and start use SET DEFAULT TO and SET PATH TO to indicate how the server see the files bin/hbfilere.exe -s // to start the service bin/hbfilere.exe -k // to kill the service bin/hbfilere.exe -u // to uninstall the service * bin\bld.bat + Added bmdbfcdx and redbfcdx rdds. Best regards, Miguel Angel marchuet __ Information from ESET Smart Security, version of virus signature database 4267 (20090722) __ The message was checked by ESET Smart Security. http://www.eset.com -- ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] Sample of new rdd use.
to test new NETRDD
TEST.PRG:
ANNOUNCE RDDSYS
REQUEST DBFCDX,REDBFCDX,BMDBFCDX
FUNCTION MAIN( cRdd, cIP )
LOCAL n,t,m,p,J, pConn
IF Empty( cRdd )
cRdd := "REDBFCDX"
ENDIF
IF Empty( cIP )
cIP := "127.0.0.1"
ELSE
cIP := AllTrim( cIP )
ENDIF
SET DATE FORMAT "DD/MM/"
RDDSETDEFAULT( cRdd )
SET DELETED ON
SET AUTOPEN ON
IF cRdd == 'REDBFCDX'
? "CONECTED A IP: " + cIP + ":2813"
pConn := NET_OPENCONNECTION( cIP, 2813 )
IF Empty( pConn )
? "SERVER DON'T WORK"
RETURN
END
ENDIF
IF ! HB_DBExists( "TMPTEST" )
? "creando tabla"
DBCREATE( "TMPTEST", { { "A1", "C", 10, 0 } }, cRdd )
ENDIF
USE TMPTEST SHARED NEW ALIAS "ONE" VIA ( cRdd )
IF LastRec() < 5
? "añadiendo 5 registros"
p := seconds()
FOR n := 1 TO 5
APPEND BLANK
REPLACE FIELD->A1 WITH "0123456789"
NEXT
?? " -> " + AllTrim( Str( seconds() - p ) ) + " seconds"
ENDIF
SET OPTIMIZE ON
IF HB_DBExists( "TMPTEST.CDX" )
OrdSetFocus( "TG1" )
ELSE
INDEX ON FIELD->A1 TAG tg1 TO ("TMPTEST.CDX")
ENDIF
? "Indice activo : " + ORDKEY()
? "Filtrando por : " + "RecNo() > 100 .AND. RecNo() < 200"
p := seconds()
DbSetFilter( {|| RecNo() > 100 .AND. RecNo() < 200 }, "RecNo() > 100 .AND.
RecNo() < 200" )
?? " -> " + AllTrim( Str( seconds() - p ) ) + " seconds"
WAIT
p := t := seconds()
FOR M := 1 TO 10
? "PASO " + AllTrim( str( M ) )
DBGOTOP()
FOR n := 1 TO 5
J := ORDKEYNO()
J := ORDKEYCOUNT()
DBSKIP()
NEXT
?? " en " + AllTrim( Str( seconds() - p ) ) + " seconds"
p := seconds()
NEXT
DBCLOSEALL()
NET_CLOSECONNECTION( pConn )
? " TOTAL " + AllTrim( Str( seconds() - t ) ) + " seconds"
WAIT
RETURN NIL
__ Information from ESET Smart Security, version of virus signature
database 4267 (20090722) __
The message was checked by ESET Smart Security.
http://www.eset.com
--
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] 2009-07-22 18:52 UTC+0100 Miguel Angel Marchuet
Tomorrow I upload some samples. The Windows server hbfilere.exe, has limited its license by the moment. it can be used only by developers with 2 connections available. steps to install: 1) copy the server at root data folder, from bin directory 2) execute hbfilere.exe -i // to install the service and start use SET DEFAULT TO and SET PATH TO to indicate how the server see the files bin/hbfilere.exe -s // to start the service bin/hbfilere.exe -k // to kill the service bin/hbfilere.exe -u // to uninstall the service __ Information from ESET Smart Security, version of virus signature database 4267 (20090722) __ The message was checked by ESET Smart Security. http://www.eset.com -- ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-07-22 18:52 UTC+0100 Miguel Angel Marchuet
2009-07-22 18:52 UTC+0100 Miguel Angel Marchuet * common.mak * compile.mak * makefile.bc + Added new RDD REDBFCDX. * source/rdd/dbcmd.c * source/rdd/dbf1.c ! Fixed writing over not existing position when creating new file. ! fixed signature of dBase IV dbf files. + Added parameter to OrdCreate to indicate if created index will be local or remote. for example it will be used on client server rdds to create temporal indexes on local machine. + source/rdd/dbfnet.c + source/rdd/bmdbfcdx/redbfcdx1.c + source/rdd/dbffpt/redbffpt1.c + Support of dbf based remote rdds. New rdd Client/Server REDBFCDX 100% compatible with BMDBFCDX. + source/rtl/filenet.c + Added API for new NETRDD system. * source/rtl/file.c + Added DWORD hb_fsGetFileAttributes( char * szFile ) to appi to access to file attributes from c level. * source/rtl/filebuf.c ! fixed warnings. + Added API HB_FOFFSET hb_fileSeekLarge( PHB_FILE pFile, HB_FOFFSET llOffset, USHORT uiFlags ) ULONG hb_fileWriteLarge( PHB_FILE pFile, const BYTE * pBuff, ULONG ulCount ) ULONG hb_fileReadLarge( PHB_FILE pFile, BYTE * pBuff, ULONG ulCount ) * source/rdd/dbffpt/dbffpt1.c * source/rtl/filesys.c * minor formating. * include/hbapifs.h + new API for NETRDD subsystem: HB_EXPORT PHB_FILE hb_fileNetExtOpen( BYTE * pFilename, BYTE * pDefExt, USHORT uiExFlags, BYTE * pPaths, PHB_ITEM pError, BOOL fBufferLock ); HB_EXPORT PHB_FILE hb_fileNetCreateTemp( const BYTE * pszDir, const BYTE * pszPrefix, ULONG ulAttr, BYTE * pszName ); HB_EXPORT PHB_FILE hb_fileNetCreateTempEx( BYTE * pszName, const BYTE * pszDir, const BYTE * pszPrefix, const BYTE * pszExt, ULONG ulAttr ); HB_EXPORT void hb_fileNetClose( PHB_FILE pFile ); HB_EXPORT BOOL hb_fileNetLock( PHB_FILE pFile, HB_FOFFSET ulStart, HB_FOFFSET ulLen, int iType ); HB_EXPORT ULONG hb_fileNetReadAt( PHB_FILE pFile, BYTE * buffer, ULONG ulSize, HB_FOFFSET llOffset ); HB_EXPORT ULONG hb_fileNetReadLarge( PHB_FILE pFile, BYTE * buffer, ULONG ulSize ); HB_EXPORT ULONG hb_fileNetWriteAt( PHB_FILE pFile, const BYTE * buffer, ULONG ulSize, HB_FOFFSET llOffset ); HB_EXPORT USHORT hb_fileNetWrite( PHB_FILE pFile, const BYTE * pBuffer, USHORT uiCount ); HB_EXPORT ULONG hb_fileNetWriteLarge( PHB_FILE pFile, const BYTE * buffer, ULONG ulSize ); HB_EXPORT BOOL hb_fileNetTruncAt( PHB_FILE pFile, HB_FOFFSET llOffset ); HB_EXPORT HB_FOFFSET hb_fileNetSize( PHB_FILE pFile ); HB_EXPORT HB_FOFFSET hb_fileNetSeek( PHB_FILE pFile, LONG lOffset, USHORT uiFlags ); HB_EXPORT HB_FOFFSET hb_fileNetSeekLarge( PHB_FILE pFile, HB_FOFFSET llOffset, USHORT uiFlags ); HB_EXPORT BOOL hb_fileNetDelete( BYTE * pFilename, USHORT uiRemote ); HB_EXPORT void hb_fileNetCommit( PHB_FILE pFile ); HB_EXPORT HB_FHANDLE hb_fileNetHandle( PHB_FILE pFile ); HB_EXPORT BOOL hb_FileNetExists( BYTE * pFilename, BYTE * pRetPath ); HB_EXPORT BOOL hb_FileNetFile( BYTE * pFilename ); HB_EXPORT PHB_NETFFIND hb_FileNetFindFirst( const char * pszFileName, ULONG ulAttr ); HB_EXPORT BOOL hb_FileNetFindNext( PHB_NETFFIND pffind ); HB_EXPORT void hb_FileNetFindClose( PHB_NETFFIND pffind ); HB_EXPORT ULONG hb_fileNetGetFileAttributes( BYTE * pFilename ); HB_EXPORT void hb_FileNetDirectory( PHB_ITEM pDir, char* szSkleton, char* szAttributes, BOOL bDirOnly, BOOL bFullPath ); HB_EXPORT BOOL hb_fileNetMkDir( BYTE * pPath ); HB_EXPORT BOOL hb_fileNetRmDir( BYTE * pPath ); HB_EXPORT USHORT hb_fileNetRemote( PHB_FILE pFile ); * include/hbrddbmc.h * include/hbrddcdx.h * include/hbrdddbf.h * include/hbrdddel.h * include/hbrddmdx.h * include/hbrddnsx.h * include/hbrddntx.h * include/hbrddsdf.h * include/hbapirdd.h * include/rddads.h + include/hbrddrec.h + Added item to rdd structures to indicate: Flag to determine if order is remote 0 : native 1 : local 2 : remote USHORT uiRemote + Added PHB_SESSION dbssi to wa structure. + Added extern HB_EXPORT BOOL hb_dbfnetLockIdxFile( PHB_FILE pFile, BYTE bScheme, USHORT usMode, HB_FOFFSET *pPoolPos ); than can be accesed form NETRDD subsystem. + source/rtl/hbip.c + include/hbipapi.h + Added reduced inet api used on NETRDD subsystem. * source/rdd/dbfmdx/dbfmdx1.c * source/rdd/bmdbfcdx/bmdbfcdx1.c
Re: [xHarbour-developers] OT - EXCLUSIVE DOESN'T WORK
of course SET EXCLUSIVE [ON|OFF] is a default parameter
if you don't inform EXCLUSIVE or SHARED at DbUseArea then SET is used
Best regards,
Miguel Angel Marchuet
Patrick Mast escribió:
> Hello Miguel,
>
> Can you check please?
> Thanks!
>
> Patrick
>
> 2009/7/8 Ella Stern <mailto:ella.st...@xharbour.com>>
>
> Tested with xBuilder 7.2:
>
> function main()
>set exclusive on
>use ("C:\ex\parents.dbf") exclusive
>wait "1"
>wait "2"
> return NIL
>
>
> NEITHER set exclusive on NOR use myfile exclusive has effect.
> I can use any combination of
>
> SET EXCLUSIVE ON
> SET EXCLUSIVE OFF
>
> with
>
> USE mydbf EXCLUSIVE
> USE mydbf SHARED
>
> when running my test code two times in parallel, mydbf IS ALWAYS
> OPENED without error.
>
>
> Ella
>
>
>
__ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4250 (20090716) __
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
Enter the BlackBerry Developer Challenge
This is your chance to win up to $100,000 in prizes! For a limited time,
vendors submitting new applications to BlackBerry App World(TM) will have
the opportunity to enter the BlackBerry Developer Challenge. See full prize
details at: http://p.sf.net/sfu/Challenge
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] rddads
Sorry, but is not my code, this code arrived here from harbour,
is possible need HB_IS_NUMBER instead of HB_IS_NUMERIC
else if( HB_IS_NUMBER( pKey ) )
{
dValue = hb_itemGetND( pKey );
pszKey = ( UNSIGNED8* ) &dValue;
u16KeyLen = ( UNSIGNED16 ) sizeof( double );
u16KeyType = ADS_DOUBLEKEY;
}
else if( HB_IS_DATE( pKey ) )
{
dValue = ( double ) hb_itemGetDL( pKey );
pszKey = ( UNSIGNED8* ) &dValue;
u16KeyLen = ( UNSIGNED16 ) sizeof( double );
u16KeyType = ADS_DOUBLEKEY;
}
else if( HB_IS_LOGICAL( pKey ) )
Please upload yourself this changes ;)
Is better to use HB_IS_NUMBER( pKey ), beacuse HB_IT_ system can be
changed to add
new type T as datetime instead of use actual flag.
But i need aprove of the rest of developers.
PLEASE contact with me at miguelmarch...@hotmail.com (MESSENGER
account) to talk it or another questions related
Best regards,
Miguel Angel Marchuet
bhays escribió:
Miguel:
I’m trying to look over the changes to ads1.c to
help
with the character field length problem.
There are a few changes I don’t understand.
Why was the explicit NUMERIC test
else if( hb_itemType( pKey ) &
HB_IT_NUMERIC )
changed to
else if( HB_IS_NUMERIC( pKey ) )
?
Is this your change?
HB_IS_NUMERIC( pKey ) includes DATES and
single-byte
strings.
I have lots of single character fields, some
with indexes on
them, and
I would expect errors to occur if these are
treated like
numbers at the
C level when interacting with ADS index keys and
scopes.
Was this change done explicitly to include these
other
types, or was
someone perhaps thinking it was functionally the
same but
cleaner code?
Thanks,
--
Brian Hays
Abacus Data Systems, Inc.
__ Information from ESET Smart Security, version of virus
signature database 4247 (20090715) __
The message was checked by ESET Smart Security.
http://www.eset.com
--
Enter the BlackBerry Developer Challenge
This is your chance to win up to $100,000 in prizes! For a limited time,
vendors submitting new applications to BlackBerry App World(TM) will have
the opportunity to enter the BlackBerry Developer Challenge. See full prize
details at: http://p.sf.net/sfu/Challenge
__ Information from ESET Smart Security, version of virus signature database 4247 (20090715) __
The message was checked by ESET Smart Security.
http://www.eset.com
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
__ Information from ESET Smart Security, version of virus signature database 4247 (20090715) __
The message was checked by ESET Smart Security.
http://www.eset.com
__ Information from ESET Smart Security, version of virus signature database 4247 (20090715) __
The message was checked by ESET Smart Security.
http://www.eset.com
--
Enter the BlackBerry Developer Challenge
This is your chance to win up to $100,000 in prizes! For a limited time,
vendors submitting new applications to BlackBerry App World(TM) will have
the opportunity to enter the BlackBerry Developer Challenge. See full prize
details at: http://p.sf.net/sfu/Challenge___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-07-06 10:06 UTC+0100 Miguel Angel Marchuet
2009-07-06 10:06 UTC+0100 Miguel Angel Marchuet * source/rtl/file.c * Changed IsDirectory to fix IsDirectory( "\\machine\c" ) style call under windows platforms. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4219 (20090705) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] Changes to ADS1.c withOUT a ChangeLog
Is only a test for Patrick, I undo it today, this changes don't solve the problem Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4219 (20090705) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] rddads is broken
Please, witch structure ? (type of field)
bhays escribió:
>
>
> Reading a 50-byte character field with rddads under the current cvs
> produces a 51-byte string with an extra garbage character at the end.
>
>
>
> The attached prg and small dbf demonstrate the difference between rddads
> and dbfcdx.
>
> Notice the extra “r” at the end of the field, and how the length of the
> string
>
> len(field->descript) is different from fieldlen( fieldpos("descript"))
>
> In my app, I was not seeing a problem in other fields, but after I tried
> changing the length of
>
> Descript and still had a problem, I changed the test to use the field
> “CODE” and that fails too.
>
> It does not fail on the 10-byte long field “CODETYPE”.
>
>
>
> TestLen.prg :
>
> #include "Ads.ch"
>
> Request dBfCdx
>
>
>
> function Main( cTarget, cSource )
>
>rddRegister( "ADS", 1 )
>
>rddsetdefault( "ADS" )
>
>AdsSetFileType(ADS_CDX)
>
>
>
>? "USING ads"
>
>use codes
>
>? trim(field->descript)
>
>? fieldlen( fieldpos("descript")), len(field->descript),
> asc(field->descript[-1])
>
>
>
>use codes via "dbfcdx"
>
>? trim(field->descript)
>
>? fieldlen( fieldpos("descript")), len(field->descript),
> asc(field->descript[-1])
>
>
>
>?
>
> return
>
>
>
> Output:
>
> USING ads
>
> Test Descript (shows extra 51st char):r
>
> 50 51114
>
> Test Descript (shows extra 51st char):
>
> 50 50 32
>
>
>
> --
>
> Brian Hays
>
> Abacus Data Systems, Inc.
>
>
>
>
>
> __ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 4158 (20090616) __
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
>
> --
> Crystal Reports - New Free Runtime and 30 Day Trial
> Check out the new simplified licensing option that enables unlimited
> royalty-free distribution of the report engine for externally facing
> server and web deployment.
> http://p.sf.net/sfu/businessobjects
>
>
> __ Información de ESET NOD32 Antivirus, versión de la base de firmas
> de virus 4158 (20090616) __
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
>
>
> ___
> xHarbour-developers mailing list
> xHarbour-developers@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/xharbour-developers
>
>
>
> __ Información de ESET NOD32 Antivirus, versión de la base de firmas
> de virus 4158 (20090616) __
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
__ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4211 (20090702) __
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] RDD changes
I'm agree. Is absurd to make changes of this magnitude because it involves many hours of work for others. And in this case the change is not always justified in any case. ( the massive use of const, or add unused var to structures for all compilers) I think that in such cases, if there really is a substantial improvement, it is best to create a new version of the engine RDD and both can coexist. As the majority of compilers on the market. Phil Krylov escribió: > On Tue, Jun 30, 2009 at 8:06 PM, Luiz Rafael Culik > Guimaraes wrote: this changes in my opinion, is to make more incompatible the api for developers >>> No technical merit in these changes then? >> Im not discussing merit, but compatility. One os the changes, has break >> hwgui ( the new hb_parv*/hb_storv*) >> Now imaging how many 3rd parties has to have two version of same code due >> this changes. > > Look from another perspective: how many people were forced to fix the > usage of hb_par*() with 2 or more arguments, which was broken by > design and not GPF-safe. > > This change will probably engage 3rd-party RDD developers, so let them > say. I have one simple RDD which inherits from DBF, and these simple > changes are no problem to me. BTW I guess that most RDD developers > already have 2 versions of code - for Harbour and for xHarbour. > > -- Ph. > > -- > ___ > xHarbour-developers mailing list > xHarbour-developers@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/xharbour-developers > > __ Información de ESET NOD32 Antivirus, versión de la base de firmas > de virus 4202 (20090630) __ > > ESET NOD32 Antivirus ha comprobado este mensaje. > > http://www.eset.com > > > > __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4202 (20090630) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] RDD changes
Please, don't upload any change in this moment. I'm finishing some relevant changes at rdd subsystem.. 1) Session subsystem. 2) Transactional subsystem for all rdd. 3) header lock info and others ... ;) Best regards, Miguel Angel Marchuet Patrick Mast, xHarbour. escribió: > Hello, > > I saw on harbour's mailing list that Przemek did some core changes to > RDD's code. > See > http://harbour-project.svn.sourceforge.net/viewvc/harbour-project?view=rev&revision=11571 > > Can our RDD maintainers take a look at it? Thanks! > > Patrick > > -- > ___ > xHarbour-developers mailing list > xHarbour-developers@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/xharbour-developers > > __ Información de ESET NOD32 Antivirus, versión de la base de firmas > de virus 4200 (20090630) __ > > ESET NOD32 Antivirus ha comprobado este mensaje. > > http://www.eset.com > > > > __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4200 (20090630) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] RDD SPEED TESTS (NEW NETRDD SYSTEM)
more tests: LOCAL LOCAL LOCAL REMOTE REMOTEREMOTE DBFCDX BMDBFCDX REDBFCDX DBFCDX BMDBFCDX REDBFCDX single user 7.344.16 42.00 859.80 519.56172.88 simulated concurrent forced by system (W-2000) single user 18.61 11.45 96.33non concurrent (W-XP) multi user751.00 399.5097.35real concurrent __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4158 (20090616) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Crystal Reports - New Free Runtime and 30 Day Trial Check out the new simplified licensing option that enables unlimited royalty-free distribution of the report engine for externally facing server and web deployment. http://p.sf.net/sfu/businessobjects ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] RDD SPEED TESTS (NEW NETRDD SYSTEM)
RDD SPEED TESTS (NEW NETRDD SYSTEM)
---
DBFCDX :
BMDBFCDX : DBFCDX + Static Bitmap filtered
REDBFCDX : Client-Server 100% compatible with BMDBFCDX
REMOTE : Windows 2008 Server
LOCAL : Windows 2000
LOCAL LOCAL LOCAL REMOTE REMOTEREMOTE
DBFCDX BMDBFCDX REDBFCDX DBFCDX BMDBFCDX REDBFCDX
7.344.16 42.00 859.80 519.56172.88
As test shown,
work with remote data wins : REDBFCDX
work with local data wins : BMDBFCDX
TEST.PRG:
ANNOUNCE RDDSYS
REQUEST DBFCDX,REDBFCDX,BMDBFCDX
FUNCTION MAIN( cRdd, cIP )
LOCAL n,t,m,p,J
IF Empty( cRdd )
cRdd := "REDBFCDX"
ENDIF
IF Empty( cIP )
cIP := "192.168.1.114"
ELSE
cIP := AllTrim( cIP )
ENDIF
SET DATE FORMAT "DD/MM/"
RDDSETDEFAULT( cRdd )
SET DELETED ON
SET AUTOPEN ON
IF cRdd == 'REDBFCDX'
? "CONECTED A IP: " + cIP + ":2813"
NET_OPENCONNECTION( cIP, 2813 )
ENDIF
IF ! HB_DBExists( "TMPTEST" )
? "creando tabla"
DBCREATE( "TMPTEST", { { "A1", "C", 10, 0 } }, cRdd )
ENDIF
USE TMPTEST SHARED NEW ALIAS "ONE" VIA ( cRdd )
IF LastRec() < 5
? "añadiendo 5 registros"
p := seconds()
FOR n := 1 TO 5
APPEND BLANK
REPLACE FIELD->A1 WITH "0123456789"
NEXT
?? " -> " + AllTrim( Str( seconds() - p ) ) + " seconds"
ENDIF
SET OPTIMIZE ON
IF HB_DBExists( "TMPTEST.CDX" )
OrdSetFocus( "TG1" )
ELSE
INDEX ON FIELD->A1 TAG tg1 TO ("TMPTEST.CDX")
ENDIF
? "Indice activo : " + ORDKEY()
? "Filtrando por : " + "RecNo() > 100 .AND. RecNo() < 200"
p := seconds()
DbSetFilter( {|| RecNo() > 100 .AND. RecNo() < 200 }, "RecNo() > 100 .AND.
RecNo() < 200" )
?? " -> " + AllTrim( Str( seconds() - p ) ) + " seconds"
WAIT
p := t := seconds()
FOR M := 1 TO 10
? "PASO " + AllTrim( str( M ) )
DBGOTOP()
FOR n := 1 TO 5
J := ORDKEYNO()
J := ORDKEYCOUNT()
DBSKIP()
NEXT
?? " en " + AllTrim( Str( seconds() - p ) ) + " seconds"
p := seconds()
NEXT
DBCLOSEALL()
? " TOTAL " + AllTrim( Str( seconds() - t ) ) + " seconds"
wait
RETURN NIL
__ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4158 (20090616) __
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
Crystal Reports - New Free Runtime and 30 Day Trial
Check out the new simplified licensing option that enables unlimited
royalty-free distribution of the report engine for externally facing
server and web deployment.
http://p.sf.net/sfu/businessobjects
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] Warnings 1.6473
thks, I'm preparing to upload the rest of session api, prelude of transactional session package of related workareas, for all rdds based on dbf and optional for the rest. I'm testing too netrdd based on fileserver pending to upload. I need testers under other plarforms as MacOs and Os/2. Best regards, Miguel Angel Marchuet Enrico Maria Giordano escribió: > Warning W8013 source\rtl\session.c 173: Possible use of 'session' before > definition in function HB_FUN_HB_SESSIONNEW > > EMG > > -- > EMAG Software Homepage: http://www.emagsoftware.it > The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum > The Best of Spectrum Games: http://www.emagsoftware.it/tbosg > The EMG Music page: http://www.emagsoftware.it/emgmusic > > > -- > OpenSolaris 2009.06 is a cutting edge operating system for enterprises > looking to deploy the next generation of Solaris that includes the latest > innovations from Sun and the OpenSource community. Download a copy and > enjoy capabilities such as Networking, Storage and Virtualization. > Go to: http://p.sf.net/sfu/opensolaris-get > ___ > xHarbour-developers mailing list > xHarbour-developers@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/xharbour-developers > > __ Información de ESET Smart Security, versión de la base de firmas > de virus 4124 (20090602) __ > > ESET Smart Security ha comprobado este mensaje. > > http://www.eset.com > > > > > -- Crystal Reports - New Free Runtime and 30 Day Trial Check out the new simplified licensing option that enables unlimited royalty-free distribution of the report engine for externally facing server and web deployment. http://p.sf.net/sfu/businessobjects ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-06-06 00:25 UTC+0100 Miguel Angel Marchuet
2009-06-06 00:25 UTC+0100 Miguel Angel Marchuet * common.mak * compile.mak + include\hbapises.h + source\rtl\session.c + Added api session to support transactions. a group of workareas can be created with the same session, all the files into the session will be rollback by request, or commited. HB_SESSIONNEW( [cUserName] ) -> nSessionId HB_SESSIONSELECT( [nSessionId] ) -> nCurrentSessionId HB_SESSIONUSERNAME() -> cUserName HB_SETSESSION( [nSessionId] ) -> nCurrentSessionId remain to add command CREATE SESSION [cUserName] as in dBase IV or higher. Best regards, Miguel Angel Marchuet -- OpenSolaris 2009.06 is a cutting edge operating system for enterprises looking to deploy the next generation of Solaris that includes the latest innovations from Sun and the OpenSource community. Download a copy and enjoy capabilities such as Networking, Storage and Virtualization. Go to: http://p.sf.net/sfu/opensolaris-get ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] Compile bug found
if you compile: SET FILTER TO ¯o error at compile at time: Total memory allocated: 39060 bytes (776 blocks) WARNING! Memory allocated but not released: 92 bytes (3 blocks) source\compiler\harbour.c:701: HB_TR_ERROR Line 1 Block 1 009B2E4C (size 40) "\26\00\00\00\E0\28\9B\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\01\00\00\00" source\compiler\harbour.c:701: HB_TR_ERROR Line 1 Block 2 009B2E24 (size 12) "\00\00\00\00\20\00\00\00\00\00\00\00" source\compiler\harbour.c:701: HB_TR_ERROR Line 1 Block 3 009B2DBC (size 40) "\4C\2E\9B\00\24\2E\9B\00\00\00\00\00\50\28\9B\00\14\00\00\00\01\00\00\00\00\00\00\00\01\00\00\00" -- Register Now for Creativity and Technology (CaT), June 3rd, NYC. CaT is a gathering of tech-side developers & brand creativity professionals. Meet the minds behind Google Creative Lab, Visual Complexity, Processing, & iPhoneDevCamp as they present alongside digital heavyweights like Barbarian Group, R/GA, & Big Spaceship. http://p.sf.net/sfu/creativitycat-com ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-05-26 13:18 UTC+0100 Miguel Angel Marchuet
2009-05-26 13:18 UTC+0100 Miguel Angel Marchuet * dbf1.c * dbfcdx\dbfcdx1.c * dbffpt\dbffpt1.c * dbfnsx\dbfnsx1.c * sdf1.c * removed some cast warnings. found posible bug if exceded 65025 bytes of record length Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4104 (20090526) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Register Now for Creativity and Technology (CaT), June 3rd, NYC. CaT is a gathering of tech-side developers & brand creativity professionals. Meet the minds behind Google Creative Lab, Visual Complexity, Processing, & iPhoneDevCamp asthey present alongside digital heavyweights like Barbarian Group, R/GA, & Big Spaceship. http://www.creativitycat.com ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-05-25 16:38 UTC+0100 Miguel Angel Marchuet
2009-05-25 16:38 UTC+0100 Miguel Angel Marchuet * include\hbapi.h * include\hbapifs.h * source\rdd\dbfnsx\dbfnsx1.c ! fixed minor warnings. Thk's to Enrico Maria Giordano Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4101 (20090525) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Register Now for Creativity and Technology (CaT), June 3rd, NYC. CaT is a gathering of tech-side developers & brand creativity professionals. Meet the minds behind Google Creative Lab, Visual Complexity, Processing, & iPhoneDevCamp asthey present alongside digital heavyweights like Barbarian Group, R/GA, & Big Spaceship. http://www.creativitycat.com ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-05-25 16:15 UTC+0100 Miguel Angel Marchuet
2009-05-25 16:15 UTC+0100 Miguel Angel Marchuet * include\hbrddnsx.h * source\common\hbdate.c ! fixed some missing code from last update. fixed msvc build and dbfnsx rdd. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4101 (20090525) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Register Now for Creativity and Technology (CaT), June 3rd, NYC. CaT is a gathering of tech-side developers & brand creativity professionals. Meet the minds behind Google Creative Lab, Visual Complexity, Processing, & iPhoneDevCamp asthey present alongside digital heavyweights like Barbarian Group, R/GA, & Big Spaceship. http://www.creativitycat.com ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-05-22 18:00 UTC+0100 Miguel Angel Marchuet
2009-05-22 18:00 UTC+0100 Miguel Angel Marchuet
* include\hbdate.h
* source\common\hbdate.c
+ Added api hb_dbaselockEncode( char * pszTimeDate ) to encode this time
of fields.
* include\dbinfo.ch
+ Added #define DBRI_DBASELOCK 10 /* get lock info */
to get info about lock on shared tables and locked registers.
* source\rdd\dbcmd.c
+ added LKSYS( nInfo ) function with this parameter:
0 Time when lock was placed
1 Date when lock was placed
2 Login name of user who locked record or file
* include\hbapirdd.h
* include\hbrddbmc.h
* include\hbrddcdx.h
* include\hbrdddbf.h
* include\hbrddmdx.h
* include\hbrddnsx.h
* include\hbrddntx.h
* source\rdd\dbf1.c
* source\rdd\workarea.c
* modified dbf rdd structure, all rdds based on DBF need to be actualiced.
+ Added support to add system fields Type 0, for example _DBASELOCK
+ Added support to _dbaselock hidden field with lock information
(user,time & date)
+ Added function LKSYS to retrieve lock information, works in similar way
as dBase IV.
! fixed FieldType to retrive correct type for system fields and dbase IV
binary memo.
sample of use:
FUNCTION MAIN()
LOCAL n
SET DATE FORMAT "DD/MM/"
RDDSETDEFAULT( "DBFCDX" )
SET DELETED ON
DBCREATE( "TMPTEST", { { "A1", "C", 10, 0 },;
{ "_DBASELOCK", "0", 24, 0, 0x0001 } } )
USE TMPTEST SHARED NEW ALIAS "ONE"
FOR n := 1 TO 10
APPEND BLANK
REPLACE FIELD->A1 WITH "0123456789"
NEXT
DBGOTOP()
DBRLOCK( RecNo() )
USE TMPTEST SHARED NEW ALIAS "TWO"
DBGOTOP()
IF ! DbRLock( RecNo() )
? LKSYS( 0 )
? LKSYS( 1 )
? LKSYS( 2 )
ENDIF
WAIT
RETURN NIL
* source\rtl\net.c
+ created void hb_netname( char * pszNetName, BOOL bGetUser ) and used
from NETNAME.
to call it from c code of rdd.
Best regards,
Miguel Angel Marchuet
__ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4097 (20090522) __
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
Register Now for Creativity and Technology (CaT), June 3rd, NYC. CaT
is a gathering of tech-side developers & brand creativity professionals. Meet
the minds behind Google Creative Lab, Visual Complexity, Processing, &
iPhoneDevCamp asthey present alongside digital heavyweights like Barbarian
Group, R/GA, & Big Spaceship. http://www.creativitycat.com
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-05-19 18:57 UTC+0100 Miguel Angel Marchuet
2009-05-19 18:57 UTC+0100 Miguel Angel Marchuet * harbour/source/rdd/dbffpt/dbffpt1.c ! fixed two bugs in garbage collector. One of them was critical and could cause FPT or DBV file corruption when memoblock size was smaller then 8 bytes. Thanks to Mike Evans for self contain example. (by Przemyslaw Czerpak, borrowed from Harbour) Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4087 (20090519) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Crystal Reports - New Free Runtime and 30 Day Trial Check out the new simplified licensing option that enables unlimited royalty-free distribution of the report engine for externally facing server and web deployment. http://p.sf.net/sfu/businessobjects ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-05-19 18:37 UTC+0100 Miguel Angel Marchuet
2009-05-19 18:37 UTC+0100 Miguel Angel Marchuet * common.mak * compile.mak * include\dbinfo.ch * include\hbapirdd.h * makefile.bc * makefile.dc * makefile.gc * makefile.pc * makefile.vc * makefile.wc * mdir.bat + include\hbrddmdx.h + source\rdd\dbfmdx\Makefile + source\rdd\dbfmdx\dbfmdx1.c + Added dbfmdx version IV, dbf works, but by the moment mdx is a clone of cdx please don't use yet. * source\rdd\dbf1.c * source\rdd\dbffpt\dbffpt1.c + Added field type "O" double compatible with dbase IV, and added too field type binary "B" that works as a memo "M" but with no translation field type of dBase V. Now we full support dBase IV,V dbf file. Please don't use dbase IV rdd with mdx yet. Is work in progress. Best regards, Miguel Angel Marchuet Frutos __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4087 (20090519) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Crystal Reports - New Free Runtime and 30 Day Trial Check out the new simplified licensing option that enables unlimited royalty-free distribution of the report engine for externally facing server and web deployment. http://p.sf.net/sfu/businessobjects ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] Fwd: [hwguibr] [OT] Community Choice Awards
easy to know, try to vote it ;) http://sourceforge.net/projects/xharbour/ and vote it to http://sourceforge.net/projects/ourxdbu/ :) Best regards Miguel Angel Marchuet Xharbour suporte escribió: > Ron, is xharbour on Sf community choice awards? > > > Atenciosamente > Luiz Rafael Culik Guimaraes > Suporte Xharbour > www.xharbour.com.br > > > > > *- Segue mensagem encaminhada -* > > Data: Sun, 17 May 2009 21:24:51 -0300 > De: Vailton Renato > Para: Hwguibr > Assunto: [hwguibr] [OT] Community Choice Awards > > > > O SourceForge.net é um dos maiores repositórios de aplicações de > código aberto no mundo e todo ano eles organizam uma votação para que > a comunidade eleja os melhores projetos. É o SourceForge.net Community > Choice Awards. A indicação de projetos começou no último dia 6 deste > mês e vai até o dia 29. Os finalistas serão conhecidos em junho e a > lista de ganhadores deverá sair no final de julho no evento OSCON > (http://en.oreilly.com/oscon2009 <http://en.oreilly.com/oscon2009>). > > O projeto Harbour está concorrendo e você pode ajudar clicando no link > abaixo e votando no Harbour para o "Sourceforge Community Choice > Awards 2009": > > http://sourceforge.net/community/cca09/nominate/?project_name=Harbour&project_url=http://sourceforge.net/projects/harbour-project/ > > <http://sourceforge.net/community/cca09/nominate/?project_name=Harbour&project_url=http://sourceforge.net/projects/harbour-project/> > > > Sugiro nomear Harbour para as seguintes categorias: > * Best Project (Melhor projeto) > * Best Tool or Utility (Melhor ferramenta ou utilitário) > > O processo de votação é bem simples, rápido e todos que contribuem com > o projeto agradecem antecipadamente seu apoio! > > Sem mais, > Vailton Renato > > __._,_.___ > Mensagens neste tópico > > <http://br.groups.yahoo.com/group/hwguibr/message/12215;_ylc=X3oDMTM3NWNqZmNnBF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRtc2dJZAMxMjIxNQRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzEyNDI2MDYzNTcEdHBjSWQDMTIyMTU-> > (1) Responder (através da web) > > <http://br.groups.yahoo.com/group/hwguibr/post;_ylc=X3oDMTJyNzZxcTJxBF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRtc2dJZAMxMjIxNQRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzEyNDI2MDYzNTc-?act=reply&messageNum=12215> > | Adicionar um novo tópico > > <http://br.groups.yahoo.com/group/hwguibr/post;_ylc=X3oDMTJmdGgxaG9rBF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNudHBjBHN0aW1lAzEyNDI2MDYzNTc-> > > Mensagens > > <http://br.groups.yahoo.com/group/hwguibr/messages;_ylc=X3oDMTJmZHI2NG1hBF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNtc2dzBHN0aW1lAzEyNDI2MDYzNTc-> > | Arquivos > > <http://br.groups.yahoo.com/group/hwguibr/files;_ylc=X3oDMTJnOTZwcHQ3BF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNmaWxlcwRzdGltZQMxMjQyNjA2MzU3> > | Fotos > > <http://br.groups.yahoo.com/group/hwguibr/photos;_ylc=X3oDMTJmNTNwMXN0BF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNwaG90BHN0aW1lAzEyNDI2MDYzNTc-> > | Links > > <http://br.groups.yahoo.com/group/hwguibr/links;_ylc=X3oDMTJnYzA3bmI3BF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNsaW5rcwRzdGltZQMxMjQyNjA2MzU3> > | Banco de dados > > <http://br.groups.yahoo.com/group/hwguibr/database;_ylc=X3oDMTJkcmlybWQ3BF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNkYgRzdGltZQMxMjQyNjA2MzU3> > | Enquetes > > <http://br.groups.yahoo.com/group/hwguibr/polls;_ylc=X3oDMTJndGVyOGJ0BF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNwb2xscwRzdGltZQMxMjQyNjA2MzU3> > | Associados > > <http://br.groups.yahoo.com/group/hwguibr/members;_ylc=X3oDMTJmMm9xNGY0BF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNtYnJzBHN0aW1lAzEyNDI2MDYzNTc-> > | Agenda > > <http://br.groups.yahoo.com/group/hwguibr/calendar;_ylc=X3oDMTJldWU4b29rBF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNjYWwEc3RpbWUDMTI0MjYwNjM1Nw--> > > Yahoo! Grupos > > <http://br.groups.yahoo.com/;_ylc=X3oDMTJldWo3OXJjBF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTI0MjYwNjM1Nw--> > > Alterar configurações via web > > <http://br.groups.yahoo.com/group/hwguibr/join;_ylc=X3oDMTJnNW4wcWZzBF9TAzk3ND
Re: [xHarbour-developers] Fwd: [hwguibr] [OT] Community Choice Awards
you can add this button at web site to vote it: http://sourceforge.net/community/cca09/nominate/?project_name=xHarbour Extended Harbour Compiler&project_url=http://sourceforge.net/projects/xharbour/";>http://sourceforge.net/images/cca/cca_nominate.png"; border="0"/> Best regards, Miguel Angel Marchuet Xharbour suporte escribió: > Ron, is xharbour on Sf community choice awards? > > > Atenciosamente > Luiz Rafael Culik Guimaraes > Suporte Xharbour > www.xharbour.com.br > > > > > *- Segue mensagem encaminhada -* > > Data: Sun, 17 May 2009 21:24:51 -0300 > De: Vailton Renato > Para: Hwguibr > Assunto: [hwguibr] [OT] Community Choice Awards > > > > O SourceForge.net é um dos maiores repositórios de aplicações de > código aberto no mundo e todo ano eles organizam uma votação para que > a comunidade eleja os melhores projetos. É o SourceForge.net Community > Choice Awards. A indicação de projetos começou no último dia 6 deste > mês e vai até o dia 29. Os finalistas serão conhecidos em junho e a > lista de ganhadores deverá sair no final de julho no evento OSCON > (http://en.oreilly.com/oscon2009 <http://en.oreilly.com/oscon2009>). > > O projeto Harbour está concorrendo e você pode ajudar clicando no link > abaixo e votando no Harbour para o "Sourceforge Community Choice > Awards 2009": > > http://sourceforge.net/community/cca09/nominate/?project_name=Harbour&project_url=http://sourceforge.net/projects/harbour-project/ > > <http://sourceforge.net/community/cca09/nominate/?project_name=Harbour&project_url=http://sourceforge.net/projects/harbour-project/> > > > Sugiro nomear Harbour para as seguintes categorias: > * Best Project (Melhor projeto) > * Best Tool or Utility (Melhor ferramenta ou utilitário) > > O processo de votação é bem simples, rápido e todos que contribuem com > o projeto agradecem antecipadamente seu apoio! > > Sem mais, > Vailton Renato > > __._,_.___ > Mensagens neste tópico > > <http://br.groups.yahoo.com/group/hwguibr/message/12215;_ylc=X3oDMTM3NWNqZmNnBF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRtc2dJZAMxMjIxNQRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzEyNDI2MDYzNTcEdHBjSWQDMTIyMTU-> > (1) Responder (através da web) > > <http://br.groups.yahoo.com/group/hwguibr/post;_ylc=X3oDMTJyNzZxcTJxBF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRtc2dJZAMxMjIxNQRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzEyNDI2MDYzNTc-?act=reply&messageNum=12215> > | Adicionar um novo tópico > > <http://br.groups.yahoo.com/group/hwguibr/post;_ylc=X3oDMTJmdGgxaG9rBF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNudHBjBHN0aW1lAzEyNDI2MDYzNTc-> > > Mensagens > > <http://br.groups.yahoo.com/group/hwguibr/messages;_ylc=X3oDMTJmZHI2NG1hBF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNtc2dzBHN0aW1lAzEyNDI2MDYzNTc-> > | Arquivos > > <http://br.groups.yahoo.com/group/hwguibr/files;_ylc=X3oDMTJnOTZwcHQ3BF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNmaWxlcwRzdGltZQMxMjQyNjA2MzU3> > | Fotos > > <http://br.groups.yahoo.com/group/hwguibr/photos;_ylc=X3oDMTJmNTNwMXN0BF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNwaG90BHN0aW1lAzEyNDI2MDYzNTc-> > | Links > > <http://br.groups.yahoo.com/group/hwguibr/links;_ylc=X3oDMTJnYzA3bmI3BF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNsaW5rcwRzdGltZQMxMjQyNjA2MzU3> > | Banco de dados > > <http://br.groups.yahoo.com/group/hwguibr/database;_ylc=X3oDMTJkcmlybWQ3BF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNkYgRzdGltZQMxMjQyNjA2MzU3> > | Enquetes > > <http://br.groups.yahoo.com/group/hwguibr/polls;_ylc=X3oDMTJndGVyOGJ0BF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNwb2xscwRzdGltZQMxMjQyNjA2MzU3> > | Associados > > <http://br.groups.yahoo.com/group/hwguibr/members;_ylc=X3oDMTJmMm9xNGY0BF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNtYnJzBHN0aW1lAzEyNDI2MDYzNTc-> > | Agenda > > <http://br.groups.yahoo.com/group/hwguibr/calendar;_ylc=X3oDMTJldWU4b29rBF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNjYWwEc3RpbWUDMTI0MjYwNjM1Nw--> > > Yahoo! Grupos > > <http://br.groups.yahoo.com/;_ylc=X3oDMTJldWo3OXJjBF9TAzk3NDkwNDM3BGdycElkAzEwMDI0NjgwBGdycHNwSWQDMjEzNzExNDk2NwRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTI
[xHarbour-developers] 2009-05-18 12:12 UTC+0100 Miguel Angel Marchuet
2009-05-18 12:12 UTC+0100 Miguel Angel Marchuet * include\dbinfo.ch * include\hbdbf.h * include\std.ch * source\rdd\dbcmd.c * source\rdd\dbf1.c * fixed, field type "C" or "M" marked as HB_FF_BINARY don't execute translate code. Remember that possible flags are (5 parameter of array at DbCreate): #define HB_FF_HIDDEN 0x0001 /* System Column (not visible to user) */ #define HB_FF_NULLABLE0x0002 /* Column can store null values */ #define HB_FF_BINARY 0x0004 /* Binary column AND NOCPTRANS*/ #define HB_FF_AUTOINC 0x0008 /* Column is autoincrementing */ #define HB_FF_COMPRESSED 0x0010 /* Column is compressed */ #define HB_FF_ENCRYPTED 0x0020 /* Column is encrypted */ + Added next commands and function to the future support of transactions TTS, by the moment can be used manually, or to test pending transaction from dbf of dBase IV. DbInfo( DBI_TTS_INCOMPLETE [, ] ) Changes or read transaction mark. RESET [IN ] Reset transaction mark from table and his data to rollback. ISMARKED() Return if a table is marked with transaction in course. * source\rdd\dbffpt\dbffpt1.c ! fixed, field type "C" or "M" marked as binary don't execute translate code. ! fixed typification of memo field as SMT_IT_CHAR under DB_MEMO_SMT type. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4082 (20090518) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Crystal Reports - New Free Runtime and 30 Day Trial Check out the new simplified licensing option that enables unlimited royalty-free distribution of the report engine for externally facing server and web deployment. http://p.sf.net/sfu/businessobjects ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] new rdd, TTS and others
Leto works with xharbour, of course Try ourXdbu that is compiled with xharbour & leto Antonio Martinez escribió: > Miguel Angel, > > 1. Que yo sepa Leto Rdd solo funciona con harbour. > 2. "No he visto" gente utilizando Leto Rdd... al menos en el grupo de > xHarbour y por tanto no se si funciona o no > apropiadamente. > 3. La ultima vez que visite la pagina del proyecto del Leto Rdd, vi que las > ultimas actualizaciones eran muy antiguas... estaba comoabandonado. > 4. No seria bueno, que el proyecto xHarbour tuviera su propio Net Rdd con > posibilidad de transacciones y algo de integridad referencial ? > 5. SqlRdd y ADSRDD las descarto... "de momento".. aunque siempre me ha > gustado mucho el proyecto SqlRdd. > > Saludos > > > > Miguel Angel Marchuet escribió en mensaje <4a0afb80.7010...@marchuet.net>... > Ya existen RDDs para ese menester. > > Leto RDD (freeware) > SqlRdd (comercial) > ADSRDD > > crear un netrdd no es nada complicado, sólo se deben redirigir las funciones > de lectura, escritura y bloqueo > apropiadamente hacia el servidor, basicamente. Por su puesto se puede > optimizar. Pero tanto Leto como SqlRdd > son buenas opciones. > > Puedo decir que SqlRdd en segun que situaciones llega a ser mas rapido > incluso que DBFCDX, cuantificar en cuanto > depende mucho de como se programa el test. > > Alguien podria decir, este compilador es mas rápido que otro pero al final > siempre hay un test que contradice al otro > [x]harbour. > > En resumen, como estoy ayudando en SqlRdd de momento, no debo invertir en > otro similar. > > > RDDs exist for this need. > > Leto RDD (freeware) > SqlRdd (commercial) > ADSRDD > > create a netrdd is not complicated, only to redirect the functions read, > write and lock > properly to the server, basically. For his position can be optimized. But > Leto as SqlRdd > are good choices. > > I can say that depending on SqlRdd situations become even faster DBFCDX > quantified in terms > much depends on how the test program. > > Somebody might say, this compiler is faster than another but in the end > there is always a test that contradicts the other > [x] harbor. > > In short, as I am helping to SqlRdd of time, should not I invest in a > similar one. > > Best regards, > Miguel Angel Marchuet > > > > > __ Información de ESET NOD32 Antivirus, versión de la base de firmas > de virus 4071 (20090513) __ > > ESET NOD32 Antivirus ha comprobado este mensaje. > > http://www.eset.com > > > > > -- > The NEW KODAK i700 Series Scanners deliver under ANY circumstances! Your > production scanning environment may not be a perfect world - but thanks to > Kodak, there's a perfect scanner to get the job done! With the NEW KODAK > i700 > Series Scanner you'll get full speed at 300 dpi even with all image > processing features enabled. http://p.sf.net/sfu/kodak-com > > > > > > > > > -- > The NEW KODAK i700 Series Scanners deliver under ANY circumstances! Your > production scanning environment may not be a perfect world - but thanks to > Kodak, there's a perfect scanner to get the job done! With the NEW KODAK i700 > Series Scanner you'll get full speed at 300 dpi even with all image > processing features enabled. http://p.sf.net/sfu/kodak-com > > > __ Información de ESET NOD32 Antivirus, versión de la base de firmas > de virus 4074 (20090514) __ > > ESET NOD32 Antivirus ha comprobado este mensaje. > > http://www.eset.com > > > > > > ___ > xHarbour-developers mailing list > xHarbour-developers@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/xharbour-developers > > > > __ Información de ESET NOD32 Antivirus, versión de la base de firmas > de virus 4074 (20090514) __ > > ESET NOD32 Antivirus ha comprobado este mensaje. > > http://www.eset.com > __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4080 (20090515) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Crystal Reports - New Free Runtime and 30 Day Trial Check out the new simplified licensing option that enables unlimited royalty-free distribution of the report engine for externally facing server and web deployment. http://p.sf.net/sfu/businessobjects ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] new rdd, TTS and others
Ya existen RDDs para ese menester. Leto RDD (freeware) SqlRdd (comercial) ADSRDD crear un netrdd no es nada complicado, sólo se deben redirigir las funciones de lectura, escritura y bloqueo apropiadamente hacia el servidor, basicamente. Por su puesto se puede optimizar. Pero tanto Leto como SqlRdd son buenas opciones. Puedo decir que SqlRdd en segun que situaciones llega a ser mas rapido incluso que DBFCDX, cuantificar en cuanto depende mucho de como se programa el test. Alguien podria decir, este compilador es mas rápido que otro pero al final siempre hay un test que contradice al otro [x]harbour. En resumen, como estoy ayudando en SqlRdd de momento, no debo invertir en otro similar. RDDs exist for this need. Leto RDD (freeware) SqlRdd (commercial) ADSRDD create a netrdd is not complicated, only to redirect the functions read, write and lock properly to the server, basically. For his position can be optimized. But Leto as SqlRdd are good choices. I can say that depending on SqlRdd situations become even faster DBFCDX quantified in terms much depends on how the test program. Somebody might say, this compiler is faster than another but in the end there is always a test that contradicts the other [x] harbor. In short, as I am helping to SqlRdd of time, should not I invest in a similar one. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4071 (20090513) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- The NEW KODAK i700 Series Scanners deliver under ANY circumstances! Your production scanning environment may not be a perfect world - but thanks to Kodak, there's a perfect scanner to get the job done! With the NEW KODAK i700 Series Scanner you'll get full speed at 300 dpi even with all image processing features enabled. http://p.sf.net/sfu/kodak-com ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] new rdd, TTS and others
I'm developing the next questions, and I ask for help in development, suggestions and complete information as possible. Full support of dBASE IV 2.0, dBASE 5.0 for DOS, dBASE 5.0 for Windows, ... 1) TRANSACTION SUPPORT (DBASE COMPATIBLE) from version 2.0 to current dbf: BEGIN TRANSACTION [] ROLLBACK [] RESET [IN ] END TRANSACTION ROOLBACK( [] ) ISMARKED() COMPLETED() Example of use: USE Vendors BEGIN TRANSACTION REPLACE hold_pay WITH "XXX" END TRANSACTION IF .NOT. COMPLETED() IF .NOT. ROLLBACK() ? "transaction fail to restore file ? INKEY(0) ENDIF ENDIF 2) Add support to X field type (Variant (X) for compatibility with SQL-s (i.e. varChar).) of CLIP 3) TRANSACTION LEVEL ( NO COMPATIBLE WITH DBASE ) : SET TRANSACTION LEVEL TO READ UNCOMMITTED SET TRANSACTION LEVEL TO READ COMMITTED SET TRANSACTION LEVEL TO SERIALIZABLE 4) dBase 7 RDD (constrictions included) ByteContents Description 0 1 byte Valid dBASE for Windows table file, bits 0-2 indicate version number: 3 for dBASE Level 5, 4 for dBASE Level 7. Bit 3 and bit 7 indicate presence of a dBASE IV or dBASE for Windows memo file; bits 4-6 indicate the presence of a dBASE IV SQL table; bit 7 indicates the presence of any .DBT memo file (either a dBASE III PLUS type or a dBASE IV or dBASE for Windows memo file). 1-3 3 bytes Date of last update; in YYMMDD format. Each byte contains the number as a binary. YY is added to a base of 1900 decimal to determine the actual year. Therefore, YY has possible values from 0x00-0xFF, which allows for a range from 1900-2155. 4-7 32-bit number Number of records in the table. (Least significant byte first.) 8-9 16-bit number Number of bytes in the header. (Least significant byte first.) 10-11 16-bit number Number of bytes in the record. (Least significant byte first.) 12-13 2 bytes Reserved; filled with zeros. 14 1 byte Flag indicating incomplete dBASE IV transaction. 15 1 byte dBASE IV encryption flag. 16-27 12 bytesReserved for multi-user processing. 28 1 byte Production MDX flag; 0x01 if a production .MDX file exists for this table; 0x00 if no .MDX file exists. 29 1 byte Language driver ID. 30-31 2 bytes Reserved; filled with zeros. 32-63 32 bytesLanguage driver name. 64-67 4 bytes Reserved. 68-n48 bytes each Field Descriptor Array (see 1.2). n+1 1 byte 0x0D stored as the Field Descriptor terminator. n+2 See below for calculations of sizeField Properties Structure n above is the last byte in the field descriptor array. The size of the array depends on the number of fields in the table file. (One for each field in the table) ByteContents Description 0-3132 bytesField name in ASCII (zero-filled). 32 1 byte Field type in ASCII (B, C, D, N, L, M, @, I, +, F, 0 or G). 33 1 byte Field length in binary. 34 1 byte Field decimal count in binary. 35-36 2 bytes Reserved. 37 1 byte Production .MDX field flag; 0x01 if field has an index tag in the production .MDX file; 0x00 if the field is not indexed. 38-39 2 bytes Reserved. 40-43 4 bytes Next Autoincrement value, if the Field type is Autoincrement, 0x00 otherwise. 44-47 4 bytes Reserved. 1.3 Field Properties Structure This contains a header describing the Field Properties array, followed by the actual array, followed by property data. It is contained in the .DBF header and comes immediately after the Field Descriptor terminator (See Table 1.1). ByteContents Description 0-1 16-bit number Number of Standard Properties. 2-3 16-bit number Start of Standard Property Descriptor Array. (see 1.3.1 ) 4-5 16-bit number Number of Custom Properties. 6-7 16-bit number Start of Custom Property Descriptor Array. (see 1.3.2 ) 8-9 16-bit number Number of Referential Integrity (RI) properties. 10-11 16-bit number Start of RI Property Descriptor Array. (see 1.3.3 ) 12-13 16-bit number Start of data - this points past the Descriptor arrays to data used by the arrays - for example Custom property names are stored here. 14-15 16-bit number Actual size of structure, including data (Note: in the .DBF this will be padded with zeroes to the nearest 0x200, and may have 0x1A at the end). If the structure contains RI data, it will not be padded. 16-n15 bytes each Standard Property Descriptor Array (n = (15*number of standard properties) + 16). (see 1.3.1) (n+1)-m 14 bytes each Custom Property Descriptor Array (m = n+ 14*number of custom properties). (see 1.3.2) (m+1)-o 22 bytes each RI Property Descriptor Array (o = m+ 22*number of RI properties). (see 1.3.3) 1.3.1 Standard Property and Constra
[xHarbour-developers] Added some missing credits at changelog.
Added some missing credits at changelog. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4054 (20090505) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- The NEW KODAK i700 Series Scanners deliver under ANY circumstances! Your production scanning environment may not be a perfect world - but thanks to Kodak, there's a perfect scanner to get the job done! With the NEW KODAK i700 Series Scanner you'll get full speed at 300 dpi even with all image processing features enabled. http://p.sf.net/sfu/kodak-com ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] 2009-05-04 10:25 UTC+0100 Miguel Angel Marchuet
WHY YOU DON'T PUT CREDITS !!! 2009-01-12 15:15 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/source/vm/fm.c * harbour/include/hbwmain.c * use HeapAlloc( GetProcessHeap(), ... ) instead of LocalAlloc() when HB_FM_WIN32_ALLOC macro is set - Toninho's tests show that it's a little bit more efficient - thanks. This code was added by me after months of tests, and i don't see my name in your upload. Best regards, Miguel Angel Marchuet Przemyslaw Czerpak escribió: On Mon, 04 May 2009, Patrick Mast, xHarbour.com Inc. wrote: Same here: contrib\rdd_ads\ads1.c(575) : error C3861: 'HB_IS_TIMESTAMP': identifier not found On Mon, May 4, 2009 at 3:10 PM, Andi Jahja wrote: On Mon, 04 May 2009 10:28:18 +0200 Miguel Angel Marchuet wrote: 2009-05-04 10:25 UTC+0100 Miguel Angel Marchuet * contrib\rdd_ads\ads1.c * changed FAILURE by HB_FAILURE, SUCCESS by HB_SUCCESS * changed support of datetime (TIMESTAMP) fields from string items to datetime items. * changes support of varlength fields adding subtypes ADS_VARBINARY_FOX, ADS_VARCHAR_FOX, ADS_VARCHAR (synced with harbour as possible) * source\rdd\dbf1.c * source\rdd\dbfcdx\dbfcdx1.c * white spaces. Requested by Brian Hays. After this: contrib\rdd_ads\ads1.c(575) : error C3861: 'HB_IS_TIMESTAMP': identifier not found Because the above code was copied "as is" from current Harbour SVN code. And yes I added native timestamp support to Harbour RDD ADS because I've seen Brian's message asking about it. But I created this code not Miguel. There is no any note about original author. The Message suggests that Miguel added it because Brian asked about it. I want to ask xHarbour developers what do you plan to do with it. best regards, Przemek -- Register Now & Save for Velocity, the Web Performance & Operations Conference from O'Reilly Media. Velocity features a full day of expert-led, hands-on workshops and two days of sessions from industry leaders in dedicated Performance & Operations tracks. Use code vel09scf and Save an extra 15% before 5/3. http://p.sf.net/sfu/velocityconf ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers __ Informaci�n de ESET NOD32 Antivirus, versi�n de la base de firmas de virus 4052 (20090504) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- The NEW KODAK i700 Series Scanners deliver under ANY circumstances! Your production scanning environment may not be a perfect world - but thanks to Kodak, there's a perfect scanner to get the job done! With the NEW KODAK i700 Series Scanner you'll get full speed at 300 dpi even with all image processing features enabled. http://p.sf.net/sfu/kodak-com___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-05-04 21:39 UTC+0100 Miguel Angel Marchuet
2009-05-04 21:39 UTC+0100 Miguel Angel Marchuet * contrib\rdd_ads\ads1.c ! fixed, xharbour API uses HB_IS_DATETIME instead of HB_IS_TIMESTAMP. Best regards, Miguel Angel Marchuet -- Register Now & Save for Velocity, the Web Performance & Operations Conference from O'Reilly Media. Velocity features a full day of expert-led, hands-on workshops and two days of sessions from industry leaders in dedicated Performance & Operations tracks. Use code vel09scf and Save an extra 15% before 5/3. http://p.sf.net/sfu/velocityconf ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] 2009-05-04 10:25 UTC+0100 Miguel Angel Marchuet
Why not go back to work xHarbour!, I do not have much time and you usually have to pull myself forward in my work. So I prefer not to do it and get your directly. I very much like you have much free time to anticipate making a code, I believe that anyone would have done well, next time, please wait a bit to the other terms we work in progress. But if you want to do everything, go ahead, I loved it. Anyway, I think we should respect the work in progress from other developers. And certainly not all of the code is yours RDD nor I could bear everything. SORRY for my english. As you know the API used at this implementation is from Walter Negro, and the code added from harbour are white spaces and some cases Really there are only way to do, I suppose that all programmer do the same. My work was finished thuesday, this monday I compare with your code TO DO ALL more similar as possible, I PREFER only one project FOR ME two projects are lost of developers work. I prefer join xharbour and harbour alltoghether instead of separate more and more, This is only re reason for do the code more similar as possible. This is the reason for (synced as possible). You are a great programmer, and I suppose to understand that separating the projects only debilitating, and all together not waste time duplicating work. Sorry if I offended you, I too would like some recognition for my effort on your part, like many other programmers and testers have been used to help many hours as they could. Send code to replicate bugs, and others simply by providing their ideas or code. Best regards, Miguel Angel Marchuet Przemyslaw Czerpak escribió: > On Mon, 04 May 2009, Patrick Mast, xHarbour.com Inc. wrote: > >> Same here: >> contrib\rdd_ads\ads1.c(575) : error C3861: 'HB_IS_TIMESTAMP': >> identifier not found >> On Mon, May 4, 2009 at 3:10 PM, Andi Jahja wrote: >> >>> On Mon, 04 May 2009 10:28:18 +0200 >>> Miguel Angel Marchuet wrote: >>> >>>> 2009-05-04 10:25 UTC+0100 Miguel Angel Marchuet >>>>* contrib\rdd_ads\ads1.c >>>> * changed FAILURE by HB_FAILURE, SUCCESS by HB_SUCCESS >>>> * changed support of datetime (TIMESTAMP) fields from string items to >>>> datetime items. >>>> * changes support of varlength fields adding subtypes >>>> ADS_VARBINARY_FOX, ADS_VARCHAR_FOX, ADS_VARCHAR >>>>(synced with harbour as possible) >>>>* source\rdd\dbf1.c >>>>* source\rdd\dbfcdx\dbfcdx1.c >>>> * white spaces. >>>> Requested by Brian Hays. >>>> >>> After this: >>> contrib\rdd_ads\ads1.c(575) : error C3861: 'HB_IS_TIMESTAMP': identifier >>> not found >>> > > Because the above code was copied "as is" from current Harbour SVN code. > And yes I added native timestamp support to Harbour RDD ADS because I've > seen Brian's message asking about it. But I created this code not Miguel. > There is no any note about original author. The Message suggests that > Miguel added it because Brian asked about it. > I want to ask xHarbour developers what do you plan to do with it. > > best regards, > Przemek > > -- > Register Now & Save for Velocity, the Web Performance & Operations > Conference from O'Reilly Media. Velocity features a full day of > expert-led, hands-on workshops and two days of sessions from industry > leaders in dedicated Performance & Operations tracks. Use code vel09scf > and Save an extra 15% before 5/3. http://p.sf.net/sfu/velocityconf > ___ > xHarbour-developers mailing list > xHarbour-developers@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/xharbour-developers > -- Register Now & Save for Velocity, the Web Performance & Operations Conference from O'Reilly Media. Velocity features a full day of expert-led, hands-on workshops and two days of sessions from industry leaders in dedicated Performance & Operations tracks. Use code vel09scf and Save an extra 15% before 5/3. http://p.sf.net/sfu/velocityconf ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-05-04 10:25 UTC+0100 Miguel Angel Marchuet
2009-05-04 10:25 UTC+0100 Miguel Angel Marchuet * contrib\rdd_ads\ads1.c * changed FAILURE by HB_FAILURE, SUCCESS by HB_SUCCESS * changed support of datetime (TIMESTAMP) fields from string items to datetime items. * changes support of varlength fields adding subtypes ADS_VARBINARY_FOX, ADS_VARCHAR_FOX, ADS_VARCHAR (synced with harbour as possible) * source\rdd\dbf1.c * source\rdd\dbfcdx\dbfcdx1.c * white spaces. Requested by Brian Hays. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4050 (20090503) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Register Now & Save for Velocity, the Web Performance & Operations Conference from O'Reilly Media. Velocity features a full day of expert-led, hands-on workshops and two days of sessions from industry leaders in dedicated Performance & Operations tracks. Use code vel09scf and Save an extra 15% before 5/3. http://p.sf.net/sfu/velocityconf ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] help on get class
class GET need implement the edit of datetime items any developer can do it ? Best regards, Miguel Angel marchuet -- Register Now & Save for Velocity, the Web Performance & Operations Conference from O'Reilly Media. Velocity features a full day of expert-led, hands-on workshops and two days of sessions from industry leaders in dedicated Performance & Operations tracks. Use code vel09scf and Save an extra 15% before 5/3. http://p.sf.net/sfu/velocityconf ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-05-01 22:29 UTC+0100 Miguel Angel Marchuet
2009-05-01 22:29 UTC+0100 Miguel Angel Marchuet * include\hbapi.h * source\rdd\bmdbfcdx\bmdbfcdx1.c * source\rdd\dbfcdx\dbfcdx1.c * source\rdd\dbfnsx\dbfnsx1.c * source\rtl\transfrm.c * source\rtl\valtype.c * source\vm\hvm.c * source\vm\itemapi.c * Removed HB_IT_TIMESTAMP, and changed (.time != 0) by HB_IIT_TIMEFLAG how will be added to HB_IT_DATE when time has value. It's little faster, and more clear. ! fixed VM to work with this changes. I purpouse change Valtype fo datetime D to T to be compatible with others. maintain D only under some #define Best regards, Miguel Angel Marchuet -- Register Now & Save for Velocity, the Web Performance & Operations Conference from O'Reilly Media. Velocity features a full day of expert-led, hands-on workshops and two days of sessions from industry leaders in dedicated Performance & Operations tracks. Use code vel09scf and Save an extra 15% before 5/3. http://p.sf.net/sfu/velocityconf ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] fixed i upload soon some changes
Fixed I upload now try too, build tests\datetime.prg working perfectly in xHarbour :) Best regards Miguel Angel Marchuet Enrico Maria Giordano escribió: > Running the following sample > > FUNCTION MAIN() > > PRIVATE dTest > > IF !FILE( "TEST.MEM" ) > dTest = DATE() > ? dTest > SAVE TO TEST > ENDIF > > RESTORE FROM TEST > > ? dTest > > INKEY( 0 ) > > RETURN NIL > > I wrongly get > > 04/30/09 > 04/30/09 00:00:00.00 > > instead of > > 04/30/09 > 04/30/09 > > EMG > > -- > EMAG Software Homepage: http://www.emagsoftware.it > The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum > The Best of Spectrum Games: http://www.emagsoftware.it/tbosg > The EMG Music page: http://www.emagsoftware.it/emgmusic > > -- > Register Now & Save for Velocity, the Web Performance & Operations > Conference from O'Reilly Media. Velocity features a full day of > expert-led, hands-on workshops and two days of sessions from industry > leaders in dedicated Performance & Operations tracks. Use code vel09scf > and Save an extra 15% before 5/3. http://p.sf.net/sfu/velocityconf > ___ > xHarbour-developers mailing list > xHarbour-developers@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/xharbour-developers > > __ Información de ESET Smart Security, versión de la base de firmas > de virus 4040 (20090428) __ > > ESET Smart Security ha comprobado este mensaje. > > http://www.eset.com > > > > > -- Register Now & Save for Velocity, the Web Performance & Operations Conference from O'Reilly Media. Velocity features a full day of expert-led, hands-on workshops and two days of sessions from industry leaders in dedicated Performance & Operations tracks. Use code vel09scf and Save an extra 15% before 5/3. http://p.sf.net/sfu/velocityconf ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] Bug in SAVE TO
THANK'S a lot , I still working on it, i upload it soon I'm trying to optimize a little xharbour DATETIME, as you know xharbour works with DATETIME as HB_IT_DATE with .time != 0 I'm removing != 0, and using HB_IT_TIMEFLAG , as i say in my last upload . it is work in progress. I want to change ValType of DATETIME to T, it is not backguard compatible but it will work as other compilers. someone recommended doing as "D" so the past, and now we are paying for it, being inconsistent with VFP, ADS and others How I understand, this is low used, I purpose to change to "T", and mantain "D" only under some define. Best regards, Miguel Angel Marchuet Enrico Maria Giordano escribió: Running the following sample FUNCTION MAIN() PRIVATE dTest IF !FILE( "TEST.MEM" ) dTest = DATE() ? dTest SAVE TO TEST ENDIF RESTORE FROM TEST ? dTest INKEY( 0 ) RETURN NIL I wrongly get 04/30/09 04/30/09 00:00:00.00 instead of 04/30/09 04/30/09 EMG -- EMAG Software Homepage: http://www.emagsoftware.it The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum The Best of Spectrum Games: http://www.emagsoftware.it/tbosg The EMG Music page: http://www.emagsoftware.it/emgmusic -- Register Now & Save for Velocity, the Web Performance & Operations Conference from O'Reilly Media. Velocity features a full day of expert-led, hands-on workshops and two days of sessions from industry leaders in dedicated Performance & Operations tracks. Use code vel09scf and Save an extra 15% before 5/3. http://p.sf.net/sfu/velocityconf ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers __ Información de ESET Smart Security, versión de la base de firmas de virus 4040 (20090428) __ ESET Smart Security ha comprobado este mensaje. http://www.eset.com -- Register Now & Save for Velocity, the Web Performance & Operations Conference from O'Reilly Media. Velocity features a full day of expert-led, hands-on workshops and two days of sessions from industry leaders in dedicated Performance & Operations tracks. Use code vel09scf and Save an extra 15% before 5/3. http://p.sf.net/sfu/velocityconf___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] SET FILTER TO & seems broken
seems broken build of this code SET FILTER TO &cFilter with last CVS, any idea ? -- Crystal Reports - New Free Runtime and 30 Day Trial Check out the new simplified licensign option that enables unlimited royalty-free distribution of the report engine for externally facing server and web deployment. http://p.sf.net/sfu/businessobjects ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] 2009-04-27 17:49 UTC+0100 Miguel Angel Marchuet
We need to use UNSIGNED32 AdsGetJulian (ADSHANDLE hTable, UNSIGNED8 *pucFldName, SIGNED32 *plDate); to retrive values of a date from date, short date, ModTime fields, and timestamp fields UNSIGNED32 AdsGetTime (ADSHANDLE hTable, UNSIGNED8 *pucFldName, UNSIGNED8 *pucBuf, UNSIGNED16 *pusLen); and this for his time part. I SUPOSE... do you know about it, and available versions. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4035 (20090425) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Crystal Reports - New Free Runtime and 30 Day Trial Check out the new simplified licensign option that enables unlimited royalty-free distribution of the report engine for externally facing server and web deployment. http://p.sf.net/sfu/businessobjects ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] 2009-04-27 17:49 UTC+0100 Miguel Angel Marchuet
> RDDADS has had its own flavor of timestamps for a long time. > Do you expect this new change to work with that, or is it > a different system that still needs to be integrated? > Recent changes at ITEM API only changes .time != 0 for flag TIMESTAMP. are two complatible code of the same thing. BUT reading code of ADS I see that TIMESTAMP fields are readed as STRING instead of DATE + TIME. It is better to change. There area any function similar to? as : Ace32_GetProcAddress( "AdsGetJulian" ); to retrieve it correctly. I don't know ads api. Thank's Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4035 (20090425) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Crystal Reports - New Free Runtime and 30 Day Trial Check out the new simplified licensign option that enables unlimited royalty-free distribution of the report engine for externally facing server and web deployment. http://p.sf.net/sfu/businessobjects ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-04-27 17:49 UTC+0100 Miguel Angel Marchuet
2009-04-27 17:49 UTC+0100 Miguel Angel Marchuet * source\rdd\bmdbfcdx\bmdbfcdx1.c * source\rdd\dbfcdx\dbfcdx1.c * minor adjusts, an added a few comments. * tests\datetime.prg * Added DbSkip( 0 ) to clarify how works STAMPED fieldtype TIMESTAMP. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4035 (20090425) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Crystal Reports - New Free Runtime and 30 Day Trial Check out the new simplified licensign option that enables unlimited royalty-free distribution of the report engine for externally facing server and web deployment. http://p.sf.net/sfu/businessobjects ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
[xHarbour-developers] 2009-04-24 17:49 UTC+0100 Miguel Angel Marchuet
2009-04-24 17:49 UTC+0100 Miguel Angel Marchuet * include\hbapi.h * source\rtl\dateshb.c * source\rtl\set.c + Added setget function for TIMEFORMAT * source\rtl\tbrowse.prg ! fixed show values of datetime and timestamp fields * source\rtl\transfrm.c ! fixed transform to return proper values with datetime items. + tests\datetime.prg + Added sample test, to see how works timestamp and datetime fields. Remark that field timestamp is auto fill field with current datetime. TIMESTAMPS works properly at RDD. Best regards, Miguel Angel Marchuet __ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4033 (20090424) __ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com -- Crystal Reports - New Free Runtime and 30 Day Trial Check out the new simplified licensign option that enables unlimited royalty-free distribution of the report engine for externally facing server and web deployment. http://p.sf.net/sfu/businessobjects ___ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers
Re: [xHarbour-developers] 2009-04-23 16:25 UTC+0100 Miguel Angel Marchuet
DATETIME was implemented by Walter Negro, I made needed adjustments to the RDD
and José Jimenez in TOleAuto.
As you know...
Where is Based or Borrowed or Copied ? is not important for me. You don't need
to do any word of this
TIMESTAMP is not finished yet at harbour, because is not stamped in buffer,
please see the example that i
upload datetime.prg
Please review too KEYSTROKE SPACE over datetime field at browse in harbour.
Please, no more fights.
If I look at the code of clip & harbour, but in this case I've ported the code
for example "if (" instead of "if (" or similar
do not think that is something remarkable. But I like to keep code as near as
possible, although sometimes it is too much work,
just to review the changes of function names.
Added indexes on datetime and timestamp fields, and looks much like what is in
harbor. Yes, I can always try to be like. And try
not to add a point to functions like others to say that the code is yours. eg
hb_itemgetTD instead of hb_itemgetDTD.
For me is good your idea of use HB_IT_TIMESTAMP, in xharbour as HB_IT_DATE sub
item Type, and for this reason I change .time !=
0 for it. Good ideas are good ideas.
Finish, no more words of this theme.
Best regards,
Miguel Angel Marchuet
__ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4033 (20090424) __
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
Crystal Reports - New Free Runtime and 30 Day Trial
Check out the new simplified licensign option that enables unlimited
royalty-free distribution of the report engine for externally facing
server and web deployment.
http://p.sf.net/sfu/businessobjects
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
