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 > ------------------------------------------------------------------------- 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
