Re: [Harbour] MySQL Problem

2009-05-16 Thread Mindaugas Kavaliauskas
Hi, I want to connect it with my harbour PRG. The compilation is OK, but at the execution it shows the following message: Error ADODB.Connection/0 S_OK: OPEN (in the red alert window). Why? the answer is a little out of topic, since I do not solve you ADODB problem, but propose another

Re: [Harbour] Mini-tutorial MySQL connection

2009-05-16 Thread Mindaugas Kavaliauskas
Massimo Belgrano wrote: Wich function of dbxcdx are not supported by sqlrdd? deleted(),rlock(), Hi, you should ask it SQLRDD^{(TM)} developers. If you are talking about RDDSQL, NONE of dbfcdx behaviour is emulated. If native SQL server does not have DELETED() flag or RLOCK(), you will

Re: [Harbour] Errors with 11032

2009-05-16 Thread Mindaugas Kavaliauskas
Hello Pritpul, We will to change at least numeric type to pointer type... Yes, but how. I am following your code but am been unbale to hook any code inside it because of WINAPI background. harbour/contrib/gtwvg/wvgsink.c Thanks for this line. I did not know we have more OLE/ActiveX code

Re: [Harbour] Mini-tutorial MySQL connection

2009-05-15 Thread Mindaugas Kavaliauskas
Sérgio Kondo wrote: Another question: RDDSQL for MySQL also need MyODBC? No, it uses native client library. Regards, Mindaugas ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour

Re: [Harbour] Errors with 11032

2009-05-14 Thread Mindaugas Kavaliauskas
Hello, Pritpul, Apply this patch in olecore.c and let me know it solves this issue: Mindaugus, please check if this can be implemented like this or some else construct is needed. HB_FUNC( OLECREATEOBJECT ) /* ( cOleName | cCLSID [, cIID ] ) */ { ... if( HB_IS_NUMBER( 1 ) ) { We

Re: [Harbour] Errors with 11032

2009-05-14 Thread Mindaugas Kavaliauskas
Hi, Apply this patch in olecore.c and let me know it solves this issue: but there is a question if we want to still tolerate code with C pointer - HVM number item conversions and keep workarounds for it. I'm leaving the decision to Mindaugas. Usage of numbers instead of pointers is one

Re: [Harbour] Bug in ADS

2009-05-14 Thread Mindaugas Kavaliauskas
Przemyslaw Czerpak wrote: Here is reduced example: REQUEST ADS proc main() adsSetServerType( 1 ) rddSetDefault( ADS ) dbCreate( test.dbf, { { F, C, 24, 0 } } ) USE test while lastrec() 10 dbappend() field-F := repl( 1234567890, 10 )

Re: [Harbour] Bug in ADS

2009-05-14 Thread Mindaugas Kavaliauskas
Luis Krause Mantilla wrote: Przemek: FWIW, I tested with xHarbour with ads 8.1, 9.0 and 9.1 dlls and it does not add an extra dummy char. I changed the field length to 40 and it still worked as expected. Hi, Have you tried with ads1.c file revision 1.141 (Mon May 4 08:25:44 2009 UTC) or

Re: [Harbour] About bug in AdsGetField()

2009-05-14 Thread Mindaugas Kavaliauskas
Hi, great! The fix below should be enough (not tested), but maybe we should add a better error check for ads function return values... Index: C:/harboursvn/contrib/rddads/ads1.c === --- C:/harboursvn/contrib/rddads/ads1.c

Re: [Fwd: Re: [Harbour] Problem with return of LoadLibrary and Harbour 11047]

2009-05-14 Thread Mindaugas Kavaliauskas
Viktor Szakáts wrote: Hi Mindaugas, if hLib = 32 -- Here error Probably 'IF Empty( hLib )' should be used here, and LoadLibrary() modified to return NULL when pointer is = 32. But now I know why we had this code full of numeric pointers. We

Re: [Harbour] Timer

2009-05-11 Thread Mindaugas Kavaliauskas
Hi, Can I define in Harbout timer ? If MultiThread solution is acceptable for you, read a longer discussion having subject hblognet, inet and threads, from http://lists.harbour-project.org/pipermail/harbour/2008-December/date.html Regards, Mindaugas

[Harbour] RDD inheritance

2009-05-08 Thread Mindaugas Kavaliauskas
Hi, I'm using ADSX RDD, but sometimes I need to call ADS*() function. It does not work, because hb_adsGetWorkAreaPointer() know nothing about ADSX. I need to duplicate existing ADS*() function, changing the only function hb_adsGetWorkAreaPointer() call to hb_adsxGetWorkAreaPointer(). What

Re: [Harbour] error in hbwin ole with msvc

2009-05-06 Thread Mindaugas Kavaliauskas
Hi, Francesco Saverio Giudice wrote: Just a small error: ? :Birthday := CToD( 23/05/2006 ) Returns NIL, instead it should returns assigned date Think to ? dDate := :Birthday := CToD( 23/05/2006 ) in this case dDate is Nil. ? :Birthday // here it should return a date

Re: [Harbour] SF.net SVN: harbour-project:[10979] trunk/harbour

2009-05-05 Thread Mindaugas Kavaliauskas
Hi, 1) hbi18n.exe *.prg *.ch -oapp_hu_HU.pot -del=app_hu_HU.unused.pot I'm not sure I understand your idea. The line above means we need to include lexer, PP and compiler code (including all bison generate source) into hbi18n. Otherwise we will be always able to fail on samples like: 1)

Re: [Harbour] SF.net SVN: harbour-project:[10930] trunk/harbour

2009-05-04 Thread Mindaugas Kavaliauskas
Hi, Przemyslaw Czerpak wrote: Should we ignore backward (descending) iteration flag and do forward iteration, should we do not iterate at all (current behavior), or should we give runtime error (which one?)? Thank you very much. Probably RTE will be better - easier to detect potential

Re: [Harbour] SF.net SVN: harbour-project:[10930] trunk/harbour

2009-05-04 Thread Mindaugas Kavaliauskas
Hi, For me array support is enough to cover passing arrays to OLE calls and maybe getting back arrays from OLE calls. I've implemented some limited support for arrays. It's enough for the simplest OpenOffice oDesktop:loadComponentFromURL() calls. Though, I do not have more tests for

Re: [Harbour] Re: hb_i18n_gettext( ) warning. is it normal?

2009-05-03 Thread Mindaugas Kavaliauskas
Hi, 1) write empty strings to .pot file Change include/hbexprb.c line #1899: if( pArg-ExprType == HB_ET_STRING pArg-ulLength 0 ) to: if( pArg-ExprType == HB_ET_STRING ) 2) do not write empty string to .pot file and do not show any warning: Change:

Re: [Harbour] Re: hb_i18n_gettext( ) warning. is it normal?

2009-05-03 Thread Mindaugas Kavaliauskas
Hi, LOCAL aText_Basic := {; I_( Syntax: ),; I_( ),; I_( hbmk [options] [script[s]] src[s][.prg|.c|.obj|.o|.rc|.res|.pot|.hbl] ),; I_( ),; I_( Options: ) } In this case I would write: LOCAL aText_Basic := {; I_( Syntax: ),; ,;

Re: [Harbour] Re: hb_i18n_gettext( ) warning. is it normal?

2009-05-02 Thread Mindaugas Kavaliauskas
Hi, Viktor Szakáts wrote: I had to create workaround for this warning by passing string instead of zero length one, IMO we should support empty values and simply always return it as is in hb_i18n_gettext(). Compiling this code: --- ? hb_i18n_gettext( ) ---

[Harbour] Serious compiler bug

2009-04-29 Thread Mindaugas Kavaliauskas
Hi, the following code: --- STATIC snCount := 0 PROC main() LOCAL nI nI := snCount snCount := NEWCOUNT() FOR nI := nI + 1 TO snCount ? nI, snCount NEXT RETURN FUNC NEWCOUNT() RETURN 10 --- generates output:

Re: [Harbour] Serious compiler bug

2009-04-29 Thread Mindaugas Kavaliauskas
Hi, seems like optimizer problem. -kc switch fixes code. Regards, Mindaugas Mindaugas Kavaliauskas wrote: Hi, the following code: --- STATIC snCount := 0 PROC main() LOCAL nI nI := snCount snCount := NEWCOUNT() FOR nI := nI + 1 TO snCount ? nI

Re: [Harbour] Serious compiler bug

2009-04-29 Thread Mindaugas Kavaliauskas
Mindaugas Kavaliauskas wrote: seems like optimizer problem. -kc switch fixes code. ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour

Re: [Harbour] Serious compiler bug

2009-04-29 Thread Mindaugas Kavaliauskas
Hi, FOR nI := nI + 1 TO snCount The problem is cause by nI := nI + 1 = nI += 1 optimization. After converting the expressions we still try to access original nI expression which does not longer exists. I'll fix it. Yes. I'm looking at include/hbexprb.c function hb_compExprUseAssign

Re: [Harbour] Serious compiler bug

2009-04-29 Thread Mindaugas Kavaliauskas
Przemyslaw Czerpak wrote: Look at $2 expression in FOR TO / NEXT statement. It was reduced and removed inside hb_compExprUseAssign() and later reused. I've just committed the fix though it's rather workaround which simply keep untouched left side of assign expression and only change/remove the

Re: [Harbour] SF.net SVN: harbour-project:[10953] trunk/harbour

2009-04-29 Thread Mindaugas Kavaliauskas
Hi, 2009-04-29 14:50 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/include/hbexprb.c I guess your ChangeLog file is edited by some script. Now it is not working well after CC license is included into this file. Regards, Mindaugas

Re: [Harbour] SF.net SVN: harbour-project:[10945] trunk/harbour

2009-04-28 Thread Mindaugas Kavaliauskas
* harbour/contrib/rddads/ads1.c #if ADS_LIB_VERSION = 900 if( pField-uiTypeExtended == ADS_VARCHAR_FOX ) hb_itemPutC( pItem, V ); #endif else Perhaps '#endif' should be

Re: [Harbour] hb_ProcessIsRunning() request (to Przemek)

2009-04-24 Thread Mindaugas Kavaliauskas
request HB_GT_CGI_DEFAULT proc main(x) ... It should show if hOut is using blocking IO or not. BTW PIPEs without blocking IO are usually very hard to use so if they are not blocking calling process in windows we should try to fix it. It prints: ===

Re: [Harbour] SF.net SVN: harbour-project:[10930] trunk/harbour

2009-04-24 Thread Mindaugas Kavaliauskas
2009-04-24 23:15 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) * harbour/contrib/hbole/olecore.c * harbour/contrib/hbole/oleauto.prg + implemented FOR EACH enumeration. The code was proposed by Przemyslaw on mailing list. Some fixes applied. Hi, I've put some hands

Re: [Harbour] error in hbwin ole with msvc

2009-04-24 Thread Mindaugas Kavaliauskas
Hi, Francesco, ... Do we have any FOR EACH sample code for OLE? attached an example, also with datetime fields. Can you look if FOR EACH and TIMESTAMP support works for you? Regards, Mindaugas ___ Harbour mailing list

Re: [Harbour] SF.net SVN: harbour-project:[10817] trunk/harbour

2009-04-10 Thread Mindaugas Kavaliauskas
vszak...@users.sourceforge.net wrote: ! Excluded for msvc64: ../../fbirddd.c(187) : warning C4244: 'argument' : conversion from 'ULONG' to 'short', possible loss of data ../../fbirddd.c(231) : warning C4244: 'argument' : conversion from 'ISC_STATUS' to 'USHORT', possible loss

Re: [Harbour] SF.net SVN: harbour-project:[10793] trunk/harbour

2009-04-08 Thread Mindaugas Kavaliauskas
Hello, It is. From printf() man page: 0 The value should be zero padded. For d, i, o, u, x, X, a, A, e, E, f, F, g, and G conversions, the converted value is padded on the left with zeros rather than blanks. If the 0 and - flags both appear, the 0 flag is

Re: [Harbour] error in hbwin ole with msvc

2009-04-08 Thread Mindaugas Kavaliauskas
Hi, Current code is very short and simple. At least I understand it so far ;-) The simplicity was the main goal, after I found original OLE is not working (it was xHarbour times) and I was unable to understand some implementation ideas. 1. Empty date in hbwin TOLEAUTO is send as

Re: [Harbour] Problemn with OLE

2009-04-02 Thread Mindaugas Kavaliauskas
Hi, The problem occurs with fivewin + msvc. Any help? I do not use neither fivewin nor msvc. I hope ole library should work with any compiler. Can you replicate problem without fivewin? Regards, Mindaugas ___ Harbour mailing list

Re: [Harbour] error in hbwin ole with msvc

2009-03-26 Thread Mindaugas Kavaliauskas
Hi, ../../olecore.c(116) : error C2440: '=': impossibile convertire da 'void *' a 'char *' La conversione da 'void*' a puntatori a valori non 'void' richiede un cast esplicito Fixed. ../../olecore.c(134) : error C2039: 'n1': non Š un membro di 'tagVARIANT' c:\program

Re: [Harbour] error in hbwin ole with msvc

2009-03-26 Thread Mindaugas Kavaliauskas
procedure testolenew() local oWord, oText begin sequence oWord = GetActiveObject( Word.Application ) recover begin sequence oWord = CreateObject( Word.Application ) recover alert( ERROR! Word not avialable. ) oWord = GetActiveObject(

Re: [Harbour] error in hbwin ole with msvc

2009-03-25 Thread Mindaugas Kavaliauskas
Whole OLE code is very flakey, I hope Mindaugas can send us something before we release. Hi Viktor, I've committed my OLE code. It is more clean, but not so many features implemented. I'm not sure it is that Harbour needs. Best regards, Mindaugas

Re: [Harbour] error in hbwin ole with msvc

2009-03-25 Thread Mindaugas Kavaliauskas
Can you tell what are the missing features? This can help us decide if we can swap your code with the one in hbwin. I'd certainly be happy to do so. If the missing bits are not that important for OLE users, it may be enough to do the swap and document the differences for now. Hi, one of

Re: [Harbour] hbmk2 - notes2

2009-03-05 Thread Mindaugas Kavaliauskas
Hi, PRIVATE declaration can be used in any place of code and it was beyond my and other [x]Harbour developers imagination ;-) that user may want to create code like: while .t. private var := something ... enddo Usually do not use PRIVATE variables in single thread

Re: [Harbour] hbmk2 - notes2

2009-03-05 Thread Mindaugas Kavaliauskas
Hi, Viktor, It would be nice to hear some comments on my fixes, I'm not sure what silence means :) But after like 30-40 fixes with no positive (or any) feedback it's really difficult to know where we stand. I'm not the makefile guru, I've never used hbmake or another harbour scripts tools

Re: [Harbour] hbmk2 - notes2

2009-03-05 Thread Mindaugas Kavaliauskas
Hi, Usually do not use PRIVATE variables in single thread applications. I wanted to avoid STATIC or THREAD STATIC here, so, I've used PRIVATE and had enough imagination to declare it in a loop :) Just for information. What was expected results of above code for you? I just wanted to have

[Harbour] -km

2009-03-04 Thread Mindaugas Kavaliauskas
Hi, is there a way to define -km switch inside source code? Ex. #pragma -km or we have some restrictions on dynamic -km flag switching inside source and this could not be implemented. Regards, Mindaugas P.S. it would greatly help writing: url + bbb=ccc + ...

Re: [Harbour] -km

2009-03-04 Thread Mindaugas Kavaliauskas
#pragma -km #pragma -kM+ Thanks a lot! I forgot this switch is uppercase... Regards, Mindaugas ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour

Re: [Harbour] SF.net SVN: harbour-project:[10501] trunk/harbour

2009-03-02 Thread Mindaugas Kavaliauskas
+ source/rtl/hbstrfmt.c + Added HB_STRFORMAT() sprintf()-like formatting. + Added hb_StrFormat() C level function. ; Work of Mindaugas sent to the list, with some minor cleanups applied. Please test on your platform/compiler. Hi, thank you for commit. I'm going to

Re: [Harbour] two questions for windows guru

2009-02-20 Thread Mindaugas Kavaliauskas
Hi, I have two questions to windows users. Maybe someone can help me. 1. is it possible to include unicode table with unicode character value to raster font stored in .fon file or I can only set the MS official codepage number? I know nothing about internal font structure, so, I don't

Re: [Harbour] two questions for windows guru

2009-02-20 Thread Mindaugas Kavaliauskas
Viktor Szakáts wrote: #pragma begindump #include windows.h #include hbapi.h HB_FUNC( HB_I18N_LOAD ) You can find a new generic function in hbwin lib for exactly such purpose: WIN_LOADRESOURCE( cName, cType ) - cContent | NIL Hi, sorry, I'm using my own library with huge

Re: [Harbour] hbmk2 and HB_INSTALL_PREFIX

2009-02-17 Thread Mindaugas Kavaliauskas
Is still required bison? must SET BISON_SIMPLES ? Hi, see ChangeLog entry: 2006-11-28 19:30 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) Regards, Mindaugas ___ Harbour mailing list Harbour@harbour-project.org

[Harbour] Web error

2009-02-17 Thread Mindaugas Kavaliauskas
Hi, http://www.harbour-project.org/ has banner picture with text MultHi-threads. Regards, Mindaugas ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour

Re: [Harbour] Date-Time Functions - Revisited (II)

2009-02-12 Thread Mindaugas Kavaliauskas
We also have to define relation operators behavior: ==, =, , , =, = when DATE and TIMESTAMP are used. We have the following choices: 1. compare only date part ignoring the time with the exception for == operator which will make exact comparison. For this exact comparision we also have two

Re: [Harbour] 1.1 pending items

2009-02-11 Thread Mindaugas Kavaliauskas
Hi, BTW, if anyone has experience with building XHGTK on Windows, I'd appreciate any information. After installing a great amount of GTK dependencies, I stuck with this: -- Package pixman-1 was not found in the pkg-config search path. Perhaps you should add the directory containing

[Harbour] MT ErrorBlock()

2009-02-11 Thread Mindaugas Kavaliauskas
Hi, has each thread a separate errorblock, or they share the same? Regards, Mindaugas ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour

Re: [Harbour] little optimization at rdds

2009-02-11 Thread Mindaugas Kavaliauskas
Hi, for example executing speedtest we run it 2 seconds more quick without 2 if less at fm.c And how many seconds we run faster without if in hb_dbfGetValue()? Regards, Mindaugas ___ Harbour mailing list Harbour@harbour-project.org

Re: [Harbour] MT ErrorBlock()

2009-02-11 Thread Mindaugas Kavaliauskas
It appears that xgtk is about to enter Harbour world. Thanks for your efforts. Can you follow WvgParts class modal (GTWVG) compatible with Xbase++XbpParts? New()|Init() / Create() / Configure() / Destroy(). I think we can follow same class structure to make the code portable. Hi,

[Harbour] rtl/philes.c license

2009-02-11 Thread Mindaugas Kavaliauskas
Hi, I've noticed this file have a pure GPL license (without exception) header. It should be error, since it is a part of hbrtl.lib. Most functions has copyright of Viktor. I think we must correct this issue. Regards, Mindaugas ___ Harbour

Re: [Harbour] SF.net SVN: harbour-project:[10230] trunk/harbour

2009-02-11 Thread Mindaugas Kavaliauskas
+ added HB_FGETDATETIME(). A brother of function HB_FGETDATETIME(). ; TODO: BTW, hb_fs*() functions can get a better precision (milliseconds). It would be nice to support it also at .prg level. Yes, but I think we can wait with it for TIMESTAMP support and update above functions

Re: [Harbour] rtl/philes.c license

2009-02-11 Thread Mindaugas Kavaliauskas
Hi, a nice idea for testing code in relicensing could be svn blame command. Regards, Mindaugas ___ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour

Re: [Harbour] Date-Time Functions - Revisited (II)

2009-02-10 Thread Mindaugas Kavaliauskas
Hi, In general I agree that introducing many different types directly to HVM is not good idea. Especially when they are strictly bound with some allocated resources. For such types HB_IT_POINTER seems to be the best choice. But I do not think that we can generalize it also for DATETIME type.

Re: [Harbour] Date-Time Functions - Revisited (II)

2009-02-10 Thread Mindaugas Kavaliauskas
Hi, hb_ctot( 2009-02-10 18:39:47 UTC+0100 ) = meaning 2009-02-10 18:39:47 UTC+0100 hb_ctot() could also accept all formats you wrote for t: hb_ctot( 01:00 ) hb_ctot( 01:58:27 ) hb_ctot( 2009-02-09 ) Only runtime function evaluation (without compilers pseudo-function optimisation) is

Re: [Harbour] Date-Time Functions - Revisited (II)

2009-02-10 Thread Mindaugas Kavaliauskas
Miguel Angel Marchuet wrote: Please function TTOS is necessary to fully support cdx indexes of last version of dbf (implemented in vfp). Please don't add hb_ prefix in this case, please don't add it. Hi, I'm not always a fan of HB_ prefix, but in final application it can be solved, by:

Re: [Harbour] curdir() and cross platform compatibility

2009-02-06 Thread Mindaugas Kavaliauskas
Same result: E:\HARBOUR T. T. T. C:\ The dot is missing again. But it was there when I pasted it. Perhaps a problem with Outlook Express and Unicode chars. Does Outlook eats also WINDOWS from C:\WINDOWS in last line? Regards, Mindaugas ___

Re: [Harbour] curdir() and cross platform compatibility

2009-02-06 Thread Mindaugas Kavaliauskas
1. What windows version do you use. WinXP SP2 2. What will happen if you use SETCURRENTDIRECTORY( C:.\ ) instead of SETCURRENTDIRECTORY( C: ) PROC main() TEST() RETURN #pragma BEGINDUMP #include windows.h HB_FUNC( TEST ) { char szPath[

Re: [Harbour] curdir() and cross platform compatibility

2009-02-06 Thread Mindaugas Kavaliauskas
Hi, FUNCTION MAIN() LOCAL cCurDir := GETCURRENTDIRECTORY() ? cCurDir ? SETCURRENTDIRECTORY( C:\WINDOWS ) ? SETCURRENTDIRECTORY( cCurDir ) ? SETCURRENTDIRECTORY( C: ) ? GETCURRENTDIRECTORY() INKEY( 0 ) RETURN NIL #pragma BEGINDUMP #include windows.h #include hbapi.h

Re: [Harbour] curdir() and cross platform compatibility

2009-02-06 Thread Mindaugas Kavaliauskas
Hi, Sorry but I have to miss sth. Do you want to say that in this code: ... it does not work for you but works in the Mindaugas code? Mindaugas can you confirm it? The results is very strange for me also. I've changed a code a little, to indicate an errors and did much more tests. Also tried

Re: [Harbour] curdir() and cross platform compatibility

2009-02-06 Thread Mindaugas Kavaliauskas
Hi, Perhaps we need to reverse engineer to understand how cd command works... :) It seems it is not based on SetCurrentDirectory() function. cmd.exe: Command: C:\Documents and Settings\Administratorcd d:\prg API call: GetCurrentDirectoryW(DWORD:260, PWSTR:0x13f80c:??) 0x4ad041f0

Re: [Harbour] curdir() and cross platform compatibility

2009-02-05 Thread Mindaugas Kavaliauskas
Hi, Question: what this code shows in windows if current directory is set to some //server/path/tree/file path? ? curdrive()+hb_osPathSeparator()+curdir() C:\cawi32\sample\testhbrun test146.prg C\cawi32\sample\test \\\linux\samba1

Re: [Harbour] RDDADS rddinfo() not returning settings.

2009-02-05 Thread Mindaugas Kavaliauskas
AbeB wrote: like rddinf( RDDI_CONNECTION ) and thanks again for everybody for all this work. I mean it's fascinating.. marvelous… Hi, rddinfo( RDDI_CONNECTION ) works very well for me. SELF CONTAINED sample, please. Regards, Mindaugas ___

[Harbour] Thread question

2009-02-04 Thread Mindaugas Kavaliauskas
Hi, one more thread question: STATIC mtx := hb_mutexCreate() Thread1: LOCAL xI xI := some_value hb_mutexNotify(mtx, xI) xI := NIL // or xI := another_value Thread2: LOCAL xI, xParam hb_mutexSubscribe(mtx,, @xParam) xI := xParam Is this code thread safe? The problem is that,

Re: [Harbour] Thread question

2009-02-04 Thread Mindaugas Kavaliauskas
Hi, It is thread safe. All reference counters in Harbour core code are updated by atomic inc/dec operations (see hbatomic.h) so they are protected and MT safe. Oh, yes. I should remember it myself. Thanks. Regards, Mindaugas ___ Harbour mailing

Re: [Harbour] Out-of-Box usable Harbour Distribution with XMate Project Builder

2009-02-03 Thread Mindaugas Kavaliauskas
Hi, I do not want to start discussion who is better. I just can say, why I'm using BCC. It has 8.9MB single install file. I've also downloaded MSVC install CD, but understood I do not have enough free space on C:\ to install it :) There are many talks about calling conventions, but until

Re: [Harbour] Clipper incompatibilities

2009-01-30 Thread Mindaugas Kavaliauskas
Hi, Please note that this can be used only for temporary indexes. When index is reopened then it needs valid key and for expressions. It means that we create corrupted indexes in such way. I'm sure I do not reopen tags with empty key expression. We can add key expression check for

Re: [Harbour] A doubt with shared DBF

2009-01-30 Thread Mindaugas Kavaliauskas
In the following sample I don't see the changed value if SKIP 0 is commented out: FUNCTION MAIN() USE TEST SHARED ? FIELD - test ? Waiting for a key... INKEY( 0 ) // here the field is changed by another user //SKIP 0 ? FIELD - test CLOSE RETURN NIL Is it expected?

[Harbour] Clipper incompatibilities

2009-01-28 Thread Mindaugas Kavaliauskas
Hi, my friends showed a few more Clipper incompatibilites. 1) negative julian dates SET(4, -mm-dd) dDate := CTOD() - 1 ? dDate // Clipper: 1449-02-15, Harbour: - - I would suggest to fix a code for samples like this, but sometimes this Harbour behaviour can lead to

Re: [Harbour] Clipper incompatibilities

2009-01-28 Thread Mindaugas Kavaliauskas
Hi, Index is not created due to invalid index key expression: Current DBFCDX detects it and do not create index but RT error is not generated. Clipper does not validate key expression. I do not remember why exactly we added stringed key expression validation but it was done in last few months.

Re: [Harbour] Clipper incompatibilities

2009-01-28 Thread Mindaugas Kavaliauskas
Hi, 1) negative julian dates SET(4, -mm-dd) dDate := CTOD() - 1 ? dDate // Clipper: 1449-02-15, Harbour: - - ... So at beginning we should not expect that the date converted to string should will be non empty if date is not empty. It isn't even with Clipper. ? ctod()+1

Re: [Harbour] Compact .HRB or encrypt string in .HRB

2009-01-27 Thread Mindaugas Kavaliauskas
Sérgio Kondo wrote: Hi, Is possible to compact .hrb files or encrypt string in .hrb files? My interest is hide password string in .hrb files, if I put password string in this file. Sérgio Hi, I do not know how strong encryption you want to have. Simple #pragma texthidden(1) could hide a

Re: [Harbour] 2008-11-01 21:13 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

2009-01-26 Thread Mindaugas Kavaliauskas
Hi, Przemyslaw Czerpak wrote: There are also some small differences to original print behavior, f.e.: %012d in C printf() is 0 padded 12 length 'd' formatting and in this code it's parameter 12-th 'd' formatting. Can you give an error example? I'm unable to find the bug. I get correct

Re: [Harbour] Re: 2009-01-26 23:32 UTC+0100 Viktor Szakats

2009-01-26 Thread Mindaugas Kavaliauskas
Viktor Szakáts wrote: Aha, it does work when built with --with-inet, great. Previously, without it, I've also got this: Application Memory Allocation Report - ...\harbour\contrib\examples\uhttpd\uhttpd.exe Terminated at: 2009.01.26 23:53:18 Total memory allocated: 281977 bytes (3813

Re: [Harbour] 2008-11-01 21:13 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

2009-01-23 Thread Mindaugas Kavaliauskas
Przemyslaw Czerpak wrote: 5. For easy use it's necessary to have in core code function which will work like printf(). Otherwise it will be hard to create strings for translations which are not context dependent. Such function should be in base escape characters like %s or %d

[Harbour] ChangeLog 2009-01-22 18:20 UTC+0200 Mindaugas Kavaliauskas

2009-01-22 Thread Mindaugas Kavaliauskas
2009-01-22 18:20 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) * harbour/source/compiler/hbmain.c * harbour/source/pp/hbpp.c * harbour/source/pp/ppcore.c + added __FILE__ define for .prg code ; Please, look if this is implemented the right and optimal way. I'm

Re: [Harbour] 2009-01-20 20:47 UTC+0100 Viktor Szakats

2009-01-20 Thread Mindaugas Kavaliauskas
after built I have tried with testsha2.prg in tests folder (after have corrected a typo error at line 138) I get all test returning .F. Just an untested hint. Line 138 uses HB_HexToStr(), but function name is StrToHex(). Maybe here is one more error...? Regards, Mindaugas

Re: [Harbour] Harbour SHA2 and SHA2-HMAC support

2009-01-19 Thread Mindaugas Kavaliauskas
Hi, We will need an HB_STRXOR(). Does this seem okay (UCHAR vs. BYTE might be wrong here): Oh, yes, I forgot it's my function, not Harbour's. I use code: HB_FUNC( HB_STRXOR ) { PHB_ITEMpItem, pItem2; ULONG ulLen1, ulLen2, ul, ul2; const char *pStr1, *pStr2; char*

Re: [Harbour] Harbour SHA2 and SHA2-HMAC support

2009-01-19 Thread Mindaugas Kavaliauskas
Hi, For some reason I still cannot make pass your generic .prg HMAC function on the validation tests. Probably some stupid mistakes on my part. No, on my one. I forgot one Hex-Bin conversion. It should be: FUNC HB_HMAC(fHash, cMessage, cKey) IF LEN(cKey) 64; cKey :=

Re: [Harbour] Harbour SHA2 and SHA2-HMAC support

2009-01-19 Thread Mindaugas Kavaliauskas
Viktor Szakáts wrote: hmmm, really strange. In this case I won't add any SHA2 functions to core in this fashion. Rather I'll keep it in hbcrypt() in binary form. Or, if group agrees, we break with the HB_MD5 habit and these new ones will use binary data by default. Am I living a different

Re: [Harbour] MT questions

2009-01-19 Thread Mindaugas Kavaliauskas
Przemyslaw Czerpak wrote: I hope that now it is more clear for every body. Yes. Thanks. Sorry, for writing before testing. Regards, Mindaugas ___ Harbour mailing list Harbour@harbour-project.org

Re: [Harbour] Harbour SHA2 and SHA2-HMAC support

2009-01-19 Thread Mindaugas Kavaliauskas
Viktor Szakáts wrote: Now it's better, but in order to make them give the right results with SHA384 and SHA512, 64 has to be changed to 128. I'm lost how to do this in a generic way. Hi, why? 64 bytes (binary, not hex) is 512 bits. So, HMAC is OK up to 512 bits. After reading some docs

Re: [Harbour] Harbour SHA2 and SHA2-HMAC support

2009-01-18 Thread Mindaugas Kavaliauskas
Hi, I didn't deal with SHA1 because it isn't considered safe anymore (just like MD5). It can easily be added, given we find an implementation with a Harbour compatible licence. MD5 and SHA1 is still used in many standards. You can use stronger hashing in your application, but you'll need

Re: [Harbour] Harbour SHA2 and SHA2-HMAC support

2009-01-18 Thread Mindaugas Kavaliauskas
Francesco Saverio Giudice wrote: Ok, I'll do, if Mindaugas agree. Do you have a name proposal ? I think we can name it webserver (what fantasy ;-) ). One version I have is based on Mindaugas version with socket.c and it is fast and stable. Another is based on inet*() version, that offers

Re: [Harbour] Harbour SHA2 and SHA2-HMAC support

2009-01-17 Thread Mindaugas Kavaliauskas
Viktor Szakáts wrote: Pls see a Harbour library which implements SHA2 related checksumming and SHA2 MAC creation, here: http://www.syenar.hu/harbour/hbsha2.zip Usage from .prg: HB_SHA224( cMessage ) - cDigest HB_SHA256( cMessage ) - cDigest HB_SHA384( cMessage ) - cDigest HB_SHA512( cMessage

Re: [Harbour] Uhttpd1/2 and ow.

2009-01-16 Thread Mindaugas Kavaliauskas
How can I compile above file with soket.c and OpenWatcom compiler ? Hi, I do not have OW compiler. You should find docs about OW compiler command line switches and try to run it. Later fix compile time warnings and errors, if compiler will generate it. Regards, Mindaugas

Re: [Harbour] Fwd: SF.net SVN: harbour-project:[10057] trunk/harbour/ChangeLog

2009-01-16 Thread Mindaugas Kavaliauskas
Viktor Szakáts wrote: Maybe some sort of forwarder e-mail address could do the job. Mmmm... Yes, perhaps. I'm nor shure if mailling list has possibility to allow *...@sourceforge.net users. Otherwise every sourceforge.net developer one by one should be added to list. This can have also have

Re: [Harbour] Fwd: SF.net SVN: harbour-project:[10057] trunk/harbour/ChangeLog

2009-01-16 Thread Mindaugas Kavaliauskas
The other question is that, AFAIR and for description I have read, svnnotify will send every commit made to any file on SVN and not only to changelog file, as implemented on sf.net, and this I don't like. Hi, From: [vszakats users sourceforge net] Date: Fri, Jan 16, 2009 at 12:26 PM

Re: [Harbour] Uhttpd1/2 and ow.

2009-01-16 Thread Mindaugas Kavaliauskas
When add 2 lines in hbmk : wpp386 -j -w3 -5s -5r -fp5 -oxehtz -zq -zt0 -mf -bt=NT %C_USR% %_HB_PRG_NAME%.c -fo=%_HB_PRG_NAME%.obj Here - wpp386 -j -w3 -5s -5r -fp5 -oxehtz -zq -zt0 -mf -bt=NT socket.c -fo=socket.obj echo OP osn=NT OP stack=65536 OP CASEEXACT %L_USR% NAME

Re: [Harbour] Can the compiler warn if a local var is used unassigned?

2009-01-16 Thread Mindaugas Kavaliauskas
Lorenzo Fiorini wrote: Thanks to great Mindaugas' -w3 addition I've done a major cleanup of my apps. I wonder if the compiler can detect if a local var is used before assigned. function main local nVar nVar := nVar + 1 return nVar Hi, it can detect, but... In Harbour variables are (kind

[Harbour] ChangeLog 2009-01-14 15:10 UTC+0200 Mindaugas Kavaliauskas

2009-01-14 Thread Mindaugas Kavaliauskas
2009-01-14 15:10 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) * harbour/source/compiler/hbopt.c * disabled code optimisation (selfifying local, removing local), if code is compiled using -b (debug) switch ___ Harbour mailing list

Re: [Harbour] Re: Virtual machine comparison

2009-01-14 Thread Mindaugas Kavaliauskas
Hi, After last changes comparison table is (no -ko flags used): No Test code Harbour PHP Python Ruby Java Java+JIT --+--+--+--+--+---+ 10'000'000 times: 11 nJ+=nI*2+17 4.61 3.41 6.54 25.53 1.36

Re: [Harbour] ChangeLog: 2009-01-14 16:15 UTC+0100 Viktor Szakats

2009-01-14 Thread Mindaugas Kavaliauskas
Hi, http://sphinx.pocoo.org/ - Documentation format Viktor, can you add some comment about this documentation system. Does Sphinx parses source files? Can it parse .prg code? I'm used to see to sources, but sometimes it would be more quick to look to docs for

[Harbour] ChangeLog 2009-01-15 03:20 UTC+0200 Mindaugas Kavaliauskas

2009-01-14 Thread Mindaugas Kavaliauskas
2009-01-15 03:20 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) * harbour/include/hbcomp.h * harbour/include/hbcompdf.h * harbour/include/hbexprb.c * harbour/source/compiler/harbour.y * harbour/source/compiler/harbour.yyc * harbour/source/compiler/harbour.yyh * harbour

[Harbour] ChangeLog 2009-01-15 04:40 UTC+0200 Mindaugas Kavaliauskas

2009-01-14 Thread Mindaugas Kavaliauskas
2009-01-15 04:40 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) * harbour/source/compiler/harbour.yyc * harbour/source/compiler/harbour.yyh * fixed warnings using bison patch provided by Przemek ___ Harbour mailing list Harbour@harbour

[Harbour] 2008-12-18 05:02 UTC+0200 Mindaugas Kavaliauskas

2008-12-17 Thread Mindaugas Kavaliauskas
2008-12-18 05:02 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) * include/hbclass.ch * include/hbcomp.ch * include/hberrors.h * include/hbgenerr.c * include/hbmain.c * include/hbopt.c + PCode optimizations: 1) Self := QSELF(), Self:method - QSELF():method

Re: [Harbour] Re: PCode hacking of last night

2008-12-17 Thread Mindaugas Kavaliauskas
Przemyslaw Czerpak wrote: It looks very nice. Can youy add it to compiler? In such case we can make two things: 1. we can extract local file name (hb_compLocalVariableName()) 2. we can activate this analyse phase before HB_P_NOOP optimization and strip unnecessary code by filing it with NOOP

Re: [Harbour] mod_harbour vs apache.prg

2008-12-15 Thread Mindaugas Kavaliauskas
Hi, socket.c - alternative lightweight socket library, I do not like hbinet.c a lot. If you want to compile it for Linux, Just for curiosity what you don't like in hbinet.c ? 1) strange, difficult to remember function names, ex., hb_InetPort() returns port, but I can't

<    1   2   3   4   5   6   7   >