[Harbour] Re: Introducing myself
Qatan wrote: > > Antonio, > > I had problems building HBIDE in the past and I understand you. > My main problem was configuring the enviroment. I assume that you have > already downloaded the right tools from the right places and have QT, > MingW and of course, Harbour with contribs (HBIDE). > I hope the way I do is correct (please anyone correct me if wrong). > Follows how it is configured in my computer with Windows XP Home. It > works for me: > Thanks Qatan. This type of participation is equally important as development. It helps a new entrant a lot and ease him out plus it saves a lot of time of developers to concentrate on their target. Keep it up. - enjoy hbIDEing... Pritpal Bedi http://hbide.vouch.info/ -- View this message in context: http://n2.nabble.com/Introducing-myself-tp4859526p4862874.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] Introducing myself
Antonio, I had problems building HBIDE in the past and I understand you. My main problem was configuring the enviroment. I assume that you have already downloaded the right tools from the right places and have QT, MingW and of course, Harbour with contribs (HBIDE). I hope the way I do is correct (please anyone correct me if wrong). Follows how it is configured in my computer with Windows XP Home. It works for me: @cls set PATH=%PATH%;c:\x\bin;c:\x\bin\ng; set PATH=%PATH%;c:\x\upx; set PATH=%PATH%;C:\x\QT\4.5.3\bin; set PATH=%PATH%;C:\x\mgw\bin; set PATH=%PATH%;C:\x\hb\bin; set HB_BUILD_UNICODE=yes I have a BATCH file that builds Harbour from SVN: (I build it in this folder: C:\x\hb\ ) @cls set HB_WITH_QT=C:\x\QT\4.5.3\include set HB_QT_STATIC=yes set HB_INSTALL_PREFIX=C:\x\hb set HB_BUILD_IMPLIB=yes echo: echo Cleanning... echo: CD \x\svn mingw32-make clean echo: echo Clean OK! echo: echo Start building libs (Press ctrl-C to stop now)... echo: pause >>NUL: mingw32-make install echo: echo Done! To build HBIDE I just point the prompt to HBIDE folder under CONTRIB and fire a simple "hbmk2 hbide.hbp" as stated by Pritpal Bedi. I recommend you to read the INSTALL file that comes with HARBOUR carefully because there you find valuable and important details to build and use Harbour successfully. I use MingW from TDM. I've compiled HBIDE and it is an impressive work by Pritpal Bedi. I am creating a small program (CUI mode) using GTWVT and when I finish it I will try to port it to *nix. PC is Przemyslaw Czerpak but I think you can just say Przemek since he signs down his name this way and seems to be much easier for non Slavic speakers. I hope it helps you a bit. Regards, Qatan - Original Message - From: Antonio Maniero To: harbour@harbour-project.org Sent: Tuesday, 6 de April de 2010 12:08 Subject: [Harbour] Introducing myself Hello everybody First of all I really sorry by my bad and poor English. I made my best. I am a software developer for 26 years working with several programming languages mostly building Line Of Business applications in Brazil. I worked with Clipper since Clipper exists. I used the first copy sold in Brazil by Softcorp (succeeded by Officer and after Nantucket Brasil and CA Brasil). I worked on a company (one of the major business software companies in the world) that was practically the only VO beta tester in Brazil. It's a shame a good idea turns trash :-) As 1996 on internet era I change my career and dropped Clipper in favor of other solutions. Now I am back to LOB applications with total freedom to choose my way. I decided modernize my old Clipper applications "porting" to Harbour. I was a big lover of Clipper, specially 5.2 and I had supported the way Nantucket did think Clipper evolution and some aspects of Visual Objects developed by CA. I liked to see Clipper near to syntax and some semantics of C. Yes, I am not a typical Clipper developer. I think dBase style is a bad thing although is a necessary evil to carry. I want fix some errors and bad style which I made on 80's and use improved features available on Harbour. I need rewrite my C functions, throw away some, rethink about UI (console to GUI) and databases (transition from DBF to MySQL and others RDBMS). I think harbor 2.0 is a wonderful piece of software. It's not perfect because the heavy legacy to honor. I like the design of a clean core with extensions. I want publicly prize Viktor and PC (I can´t write his name :-) ). I agree with most of their decisions and I strongly appreciate their work. Ok, now I can criticize some points without fear :-) I want to see Harbour moving forward, not in xHarbour style, but in smart Harbour style. In Brazil we have a popular expression: The hasty eating raw :-) I want to make it clear: I want help Harbour development. Now I can mainly give my opinions, try to influence some decisions, suggest enhancements, report bugs. I need to get experience with C99 and GCC. My C experience is about MS-C 5.0 (I give you a candy if you know why :-) ). I need to get time to help with code. I will try to contribute with some thing later. I can't help too much with documentation, IMHO the biggest Harbour need, because my bad English. I am improving Wikipedia's article now. I invite you to contribute too. It's an initial work. I will contribute more on Portuguese article. I am writing about Harbour on a variety of articles (xBase, programming languages comparison, etc). See my contribs logged as bigown. Please, feel free to add new information or edit and delete wrong or bad text. I am reviewing text bring from xHarbour. It's a good way to learn more about Harbour. Viktor, I think now t
[Harbour] SF.net SVN: harbour-project:[14278] trunk/harbour
Revision: 14278 http://harbour-project.svn.sourceforge.net/harbour-project/?rev=14278&view=rev Author: snaiperis Date: 2010-04-07 02:55:53 + (Wed, 07 Apr 2010) Log Message: --- 2010-04-07 05:55 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) * harbour/contrib/hbcairo/tests/hellow.c * HB_SETCODEPAGE() -> HB_CDPSELECT() * harbour/contrib/sddodbc/sddodbc.c + BIGINT type support * statement handle alloc/free updated to ODBC 3.x API Modified Paths: -- trunk/harbour/ChangeLog trunk/harbour/contrib/hbcairo/tests/hellow.prg trunk/harbour/contrib/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] SF.net SVN: harbour-project:[14277] trunk/harbour
Revision: 14277 http://harbour-project.svn.sourceforge.net/harbour-project/?rev=14277&view=rev Author: vouchcac Date: 2010-04-07 00:51:15 + (Wed, 07 Apr 2010) Log Message: --- 2010-04-06 17:40 UTC-0800 Pritpal Bedi (prit...@vouchcac.com) * contrib/hbqt/THbQtUI.prg + Added more hbqt.ch defined constants. * contrib/hbide/resources/searchreplace.ui * contrib/hbide/resources/searchreplace.uic * contrib/hbide/hbide.prg * contrib/hbide/ideactions.prg * contrib/hbide/idedocks.prg * contrib/hbide/idefindreplace.prg + Enabled again other way of "Search/Replace" invokable by Ctrl+Sh+F. This opens the dialog at the bottom of editing area. This is exactly the same as it is implemented in Qt Creator also. ! Fixed to always show up the right-dock widgets when invoked. Modified Paths: -- trunk/harbour/ChangeLog trunk/harbour/contrib/hbide/hbide.prg trunk/harbour/contrib/hbide/ideactions.prg trunk/harbour/contrib/hbide/idedocks.prg trunk/harbour/contrib/hbide/idefindreplace.prg trunk/harbour/contrib/hbide/resources/searchreplace.ui trunk/harbour/contrib/hbide/resources/searchreplace.uic trunk/harbour/contrib/hbqt/THbQtUI.prg 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: HBIDE Project build start folder problem
Barry Jackson wrote: > > --- > Project [ ash ]Launch [ Yes ]Rebuild [ Yes ]Started [ 22:43:44 > ] > > > Starting in: home/baz/Documents : /home/baz/hash/ > /bin/bash: hbmk2 /home/baz/hash/ash.hbp -q -trace -info -lang=en > -rebuild : No such file or directory > > > Exit Code [ 127 ]Exit Status [ 0 ]Finished at [ 22:43:44 ] > Done in [ 0.04 Secs ] > > Have you set the environment via right-toolbar icon? Please visit http://hbide.vouch.info/ and look at topic . - enjoy hbIDEing... Pritpal Bedi http://hbide.vouch.info/ -- View this message in context: http://n2.nabble.com/HBIDE-Project-build-start-folder-problem-tp4861627p4861919.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: HBIDE Tab focus
Barry Jackson wrote: > > When opening a new tab using the right side tool bar, a newly opened tab > does not acquire focus, but opens under any previously open tab. > This is a bit annoying. :-( > What a coincidence. Right at this moment I am trying to fix it. - enjoy hbIDEing... Pritpal Bedi http://hbide.vouch.info/ -- View this message in context: http://n2.nabble.com/HBIDE-Tab-focus-tp4861728p4861864.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: HBIDE Project build start folder problem
Barry Jackson wrote: > > > Project [ ash ]Launch [ Yes ]Rebuild [ Yes ]Started [ 22:43:44 > ] > > > Starting in: home/baz/Documents : /home/baz/hash/ > /bin/bash: hbmk2 /home/baz/hash/ash.hbp -q -trace -info -lang=en > -rebuild : No such file or directory > > > Exit Code [ 127 ]Exit Status [ 0 ]Finished at [ 22:43:44 ] > Done in [ 0.04 Secs ] > > > Sorry, cannot launch project because of errors... > > The problem seems to come from "Starting in: home/baz/Documents" > I have nothing harbour related in Documents, and I have no idea where > hbide is picking this up. > > If I use:- > > hbmk2 /home/baz/hash/ash.hbp -q -trace -info -lang=en -rebuild > > from the command line the application builds without error. > > This is ash.hbp as produced by hbide :- > > -3rd=hbide_version=1.0 > -3rd=hbide_type=Executable > -3rd=hbide_title=ash > -3rd=hbide_location=/home/baz/hash/ > -3rd=hbide_workingfolder=/home/baz/hash > -3rd=hbide_destinationfolder=/home/baz/hash > -3rd=hbide_output=ash > -3rd=hbide_launchparams= > -3rd=hbide_launchprogram=./ash > -3rd=hbide_backupfolder= > If I use:- hbmk2 /home/baz/hash/ash.hbp -q -trace -info -lang=en -rebuild At this point where are you stationed ? Are you executing hbIDE from the same location where you are executing above command ? It appears that hbIDE is been unable to set this build's working folder. As I have no idea how paths are taken care of in *nixes, someone has to answer you on this matter, Vailton, are you around ? - enjoy hbIDEing... Pritpal Bedi http://hbide.vouch.info/ -- View this message in context: http://n2.nabble.com/HBIDE-Project-build-start-folder-problem-tp4861627p4861857.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] HBIDE Tab focus
When opening a new tab using the right side tool bar, a newly opened tab does not acquire focus, but opens under any previously open tab. This is a bit annoying. :-( Rgds, Barry ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] HBIDE Project build start folder problem
I am now trying to actually use hbide to build a project. When invoked from the hbide GUI it fails to build:- Project [ ash ]Launch [ Yes ]Rebuild [ Yes ]Started [ 22:43:44 ] Starting in: home/baz/Documents : /home/baz/hash/ /bin/bash: hbmk2 /home/baz/hash/ash.hbp -q -trace -info -lang=en -rebuild : No such file or directory Exit Code [ 127 ]Exit Status [ 0 ]Finished at [ 22:43:44 ] Done in [ 0.04 Secs ] Sorry, cannot launch project because of errors... The problem seems to come from "Starting in: home/baz/Documents" I have nothing harbour related in Documents, and I have no idea where hbide is picking this up. If I use:- hbmk2 /home/baz/hash/ash.hbp -q -trace -info -lang=en -rebuild from the command line the application builds without error. This is ash.hbp as produced by hbide :- -3rd=hbide_version=1.0 -3rd=hbide_type=Executable -3rd=hbide_title=ash -3rd=hbide_location=/home/baz/hash/ -3rd=hbide_workingfolder=/home/baz/hash -3rd=hbide_destinationfolder=/home/baz/hash -3rd=hbide_output=ash -3rd=hbide_launchparams= -3rd=hbide_launchprogram=./ash -3rd=hbide_backupfolder= -lhbct -lhbtpathy ash.prg f_amax.prg b_bget.prg f_getini.prg products.prg f_chtd.prg catalog.prg account1.prg sales.prg f_sysset.prg utils.prg ashelp.prg company.prg l_syserr.prg f_inxcnt.prg terminal.prg term2.prg f_beep.prg l_dbfsek.prg lists.prg l_dbftra.prg f_gblank.prg f_fn_ok.prg l_dbfzap.prg f_fn_mat.prg f_bskip.prg batch.prg web.prg f_clmess.prg f_mbeep.prg f_recalc.prg f_fpknum.prg f_outed.prg f_strmem.prg f_inkeyw.prg f_delwin.prg f_tagged.prg l_sysscr.prg l_syspop.prg f_go_bot.prg account2.prg f_bx_qry.prg vatrep.prg year_end.prg f_updtda.prg f_go_top.prg f_ntod.prg l_sysdat.prg l_sysntx.prg bank.prg l_syscol.prg l_colsys.prg l_systmu.prg l_sysmnu.prg l_syspri.prg f_memvar.prg l_dbfskp.prg f_lupdat.prg f_gettop.prg f_locate.prg orders.prg f_dbfuse.prg f_getco.prg f_invtag.prg f_ctrtag.prg ctools.prg f_tag.prg f_hblog.prg ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Error with dBUseArea(...) with rddsql (sddodbc) with mysql ???
Hi All,
I continue to test sddodbc with mysql for adding a BIGINT field ...but
error comes out :
http://www.mingyik.com/dnload/tstodbc40.jpg
http://www.mingyik.com/dnload/txtodbc50.jpg
the error comes out at the line with dBUsearea(...)
and the source at follow:
/*
* $Id$
*/
#include "simpleio.ch"
#include "hbrddsql.ch"
REQUEST SQLMIX, SDDODBC, DBFCDX
PROC main()
LOCAL nConnection, nI, aI
local aStruct := { { "CHARACTER", "C", 25, 0 }, ;
{ "NUMERIC", "N", 8, 0 }, ;
{ "DOUBLE","N", 8, 2 }, ;
{ "DATE", "D", 8, 0 }, ;
{ "LOGICAL", "L", 1, 0 } }
RDDSETDEFAULT( "SQLMIX" )
SET( _SET_DATEFORMAT, "-mm-dd" )
// nConnection := RDDINFO( RDDI_CONNECT, { "MYSQL",
"localhost","root","mysql","test" } )
// nConnection := RDDINFO( RDDI_CONNECT, { "ODBC",
"Server=localhost;Driver={MySQL ODBC 5.1
Driver};dsn=;User=test;database=test;" } )
nConnection := RDDINFO( RDDI_CONNECT, { "ODBC", "dsn=testmysql;" } )
IF nConnection == 0
? "Unable connect to server", RDDINFO( RDDI_ERRORNO ), RDDINFO(
RDDI_ERROR )
RETURN
ENDIF
? "Database Connection: "+ LTrim(Str(nConnection)) + " OK with
dsn=testmysql;"
RDDINFO(RDDI_EXECUTE, "DROP TABLE country")
// RDDINFO(RDDI_EXECUTE, "CREATE TABLE country (CODE char(3), NAME char(50),
RESIDENTS int(11), TD1 date, TN1 Numeric(10,2) default 0.00 )")
RDDINFO(RDDI_EXECUTE, "CREATE TABLE country (CODE char(3), NAME char(50),
RESIDENTS int(11), TD1 date, TB1 BIGINT default 0 )")
RDDINFO(RDDI_EXECUTE, "INSERT INTO country (CODE, NAME, RESIDENTS) values
('LTU', 'Lithuania', 3369600),('USA', 'United States of America',
305397000), ('POR', 'Portugal', 10617600), ('POL', 'Poland', 38115967),
('AUS', 'Australia', 21446187), ('FRA', 'France', 64473140), ('RUS',
'Russia', 14190)")
? dBUseArea( .T., "SQLMIX", "SELECT * FROM country ORDER BY CODE;",
"country", .T., .F.)
? "Rdd: SQLMIX Alias: " +Alias()+ " BOF() is "+ IIF(Bof()," TRUE",
"FALSE")
dBCreate( "testdbf", aStruct, "DBFCDX" )
dBUseArea( .T., "dbfcdx", "testdbf.dbf", "TESTALS", .T., .F. )
? "Rdd: DBFCDX Alias: " +Alias()+ " BOF() is "+ IIF(Bof()," TRUE",
"FALSE")
DBCLOSEALL()
RETURN
Shum
--
View this message in context:
http://n2.nabble.com/Error-with-dBUseArea-with-rddsql-sddodbc-with-mysql-tp4861267p4861267.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: Introducing myself
> Fear of post in public place > fear of bad explain > fear of bad english > fear of write a permament bad post with error visible to everybody > fear of wasting time > - > I invite same of "ready only" user > help us > why not collaborate? > what can be done to give better collaboration? I think most of these can be overcome by participating on user's list (there is no "bad" question there) with an alias created specifically for Harbour (anonymity). Brgds, Viktor ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] Re: Introducing myself
Fear of post in public place fear of bad explain fear of bad english fear of write a permament bad post with error visible to everybody fear of wasting time - I invite same of "ready only" user help us why not collaborate? what can be done to give better collaboration? 2010/4/6 Pritpal Bedi > > > Massimo Belgrano wrote: > > > > I know by private mail around 30 user that want use mailing only to read > > and > > not for write post > > if in future we allow anonymous posting (moderated) it appear > > > > The question is WHY ? Why they do not want to post by name ? > What reasons stop them to disclose their names ? If the name is only > creteria, then they always have an option to create a new account with > fake name and just post. > > > -- Massimo Belgrano ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] Re: Introducing myself
> Massimo Belgrano wrote: >> >> I know by private mail around 30 user that want use mailing only to read >> and >> not for write post >> if in future we allow anonymous posting (moderated) it appear >> > > The question is WHY ? Why they do not want to post by name ? > What reasons stop them to disclose their names ? If the name is only > creteria, then they always have an option to create a new account with > fake name and just post. Yes indeed, the barrier to post or contribute to Harbour is near zero. We have forum(s), wikipedia entry, user's list with large amount of web gateways, developer's mailing list with again huge amount of web gateways, we have bug reporting engine, SVN web access, Trac with wiki, stats pages, automated nightly downloads, webpage, blogs, feature request page, facebook group. If this is not enough or unacceptable for some users, I'm personally very sorry, but the fault is not on our side. ( Or do we miss Twitter?? ;) IMO any mails/complaints/request suggesting missing communication medium is just unnecessary noise. Rather pls go along and exploit current mediums. Brgds, Viktor ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Introducing myself
Massimo Belgrano wrote: > > I know by private mail around 30 user that want use mailing only to read > and > not for write post > if in future we allow anonymous posting (moderated) it appear > The question is WHY ? Why they do not want to post by name ? What reasons stop them to disclose their names ? If the name is only creteria, then they always have an option to create a new account with fake name and just post. - enjoy hbIDEing... Pritpal Bedi _a_student_of_software_analysis_&_design_ http://hbide.vouch.info/ -- View this message in context: http://n2.nabble.com/Introducing-myself-tp4859526p4860660.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:[14275] trunk/harbour
Thank you. Thinking about it, maybe we could solve this problem plus the "fireevent" feature by introducing K_* code(s) (f.e. K_HBSYSCLOSE) and simply passing it/them to Harbour just like we do for keyboard and mouse event. Such K_* codes could be enabled by new INKEY_* mask bit (f.e. INKEY_HBEVENTS). In such way we could migrate and drop current HB_GTI_NOTIFIERBLOCK solution, which is quite problematic as it blocks the introduction of screen refreshing thread in GTWVT. If screen refreshing thread is in place, we could retest if LAYERED feature is still needed (probably it is, but not so badly as now). Of course this would create slight incompatibility with previous Harbour versions, but I assume notifierblock is not very widely used and old method can relatively easily be updated to use custom Inkey() wrapper or simple SETKEY() method. Any opinions on that? (or anything I missed? I'm not sure why we haven't done it this way in the past) Brgds, Viktor On 2010 Apr 6, at 11:16, jara...@users.sourceforge.net wrote: > Revision: 14275 > > http://harbour-project.svn.sourceforge.net/harbour-project/?rev=14275&view=rev > Author: jarabal > Date: 2010-04-06 09:16:30 + (Tue, 06 Apr 2010) > > Log Message: > --- > 2010-04-06 11:15 UTC+0200 Xavi (jarabal/at/gmail.com) > * harbour/src/rtl/gtwin/gtwin.c >% Reverted back the changes. > > Modified Paths: > -- >trunk/harbour/ChangeLog >trunk/harbour/src/rtl/gtwin/gtwin.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] Re: Introducing myself
I know by private mail around 30 user that want use mailing only to read and not for write post if in future we allow anonymous posting (moderated) it appear > Thanks to everyone efforts. Harbour community need to be more active to > > "sell" Harbour on the web. IMHO most xBase programmer is individualist > too > > much, including. I hope change this. > > > > Yes. This is a pitty. Very few are vocal and respond on the lists. > > > > -- Massimo Belgrano ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] SF Feature Request#2982667: Support for G-Wan Web Server
The following feature request was posted on the Harbour SF site: http://sourceforge.net/tracker/?func=detail&atid=350681&aid=2982667&group_id=681 Simon wrote: G-Wan is a free very fast web server available for Windows/Linux. It has the ability to run scripts at specific times or intervals as well as being a socket server and web server. Since it runs "C" scripts I was thinking it might be useful for use with Harbour since the Harbour compiler can create "c" files which could then be used by G-Wan. So I thought it might prove very useful if Harbour included some support or samples of using Harbour with G-Wan. Chen. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Introducing myself
Antonio Maniero wrote: > > First of all I really sorry by my bad and poor English. I made my best. > You are allright. I think very few of us are from native english speaking areas. Important is not the language, but the willingness to express. Welcome on the list. > I want to make it clear: I want help Harbour development. Now I can mainly > give my opinions, try to influence some decisions, suggest enhancements, > report bugs. I need to get experience with C99 and GCC. My C experience is > about MS-C 5.0 (I give you a candy if you know why :-) ). I need to get > time > to help with code. I will try to contribute with some thing later. > Well-said. > I would like help with HBIDE but I have a very different programming style > and my major problem as developer is difficulty of adaptation on other > style. Totally my fault. Anyway I would like to see HBIDE evolution > mainly > in code editor and debugger. In fact I hope to get HBIDE compiled. Four > days > trying and nothing :-) But I can't get any application using Qt or MySQL > compiled. Maybe my Harbour build is wrong. I still trying. > It is strange. If you have set Harbour environment properly, which I guess you have, and Qt distro then it should be a matter of issueing only c:\>hbmk2 hbide.hbp Let us know where you get the problems. > Thanks to everyone efforts. Harbour community need to be more active to > "sell" Harbour on the web. IMHO most xBase programmer is individualist too > much, including. I hope change this. > Yes. This is a pitty. Very few are vocal and respond on the lists. - enjoy hbIDEing... Pritpal Bedi _a_student_of_software_analysis_&_design_ -- View this message in context: http://n2.nabble.com/Introducing-myself-tp4859526p4859862.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] Introducing myself
i agree documentation, is the biggest Harbour need, so i want invite anybody to contribute,the steep are very easy using hbide. H*ow read harbour documentation with hbide* 1 Point to option on and click on 2 A right-side "Document Viewer" window will appear. 3 Provide Harbour's installation root path in "Harbour Installation Root:" field, i.e., C:\harbour 4 Click "Refresh" icon on the toolbar of "Document Viewer" window" only once and wait a couple of seconds. "Contents" tab will be populated with /doc and /doc/en folders. *How write harbour documentation with hbide* 1 Click on "Documentation Writer" icon on the right-toolbar, 2. Open some source in the editor, 3. Position cursor somewhere inside a function body, 4. Click on "Load from current function" icon on the top-toolbar of "Document Writer" widget, 5. Look at the contents, few fields will be auto filled with various info from current function 6. Complete the other fields with relevent information, 7.1 Click on "Save the documentation with current function", 7.2 Look at the function body in the editor,The NANFORUM compliant documentation will be inserted at the top of function's prototype. 8.1 Click on "Save written/updated documentation" icon,and provide the filename to save , 8.2 Copy such generated .txt in /harbour/doc/en, 8.3 Open "Harbour Document Viewer" and you should be viweing newly written documentation 8.4 Such generated file is ready to be uploaded to SVN, just send it to the list and group will decide if it needs something extra. 2010/4/6 Antonio Maniero : > Hello everybody > First of all I really sorry by my bad and poor English. I made my best. > I am a software developer for 26 years working with several programming > languages mostly building Line Of Business applications in Brazil. > I worked with Clipper since Clipper exists. I used the first copy sold in > Brazil by Softcorp (succeeded by Officer and after Nantucket Brasil and CA > Brasil). I worked on a company (one of the major business software companies > in the world) that was practically the only VO beta tester in Brazil. It's a > shame a good idea turns trash :-) As 1996 on internet era I change my career > and dropped Clipper in favor of other solutions. Now I am back to LOB > applications with total freedom to choose my way. I decided modernize my old > Clipper applications "porting" to Harbour. I was a big lover of Clipper, > specially 5.2 and I had supported the way Nantucket did think Clipper > evolution and some aspects of Visual Objects developed by CA. I liked to see > Clipper near to syntax and some semantics of C. Yes, I am not a typical > Clipper developer. I think dBase style is a bad thing although is > a necessary evil to carry. > I want fix some errors and bad style which I made on 80's and use improved > features available on Harbour. I need rewrite my C functions, throw away > some, rethink about UI (console to GUI) and databases (transition from DBF > to MySQL and others RDBMS). > I think harbor 2.0 is a wonderful piece of software. It's not perfect > because the heavy legacy to honor. I like the design of a clean core with > extensions. I want publicly prize Viktor and PC (I can´t write his name :-) > ). I agree with most of their decisions and I strongly appreciate their > work. Ok, now I can criticize some points without fear :-) I want to see > Harbour moving forward, not in xHarbour style, but in smart Harbour style. > In Brazil we have a popular expression: The hasty eating raw :-) > I want to make it clear: I want help Harbour development. Now I can mainly > give my opinions, try to influence some decisions, suggest enhancements, > report bugs. I need to get experience with C99 and GCC. My C experience is > about MS-C 5.0 (I give you a candy if you know why :-) ). I need to get time > to help with code. I will try to contribute with some thing later. > I can't help too much with documentation, IMHO the biggest Harbour > need, because my bad English. I am improving Wikipedia's article now. I > invite you to contribute too. It's an initial work. I will contribute more > on Portuguese article. I am writing about Harbour on a variety of articles > (xBase, programming languages comparison, etc). See my contribs logged as > bigown. Please, feel free to add new information or edit and delete wrong or > bad text. I am reviewing text bring from xHarbour. It's a good way to learn > more about Harbour. Viktor, I think now the article is very bad, but not a > shame anymore ;-) > In the next days I will try reply some old messages with my opinions. > I would like help with HBIDE but I have a very different programming style > and my major problem as developer is difficulty of adaptation on other > style. Totally my fault. Anyway I would like to see HBIDE evolution mainly > in code editor and debugger. In fact I hope to get HBIDE compiled. Four days > trying and nothing :-) But I can't get any application using Qt or MySQL > compiled. May
[Harbour] new Web & Facebook API from FiveTech
I have received an intresting messages from Antonio Lineares aboutr new Web & Facebook API from FiveTech Subcribe harbour group on facebook for use two web apps as example: Accounting and Invoicing. http://www.facebook.com/group.php?gid=48795263775&ref=ts -- Massimo Belgrano ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Introducing myself
Hello everybody First of all I really sorry by my bad and poor English. I made my best. I am a software developer for 26 years working with several programming languages mostly building Line Of Business applications in Brazil. I worked with Clipper since Clipper exists. I used the first copy sold in Brazil by Softcorp (succeeded by Officer and after Nantucket Brasil and CA Brasil). I worked on a company (one of the major business software companies in the world) that was practically the only VO beta tester in Brazil. It's a shame a good idea turns trash :-) As 1996 on internet era I change my career and dropped Clipper in favor of other solutions. Now I am back to LOB applications with total freedom to choose my way. I decided modernize my old Clipper applications "porting" to Harbour. I was a big lover of Clipper, specially 5.2 and I had supported the way Nantucket did think Clipper evolution and some aspects of Visual Objects developed by CA. I liked to see Clipper near to syntax and some semantics of C. Yes, I am not a typical Clipper developer. I think dBase style is a bad thing although is a necessary evil to carry. I want fix some errors and bad style which I made on 80's and use improved features available on Harbour. I need rewrite my C functions, throw away some, rethink about UI (console to GUI) and databases (transition from DBF to MySQL and others RDBMS). I think harbor 2.0 is a wonderful piece of software. It's not perfect because the heavy legacy to honor. I like the design of a clean core with extensions. I want publicly prize Viktor and PC (I can´t write his name :-) ). I agree with most of their decisions and I strongly appreciate their work. Ok, now I can criticize some points without fear :-) I want to see Harbour moving forward, not in xHarbour style, but in smart Harbour style. In Brazil we have a popular expression: The hasty eating raw :-) I want to make it clear: I want help Harbour development. Now I can mainly give my opinions, try to influence some decisions, suggest enhancements, report bugs. I need to get experience with C99 and GCC. My C experience is about MS-C 5.0 (I give you a candy if you know why :-) ). I need to get time to help with code. I will try to contribute with some thing later. I can't help too much with documentation, IMHO the biggest Harbour need, because my bad English. I am improving Wikipedia's article now. I invite you to contribute too. It's an initial work. I will contribute more on Portuguese article. I am writing about Harbour on a variety of articles (xBase, programming languages comparison, etc). See my contribs logged as bigown. Please, feel free to add new information or edit and delete wrong or bad text. I am reviewing text bring from xHarbour. It's a good way to learn more about Harbour. Viktor, I think now the article is very bad, but not a shame anymore ;-) In the next days I will try reply some old messages with my opinions. I would like help with HBIDE but I have a very different programming style and my major problem as developer is difficulty of adaptation on other style. Totally my fault. Anyway I would like to see HBIDE evolution mainly in code editor and debugger. In fact I hope to get HBIDE compiled. Four days trying and nothing :-) But I can't get any application using Qt or MySQL compiled. Maybe my Harbour build is wrong. I still trying. Well, I have to learn a lot about Harbour, try it on Linux and I hope PC (druzus) can get some time to answer some doubts about PP. I have special interest about it because I am thinking to write a transformation software to change my legacy code. I love Clipper/Harbour PP and I abuse it, but I know what I am doing. Now I have a lot of work to do. Thanks to everyone efforts. Harbour community need to be more active to "sell" Harbour on the web. IMHO most xBase programmer is individualist too much, including. I hope change this. Feel free to write me in private when the list is not adequate place. []'s Antonio Maniero ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] Example MutiThread Index
Confirm is inrteressant
I have added to my blog
http://harbourlanguage.blogspot.com/search/label/MultiThread
2010/4/6 rafa :
> I believe this example is interesant.
>
> Regards
> Rafa Carmona
>
> /*
> Example multiThreads index.
> One thread by table , and one thread by index.
> 2010 Rafa Carmona
>
> Thread Main
> |-> Thhread child table for test.dbf
> | |> Thread child index fname
> | |
> | |->Thread child index fcode
> |
> |-> Thhread child table for test2.dbf
> |->Thread child index fname2
>
>
> */
> #include "hbthread.ch"
>
> proc Main( uCreate )
> Local nSeconds
> Local aFiles := { "test", "test2" } // Arrays files dbf
> Local aNtx := { { "fname", "fcode" },; // files index for test
> { "fName2" } } // files index for test2
> Local aExpr := { { "name", "code" },;
> { "dtos(fecha)+str(code)" } } // Expresions
> Local cDbf
>
> if empty( lCreate )
> lCreate := "0"
> endif
>
> setmode( 25,80 )
> cls
>
> if uCreate = "1"
> ? "Create test.dbf and test2.dbf"
> dbCreate("test",{ {"name","C",1,0 },{"code","N",7,0 } } )
> use test
> while lastRec() < 100
> dbAppend()
> field->name := chr( recno() )
> field->code := recno()
> enddo
> close
> dbCreate("test2",{ {"fecha","D",8,0 },{"code","N",7,0 } } )
> use test2
> while lastRec() < 100
> dbAppend()
> field->fecha := date() + recno()
> field->code := recno()
> enddo
> close
> endif
>
> cls
> // Threads
> nSeconds := Seconds()
> for each cDbf in aFiles
> ? "Process.: " + cDbf
> hb_threadStart( @aCreateIndexe(), cDbf, aNtx[ cDbf:__enumindex ],
> aExpr[ cDbf:__enumindex ], cDbf:__enumindex )
> next
>
> ? "Wait for threads "
> hb_threadWaitForAll()
>
> ? hb_valTostr( Seconds() - nSeconds )
>
> ? "finish"
>
> return
>
> function aCreateIndexe( cFile, aNtx, aExpr, nPosDbf )
> Local nContador := 1
> Local cFileNtx, cExpr
> Local nLong := Len( aNtx )
> Local aThreads := {}
> Local cAlias
>
> use ( cFile )
> cAlias := alias()
> hb_dbDetach( cAlias ) // Libero el alias
>
> for each cFileNtx in aNtx
> cExpr := aExpr[ cFileNtx:__enumindex ]
> nContador := 1
> nPos := cFileNtx:__enumindex
> aadd( aThreads, hb_threadStart( @crea(), cAlias,cExpr,
> cFileNtx, nPos, nPosDbf ) )
> next
>
> aEval( aThreads, { |x| hb_threadJoin( x ) } ) // wait threads childs
> hb_dbRequest( cAlias, , , .T.) // Restaura el alias
> close
>
> RETURN NIL
>
> proc crea( cAlias, cExpr, cFileNtx, nPos, nPosDbf )
> Local nContador := 1
>
> hb_dbRequest( cAlias, , , .T.) // Restaura el alias
>
> INDEX ON &(cExpr) TO &(cFileNtx) ;
> EVAL {|| hb_dispOutAt( nPosDbf, iif( nPos = 1, 20, 40 ),
> alltrim( hb_valtostr( nContador) ), "GR+/N" ), nContador += INT(
> LASTREC() / 100 ) , .T. } ;
> EVERY INT( LASTREC() / 100 )
>
> hb_dbDetach( cAlias ) // Libera el alias
>
>
> return
>
> ___
> Harbour mailing list (attachment size limit: 40KB)
> Harbour@harbour-project.org
> http://lists.harbour-project.org/mailman/listinfo/harbour
>
--
Massimo Belgrano
Iscritto all'albo dei CTU presso il Tribunale di Novara per materia Informatica
Delta Informatica S.r.l. (http://www.deltain.it/) (+39 0321 455962)
Analisi e sviluppo software per Lan e Web - Consulenza informatica - Formazione
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Debug and Thread
Exists limits debug thread in harbour ? I don't put breakpoint into thread child, never stop. thanks! Rafa Carmona ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Example MutiThread Index
I believe this example is interesant.
Regards
Rafa Carmona
/*
Example multiThreads index.
One thread by table , and one thread by index.
2010 Rafa Carmona
Thread Main
|-> Thhread child table for test.dbf
||> Thread child index fname
||
||->Thread child index fcode
|
|-> Thhread child table for test2.dbf
|->Thread child index fname2
*/
#include "hbthread.ch"
proc Main( uCreate )
Local nSeconds
Local aFiles := { "test", "test2" }// Arrays files dbf
Local aNtx:= { { "fname", "fcode" },; // files index for test
{ "fName2" } } // files index for test2
Local aExpr := { { "name", "code" },;
{ "dtos(fecha)+str(code)" } } // Expresions
Local cDbf
if empty( lCreate )
lCreate := "0"
endif
setmode( 25,80 )
cls
if uCreate = "1"
? "Create test.dbf and test2.dbf"
dbCreate("test",{ {"name","C",1,0 },{"code","N",7,0 } } )
use test
while lastRec() < 100
dbAppend()
field->name := chr( recno() )
field->code := recno()
enddo
close
dbCreate("test2",{ {"fecha","D",8,0 },{"code","N",7,0 } } )
use test2
while lastRec() < 100
dbAppend()
field->fecha := date() + recno()
field->code := recno()
enddo
close
endif
cls
// Threads
nSeconds := Seconds()
for each cDbf in aFiles
? "Process.: " + cDbf
hb_threadStart( @aCreateIndexe(), cDbf, aNtx[ cDbf:__enumindex ],
aExpr[ cDbf:__enumindex ], cDbf:__enumindex )
next
? "Wait for threads "
hb_threadWaitForAll()
? hb_valTostr( Seconds() - nSeconds )
? "finish"
return
function aCreateIndexe( cFile, aNtx, aExpr, nPosDbf )
Local nContador := 1
Local cFileNtx, cExpr
Local nLong := Len( aNtx )
Local aThreads := {}
Local cAlias
use ( cFile )
cAlias := alias()
hb_dbDetach( cAlias ) // Libero el alias
for each cFileNtx in aNtx
cExpr := aExpr[ cFileNtx:__enumindex ]
nContador := 1
nPos := cFileNtx:__enumindex
aadd( aThreads, hb_threadStart( @crea(), cAlias,cExpr,
cFileNtx, nPos, nPosDbf ) )
next
aEval( aThreads, { |x| hb_threadJoin( x ) } ) // wait threads childs
hb_dbRequest( cAlias, , , .T.) // Restaura el alias
close
RETURN NIL
proc crea( cAlias, cExpr, cFileNtx, nPos, nPosDbf )
Local nContador := 1
hb_dbRequest( cAlias, , , .T.) // Restaura el alias
INDEX ON &(cExpr) TO &(cFileNtx) ;
EVAL {|| hb_dispOutAt( nPosDbf, iif( nPos = 1, 20, 40 ),
alltrim( hb_valtostr( nContador) ), "GR+/N" ), nContador += INT(
LASTREC() / 100 ) , .T. } ;
EVERY INT( LASTREC() / 100 )
hb_dbDetach( cAlias ) // Libera el alias
return
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: Error with ODBC under rddsql (sddodbc) ...
Hi Mindaugas, I donot know why ? Now the error gone ... http://www.mingyik.com/dnload/tstodbc30.jpg However, I have download and install the mysql-connector-c-6.0.2-win32.msi during testing SSDMY (although the testing on SDDMY fail as well) Once see your message, I recompile my testing program again The exec. it Now problem gone !?? Shum -- View this message in context: http://n2.nabble.com/Error-with-ODBC-under-rddsql-sddodbc-tp4852373p4859068.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] SF.net SVN: harbour-project:[14276] trunk/harbour
Revision: 14276 http://harbour-project.svn.sourceforge.net/harbour-project/?rev=14276&view=rev Author: vszakats Date: 2010-04-06 13:02:26 + (Tue, 06 Apr 2010) Log Message: --- 2010-04-06 15:02 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * tests/mt/mttest09.prg ! Fixed to use native core function instead of XPP wrapper. Thanks to Rafa for reporting it. Modified Paths: -- trunk/harbour/ChangeLog trunk/harbour/tests/mt/mttest09.prg 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] Error with ODBC under rddsql (sddodbc) ...
I try to test dBUseArea() with DBFCDX RDD and SQLMIX RDD ... Since I cannot test the test2.prg under \hb20\contrib\rddsql\sddodbc\tests I modify test2.prg into tstmysql.prg as follow: However the line: ? dBUseArea( .T., "sqlmix", "SELECT * FROM country", "country", .T., .F.) with error comes out : http://www.mingyik.com/dnload/tstodbc10.jpg http://www.mingyik.com/dnload/tstodbc20.jpg Hi, you error screen shows the reason of error. SDDODBC/1906 means statement allocation error. Your sample generates error on dbusearea(), but does not generates error on RDDINFO(RDDI_EXECUTE,), though both actions do statement allocation. Current code uses mixed statement allocation: SQLAllocStmt() in RDDI_EXECUTE and SQLAllocHandle( SQL_HANDLE_STMT, ) in DBUSEAREA() Microsoft says: "In ODBC 3.x, the ODBC 2.x function SQLAllocStmt has been replaced by SQLAllocHandle." Can you test sddodbc.c, by changing line #339 from if ( ! SQL_SUCCEEDED( SQLAllocHandle( SQL_HANDLE_STMT, pSDDConn->hConn, &hStmt ) ) ) to if ( ! SQL_SUCCEEDED( SQLAllocStmt( pSDDConn->hConn, &hStmt ) ) ) ? If this helps, we will need some additional compile switches to use different ODBC API version. Regards, Mindaugas ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] Where is function dbRelease ?
I find error, i report this error another message! Regards Rafa Carmona ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Please change example mttest09
The examples /mt/mttest09.prg
Where is
dbRelease( , {|| xResult } )
change by
hb_dbDetach( , {|| xResult } )
Regards
Rafa Carmona
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Where is function dbRelease ?
I compile example /mt/mttest09 , but show errors; Not found function dbRelease() I find this function , but not exists. This example, stop line hb_dbRequest( , , @bResult, .T. ) Harbour 2.1.0dev (Rev. 14255) Copyright (c) 1999-2010, http://www.harbour-project.org/ Harbour Build Info --- Version: Harbour 2.1.0dev (Rev. 14255) Compiler: Borland C++ 5.5.1 (32-bit) Platform: Windows XP 5.1.2600 Service Pack 2 PCode version: 0.3 ChangeLog last entry: 2010-03-28 19:22 UTC+0200 Viktor Szakats (harbour.01 syena r.hu) ChangeLog ID: ChangeLog 14255 2010-03-28 17:23:00Z vszakats Built on: Mar 29 2010 10:02:00 Build options: (tracing) (Clipper 5.3b) (Clipper 5.x undoc) (UNICODE) ___ 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:[14273] trunk/harbour
Hi Viktor,
Remember my Fixing about this .-
2010-03-01 14:45 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
...
* 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.
...
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
Best regars,
Xavi
El 06/04/2010 11:29, Viktor Szakáts escribió:
On Tue, Apr 6, 2010 at 10:40 AM, Xavi wrote:
El 06/04/2010 9:33, Viktor Szakáts escribió:
False. In GTWVT it will only do it if callback says to do so,
and it instantly exists the application (that's why it modifies
this flag internally - I guess).
GTWVT do this without callback, you need to program a express callback to
not do so return 1 i.e.
if not exist NotifierBlock "callback" hb_gt_wvt_FireEvent return 0 and do
so.
static int hb_gt_wvt_FireEvent( PHB_GTWVT pWVT, int nEvent )
{
int nResult = 0; /* Unhandled */
if( pWVT->pGT->pNotifierBlock )
{
...
}
return nResult;
}
...
case WM_CLOSE: /* Clicked 'X' on system menu */
if( hb_gt_wvt_FireEvent( pWVT, HB_GTE_CLOSE ) == 0 )
{
PHB_ITEM pItem = hb_itemPutL( NULL, HB_TRUE );
hb_setSetItem( HB_SET_CANCEL, pItem );...
...
In GTWIN, it just sets the SETCANCEL flag and lets the
app continue to run.
This is wrong solution. SETCANCEL is not something
the app sets. SETCANCEL is a way to let app developers
_control_ the behavior of Ctrl+C. Nothing more. What you
committed just creates a hidden extension plus incompatible
to Clipper behavior (since in Clipper SETCANCEL flag was
never modified by window closure).
Brgds,
Viktor
___
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:[14273] trunk/harbour
On Tue, Apr 6, 2010 at 10:40 AM, Xavi wrote:
> El 06/04/2010 9:33, Viktor Szakáts escribió:
>>
>> False. In GTWVT it will only do it if callback says to do so,
>> and it instantly exists the application (that's why it modifies
>> this flag internally - I guess).
>
> GTWVT do this without callback, you need to program a express callback to
> not do so return 1 i.e.
> if not exist NotifierBlock "callback" hb_gt_wvt_FireEvent return 0 and do
> so.
>
> static int hb_gt_wvt_FireEvent( PHB_GTWVT pWVT, int nEvent )
> {
> int nResult = 0; /* Unhandled */
>
> if( pWVT->pGT->pNotifierBlock )
> {
> ...
> }
>
> return nResult;
> }
> ...
> case WM_CLOSE: /* Clicked 'X' on system menu */
> if( hb_gt_wvt_FireEvent( pWVT, HB_GTE_CLOSE ) == 0 )
> {
> PHB_ITEM pItem = hb_itemPutL( NULL, HB_TRUE );
> hb_setSetItem( HB_SET_CANCEL, pItem );...
> ...
>
>> In GTWIN, it just sets the SETCANCEL flag and lets the
>> app continue to run.
This is wrong solution. SETCANCEL is not something
the app sets. SETCANCEL is a way to let app developers
_control_ the behavior of Ctrl+C. Nothing more. What you
committed just creates a hidden extension plus incompatible
to Clipper behavior (since in Clipper SETCANCEL flag was
never modified by window closure).
Brgds,
Viktor
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] RE: Clipper 5.2 to Harbour
He martin afaik Grumpfish is written primarily in Clipper, and come with source code so you can made modification. so is quite easy porting to Harbour is likely here ng for grumpfish http://www.ousob.com/ng/grump/index.php afaik Assembler is used only for transparent shadowing) and you must do little adaption like replacing any inkey() with inkey(1) source code is aivable on osasis http://www.the-oasis.net/ftpmaster.php3?content=ftplib.htm >Greetings, Clipper developer: >As you may already know, due to the death of the Clipper third party >market, Grumpfish Incorporated dissolved in February 1996. >Consequently, the Grumpfish Library product was rendered no longer >available for sale and was no longer commercially supported. >However, thanks to the persistent efforts of Phil Barnett, I have >decided to make the Grumpfish Library source code publicly available. >This does NOT mean that this source code is now "freeware" or "public >domain" (see "Copyright" below for further specifics). The primary >reason behind this decision is to assist people who have been forced >to revisit existing code in the interest of Year 2000 compliance. >(See "Disclaimer" below for further specifics on this topic.) > 2010/4/6 Martin Bartlett > > Hi, > > Clipper code is 5.2 and uses RDD DBFCDX for access to dbf files (IDX index > suffix) > > Known extensions used: inkey, grump, grumpm, funcky and postscpt (Postscript > extrasensory.com) > > Steps completed: > > 1. compiled existing Clipper code and linked to an .exe to run on Vista and > 32/64 bit machines > - used: hbmk2 ausway.prg > - executable creates CDX not IDX as per Clipper (not an issue) > - due to third party code, I needed to rewrite approx. 20 > functions/routines (mainly GRUMPFISH), not sure if there is a > List of routines written by developers? > > Martin Bartlett (Melbourne Australia) > > > -- Massimo Belgrano ___ 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:[14275] trunk/harbour
Revision: 14275 http://harbour-project.svn.sourceforge.net/harbour-project/?rev=14275&view=rev Author: jarabal Date: 2010-04-06 09:16:30 + (Tue, 06 Apr 2010) Log Message: --- 2010-04-06 11:15 UTC+0200 Xavi (jarabal/at/gmail.com) * harbour/src/rtl/gtwin/gtwin.c % Reverted back the changes. Modified Paths: -- trunk/harbour/ChangeLog trunk/harbour/src/rtl/gtwin/gtwin.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] SF.net SVN: harbour-project:[14273] trunk/harbour
El 06/04/2010 9:33, Viktor Szakáts escribió:
False. In GTWVT it will only do it if callback says to do so,
and it instantly exists the application (that's why it modifies
this flag internally - I guess).
GTWVT do this without callback, you need to program a express callback to not
do so return 1 i.e.
if not exist NotifierBlock "callback" hb_gt_wvt_FireEvent return 0 and do so.
static int hb_gt_wvt_FireEvent( PHB_GTWVT pWVT, int nEvent )
{
int nResult = 0; /* Unhandled */
if( pWVT->pGT->pNotifierBlock )
{
...
}
return nResult;
}
...
case WM_CLOSE: /* Clicked 'X' on system menu */
if( hb_gt_wvt_FireEvent( pWVT, HB_GTE_CLOSE ) == 0 )
{
PHB_ITEM pItem = hb_itemPutL( NULL, HB_TRUE );
hb_setSetItem( HB_SET_CANCEL, pItem );...
...
In GTWIN, it just sets the SETCANCEL flag and lets the
app continue to run.
This is what I tried to say and do many times.
Could you explain what must be the behavior for both?
I've no objection to change.
Best regars,
Xavi
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] RE: Clipper 5.2 to Harbour
Hi Martin, > 2. as above but used MS Visual Studio v9.0 C++ to compile C code to produce > a Windows executable > - used: harbour ausway.prg -kc -gc > - ausway.c has the following header, I wanted an msvc env (see below), is > this correct? I wouldn't recommend using C compiler directly. > SET HB_ARCHITECTURE=WIN > SET MSCV=C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO 9.0\VC > SET PLATFORM=C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO 2008 > SET HB_COMPILER=MSVC > SET HB_PATH=C:\HB20 > SET HB_BIN_COMPILE=C:\HB20\BIN > SET HB_BIN_INSTALL=C:\HB20\BIN > SET HB_LIB_INSTALL=C:\HB20\LIB > SET HB_INC_INSTALL=C:\HB20\INCLUDE > SET INCLUDE=C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO > 9.0\VC\CE\INCLUDE;C:\HB20\INCLUDE > SET LIB=C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO > 9.0\VC\CE\LIB\;C:\HB20\LIB\WIN\MSVC; > C:\PROGRAM FILES\MICROSOFT SDKS\WINDOWS\V6.0A\LIB > CALL "C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO 9.0\VC\BIN\VCVARS32.BAT" > hbmk2 ausway.c As for MSVC configuration look into INSTALL (or MS docs), most of above Harbour related configuration is unnecessary. Try with something like: --- CALL "C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO 9.0\VC\BIN\VCVARS32.BAT" C:\HB20\BIN\hbmk2 ausway.prg --- Brgds, Viktor ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] How to set XON/XOFF under hbtpathy ?
Shum, there is no XON/XOFF support under hbtpathy right now. Best regards. Maurilio. Shum wrote: > Hi All, > > As title (by using what function ?) ... > > Shum -- __ | | | |__| 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] RE: Clipper 5.2 to Harbour
Hi, Clipper code is 5.2 and uses RDD DBFCDX for access to dbf files (IDX index suffix) Known extensions used: inkey, grump, grumpm, funcky and postscpt (Postscript extrasensory.com) Steps completed: 1. compiled existing Clipper code and linked to an .exe to run on Vista and 32/64 bit machines - used: hbmk2 ausway.prg - executable creates CDX not IDX as per Clipper (not an issue) - due to third party code, I needed to rewrite approx. 20 functions/routines (mainly GRUMPFISH), not sure if there is a List of routines written by developers? 2. as above but used MS Visual Studio v9.0 C++ to compile C code to produce a Windows executable - used: harbour ausway.prg -kc -gc - ausway.c has the following header, I wanted an msvc env (see below), is this correct? - is the script too verbose and/or is there a better way to achieve the desired result? - response from extrasensory.com re: Harbour compatibility Do you use the ps_J functions? (YES) If you don't use the justification engine, I could easily port it or likely just compile the code in Harbour, if it uses the justify engine, it's out of my league to port. /* * Harbour 2.0.0 (Rev. 13372) * MinGW GNU C 4.4.1 (32-bit) * Generated C source from "AUSWAY.PRG" */ Batch file: SET HB_ARCHITECTURE=WIN SET MSCV=C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO 9.0\VC SET PLATFORM=C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO 2008 SET HB_COMPILER=MSVC SET HB_PATH=C:\HB20 SET HB_BIN_COMPILE=C:\HB20\BIN SET HB_BIN_INSTALL=C:\HB20\BIN SET HB_LIB_INSTALL=C:\HB20\LIB SET HB_INC_INSTALL=C:\HB20\INCLUDE SET INCLUDE=C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO 9.0\VC\CE\INCLUDE;C:\HB20\INCLUDE SET LIB=C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO 9.0\VC\CE\LIB\;C:\HB20\LIB\WIN\MSVC; C:\PROGRAM FILES\MICROSOFT SDKS\WINDOWS\V6.0A\LIB CALL "C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO 9.0\VC\BIN\VCVARS32.BAT" hbmk2 ausway.c I look fwd to your response at your convienence. Regards Martin Bartlett (Melbourne Australia) ___ 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:[14273] trunk/harbour
> Sorry... ??? > This does the same that GTWVT so the same code has the same behavior in > both. False. In GTWVT it will only do it if callback says to do so, and it instantly exists the application (that's why it modifies this flag internally - I guess). In GTWIN, it just sets the SETCANCEL flag and lets the app continue to run. Overall I don't see what did you solve, and your ChangeLog entry doesn't help at all to find it out: "Fixed CTRL_CLOSE_EVENT according to present project goals" simply means nothing. Pls describe what you did and why, such meaningless plugs don't help the case. 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:[14273] trunk/harbour
El 06/04/2010 8:26, Viktor Szakáts escribió: Sorry to ask, but what is this patch meant to do? It looks totally wrong to modify SETCANCEL flag internally from GT code, pls revert ASAP! Sorry... ??? This does the same that GTWVT so the same code has the same behavior in both. Best regards, Xavi ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
