[Harbour] Mouse not work with ACHOICE()
This Code work fine in clipper with the mouse:
#include "inkey.ch"// Key definitions
FUNCTION MAIN
LOCAL aOpc := {"Opc. 1","Opc. 2","Opc. 3"}, nOpc
SET( _SET_EVENTMASK, INKEY_ALL )
cls
nOpc := ACHOICE(1,1,10,20,aOpc)
? nOpc
RETURN NIL
In harbour not work the mouse.
Best Regards.
GVS
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] HB_ATokens() equivqlent accepting delimiter more than one charcater
Hello I am looking for a function equivalent to HB_ATokens( cStr, cDelimiter ) where is more than one character. For example: HB_ATokensEx( cString, '|~|' ) Please forgive me if it already exists. Regards Pritpal Bedi, INDIA-USA -- View this message in context: http://www.nabble.com/HB_ATokens%28%29-equivqlent-accepting-delimiter-more-than-one-charcater-tp18782300p18782300.html Sent from the Harbour - Dev mailing list archive at Nabble.com. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: Re: [Harbour] [SPAM] Ocassional SET ORDER TO failure in RDDADS - xHarbour
>Just some generic information about recent rddads update: >The RDD part of the lib (ads1.c) got some very light updates >only, so it's pretty easy to overview them and look for >any suspect changes. I agree. I do a complete file compare with old/new rddads versions without any suspicious code found; Regards, Toninho. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] [SPAM] Ocassional SET ORDER TO failure in RDDADS - xHarbour
Hi Pritpal, Just some generic information about recent rddads update: The RDD part of the lib (ads1.c) got some very light updates only, so it's pretty easy to overview them and look for any suspect changes. Brgds, Viktor On 2008.08.01., at 18:05, Pritpal Bedi wrote: Przemek what is the error. select verify set order to 2 seek substr(cCustId,2) // :ERROR // Error log-// Alias() => verify Recno() => 200120 IndexOrd() => 0 GenCode => 36 Description => Workarea not indexed. We are using production indexes. I will include more info about indexes in error log today. That the 'index is closed' somehow is unlikely as the same code works for other instances. At peak hours I have about 900 workstations logged and roughly only 10-15 entries in errorlog per day are reported on an average. Viktor It is very hard to post Harbour compiled instance at one of the servers as I have yet to resolve some compatibility issues. And stand-alone instance I cannot produce as the same application if run isolated produces no errors. Regards Pritpal Bedi, INDIA-USA -- View this message in context: http://www.nabble.com/Ocassional-SET-ORDER-TO-failure-in-RDDADS---xHarbour-tp18768654p18777802.html Sent from the Harbour - Dev mailing list archive at Nabble.com. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: Re: [SPAM] [Harbour] Ocassional SET ORDER TO failure in RDDADS - xHarbour
>Could you guys please try this with Harbour and report results? Viktor, I´ll try this weekend. Regards, Toninho. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] 2008-08-01 14:44 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
On Fri, Aug 1, 2008 at 3:06 PM, Szakáts Viktor <[EMAIL PROTECTED]> wrote: > * source/pp/ppcore.c > * doc/whatsnew.txt > ! __PLATFORM__* macros now all #defined in full uppercase. Many thanks. best regards, Lorenzo ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] [SPAM] Ocassional SET ORDER TO failure in RDDADS - xHarbour
Przemek > what is the error. select verify set order to 2 seek substr(cCustId,2) // :ERROR // Error log-// Alias() => verify Recno() => 200120 IndexOrd() => 0 GenCode => 36 Description => Workarea not indexed. We are using production indexes. I will include more info about indexes in error log today. That the 'index is closed' somehow is unlikely as the same code works for other instances. At peak hours I have about 900 workstations logged and roughly only 10-15 entries in errorlog per day are reported on an average. Viktor It is very hard to post Harbour compiled instance at one of the servers as I have yet to resolve some compatibility issues. And stand-alone instance I cannot produce as the same application if run isolated produces no errors. Regards Pritpal Bedi, INDIA-USA -- View this message in context: http://www.nabble.com/Ocassional-SET-ORDER-TO-failure-in-RDDADS---xHarbour-tp18768654p18777802.html Sent from the Harbour - Dev mailing list archive at Nabble.com. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [SPAM] [Harbour] Ocassional SET ORDER TO failure in RDDADS - xHarbour
Could you guys please try this with Harbour and report results? Brgds, Viktor On 2008.08.01., at 15:37, [EMAIL PROTECTED] wrote: But what's the error? Przemek, I'm having this problem too. I'm using XHarbour and I see this problem, when rddads from xharbour was synched with harbour. Is a very strange error, but I know that it exist because sometimes I set a scope in an index and when I do a setorder my data is not scopped. But this is very rare situation. Regards, Toninho. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: Re: [SPAM] [Harbour] Ocassional SET ORDER TO failure in RDDADS - xHarbour
>But what's the error? Przemek, I'm having this problem too. I'm using XHarbour and I see this problem, when rddads from xharbour was synched with harbour. Is a very strange error, but I know that it exist because sometimes I set a scope in an index and when I do a setorder my data is not scopped. But this is very rare situation. Regards, Toninho. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] 2008-08-01 14:44 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
2008-08-01 14:44 UTC+0200 Viktor Szakats (harbour.01 syenar hu) * source/pp/ppcore.c * doc/whatsnew.txt ! __PLATFORM__* macros now all #defined in full uppercase. F.e.: __PLATFORM__Windows becomes __PLATFORM_WINDOWS __PLATFORM__Linux becomes __PLATFORM__LINUX INCOMPATIBLE. * contrib/xhb/hbcompat.ch + Added compatibility #defines for __PLATFORM__* macros. * include/hbdefs.h ! Minor formatting. * harbour-ce-spec * harbour-w32-spec * make_xmingw.sh * make_xmingwce.sh * source/debug/debugger.prg * contrib/hbtpathy/telepath.prg * contrib/hbw32/w32_tole.prg * contrib/hbw32/w32_tprn.prg * utils/hbdot/hbdot.prg * utils/hbmake/hbmake.prg * Changed __PLATFORM__* #define according to latest changes. ; NOTE: I find this kind of compile-time platform dependency quite wrong in an normal application, and we should definitely avoid it in core Harbour. In core Harbour there is one place where it would better be eliminated, and in order to do this, we'd need to have a filename equality comparison FS function. Maybe we already have one, I don't know. -- Brgds, Viktor ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] All __PLATFORM__* uppercase?
On Fri, Aug 1, 2008 at 10:57 AM, Szakáts Viktor <[EMAIL PROTECTED]> wrote: > If we're at __PLATFORM_* #defines, I'd rather opt > to make everything uniformly uppercase, as this is > the common rule used for every other #define's > in Harbour and Clipper. Yes, I was referring to the __PLATFORM__* defines. If I'm correct now we have mixed: __PLATFORM__Linux __PLATFORM__Windows all the rest are UPPERCASE. best regards, Lorenzo ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] All __PLATFORM__* uppercase?
On Fri, 01 Aug 2008, Szakáts Viktor wrote: > >I've just found that by mistake, I've replace __PLATFORM__Linux with > >__PLATFORM__Unix. > >What about having all the __PLATFORM_* upper case before 1.0 release? > If we're at __PLATFORM_* #defines, I'd rather opt > to make everything uniformly uppercase, as this is > the common rule used for every other #define's > in Harbour and Clipper. I agree, it should be converted to upper case long time ago and better make it now before 1.0 then later. From the beginning people have problems with __PLATFORM_* definitions due to mixed upper and lower letters. > We may add mixed-case xhb compatibility #defines > via hbcompat.ch. Fine. best regards, Przemek ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] 2008-08-01 11:01 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
2008-08-01 11:01 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/source/compiler/harbour.yyc * updated for recent harbour.y modifications - thanks to Viktor for remainder best regards Przemek ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] BCC 5.8 two remaining warnings
On Fri, 01 Aug 2008, Szakáts Viktor wrote:
Hi Viktor,
> By cleaning the many warnings, two new ones got revealed:
> Warning W8056 source\rdd\dbf1.c 2379: Integer arithmetic overflow in
> function hb_dbfPutValue
> Warning W8056 source\rdd\dbf1.c 2398: Integer arithmetic overflow in
> function hb_dbfPutValue
> Both lines use the HB_DBL_LIM_64() macro.
Probably yet another problem with stdint.h in BCC5.8
But without this compiler I can only guess what's wrong
this time: try to add yet another hack like for INT32_MIN
but this time for INT64_MIN:
#undef INT64_MIN
#define INT64_MIN ((int64_t) (-INT64_MAX-1))
If it helps then please commit, if doesn't then please try
to make some experiments with this code to detect exact
reason of warning message.
#define X_MAX ((__int64) 9223372036854775807)
#define X_MIN ((__int64) -9223372036854775808)
BOOL f( double d )
{
return ( (long double) X_MIN <= (long double) (d) &&
(long double) (d) <= (long double) X_MAX );
}
best regards,
Przemek
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] All __PLATFORM__* uppercase?
Hi, If we're at __PLATFORM_* #defines, I'd rather opt to make everything uniformly uppercase, as this is the common rule used for every other #define's in Harbour and Clipper. We may add mixed-case xhb compatibility #defines via hbcompat.ch. Brgds, Viktor On 2008.08.01., at 10:46, Lorenzo Fiorini wrote: I've just found that by mistake, I've replace __PLATFORM__Linux with __PLATFORM__Unix. What about having all the __PLATFORM_* upper case before 1.0 release? best regards, Lorenzo ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [SPAM] [Harbour] Ocassional SET ORDER TO failure in RDDADS - xHarbour
On Thu, 31 Jul 2008, Pritpal Bedi wrote: Hi Pritpal, > This is an xHarbour compiled ( as of Jun 2007 CVS ) application, a very > large one. > RDD = > RDDADS > Here is a code snippet: > select verify > set order to 2 > seek substr(cCustId,2) // Generates RT Error and stats are > alias() == verify > recno() == 200120 or like > IndexOrd() == 0 > GenCode == 36 > Description == Workarea not indexed. > > This error comes ocassionaly and not all the time. > Table under the error may be different, above is only one instance. > I need to know under what circumstances this error can happen. But what's the error? > For sure "SET ORDER TO 2" statement is failing somehow on Advantage. We do not manage indexes in ADS RDD. All calls are directly redirected to ACE. If it refuses to set the order then probably index is not open for some reasons. > It is really difficult to understand where I put additional traps as > the error has no particular place in this very large application. Inside error handler please check workarea, current index, number of indexes and tags inside. Maybe you will find the reason. ADS RDD in [x]Harbour is only very simple wrapper to ACE library the above is basic functionality and I do not believe that it's a bug in order selection - it's basic functionality. Rather some differences in autoopen and/or production indexes handling which are later exploited by your code. best regards, Przemek ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] All __PLATFORM__* uppercase?
I've just found that by mistake, I've replace __PLATFORM__Linux with __PLATFORM__Unix. What about having all the __PLATFORM_* upper case before 1.0 release? best regards, Lorenzo ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] 2008-08-01 03:06 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
Hi Przemek, Isn't an update missing for harbour.yy* files? Brgds, Viktor On 2008.08.01., at 3:06, Przemyslaw Czerpak wrote: 2008-08-01 03:06 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/include/hbpp.h * harbour/include/hbexprb.c * harbour/source/pp/ppcore.c * harbour/source/vm/evalhb.c * harbour/source/vm/runner.c * harbour/source/vm/hvm.c * harbour/source/vm/fm.c * harbour/source/vm/eval.c * harbour/source/vm/dynlibhb.c * harbour/source/vm/classes.c * harbour/source/rdd/hbsix/sxord.c * harbour/source/compiler/hbmain.c * harbour/source/compiler/harbour.y * pacified warnings best regards Przemek ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
