Maurilio, Sorry, but I must object. I volunteer to port any needed prg code to xHarbour, withOUT having to introduce undesired syntax.
Ron On Jun 25, 2008, at 12:10 AM, Maurilio Longo wrote: > Ron, > > they would be usefull in porting harbour code back and forth > without changes, > harbour tbrowse, for example, uses FOR EACH with multiple arguments. > > I think that a WITH OBJECT a,b,c... syntax could be usefull when > you need to > exchange data between different objects, it is just a shorter way to > accomplish such a task. > > Best regards. > > Maurilio. > > Ron Pinkas wrote: >> Maurilio, >> >> I'm sorry but I see no logical basis for multiple values in FOR EACH >> syntax, and I'd prefer to not state my opinion of multiple values for >> WITH OBJECT syntax. If you show what kind of code would require such >> syntax I'll be very thankful. >> >> Ron >> >> On Jun 24, 2008, at 10:28 AM, Maurilio Longo wrote: >> >>> Ron, >>> >>> from harbour we should, IMHO, borrow >>> >>> FOR EACH and maybe WITH OBJECT both of which support multiple >>> arguments >>> instead of the single one available on xHarbour. >>> >>> This is to be able to move .prg code between harbour and xharbour >>> and >>> viceversa more easily. >>> >>> Best regards. >>> >>> Maurilio. >>> >>> Ron Pinkas wrote: >>>> I agree. I think we need to prepare a list of missing extended >>>> features that we need to add if any. >>>> >>>> On Jun 24, 2008, at 6:25 AM, Maurilio Longo wrote: >>>> >>>>> Eduardo, Ron, >>>>> >>>>> I don't know if we came to a conclusion, but I think we should >>>>> switch to >>>>> harbour tbrowse code which is, at least, of a much higher quality >>>>> (and I say >>>>> so _after_ a lot of time spent in the past on xharbour tbrowse). >>>>> >>>>> Best regards. >>>>> >>>>> Maurilio. >>>>> >>>>> Eduardo Fernandes wrote: >>>>>> ----- Mensagem encaminhada ---- >>>>>>> De: Eduardo Fernandes <[EMAIL PROTECTED]> >>>>>>> Para: Ron Pinkas <[EMAIL PROTECTED]>; Xharbour-Developers >>>>>>> List <[email protected]> >>>>>>> Enviadas: Terça-feira, 24 de Junho de 2008 10:04:30 >>>>>>> Assunto: Res: [xHarbour-developers] Next Release (RC2) >>>>>>> >>>>>>> Ron, >>>>>>> >>>>>>> I have a pending issue on Tbrowse (dbEdit/Browse will reached >>>>>>> also), but I can >>>>>>> wait after release. >>>>>>> >>>>>>> regards, >>>>>>> Eduardo >>>>>>> >>>>>>> *---------------------------------------* >>>>>>> >>>>>>> xHarbour Regression Test Suite >>>>>>> Copyright 1999-2005, http://www.harbour-project.org, http:// >>>>>>> www.xharbour.org >>>>>>> ---------------------------------------------------------------- >>>>>>> ---- >>>>>>> ------- >>>>>>> Version: xHarbour build 1.1.0 Intl. (SimpLex) (Rev. 6148) >>>>>>> Compiler: Pelles ISO C Compiler 5.0 >>>>>>> Multi Thread: OFF >>>>>>> Optimization: 0 (No Optimization) >>>>>>> OS: Windows XP Professional 5.01.2600 Service Pack 2 >>>>>>> Date, Time: 2008.06.24 09:59:18 >>>>>>> Output: (stdout) >>>>>>> Shortcut opt.: ON >>>>>>> Switches: >>>>>>> ================================================================ >>>>>>> ==== >>>>>>> ======= >>>>>>> R No. Line TestCall >>>>>>> () - >>>>>>>> Result >>>>>>> >>>>>>> | >>>>>>> Expected >>>>>>> >>>>>>> ---------------------------------------------------------------- >>>>>>> ---- >>>>>>> ------- >>>>>>> ! 354 MAIN_HVM(496) {|| NIL } == {|| NIL } >>>>>>> Result: .F. >>>>>>> Expected: "E BASE 1070 Argument error == A:2:B:{||...};B: >>>>>>> {||...} F:S" >>>>>>> ! 641 MAIN_HVMA(403) soObject:hello >>>>>>> Result: "E BASE 1004 Class: 'ERROR' has no exported >>>>>>> method >>>>>>> HELLO >>>>>>> A:1:O:ERROR Object F:S" >>>>>>> Expected: "E BASE 1004 Class: 'ERROR' has no exported >>>>>>> method >>>>>>> HELLO A:0: >>>>>>> F:S" >>>>>>> ! 642 MAIN_HVMA(404) soObject:hello := 1 >>>>>>> Result: "E BASE 1005 Class: 'ERROR' has no property HELLO >>>>>>> A:2:O:ERROR >>>>>>> Object;N:1 F:S" >>>>>>> Expected: "E BASE 1005 Class: 'ERROR' has no property HELLO >>>>>>> A:1:N:1 F:S" >>>>>>> ! 653 MAIN_HVMA(419) Len( ErrorNew() ) >>>>>>> Result: 19 >>>>>>> Expected: 17 >>>>>>> ! 723 MAIN_HVMA(501) RTSTR( 00000500000000000000 ) >>>>>>> Result: " 16 500000000000000" >>>>>>> Expected: " 21 500000000000000" >>>>>>> ! 724 MAIN_HVMA(502) RTSTR( 0500000000000000 ) >>>>>>> Result: " 16 500000000000000" >>>>>>> Expected: " 17 500000000000000" >>>>>>> ! 1073 MAIN_MATH(386) Str(1234567890 * 1234567890 ) >>>>>>> Result: " 1524157875019052032" >>>>>>> Expected: " 1524157875019052000" >>>>>>> ! 1460 MAIN_STR(410) Upper( " µ" ) >>>>>>> Result: ""+Chr(0)+"0" >>>>>>> Expected: " µ" >>>>>>> ! 1461 MAIN_STR(411) Upper( "H rbor 8-) µ" ) >>>>>>> Result: "H"+Chr(0)+"RBOR 8-) 0" >>>>>>> Expected: "H RBOR 8-) µ" >>>>>>> ! 2547 MAIN_ARRAY(162) aTail( ErrorNew() ) >>>>>>> Result: {.[4].} >>>>>>> Expected: "utils\hbtest\rt_array.prg" >>>>>>> ! 2821 MAIN_MISC(71) Len( oError ) >>>>>>> Result: 19 >>>>>>> Expected: 17 >>>>>>> ! 2911 MAIN_MISC(195) TFORNEXT( .F., .T., NIL ) >>>>>>> Result: "E BASE 1081 Argument error + A:2:L:.F.;N:1 F:S" >>>>>>> Expected: "E BASE 1086 Argument error ++ A:1:L:.F. F:S" >>>>>>> ! 2913 MAIN_MISC(197) TFORNEXT( .F., .F., NIL ) >>>>>>> Result: "E BASE 1081 Argument error + A:2:L:.F.;N:1 F:S" >>>>>>> Expected: "E BASE 1086 Argument error ++ A:1:L:.F. F:S" >>>>>>> ! 2915 MAIN_MISC(199) TFORNEXT( "A", "A", NIL ) >>>>>>> Result: "B" >>>>>>> Expected: 66 >>>>>>> ! 2916 MAIN_MISC(200) TFORNEXT( NIL, NIL, NIL ) >>>>>>> Result: "E BASE 1074 Argument error <= A:2:U:NIL;U:NIL >>>>>>> F:S" >>>>>>> Expected: "E BASE 1075 Argument error > A:2:U:NIL;U:NIL >>>>>>> F:S" >>>>>>> ! 2948 MAIN_MISC(236) Eval( NIL ) >>>>>>> Result: "E BASE 1004 Class: 'NIL' has no exported method >>>>>>> EVAL A:1:U:NIL >>>>>>> F:S" >>>>>>> Expected: "E BASE 1004 Class: 'NIL' has no exported method >>>>>>> EVAL A:0: F:S" >>>>>>> ! 2949 MAIN_MISC(237) Eval( 1 ) >>>>>>> Result: "E BASE 1004 Class: 'NUMERIC' has no exported >>>>>>> method EVAL A:1:N:1 >>>>>>> F:S" >>>>>>> Expected: "E BASE 1004 Class: 'NUMERIC' has no exported >>>>>>> method EVAL A:0: >>>>>>> F:S" >>>>>>> ! 2954 MAIN_MISC(248) scString:Eval() >>>>>>> Result: "E BASE 1004 Class: 'CHARACTER' has no exported >>>>>>> method EVAL >>>>>>> A:1:C:HELLO F:S" >>>>>>> Expected: "E BASE 1004 Class: 'CHARACTER' has no exported >>>>>>> method EVAL A:0: >>>>>>> F:S" >>>>>>> ! 2955 MAIN_MISC(249) snIntP:Eval() >>>>>>> Result: "E BASE 1004 Class: 'NUMERIC' has no exported >>>>>>> method EVAL >>>>>>> A:1:N:10 F:S" >>>>>>> Expected: "E BASE 1004 Class: 'NUMERIC' has no exported >>>>>>> method EVAL A:0: >>>>>>> F:S" >>>>>>> ! 2956 MAIN_MISC(250) sdDateE:Eval() >>>>>>> Result: "E BASE 1004 Class: 'DATE' has no exported method >>>>>>> EVAL A:1:D: >>>>>>> F:S" >>>>>>> Expected: "E BASE 1004 Class: 'DATE' has no exported method >>>>>>> EVAL A:0: F:S" >>>>>>> ! 2957 MAIN_MISC(251) slFalse:Eval() >>>>>>> Result: "E BASE 1004 Class: 'LOGICAL' has no exported >>>>>>> method EVAL >>>>>>> A:1:L:.F. F:S" >>>>>>> Expected: "E BASE 1004 Class: 'LOGICAL' has no exported >>>>>>> method EVAL A:0: >>>>>>> F:S" >>>>>>> ! 2959 MAIN_MISC(253) saArray:Eval() >>>>>>> Result: "E BASE 1004 Class: 'ARRAY' has no exported >>>>>>> method >>>>>>> EVAL >>>>>>> A:1:A:{.[1].} F:S" >>>>>>> Expected: "E BASE 1004 Class: 'ARRAY' has no exported >>>>>>> method >>>>>>> EVAL A:0: F:S" >>>>>>> ! 2960 MAIN_MISC(254) soObject:Eval() >>>>>>> Result: "E BASE 1004 Class: 'ERROR' has no exported >>>>>>> method >>>>>>> EVAL >>>>>>> A:1:O:ERROR Object F:S" >>>>>>> Expected: "E BASE 1004 No exported method EVAL A:0: F:S" >>>>>>> ! 2961 MAIN_MISC(258) scString:Eval >>>>>>> Result: "E BASE 1004 Class: 'CHARACTER' has no exported >>>>>>> method EVAL >>>>>>> A:1:C:HELLO F:S" >>>>>>> Expected: "E BASE 1004 Class: 'CHARACTER' has no exported >>>>>>> method EVAL A:0: >>>>>>> F:S" >>>>>>> ! 2962 MAIN_MISC(259) snIntP:Eval >>>>>>> Result: "E BASE 1004 Class: 'NUMERIC' has no exported >>>>>>> method EVAL >>>>>>> A:1:N:10 F:S" >>>>>>> Expected: "E BASE 1004 Class: 'NUMERIC' has no exported >>>>>>> method EVAL A:0: >>>>>>> F:S" >>>>>>> ! 2963 MAIN_MISC(260) sdDateE:Eval >>>>>>> Result: "E BASE 1004 Class: 'DATE' has no exported method >>>>>>> EVAL A:1:D: >>>>>>> F:S" >>>>>>> Expected: "E BASE 1004 Class: 'DATE' has no exported method >>>>>>> EVAL A:0: F:S" >>>>>>> ! 2964 MAIN_MISC(261) slFalse:Eval >>>>>>> Result: "E BASE 1004 Class: 'LOGICAL' has no exported >>>>>>> method EVAL >>>>>>> A:1:L:.F. F:S" >>>>>>> Expected: "E BASE 1004 Class: 'LOGICAL' has no exported >>>>>>> method EVAL A:0: >>>>>>> F:S" >>>>>>> ! 2966 MAIN_MISC(263) saArray:Eval >>>>>>> Result: "E BASE 1004 Class: 'ARRAY' has no exported >>>>>>> method >>>>>>> EVAL >>>>>>> A:1:A:{.[1].} F:S" >>>>>>> Expected: "E BASE 1004 Class: 'ARRAY' has no exported >>>>>>> method >>>>>>> EVAL A:0: F:S" >>>>>>> ! 2967 MAIN_MISC(264) soObject:Eval >>>>>>> Result: "E BASE 1004 Class: 'ERROR' has no exported >>>>>>> method >>>>>>> EVAL >>>>>>> A:1:O:ERROR Object F:S" >>>>>>> Expected: "E BASE 1004 No exported method EVAL A:0: F:S" >>>>>>> ! 2978 MAIN_MISC(290) SToD("99990101") >>>>>>> Result: SToD("99990101") >>>>>>> Expected: SToD(" ") >>>>>>> ! 2986 MAIN_MISC(298) SToD("19 90905") >>>>>>> Result: SToD(" ") >>>>>>> Expected: SToD("17490905") >>>>>>> ! 2987 MAIN_MISC(299) SToD("199 0905") >>>>>>> Result: SToD(" ") >>>>>>> Expected: SToD("19740905") >>>>>>> ! 3129 MAIN_MISC(512) __CopyFile("NOT_HERE.$$$", "$$COPYTO.TMP >>>>>>> Result: "E BASE 2012 Open error NOT_HERE.$$$ F:DR" >>>>>>> Expected: "E BASE 2012 Open error NOT_HERE.$$$ A:0: F:DR" >>>>>>> ! 3130 MAIN_MISC(513) __CopyFile("$$COPYFR.TMP", BADFNAME()) >>>>>>> Result: "E BASE 2012 Create error *INVALID*. F:DR" >>>>>>> Expected: "E BASE 2012 Create error *INVALID*. A:0: F:DR" >>>>>>> ================================================================ >>>>>>> ==== >>>>>>> ======= >>>>>>> Test calls passed: 3263 ( 98.96 % ) >>>>>>> Test calls failed: 34 ( 1.04 % ) >>>>>>> ---------- >>>>>>> Total: 3297 ( Time elapsed: 0.39 seconds ) >>>>>>> >>>>>>> WARNING ! Failures detected >>>>>>> >>>>>>> >>>>>>> ----- Mensagem original ---- >>>>>>>> De: Ron Pinkas >>>>>>>> Para: Xharbour-Developers List >>>>>>>> Enviadas: Sexta-feira, 20 de Junho de 2008 13:35:44 >>>>>>>> Assunto: [xHarbour-developers] Next Release (RC2) >>>>>>>> >>>>>>>> Hi All, >>>>>>>> >>>>>>>> I'd like to request your assistance in preparing for our next >>>>>>>> official build. >>>>>>>> >>>>>>>> 1. Please CLEAN BUILD on your respective platform[s]. >>>>>>>> 2. Please report build warnings and errors if any. >>>>>>>> 3. Please report results of hbtest.exe if build completed. >>>>>>>> 4. Please report any pending issue[s]. >>>>>>>> >>>>>>>> I'm aware of following issues: >>>>>>>> >>>>>>>> 1. GTWVW is no longer functional - any valaunteer to >>>>>>>> correct? >>>>>>>> >>>>>>>> 2. GTWIN we want to add ability to receive coordinates of >>>>>>>> visible >>>>>>>> screen port, so that programmer can guarantee visibility of >>>>>>>> output >>>>>>>> (f.e. Error Dialogs - Paul?. >>>>>>>> >>>>>>>> 3. I believe there was a report of some bug with certain >>>>>>>> PICTURE >>>>>>>> clause - Luiz? >>>>>>>> >>>>>>>> TIA, >>>>>>>> >>>>>>>> Ron >>>>>>> Novos endereços, o Yahoo! que você conhece. Crie um email >>>>>>> novo com a sua >>>>>>> cara @ymail.com ou @rocketmail.com. >>>>>>> http://br.new.mail.yahoo.com/addresses >>>>>> >>>>>> >>>>>> Novos endereços, o Yahoo! que você conhece. Crie um email >>>>>> novo com a sua cara @ymail.com ou @rocketmail.com. >>>>>> http://br.new.mail.yahoo.com/addresses >>>>>> >>>>>> ----------------------------------------------------------------- >>>>>> ---- >>>>>> ---- >>>>>> Check out the new SourceForge.net Marketplace. >>>>>> It's the best place to buy or sell services for >>>>>> just about anything Open Source. >>>>>> http://sourceforge.net/services/buy/index.php >>>>>> _______________________________________________ >>>>>> xHarbour-developers mailing list >>>>>> [email protected] >>>>>> https://lists.sourceforge.net/lists/listinfo/xharbour-developers >>>>>> >>>>> -- >>>>> __________ >>>>> | | | |__| Maurilio Longo >>>>> |_|_|_|____| farmaconsult s.r.l. >>>>> >>>>> >>>>> >>>>> ------------------------------------------------------------------ >>>>> ---- >>>>> --- >>>>> Check out the new SourceForge.net Marketplace. >>>>> It's the best place to buy or sell services for >>>>> just about anything Open Source. >>>>> http://sourceforge.net/services/buy/index.php >>>>> _______________________________________________ >>>>> xHarbour-developers mailing list >>>>> [email protected] >>>>> https://lists.sourceforge.net/lists/listinfo/xharbour-developers >>>>> >>>> >>>> >>>> >>>> ------------------------------------------------------------------- >>>> ------ >>>> >>>> Check out the new SourceForge.net Marketplace. >>>> It's the best place to buy or sell services for >>>> just about anything Open Source. >>>> http://sourceforge.net/services/buy/index.php >>>> _______________________________________________ >>>> xHarbour-developers mailing list >>>> [email protected] >>>> https://lists.sourceforge.net/lists/listinfo/xharbour-developers >>>> >>> >>> -- >>> __________ >>> | | | |__| Maurilio Longo >>> |_|_|_|____| farmaconsult s.r.l. >>> >>> >>> >>> -------------------------------------------------------------------- >>> ----- >>> Check out the new SourceForge.net Marketplace. >>> It's the best place to buy or sell services for >>> just about anything Open Source. >>> http://sourceforge.net/services/buy/index.php >>> _______________________________________________ >>> xHarbour-developers mailing list >>> [email protected] >>> https://lists.sourceforge.net/lists/listinfo/xharbour-developers >>> >> >> >> > > -- > __________ > | | | |__| Maurilio Longo > |_|_|_|____| farmaconsult s.r.l. > > > > ---------------------------------------------------------------------- > --- > Check out the new SourceForge.net Marketplace. > It's the best place to buy or sell services for > just about anything Open Source. > http://sourceforge.net/services/buy/index.php > _______________________________________________ > xHarbour-developers mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/xharbour-developers > ------------------------------------------------------------------------- Check out the new SourceForge.net Marketplace. It's the best place to buy or sell services for just about anything Open Source. http://sourceforge.net/services/buy/index.php _______________________________________________ xHarbour-developers mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/xharbour-developers
