[Harbour] pcode 0.3
Hi, code at svn 14032, full rebuid, on OS/2 gives: B_LEGACY_TYPES_OFF -oxbptoolbar.o -c xbptoolbar.c gcc -I../../../../../contrib/hbqt -I. -I../../../../../include -Wall -W -O3 -DH B_LEGACY_TYPES_OFF -oxbptreeview.o -c xbptreeview.c gcc -I../../../../../contrib/hbqt -I. -I../../../../../include -Wall -W -O3 -DH B_LEGACY_TYPES_OFF -oxbpwindow.o -c xbpwindow.c ar -M < __lib__.tmp & strip -S ../../../../../lib/os2/gcc/hbxbp.a & ..\..\..\. .\..\config\os2rm -f __lib__.tmp (E:\REPOSITORY\HARBOUR)bin\os2\gcc\hbtest Unrecoverable error 9000: Module '../../../hbtest.prg' was compiled with unsupported PCODE version 0.3. Please recompile. (E:\REPOSITORY\HARBOUR) Any idea? Maurilio. -- __ | | | |__| Maurilio Longo |_|_|_|| farmaconsult s.r.l. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] bug/issue: slow pasting on uppercase letters
Hi, On regular CLI input boxes where you can type stuff, we have found copying and pasting in Windows to be very slow. When I looked more into it, using something like MEMOEDIT() to test pasting a bunch of chars, I found the UPPERCASE chars paste very slowly, and lowercase chars paste instantly. It didn't take much to test this out for myself, but if no one else can see what I'm talking about, I will record a small youtube video of it maybe. My paste test string: FESFJSEFKJESFKJSFNEjqelmkdewlkESFJSEFKJESFKJSFNEESFJSEFKJESFKJSFNE Thanks -- smu johnson ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
RE: [Harbour] Trouble with SqlRdd
-Original Message- From: Mindaugas Kavaliauskas [mailto:dbto...@dbtopas.lt] Sent: Friday, February 26, 2010 7:18 PM To: Harbour Project Main Developer List. Subject: Re: [Harbour] Trouble with SqlRdd *--- Hi, Marek, for sure I can help you but I need a self contained sample that does not require installation of servers I do not have. Can you made a sample like contrib/rddsql/sddodbc/test/test1.prg and attach .mdb file if it is a problem Microsoft DB? If I do not have self contained sample I need a precise debug info about field types and other field parameters both in SQL language and ODBC API presentation. * Maybe somewhere in the world is exposed to a test Oracle or MsSql server? I will try to find and prepare for the test. Acces I do not use - but can *. mdb I can do something. Appeal to, as I have "example". Regards, Marek Horodyski ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] HBEDITOR
Pritpal Could you send me a litle sample off how can generate a simple window with an instance of HBeditor from HBIDE Your editor is excelent and I like to use in another project I only need the code editor Bruno ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] SF.net SVN: harbour-project:[14033] trunk/harbour
Revision: 14033 http://harbour-project.svn.sourceforge.net/harbour-project/?rev=14033&view=rev Author: vszakats Date: 2010-03-01 23:47:23 + (Mon, 01 Mar 2010) Log Message: --- 2010-03-02 00:45 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * contrib/rddsql/sddodbc/sddodbc.c ! Fixed returning Chr( 0 ) instead of last real char. Modified Paths: -- trunk/harbour/ChangeLog trunk/harbour/contrib/rddsql/sddodbc/sddodbc.c This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Way for a harbour .exe to delete itself?
Hi, Is there a way (or smarter way) to basically "upgrade" the .exe you are running without quitting it... Such as if the harbour-made .exe (test.exe, for example) was running, could delete itself, call winrar to extract a new test.exe, and then so a unix-like exec() call to reload itself? Any hints greatly appreciated. -- smu johnson ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] Re: Trap / run routine when MS Windows red X box closed?
Hi, On Sun, Feb 28, 2010 at 6:12 PM, Pritpal Bedi wrote: > > Show on this list how you build your appln ? > > ..\harbour-dev\bin\hbmk2 -strip -ustd.ch -kc -lhbct -lhbtpathy -lhbnf -inc -o..\latest\bmd.exe bm.hbp (bm.hbp simply contains a giant list of all the .PRG files) Is this enough info for you? Thanks for taking an interest. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] How can i Print BMP?
I need the capability print a bmp inside a harbour application
who print plc . is a old clipper application
I Have found a routine who Print .PCX To Laserjet, but need BMP
I search a conversion BMP2PCX or printing BMP in pcl
(I need also rotate image)
http://www.karland.com/code/clipper/
function LoadPCX(cFile)
//
// AUTHOR: Denis A. Sarrazin (Tue 10-11-1994)
// PURPOSE:to load the PCX into a special array
// PARAMETERS: cFile <-- the name of the PCX file to load
// RETURNS:array (see list of #define in MINIPCX.CH and format below)
// NOTES: Format of a .PCX header shown below:
//
//Byte ItemSize Description/Comments
// ---
-
//0 Manufacturer 1 Constant Flag 10 = ZSoft .PCX
//1 Version 1 Version information:
// 0 = Version 2.5
// 2 = Version 2.8 w/palette information
// 3 = Version 2.8 w/o palette
information
// 5 = Version 3.0
//2 Encoding 1 1 = .PCX run length encoding
//3 Bits per pixel1 Number of bits/pixel per plane
//4 Window8 Picture Dimensions
// (Xmin, Ymin) - (Xmax - Ymax)
// in pixels, inclusive
//12HRes 2 Horizontal Resolution of creating device
//14VRes 2 Vertical Resolution of creating device
//16Colormap 48 Color palette setting, see text
//64Reserved 1
//65NPlanes 1 Number of color planes
//66Bytes per Line2 Number of bytes per scan line per
// color plane (always even for
.PCX files)
//68Palette Info 2 How to interpret palette - 1 = color/BW,
// 2 = grayscale
//70Filler 58 blank to fill out 128 byte header
//
//IMPORTANT:
// All sizes are measured in BYTES.
// All variables of size 2 are integers.
//
//
local aPCX
local cBuffer
local hPCX
local nRead
local nFileLength
if !file(cFile)
aPCX := {}
else
aPCX:= array(PCX_LENGTH)
hPCX:= fopen(cFile)
nFileLength := FLEN(hPCX)
cBuffer := space(HEADER_SIZE)
nRead := fread(hPCX,@cBuffer,HEADER_SIZE) // load PCX header
aPCX[ PCX_MANUFACTURER ] := asc(substr(cBuffer,1,1))
aPCX[ PCX_VERSION ]:= asc(substr(cBuffer,2,1))
aPCX[ PCX_ENCODING ] := asc(substr(cBuffer,3,1))
aPCX[ PCX_BITS_PER_PIXEL ] := asc(substr(cBuffer,4,1))
aPCX[ PCX_WINDOW ] := {bin2i(substr(cBuffer,5,2)),;
bin2i(substr(cBuffer,7,2)),;
bin2i(substr(cBuffer,9,2)),;
bin2i(substr(cBuffer,11,2))}
aPCX[ PCX_HRES ] := bin2i(substr(cBuffer,13,2))
aPCX[ PCX_VRES ] := bin2i(substr(cBuffer,15,2))
aPCX[ PCX_COLORMAP ] := substr(cbuffer,17,48)
aPCX[ PCX_RESERVED ] := asc(substr(cBuffer,65,1))
aPCX[ PCX_NPLANES ]:= asc(substr(cBuffer,66,1))
aPCX[ PCX_BYTES_PER_LINE ] := bin2i(substr(cBuffer,67,2))
aPCX[ PCX_PALETTE_INFO ] := bin2i(substr(cBuffer,69,2))
aPCX[ PCX_FILLER ] := substr(cBuffer,71,58)
cBuffer := space(nFileLength - HEADER_SIZE)
nRead := fread(hPCX,@cBuffer,nFileLength - HEADER_SIZE)
if (nRead != (nFileLength - HEADER_SIZE))
messaggio("Attenzione File TROPPO GRANDE","T")
endif
aPCX[ PCX_PIXELS ] := cBuffer
fclose(hPCX)
endif
return (aPCX)
procedure PrintPCX(nRow,nCol,aPCX)
//
// AUTHOR: Denis A. Sarrazin (Tue 10-11-1994)
// PURPOSE:
// PARAMETERS:
// RETURNS:
// EXAMPLES:
//
local nNumCol := aPCX[PCX_WINDOW,3] - aPCX[PCX_WINDOW,1]+1
local nTotalBytes := aPCX[PCX_NPLANES] * aPCX[PCX_BYTES_PER_LINE]
local nStartCol
local cRasterData := ""
local nCount
local nNumBytes
local cByte
local nBytePos
local nPixel
local nDiff
nRow := int(nRow * 300)
nCol := int(nCol * 300)
nStartCol := nCol
// X_graph=""
if SetPrinter() // set the proper codes depending on type of pri
Re: [Harbour] xhgtk - undefined reference to `hb_gcAlloc'
Em 25/02/2010 15:11, Barry Jackson escreveu: /usr/lib/harbour/libxhgtk.so: undefined reference to `hb_gcAlloc' What am I missing? Same happens with all xhgtk samples tested. Barry, Use Harbour 2.0 (last stable version). xHGTK is not compatible with current Harbour yet. If I change hb_gcAlloc to hb_gcAllocate, xHGTK become incompatible with xHarbour. -- Regards, Marcos Antonio Gambeta ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: hvm.c:11605: error: for each function it appears in.)
Fix! 2010-03-01 08:00 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/src/vm/hvm.c ! added missing HB_STACK_TLS_PRELOAD Thanks! Itamar M. Lins Jr. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: SF.net SVN: harbour-project:[14028] trunk/harbour
Hi! sddodbc not working. The return of column while field is caracters for example show ?? test with file. contrib/rddsql/sddodbc/tests/test1.prg Best regards, Itamar M. Lins Jr. Em 28/2/2010 22:34, vszak...@users.sourceforge.net escreveu: Revision: 14028 http://harbour-project.svn.sourceforge.net/harbour-project/?rev=14028&view=rev Author: vszakats Date: 2010-03-01 01:34:52 + (Mon, 01 Mar 2010) Log Message: --- 2010-03-01 02:33 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * contrib/rddsql/sddsqlt3/sddsqlt3.c + Added support to retrieve buffers in UNICODE mode. ; Maybe needs fine tuning. F.e. we don't want to do this for raw/binary/blob data. Pls review. ; NOTE: Detecting real buffer size is weird. MSDN says NULL should be passed to data pointer, but in this case it returns error, if I pass any pointer, even fake one, it works. Pbly I'm misreading something. * contrib/rddsql/sddodbc/tests/test1.prg * contrib/rddsql/sddodbc/tests/test2.prg + Added simpleio.ch. * contrib/rddsql/sddsqlt3/sddsqlt3.c * contrib/rddsql/sddodbc/sddodbc.c * contrib/rddsql/sddoci/sddoci.c ! Fixed bad GPF after previous modif which limited field names to specific length. Modified Paths: -- trunk/harbour/ChangeLog trunk/harbour/contrib/rddsql/sddoci/sddoci.c trunk/harbour/contrib/rddsql/sddodbc/sddodbc.c trunk/harbour/contrib/rddsql/sddodbc/tests/test1.prg trunk/harbour/contrib/rddsql/sddodbc/tests/test2.prg trunk/harbour/contrib/rddsql/sddsqlt3/sddsqlt3.c This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] dlmalloc on OS/2
Przemyslaw, I'm facing an error on OS/2 which I'm beginning to suspect it is due to the fact that we're not allocating the correct type of memory when calling DosFindFirst(). Now, can you tell me if _all_ memory allocations, made via hb_xgrab(), when using dlmalloc.c go through dlmalloc.c line 1338, that is through os2mmap() even if I'm not mmapping() nothing? Or there are other paths to memory allocations? Thanks. Maurilio. -- __ | | | |__| Maurilio Longo |_|_|_|| farmaconsult s.r.l. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] SF.net SVN: harbour-project:[14031] trunk/harbour
Revision: 14031 http://harbour-project.svn.sourceforge.net/harbour-project/?rev=14031&view=rev Author: druzus Date: 2010-03-01 12:42:34 + (Mon, 01 Mar 2010) Log Message: --- 2010-03-01 13:42 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/src/rdd/dbfntx/dbfntx1.c * harbour/src/rdd/dbfnsx/dbfnsx1.c * harbour/src/rdd/dbfcdx/dbfcdx1.c ! make linear scan in template tags to detect position of current record in tag after GOTO() operation - SIX3 compatible behavior Modified Paths: -- trunk/harbour/ChangeLog trunk/harbour/src/rdd/dbfcdx/dbfcdx1.c trunk/harbour/src/rdd/dbfnsx/dbfnsx1.c trunk/harbour/src/rdd/dbfntx/dbfntx1.c This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: HBEDITOR
Bruno Luciani wrote: > > Could you send me a litle sample off how can generate > > a simple window with an instance of HBeditor from HBIDE > > Your editor is excelent and I like to use in another project > > I only need the code editor > It is very coomplex. Infact it is composed of so many sub-components which can not be demonstrated stand-alone. You are encouraged to look into ideeditor.prg and see if you can pull-out anything meaningful. Or I will develop a class but in hbXBP framework to isolate the editor with centralized functionality, say, XbpCodeEditor(). Right now all energies are concentrated on hbIDE only. - enjoy hbIDEing... Pritpal Bedi _a_student_of_software_analysis_&_design_ -- View this message in context: http://n2.nabble.com/HBEDITOR-tp4658215p4658515.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Trap / run routine when MS Windows red X box closed?
smu johnson wrote: > > ..\harbour-dev\bin\hbmk2 -strip -ustd.ch -kc -lhbct -lhbtpathy -lhbnf -inc > -o..\latest\bmd.exe bm.hbp > > (bm.hbp simply contains a giant list of all the .PRG files) > > Is this enough info for you? Thanks for taking an interest. > Oh yes, so you are using GTWIN. No, for this GT "Close -> X" button cannot be manipulated. - enjoy hbIDEing... Pritpal Bedi _a_student_of_software_analysis_&_design_ -- View this message in context: http://n2.nabble.com/Trap-run-routine-when-MS-Windows-red-X-box-closed-tp4651773p4658528.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] Re: Trap / run routine when MS Windows red X box closed?
Well... what can I do to make it supported? Will I have to change my entire code if I switch away from GTWIN? I am not quite sure how to use those other features you mentioned earlier :( Please give me a hint. :) Thank you! On Mon, Mar 1, 2010 at 6:17 PM, Pritpal Bedi wrote: > > > smu johnson wrote: > > > > ..\harbour-dev\bin\hbmk2 -strip -ustd.ch -kc -lhbct -lhbtpathy -lhbnf > -inc > > -o..\latest\bmd.exe bm.hbp > > > > (bm.hbp simply contains a giant list of all the .PRG files) > > > > Is this enough info for you? Thanks for taking an interest. > > > > Oh yes, so you are using GTWIN. > No, for this GT "Close -> X" button cannot be manipulated. > > > > - > enjoy hbIDEing... >Pritpal Bedi > _a_student_of_software_analysis_&_design_ > -- > View this message in context: > http://n2.nabble.com/Trap-run-routine-when-MS-Windows-red-X-box-closed-tp4651773p4658528.html > Sent from the harbour-devel mailing list archive at Nabble.com. > ___ > Harbour mailing list (attachment size limit: 40KB) > Harbour@harbour-project.org > http://lists.harbour-project.org/mailman/listinfo/harbour > -- smu johnson ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] Building Harbour on Windows.
Hi Viktor, [ Sorry for my bad English :'( ] I don't see any need for a make-level solution. All macros can be defined from source. Why is it better to define them on make level? Because if someone tries to compile Harbour with a version of SDK not supported, he don't have compile-time error. If in the example of my previous thread post I protect IP_ADAPTER_ADDRESSES use with .- #if _WIN32_WINNT >= 0x0501 ... #endif And the macro _WIN32_WINNT is passed to my code, the code can be compiled with an SDK of 0x0500 and the binary can run on any version, just don't have this functionality in earlier versions. Please note that the same thing happens with the basic functionality of ws2_32.dll if we don't implement an alternative. So the use of dynamic calls is only justified for functions with alternative because if there is no alternative simply does not have this functionality in earlier versions, IMHO. Best regards, -- Xavi El 28/02/2010 19:09, Viktor Szakáts escribió: NTDDI_VERSION = maximum OS version supported by SDK/Windows-headers _WIN32_WINNT = OS version we want to target Okay, but if you remember my thread starting post .- " IMHO the best solution is to define the version of Windows that supports the C compiler before compilation. For example, if your C compiler supports Vista: set HB_USER_CFLAGS=-D_WIN32_WINNT 0x0600 http://msdn.microsoft.com/en-us/library/aa383745%28VS.85%29.aspx Some structures are defined only in the headers from one version of Windows other may change. IPv6 is supported from Windows Server 2003, Windows XP. Even calling functions dynamically is necessary data with which they work. It can make the binary work with earlier versions but the headers and the code should be protected by .- #if _WIN32_WINNT>= 0x0501 ... #endif If not, we can have compile-time errors. Please, what do you think about this, comments? " And we *force* _WIN32_WINNT or NTDDI_VERSION in hard code. If someone compiles Harbour with earlier versions of C compiler headers may have compile-time errors. IMHO we need a solution in to make-system and I'm not an expert on this. Sorry but I don't understand this thread anymore. IMO the solution is simple: If you need to use Windows API features which are not supported in all Windows versions: 1) make it using dynamic calls, so binary won't break if feature not available 2) detect OS header version (only this may need compiler specific solutions) 3) force target OS version by defining _WIN32_WINNT before windows.h, if target OS version is known to be supported by headers If only constants are missing you can replace 2) + 3) with simple manual definition of those missing constants. I don't see any need for a make-level solution. All macros can be defined from source. Why is it better to define them on make level? Besides it's quite difficult to discuss this without knowing what do you exactly want to make here. Maybe you could post some code (patch) to see where you're standing at ATM. Brgds, Viktor ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] SF.net SVN: harbour-project:[14022] trunk/harbour
Hi,
vszak...@users.sourceforge.net wrote:
+ contrib/rddsql/sddoci/sddoci.c
+ contrib/rddsql/sddsq3/sddsq3.c
Thank You, for you new SDD. I've started Oracle development some time
ago, but never fixed because lack of time, motivation (I do not need it
for my own projects), and test environment. I see you current code is
much more complete, than my. It also uses some more nice API than I was
trying to use. I was using OCI*() functions (not OCI_*()), i.e.
OCIHandleAlloc() was used to allocate server, context, environment,
error, and session handles. It seemed very stange...
BTW, in the OCI*() API, transaction management is done using API
functions, but not 'BEGIN', 'ROLLBACK', 'COMMIT' queries (like in
MySql). If this is also true for OCI_*() API, perhaps we need to SDD and
introduce new methods. For MySql and similar "query based transactions"
we need to do queries on transaction method calls.
; TOFIX: To Mindaugas: Current SDD architecture will crash with GPF
if dbUseArea() is attempted after a failed RDDI_CONNECT
call. You can check it f.e. with sddodbc's test1.prg, by
modifying test.mdb to test_.mdb, and simply run it.
I've tried to, but I guess you've already fixed it. But I see a lot of
"?" characters in test1.prg table browse (in BCC). Something wrong with
UNICODE support, though I do not see error code. Maybe some hidden
#define UNICODE exists...
!!! This "&& 0" is dangerous, not compatible with next #if defined
#if defined( UNICODE ) && 0
iTargetType = SQL_C_WCHAR;
iLen *= 2;
#else
iTargetType = SQL_C_CHAR;
#endif
val = ( SQLPOINTER * ) hb_xgrab( iLen );
if( SQL_SUCCEEDED( res = SQLGetData( hStmt, ui,
iTargetType, val, iLen, &iLen ) ) )
{
if( iLen > 0 )
{
#if defined( UNICODE )
iLen /= 2;
#endif
pItem = O_HB_ITEMPUTSTRLEN( NULL, ( O_HB_CHAR * )
val, ( HB_SIZE ) iLen );
}
}
hb_xfree( val );
Regards,
Mindaugas
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] sddodbc
Hi, It seems sddodbc.c line #603 should be changed to: pItem = O_HB_ITEMPUTSTRLEN( NULL, ( O_HB_CHAR * ) val, ( HB_SIZE ) iLen - 1 ); otherwise test1.prg returns chr(0) in the end of every string. Regards, Mindaugas P.S. I see we have some serious problems with mailing list. lists.harbour-project.org is not resolved by DNS. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Trap / run routine when MS Windows red X box closed?
smu johnson wrote: > > Well... what can I do to make it supported? > > Will I have to change my entire code if I switch away from GTWIN? I am > not > quite sure how to use those other features you mentioned earlier :( > > Please give me a hint. :) Thank you! > ..\harbour-dev\bin\hbmk2 -gtwvt -strip -ustd.ch -kc -lhbct -lhbtpathy -lhbnf -inc -o..\latest\bmd.exe bm.hbp And include somewhere in sources REQUEST HB_GT_WVT_DEFAULT Let us know did you succeed. Next step after that. - enjoy hbIDEing... Pritpal Bedi _a_student_of_software_analysis_&_design_ -- View this message in context: http://n2.nabble.com/Trap-run-routine-when-MS-Windows-red-X-box-closed-tp4651773p4658667.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] dlmalloc on OS/2
On Mon, 01 Mar 2010, Maurilio Longo wrote: Hi, > I'm facing an error on OS/2 which I'm beginning to suspect it is due to the > fact that we're not allocating the correct type of memory when calling > DosFindFirst(). I cannot help you here. Information about DosFindFirst() in OS2 returned by google suggest that our implementation should not work correctly, i.e.: Level 1 File Information (ulInfoLevel == FIL_STANDARD) On output, pfindbuf contains the FILEFINDBUF3 data structure _without_ the last two fields cchName and achName. This is used without EAs. If the above is true then you should use FIL_STANDARDL and FILEFINDBUF3L structure. Also seems that flAttribute parameter has wrongly value. Without ORing with FILE_ARCHIVED and FILE_READONLY files with above attribute should be excluded. BTW what errors do you have? > Now, can you tell me if _all_ memory allocations, made via hb_xgrab(), when > using dlmalloc.c go through dlmalloc.c line 1338, that is through os2mmap() Inside DLMALLOC _all_ memory is allocated by os2mmap() function. > even if I'm not mmapping() nothing? MMAP is optionally used only in *nix DLMALLOC builds to improve performance of memory allocation. It does not exists in MS-Windows and OS2 so it cannot be used in such builds. > Or there are other paths to memory allocations? Maybe but not inside DLMALLOC code, i.e. some CRTL functions may allocate memory using different memory manager but DLMALLOC uses only above function in OS2 builds. best regards, Przemek ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] Re: Trap / run routine when MS Windows red X box closed?
On Mon, 01 Mar 2010, Pritpal Bedi wrote: Hi, > ..\harbour-dev\bin\hbmk2 -gtwvt -strip -ustd.ch -kc -lhbct -lhbtpathy -lhbnf > -inc -o..\latest\bmd.exe bm.hbp > And include somewhere in sources > REQUEST HB_GT_WVT_DEFAULT It's redundant. -gtwvt makes the above. If you use -gt* switches in hbmk2 then it makes for the 1-st one: REQUEST HB_GT_*_DEFAULT and for the next ones: REQUEST HB_GT_* so you do not have to use any 'REQUEST HB_GT_*[_DEFAULT] in your PRG code. best regards, Przemek ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] SF.net SVN: harbour-project:[14029] trunk/harbour
Hi Xavi, Please revert this. The behavior was intentionally designed to be controlled by hb_GTInfo( HB_GTI_CLOSABLE ), (instead of SETCANCEL()). Brgds, Viktor On 2010 Mar 1, at 04:06, jara...@users.sourceforge.net wrote: > Revision: 14029 > > http://harbour-project.svn.sourceforge.net/harbour-project/?rev=14029&view=rev > Author: jarabal > Date: 2010-03-01 03:06:26 + (Mon, 01 Mar 2010) > > Log Message: > --- > 2010-03-01 04:05 UTC+0100 Xavi (jarabal/at/gmail.com) > * harbour/src/rtl/gtwvt/gtwvt.c >! Fixing WM_CLOSE event (Clicked 'X' on system menu) > to avoid irregular shutdown with SETCANCEL( .F. ) > > REQUEST HB_GT_WVT_DEFAULT > ANNOUNCE HB_GTSYS > PROCEDURE Main() > SetCancel(.F.) > ? "Click [X] Not close windows" > while( LastKey() != 27 ) >Inkey( 1 ) > enddo > RETURN > > Modified Paths: > -- >trunk/harbour/ChangeLog >trunk/harbour/src/rtl/gtwvt/gtwvt.c > > > This was sent by the SourceForge.net collaborative development platform, the > world's largest Open Source development site. > ___ > Harbour mailing list (attachment size limit: 40KB) > Harbour@harbour-project.org > http://lists.harbour-project.org/mailman/listinfo/harbour ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Trap / run routine when MS Windows red X box closed?
Przemysław Czerpak wrote: > > It's redundant. -gtwvt makes the above. > If you use -gt* switches in hbmk2 then it makes for the 1-st one: >REQUEST HB_GT_*_DEFAULT > and for the next ones: >REQUEST HB_GT_* > > so you do not have to use any 'REQUEST HB_GT_*[_DEFAULT] in your > PRG code. > Long time elapsed I played with this stuff, so was out of memory. So only -gtwvt switch is required, more simplified. - enjoy hbIDEing... Pritpal Bedi _a_student_of_software_analysis_&_design_ -- View this message in context: http://n2.nabble.com/Trap-run-routine-when-MS-Windows-red-X-box-closed-tp4651773p4658761.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] SF.net SVN: harbour-project:[14029] trunk/harbour
Details here: 2008-06-25 11:49 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) Brgds, Viktor On 2010 Mar 1, at 09:32, Viktor Szakáts wrote: > Hi Xavi, > > Please revert this. The behavior was intentionally > designed to be controlled by hb_GTInfo( HB_GTI_CLOSABLE ), > (instead of SETCANCEL()). > > Brgds, > Viktor > > On 2010 Mar 1, at 04:06, jara...@users.sourceforge.net wrote: > >> Revision: 14029 >> >> http://harbour-project.svn.sourceforge.net/harbour-project/?rev=14029&view=rev >> Author: jarabal >> Date: 2010-03-01 03:06:26 + (Mon, 01 Mar 2010) >> >> Log Message: >> --- >> 2010-03-01 04:05 UTC+0100 Xavi (jarabal/at/gmail.com) >> * harbour/src/rtl/gtwvt/gtwvt.c >> ! Fixing WM_CLOSE event (Clicked 'X' on system menu) >> to avoid irregular shutdown with SETCANCEL( .F. ) >> >> REQUEST HB_GT_WVT_DEFAULT >> ANNOUNCE HB_GTSYS >> PROCEDURE Main() >>SetCancel(.F.) >>? "Click [X] Not close windows" >>while( LastKey() != 27 ) >> Inkey( 1 ) >>enddo >> RETURN >> >> Modified Paths: >> -- >> trunk/harbour/ChangeLog >> trunk/harbour/src/rtl/gtwvt/gtwvt.c >> >> >> This was sent by the SourceForge.net collaborative development platform, the >> world's largest Open Source development site. >> ___ >> Harbour mailing list (attachment size limit: 40KB) >> Harbour@harbour-project.org >> http://lists.harbour-project.org/mailman/listinfo/harbour > ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] SF.net SVN: harbour-project:[14029] trunk/harbour
Hi Viktor,
Please revert this. The behavior was intentionally
designed to be controlled by hb_GTInfo( HB_GTI_CLOSABLE ),
(instead of SETCANCEL()).
Sorry but as you've seen the development list has been off-line many hours.
You've done a reversal before I can read the messages.
Could you explain what is the intention of change because .-
2008-06-25 11:49 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* source/rtl/gtwvt/gtwvt.c
* Slightly changed the way CLOSE button works.
Now the close button, if enabled, will always
force a shutdown. So this setting is made independent
of SetCancel(). I choose this because there might
be cases when we need to use in app code, yet
we want to allow closing the window. Previously it was
also easy to create confusing scenarios by using various
combinations of HB_GTI_CLOSABLE + SetCancel(). Another
kind of fix - without the advantage above - would be
to fully sync SetCancel() with HB_GTI_CLOSABLE.
It's very unclear and before the change SetCancel() was respected.
You say: "I choose this because there might be cases when we need to use in app code, yet we want to allow closing the
window."
Sorry but I don't understand. You change the behavior of GTWVT with SetCancel() respect to GTWIN and GTWVG for something that
you can do in your code with .-
hb_gtInfo( HB_GTI_NOTIFIERBLOCK, {|e| iif( e == HB_GTE_CLOSE, SetCancel(.T.),
nil ), 0} )
Best regards,
--
Xavi
El 01/03/2010 9:32, Viktor Szakáts escribió:
Hi Xavi,
Please revert this. The behavior was intentionally
designed to be controlled by hb_GTInfo( HB_GTI_CLOSABLE ),
(instead of SETCANCEL()).
Brgds,
Viktor
On 2010 Mar 1, at 04:06, jara...@users.sourceforge.net wrote:
Revision: 14029
http://harbour-project.svn.sourceforge.net/harbour-project/?rev=14029&view=rev
Author: jarabal
Date: 2010-03-01 03:06:26 + (Mon, 01 Mar 2010)
Log Message:
---
2010-03-01 04:05 UTC+0100 Xavi (jarabal/at/gmail.com)
* harbour/src/rtl/gtwvt/gtwvt.c
! Fixing WM_CLOSE event (Clicked 'X' on system menu)
to avoid irregular shutdown with SETCANCEL( .F. )
REQUEST HB_GT_WVT_DEFAULT
ANNOUNCE HB_GTSYS
PROCEDURE Main()
SetCancel(.F.)
? "Click [X] Not close windows"
while( LastKey() != 27 )
Inkey( 1 )
enddo
RETURN
Modified Paths:
--
trunk/harbour/ChangeLog
trunk/harbour/src/rtl/gtwvt/gtwvt.c
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] ANN: Mediator SQL RDD 4.3.2.0 with free MySQL version
ANN: Mediator SQL RDD 4.3.2.0 with free MySQL version We are glad to announce availability of Mediator ISAM server (SQL RDD) 4.3.2.0 compatible with Harbour 2.0 and xHarbour 1.2.1 (Rev. 6686, CVS 15.02.2010) For product description please visit http://www.otc.pl/index.asp?s=21&l=2 For summary of new features please visit http://www.otc.pl/index.asp?s=32&l=2 As usuall, the following free for commercial use versions are available for download from www.otc.pl: - Unlimited Mediator ISAM server for MySQL for Harbour/xHarbour - 5-user Mediator ISAM server Enterprise for PostgreSQL - 5-user Mediator ISAM server Enterprise for MySQL - 3-user Mediator ISAM server Enterprise for MS SQL 7/2000/2005/2008 - 3-user Mediator ISAM server Enterprise for Oracle 7/8/9/10/11 - 3-user Mediator ISAM server Enterprise for IBM DB2/Win Enjoy, OTC team ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] SF.net SVN: harbour-project:[14030] trunk/harbour
Revision: 14030 http://harbour-project.svn.sourceforge.net/harbour-project/?rev=14030&view=rev Author: druzus Date: 2010-03-01 07:00:57 + (Mon, 01 Mar 2010) Log Message: --- 2010-03-01 08:00 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/src/vm/hvm.c ! added missing HB_STACK_TLS_PRELOAD Modified Paths: -- trunk/harbour/ChangeLog trunk/harbour/src/vm/hvm.c This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] SF.net SVN: harbour-project:[14032] trunk/harbour
Revision: 14032 http://harbour-project.svn.sourceforge.net/harbour-project/?rev=14032&view=rev Author: vszakats Date: 2010-03-01 13:47:03 + (Mon, 01 Mar 2010) Log Message: --- 2010-03-01 14:45 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * contrib/rddsql/sddodbc/sddodbc.c + Added support to return any size of string buffer from ODBC. ! Fixed typo in prev modification. * src/rtl/gtwvt/gtwvt.c ! Reverted close/SETCANCEL/HB_GTI_CLOSABLE behavior to match the old one and that of other GTs. Also see: 2008-06-25 11:49 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) Please use HB_GTI_CLOSABLE and HB_GTI_NOTIFIERBLOCK to control GUI window close behavior. Modified Paths: -- trunk/harbour/ChangeLog trunk/harbour/contrib/rddsql/sddodbc/sddodbc.c trunk/harbour/src/rtl/gtwvt/gtwvt.c This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] How to retrieve the CallStack
francesco perillo wrote:
I now ask if is it possible to get a prg-level CallStack array in
order to use it in the errorsys handler.
I use:
function Stack2Str(n)
local cStackStr := ""
local cProcFile
DEFAULT n TO 2
while !empty(procname(n))
cStackStr += "Called from " + procname(n) + "(" +
alltrim(str(procline(n))) + ")" + iif(empty(cProcFile := procfile(n)), "", " in
" + cProcFile) + chr(13) + chr(10)
n++
end
return cStackStr
HTH
Alex
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
