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
