Re: [Harbour] Harbour Web site - Preview #1

2008-10-05 Thread Enrico Maria Giordano


-Messaggio Originale- 
Da: "Vailton Renato" <[EMAIL PROTECTED]>

A: 
Data invio: domenica 5 ottobre 2008 4.44
Oggetto: [Harbour] Harbour Web site - Preview #1



I used only HTML,


Plus Javascript for menu. :-)

EMG

--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Harbour Web site - Preview #1

2008-10-05 Thread Vailton Renato
Okay, this was a temporary adjustment into CSS just for this preview.
and yes, the JS was really necessary ... (But not PHP, ASP, etc. .. as
was suggested) =D
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Harbour website extremely slow

2008-10-05 Thread Enrico Maria Giordano
The Harbour website is extremely slow from here at the moment. Phil, can you 
check it, please?


EMG

--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic 


___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Harbour website extremely slow

2008-10-05 Thread Vailton Renato
This is the entire site or just the link above for preview?
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Harbour website extremely slow

2008-10-05 Thread Enrico Maria Giordano


-Messaggio Originale- 
Da: "Vailton Renato" <[EMAIL PROTECTED]>

A: "Harbour Project Main Developer List." 
Data invio: domenica 5 ottobre 2008 12.34
Oggetto: Re: [Harbour] Harbour website extremely slow



This is the entire site or just the link above for preview?


I check preview and main pages and both are slow.

EMG

--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


RE: [Harbour] Harbour Web site - Preview #1

2008-10-05 Thread Massimo Belgrano
Compliment!

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Vailton Renato
Sent: Sunday, October 05, 2008 4:44 AM
To: harbour@harbour-project.org
Subject: [Harbour] Harbour Web site - Preview #1

Hi all!

I am working in recent days in layout and in some texts to the site of
the project. I'm running with it to finish it as soon as possible.

As I have difficulty with English, any help or suggestions will be
welcome.

Here's a preview of what I am working:
http://harbour-project.org/preview/

I've been working on these days and has already set the layout of the
homepage, icons and menus on the site. I am starting work to place the
appropriate text as set out some details.

My next step will be put correct texts already on the pages.

I used only HTML, put a banner across the top of the site and other
details adjusted visual ... I hope and I expect comments like that.
---
Vailton Renato
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Harbour website extremely slow

2008-10-05 Thread Enrico Maria Giordano


-Messaggio Originale- 
Da: "Vailton Renato" <[EMAIL PROTECTED]>

A: "Harbour Project Main Developer List." 
Data invio: domenica 5 ottobre 2008 12.42
Oggetto: Re: [Harbour] Harbour website extremely slow



Ok.I have not updated any page on the site "official" because there
are still outstanding details ... may have been something temporary,
let's see.


Ok.

EMG

--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Harbour Web site - Preview #1

2008-10-05 Thread Francesco Saverio Giudice

Hi Renato,


Vailton Renato ha scritto:

Hi all!

I am working in recent days in layout and in some texts to the site of
the project. I'm running with it to finish it as soon as possible.

As I have difficulty with English, any help or suggestions will be welcome.

Here's a preview of what I am working:
http://harbour-project.org/preview/

I've been working on these days and has already set the layout of the
homepage, icons and menus on the site. I am starting work to place the
appropriate text as set out some details.

My next step will be put correct texts already on the pages.

I used only HTML, put a banner across the top of the site and other
details adjusted visual ... I hope and I expect comments like that.



Very good.

Just one note.
There are 4 images missing as defined in css:
/images/table-azul-top-left.gif
/images/table-azul-top-right.gif
/images/table-azul-bottom-right.gif
/images/table-azul-bottom-left.gif


Best regards

Francesco
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Harbour website extremely slow

2008-10-05 Thread Enrico Maria Giordano


-Messaggio Originale- 
Da: "Vailton Renato" <[EMAIL PROTECTED]>

A: "Harbour Project Main Developer List." 
Data invio: domenica 5 ottobre 2008 12.42
Oggetto: Re: [Harbour] Harbour website extremely slow



Ok.I have not updated any page on the site "official" because there
are still outstanding details ... may have been something temporary,
let's see.


It's already better now.

EMG

--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Harbour website extremely slow

2008-10-05 Thread Vailton Renato
Ok.I have not updated any page on the site "official" because there
are still outstanding details ... may have been something temporary,
let's see.
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Unrecoverable error 9001 and gui apps

2008-10-05 Thread [EMAIL PROTECTED]
Hi ppl,

I have my own errorsys, because I'm using FWH, but 9001 error simple
break my application, without call ErrorDialog().

---cut---
procedure ErrorSys()
  ErrorBlock( { | oError | ErrorDialog( oError ) } )
return
---cut---

How I can manipulate 9001 error please ?

TIA and best regards,

Toninho.

__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] 2008-10-05 15:53 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

2008-10-05 Thread Przemyslaw Czerpak
2008-10-05 15:53 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
  * harbour/source/vm/thread.c
! fixed hb_mutexSubscribe*() in ST mode

best regards
Przemek
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] 2008-10-05 15:56 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

2008-10-05 Thread Szakáts Viktor
2008-10-05 15:56 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
  * include/hbpers.ch
  * source/rtl/perfuncs.prg
  * source/rtl/objfunc.prg
  * source/rtl/tlabel.prg
  * source/rtl/setta.prg
  * source/rtl/dirscan.prg
  * source/rtl/tthreadx.prg
  * source/rtl/setfunc.prg
  * source/rtl/readvar.prg
  * source/rtl/tclass.prg
  * source/rtl/ttextlin.prg
  * source/rtl/profiler.prg
  * source/rtl/treport.prg
  * source/rtl/tgetint.prg
  * source/rtl/persist.prg
  * source/rtl/altd.prg
  * source/rtl/devoutp.prg
  * source/rdd/usrrdd/example/exmemo.prg
  * source/rdd/usrrdd/example/exhsx.prg
  * source/rdd/usrrdd/example/exfcm.prg
  * source/rdd/usrrdd/example/exrlx.prg
  * source/rdd/usrrdd/rdds/dbtcdx.prg
  * source/rdd/usrrdd/rdds/fptcdx.prg
  * source/rdd/usrrdd/rdds/arrayrdd.prg
  * source/rdd/usrrdd/rdds/hscdx.prg
  * source/rdd/usrrdd/rdds/rlcdx.prg
  * source/rdd/usrrdd/rdds/fcomma.prg
  * source/rdd/usrrdd/rdds/smtcdx.prg
* Formatting. Basically finished.

  * include/hbextern.ch
! Added two missing functions.
--
Brgds,
Viktor

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Warnings under Ubuntu 8.04 gcc 4.2.3

2008-10-05 Thread Lorenzo Fiorini
I'm building svn 9548 under Ubuntu 8.04 i386 using gcc version 4.2.3
(Ubuntu 4.2.3-2ubuntu7) and I get:

../../ppcore.c: In function 'hb_pp_tokenFree':
../../ppcore.c:369: warning: passing argument 1 of 'hb_xfree' discards
qualifiers from pointer target type
../../ppcore.c: In function 'hb_pp_operatorsFree':
../../ppcore.c:255: warning: passing argument 1 of 'hb_xfree' discards
qualifiers from pointer target type
../../ppcore.c:256: warning: passing argument 1 of 'hb_xfree' discards
qualifiers from pointer target type
../../ppcore.c: In function 'hb_pp_tokenSetValue':
../../ppcore.c:494: warning: passing argument 1 of 'hb_xfree' discards
qualifiers from pointer target type
../../ppcore.c: In function 'hb_pp_tokenUpper':
../../ppcore.c:5728: warning: passing argument 1 of 'hb_xfree'
discards qualifiers from pointer target type
../../ppcore.c:5768: warning: passing argument 1 of 'hb_xfree'
discards qualifiers from pointer target type

best regards,
Lorenzo
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Harbour Web site - Preview #1

2008-10-05 Thread Szakáts Viktor

Hi Renato,

Very nice, thanks.

I'm missing two things on first spot, the crew list and
announcement of 1.0.1 (but that was missing from the original
page too.)

Brgds,
Viktor

On 2008.10.05., at 4:44, Vailton Renato wrote:


Hi all!

I am working in recent days in layout and in some texts to the site of
the project. I'm running with it to finish it as soon as possible.

As I have difficulty with English, any help or suggestions will be  
welcome.


Here's a preview of what I am working:
http://harbour-project.org/preview/

I've been working on these days and has already set the layout of the
homepage, icons and menus on the site. I am starting work to place the
appropriate text as set out some details.

My next step will be put correct texts already on the pages.

I used only HTML, put a banner across the top of the site and other
details adjusted visual ... I hope and I expect comments like that.
---
Vailton Renato
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] 2008-10-05 17:53 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

2008-10-05 Thread Przemyslaw Czerpak
2008-10-05 17:53 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
  * harbour/tests/speedtst.prg
+ added support for --scale switch - it enables special mode
  which compare scalability, f.e.:
 ./speedtst --thread=4 --scale
  executes each test loop 4 times by single thread then
  by 4 simultaneous threads, counts total real times in both
  cases and presents them with the scale factor.
  Please note that exactly the same loop tests are executed
  simultaneously so this test should well show all places which
  are not well scalable.
  This test allows me to locate yet another memory variable written by
  each thread on each function call just like uiPolls in main HVM loop.
  It's s_bDebugging which is not used in MT mode because we do not have
  any MT debugger yet but is was effectively killing the scalability
  in my hardware.
  If possible I would like to see some Windows results from multi CPU
  machine with --scale parameter, f.e.:
 speedtst --thread=8 --scale > speedtst.log
  Please make some tests.

  * harbour/source/vm/hvm.c
% do not assign s_bDebugging in hb_vmDo()/hb_vmSend() when debugger
  is not linked

  * harbour/source/vm/garbage.c
% enabled spinlocks in all x86 GCC builds

best regards
Przemek
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] 2008-10-05 18:46 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

2008-10-05 Thread Szakáts Viktor
2008-10-05 18:46 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
  * contrib/hbwin/win_ole.c
  * source/rtl/wait.prg
  * source/rtl/tthreadx.prg
* Minor formatting.
--
Brgds,
Viktor

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] harbour-project.org anon FTP

2008-10-05 Thread Szakáts Viktor

Hi Phil,

May I suggest shutting down anonymous FTP uploads
on our FTP?

Actually the best would be to turn off FTP for our
site completely. We're not using it, but internet
users do, as used to find adult content in the 'incoming'
dir.

Brgds,
Viktor

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] MSVS 2008 ST/MT/MT+ results w STDALLOC/DLMALLOC/DLMALLOC 2.8.4

2008-10-05 Thread Przemyslaw Czerpak
On Sun, 05 Oct 2008, Szak�ts Viktor wrote:

Hi Viktor,

> Pls find results attached.
> [ Update: I've included tests with "not-yet-released" dlmalloc.
> This will give the best results in MT+ mode, but slightly worse
> results with MT/ST modes, so I guess its switches would need to
> be tweaked for hbvmmt.lib vs hbvm.lib. ]

Thank you very much.
I've just changed speedtst and now it's possible to check scalability
in simple test which should well show poor scalable places.
Because it executes exactly the same loop test simultaneously without
any other code then it should show as performance reduction even empty
mutex calls.
Please try to make test like:
   speedtst --threads=4 --scale
and you will see what is not well scalable.

In my computer for current HVM
   ./speedtst --thread=3 --scale --exclude=mem
gives:

10/05/08 18:47:29 Linux 2.6.25.11-0.1-pae i686
Harbour 1.1.0dev (Rev. 9535) (MT)+ GNU C 4.3.1 (32 bit)
THREADS: 3
N_LOOPS: 100
excluded tests: 029 030 023 025 027 040 041 043 052 053 019 022 031 032 
  1 th.  3 th.  factor
==
[ T001: x := L_C ]__  0.27   0.10 ->  2.79
[ T002: x := L_N ]__  0.22   0.07 ->  3.03
[ T003: x := L_D ]__  0.22   0.07 ->  2.97
[ T004: x := S_C ]__  0.32   0.37 ->  0.88
[ T005: x := S_N ]__  0.28   0.09 ->  2.93
[ T006: x := S_D ]__  0.29   0.10 ->  2.97
[ T007: x := M_C ]__  0.37   0.12 ->  2.99
[ T008: x := M_N ]__  0.33   0.11 ->  2.99
[ T009: x := M_D ]__  0.33   0.11 ->  2.96
[ T010: x := P_C ]__  0.37   0.12 ->  3.01
[ T011: x := P_N ]__  0.33   0.12 ->  2.77
[ T012: x := P_D ]__  0.33   0.11 ->  2.97
[ T013: x := F_C ]__  0.73   0.27 ->  2.77
[ T014: x := F_N ]__  0.87   0.34 ->  2.54
[ T015: x := F_D ]__  0.48   0.16 ->  3.01
[ T016: x := o:GenCode ]  0.84   0.27 ->  3.10
[ T017: x := o[8] ]_  0.51   0.17 ->  3.01
[ T018: round( i / 1000, 2 ) ]__  1.03   0.37 ->  2.76
[ T020: val( s ) ]__  1.11   0.37 ->  2.98
[ T021: val( a [ i % 16 + 1 ] ) ]___  1.80   0.59 ->  3.05
[ T024: eval( bc := { || i % 16 } ) ]___  1.21   0.52 ->  2.34
[ T026: eval( bc := { |x| x % 16 }, i ) ]___  1.23   0.42 ->  2.91
[ T028: eval( bc := { |x| f1( x ) }, i ) ]__  1.51   0.54 ->  2.81
[ T033: x := a[ i % 16 + 1 ] == s ]_  1.21   0.45 ->  2.69
[ T034: x := a[ i % 16 + 1 ] = s ]__  1.34   0.49 ->  2.71
[ T035: x := a[ i % 16 + 1 ] >= s ]_  1.36   0.49 ->  2.76
[ T036: x := a[ i % 16 + 1 ] <= s ]_  1.35   0.54 ->  2.49
[ T037: x := a[ i % 16 + 1 ] < s ]__  1.32   0.50 ->  2.62
[ T038: x := a[ i % 16 + 1 ] > s ]__  1.36   0.46 ->  2.97
[ T039: ascan( a, i % 16 ) ]  1.46   0.49 ->  2.97
[ T042: x := a ]  0.29   0.10 ->  2.89
[ T044: f0() ]__  0.55   0.18 ->  3.00
[ T045: f1( i ) ]___  0.67   0.25 ->  2.63
[ T046: f2( c[1...8] ) ]  0.67   0.23 ->  2.95
[ T047: f2( c[1...4] ) ]  0.67   0.22 ->  2.97
[ T048: f2( @c[1...4] ) ]___  0.67   0.22 ->  2.97
[ T049: f2( @c[1...4] ), c2 := c ]__  0.77   0.26 ->  2.96
[ T050: f3( a, a2, s, i, s2, bc, i, n, x ) ]  1.61   0.57 ->  2.83
[ T051: f2( a ) ]___  0.69   0.23 ->  2.95
[ T054: f_prv( c ) ]  1.86   0.65 ->  2.86
==
[   TOTAL   ]___ 32.85  11.89 ->  2.76
==
[ total application time: ]66.90
[ total real time: ]...44.74

so the results are very close to number of CPUs - I've got 3 ones.
These are very similar results to pure C code I tested.
In this test we use only real time returned by seconds() functions
so we also calculate OS and other process activity reducing the
factor because such overhead is smaller when only one CPU is used
by us and rest can be used for other task.

Please also look at this:

   [ T004: x := S_C ]___  0.32   0.37 ->  0.88

In this test exactly the same reference counter for string in S_C is
increased and decreased by different threads. In my computer when many
threads writes to the same memory

Re: [Harbour] Harbour Web site - Preview #1

2008-10-05 Thread Vailton Renato
Hi Viktor,

Okay, you have the updated list of the crew? Or where can i find this?
Vailton Renato
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] 2008-10-05 17:53 UTC+0200 Przemyslaw Czerpak(druzus/at/priv.onet.pl)

2008-10-05 Thread Enrico Maria Giordano


-Messaggio Originale- 
Da: "Przemyslaw Czerpak" <[EMAIL PROTECTED]>

A: 
Data invio: domenica 5 ottobre 2008 17.53
Oggetto: [Harbour] 2008-10-05 17:53 UTC+0200 Przemyslaw 
Czerpak(druzus/at/priv.onet.pl)




 If possible I would like to see some Windows results from multi CPU
 machine with --scale parameter, f.e.:
speedtst --thread=8 --scale > speedtst.log
 Please make some tests.


E:\HARBOUR>speedtst --thread=8 --scale

10/05/08 19:12:22 Windows XP 5.1.2600 Service Pack 3
Harbour 1.1.0dev (Rev. 9550) (MT)+ Borland C++ 5.5.1 (32 bit)
THREADS: 8
N_LOOPS: 100
   1 th.  8 th.  factor

[ T001: x := L_C ]  1.67   0.88 ->  1.91
[ T002: x := L_N ]  1.25   0.63 ->  2.00
[ T003: x := L_D ]  1.22   0.64 ->  1.90
[ T004: x := S_C ]  2.09   1.39 ->  1.51
[ T005: x := S_N ]  1.61   0.83 ->  1.94
[ T006: x := S_D ]  1.61   0.84 ->  1.91
[ T007: x := M_C ]  2.28   1.23 ->  1.85
[ T008: x := M_N ]  1.83   0.92 ->  1.98
[ T009: x := M_D ]  1.83   0.92 ->  1.98
[ T010: x := P_C ]  1.86   0.97 ->  1.92
[ T011: x := P_N ]  1.81   0.92 ->  1.97
[ T012: x := P_D ]  1.81   0.95 ->  1.90
[ T013: x := F_C ]  3.75   4.84 ->  0.77
[ T014: x := F_N ]  3.13   1.58 ->  1.98
[ T015: x := F_D ]  2.17   1.13 ->  1.93
[ T016: x := o:GenCode ]__  4.09   2.11 ->  1.94
[ T017: x := o[8] ]___  3.23   1.67 ->  1.93
[ T018: round( i / 1000, 2 ) ]  4.08   2.06 ->  1.98
[ T019: str( i / 1000 ) ]_ 10.26   8.00 ->  1.28
[ T020: val( s ) ]  4.52   2.44 ->  1.85
[ T021: val( a [ i % 16 + 1 ] ) ]_  7.95   4.09 ->  1.94
[ T022: dtos( d - i % 1 ) ]___  7.75   5.94 ->  1.31
[ T023: eval( { || i % 16 } ) ]___ 10.61  20.06 ->  0.53
[ T024: eval( bc := { || i % 16 } ) ]_  5.24   2.67 ->  1.96
[ T025: eval( { |x| x % 16 }, i ) ]___  8.01  34.88 ->  0.23
[ T026: eval( bc := { |x| x % 16 }, i ) ]_  5.47   2.81 ->  1.94
[ T027: eval( { |x| f1( x ) }, i ) ]__  9.66  45.31 ->  0.21
[ T028: eval( bc := { |x| f1( x ) }, i ) ]  7.11   3.59 ->  1.98
[ T029: x := &( "f1(" + str(i) + ")" ) ]__ 43.76  52.08 ->  0.84
[ T030: bc := &( "{|x|f1(x)}" ); eval( bc, i ) ]__ 54.34  73.08 ->  0.74
[ T031: x := valtype( x ) +  valtype( i ) ]___  8.55   5.25 ->  1.63
[ T032: x := strzero( i % 100, 2 ) $ a[ i % 16 + 1 ] ] 14.16   8.73 ->  1.62
[ T033: x := a[ i % 16 + 1 ] == s ]___  6.59   3.42 ->  1.93
[ T034: x := a[ i % 16 + 1 ] = s ]  7.09   3.58 ->  1.98
[ T035: x := a[ i % 16 + 1 ] >= s ]___  7.13   3.69 ->  1.93
[ T036: x := a[ i % 16 + 1 ] <= s ]___  7.02   3.61 ->  1.94
[ T037: x := a[ i % 16 + 1 ] < s ]  7.05   3.64 ->  1.94
[ T038: x := a[ i % 16 + 1 ] > s ]  7.00   3.58 ->  1.96
[ T039: ascan( a, i % 16 ) ]__  6.09   3.14 ->  1.94
[ T040: ascan( a, { |x| x == i % 16 } ) ]_ 56.69  33.28 ->  1.70
[ T041: if i%1000==0;a:={};end; aadd(a,{i,1,.T.,s,s2 ] 20.73  47.44 ->  0.44
[ T042: x := a ]__  1.78   0.97 ->  1.84
[ T043: x := {} ]_  4.26  32.91 ->  0.13
[ T044: f0() ]  2.11   1.13 ->  1.88
[ T045: f1( i ) ]_  3.06   1.58 ->  1.94
[ T046: f2( c[1...8] ) ]__  3.22   1.74 ->  1.86
[ T047: f2( c[1...4] ) ]__  3.20   1.63 ->  1.97
[ T048: f2( @c[1...4] ) ]_  3.23   1.64 ->  1.97
[ T049: f2( @c[1...4] ), c2 := c ]  3.36   1.69 ->  1.99
[ T050: f3( a, a2, s, i, s2, bc, i, n, x ) ]__  9.63   5.03 ->  1.91
[ T051: f2( a ) ]_  3.30   1.69 ->  1.95
[ T052: x := f4() ]___ 38.06  43.86 ->  0.87
[ T053: x := f5() ]___  6.58   4.63 ->  1.42
[ T054: f_prv( c ) ]__  9.31   6.44 ->  1.45

[   TOTAL   

Re: [Harbour] Harbour Web site - Preview #1

2008-10-05 Thread Szakáts Viktor

Hi Renato,

You can find the crew page here:
http://harbour-project.org/crew.htm

Brgds,
Viktor

On 2008.10.05., at 19:30, Vailton Renato wrote:


Hi Viktor,

Okay, you have the updated list of the crew? Or where can i find this?
Vailton Renato
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] 2008-10-05 17:53 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

2008-10-05 Thread Pritpal Bedi

Results:

10/05/08 09:50:08 Windows XP 5.1.2600 Service Pack 2
Harbour 1.1.0dev (Rev. 9549) (MT)+ Borland C++ 5.5.1 (32 bit)
N_LOOPS: 100


 _1.th  _8.th factor_1.th  _4.th factor
    =  ==
 _2.34  _4.77 ->  0.49_1.14  _2.33 ->  0.49   [ T001: x := L_C ]
 _1.94  _5.25 ->  0.37_0.95  _1.95 ->  0.49   [ T002: x := L_N ]
 _1.91  _4.06 ->  0.47_0.94  _1.97 ->  0.48   [ T003: x := L_D ]
 _2.33  _4.39 ->  0.53_1.17  _2.05 ->  0.57   [ T004: x := S_C ]
 _1.89  _4.03 ->  0.47_0.94  _1.78 ->  0.53   [ T005: x := S_N ]
 _1.95  _4.00 ->  0.49_0.97  _1.94 ->  0.50   [ T006: x := S_D ]
 _2.47  _4.67 ->  0.53_1.27  _2.26 ->  0.56   [ T007: x := M_C ]
 _2.05  _4.03 ->  0.51_1.02  _1.98 ->  0.51   [ T008: x := M_N ]
 _2.03  _4.03 ->  0.50_1.03  _1.91 ->  0.54   [ T009: x := M_D ]
 _2.11  _4.17 ->  0.51_1.16  _2.08 ->  0.56   [ T010: x := P_C ]
 _2.05  _4.05 ->  0.51_1.03  _1.95 ->  0.53   [ T011: x := P_N ]
 _2.05  _4.06 ->  0.50_1.05  _1.94 ->  0.54   [ T012: x := P_D ]
 _3.89  _5.89 ->  0.66_1.97  _2.88 ->  0.68   [ T013: x := F_C ]
 _3.28  _3.53 ->  0.93_1.63  _1.75 ->  0.93   [ T014: x := F_N ]
 _2.34  _4.09 ->  0.57_1.19  _2.00 ->  0.59   [ T015: x := F_D ]
 _4.24  _5.13 ->  0.83_2.11  _2.47 ->  0.85   [ T016: x := o:GenCode ]
 _3.50  _5.83 ->  0.60_1.74  _2.41 ->  0.72   [ T017: x := o[8] ]
 _4.58  _3.91 ->  1.17_2.27  _1.75 ->  1.29   [ T018: round( i / 1000, 2
) ]
 _9.59  10.20 ->  0.94_4.77  _5.78 ->  0.82   [ T019: str( i / 1000 ) ]
 _4.50  _3.02 ->  1.49_2.27  _1.45 ->  1.56   [ T020: val( s ) ]
 _7.97  _8.09 ->  0.98_3.99  _3.95 ->  1.01   [ T021: val( a [ i % 16 +
1 ] ) ]
 _7.72  _6.50 ->  1.19_3.80  _3.33 ->  1.14   [ T022: dtos( d - i %
1 ) ]
 _9.86  38.39 ->  0.26_4.89  28.09 ->  0.17   [ T023: eval( { || i % 16
} ) ]
 _5.00  _7.63 ->  0.66_2.53  _3.67 ->  0.69   [ T024: eval( bc := { || i
% 16 } ) ]
 _7.91  50.27 ->  0.16_3.89  19.39 ->  0.20   [ T025: eval( { |x| x % 16
}, i ) ]
 _5.80  _8.59 ->  0.67_2.86  _4.19 ->  0.68   [ T026: eval( bc := { |x|
x % 16 }, i ) ]
 _9.67  50.03 ->  0.19_4.88  23.83 ->  0.20   [ T027: eval( { |x| f1( x
) }, i ) ]
 _7.53  11.28 ->  0.67_3.75  _5.36 ->  0.70   [ T028: eval( bc := { |x|
f1( x ) }, i ) ]
 42.44  63.16 ->  0.6721.55  31.52 ->  0.68   [ T029: x := &( "f1(" +
str(i) + ")" ) ]
 54.95  86.47 ->  0.6427.41  43.08 ->  0.64   [ T030: bc := &(
"{|x|f1(x)}" ); eval( bc, i ) ]
 _8.72  10.16 ->  0.86_4.42  _5.19 ->  0.85   [ T031: x := valtype( x )
+  valtype( i ) ]
 13.81  11.58 ->  1.19_7.02  _6.17 ->  1.14   [ T032: x := strzero( i %
100, 2 ) $ a[ i % 16 + 1 ]
 _6.91  11.39 ->  0.61_3.42  _5.55 ->  0.62   [ T033: x := a[ i % 16 + 1
] == s ]
 _7.30  10.92 ->  0.67_3.66  _5.41 ->  0.68   [ T034: x := a[ i % 16 + 1
] = s ]
 _7.31  10.78 ->  0.68_3.69  _5.28 ->  0.70   [ T035: x := a[ i % 16 + 1
] >= s ]
 _7.30  10.73 ->  0.68_3.89  _5.20 ->  0.75   [ T036: x := a[ i % 16 + 1
] <= s ]
 _7.31  10.76 ->  0.68_3.75  _5.33 ->  0.70   [ T037: x := a[ i % 16 + 1
] < s ]
 _7.31  10.76 ->  0.68_3.76  _5.31 ->  0.71   [ T038: x := a[ i % 16 + 1
] > s ]
 _6.06  _5.98 ->  1.01_3.09  _2.92 ->  1.06   [ T039: ascan( a, i % 16 )
]
 54.78  49.03 ->  1.12_8.74  25.19 ->  1.14   [ T040: ascan( a, { |x| x
== i % 16 } ) ]
 20.95  35.94 ->  0.58_0.61  16.73 ->  0.63   [ T041: if
i%1000==0;a:={};end; aadd(a,{i,1,.T.,s,s2
 _2.39  _4.81 ->  0.50_1.17  _2.36 ->  0.50   [ T042: x := a ]
 _4.49  43.53 ->  0.10_2.24  23.19 ->  0.10   [ T043: x := {} ]
 _2.36  _5.06 ->  0.47_1.16  _2.34 ->  0.49   [ T044: f0() ]
 _3.63  _7.84 ->  0.46_1.83  _3.78 ->  0.48   [ T045: f1( i ) ]
 _3.55  _7.51 ->  0.47_1.75  _3.28 ->  0.53   [ T046: f2( c[1...8] ) ]
 _3.55  _7.72 ->  0.46_1.76  _3.59 ->  0.49   [ T047: f2( c[1...4]
)]
 _3.55  _7.70 ->  0.46_1.75  _3.63 ->  0.48   [ T048: f2( @c[1...4]
) ]
 _4.25  _9.14 ->  0.46_2.06  _4.58 ->  0.45   [ T049: f2( @c[1...4]
), c2 := c ]
 10.09  14.63 ->  0.69_5.03  _7.30 ->  0.69   [ T050: f3( a, a2, s, i,
s2, bc, i, n, x ) ]
 _3.61  _7.63 ->  0.47_1.77  _3.69 ->  0.48   [ T051: f2( a ) ]
 11.44  13.08 ->  0.87_5.97  _6.61 ->  0.90   [ T052: x := f4() ]
 _6.98  _9.16 ->  0.76_3.44  _4.47 ->  0.77   [ T053: x := f5() ]
 10.09  12.58 ->  0.80_5.11  _6.23 ->  0.82   [ T054: f_prv( c ) ]
=      ===
437.61 751.95 -> 0.58  221.20 374.35 -> 0.59   [   TOTAL   ]
=      ===
...1740.97   828.50
...1189.58   595.59

Regards
Pritpal Bedi

PS : I think how the figures are displayed be be changed as above
because of non-proportional fonts on browsers. If you agree I can commit.


-- 
View this message in context: 
http://www.nabble.com/2008-

[Harbour] 2008-10-05 20:10 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

2008-10-05 Thread Szakáts Viktor
2008-10-05 20:10 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
   * common.mak
   * source/rtl/Makefile
   - source/rtl/persist.prg
   + source/rtl/tpersist.prg
   - source/rtl/symbol.prg
   + source/rtl/tsymbol.prg
   * source/rtl/achoice.prg
   * source/rtl/browse.prg
   * source/rtl/dbedit.prg
   * source/rtl/dircmd.prg
   * source/rtl/einstv52.prg
   * source/rtl/einstvar.prg
   * source/rtl/hbini.prg
   * source/rtl/tbrowse.prg
   * source/rtl/tclass.prg
   * source/rtl/tget.prg
   * source/rtl/tgetint.prg
   * source/rtl/tlabel.prg
   * source/rtl/tobject.prg
   * source/rtl/treport.prg
   * source/rtl/typefile.prg
   * source/rtl/valtoexp.prg
   * source/rdd/usrrdd/example/exhsx.prg
   * source/rdd/usrrdd/example/exfcm.prg
   * source/rdd/usrrdd/rdds/hscdx.prg
 * Some formattings and cleanup.

   * source/rtl/tclass.prg
 % ValType() optimizations.

   * source/rtl/tlabel.prg
   * source/rtl/treport.prg
 * Trim() -> RTrim()

   * source/rtl/treport.prg
 ! Hard-coded Chr(13)+Chr(10) fixed in treport.prg.
--
Brgds,
Viktor

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] 2008-10-05 17:53 UTC+0200 Przemyslaw Czerpak(druzus/at/priv.onet.pl)

2008-10-05 Thread Przemyslaw Czerpak
On Sun, 05 Oct 2008, Enrico Maria Giordano wrote:

Hi Enrico,

> E:\HARBOUR>speedtst --thread=8 --scale
> 10/05/08 19:12:22 Windows XP 5.1.2600 Service Pack 3
> Harbour 1.1.0dev (Rev. 9550) (MT)+ Borland C++ 5.5.1 (32 bit)
> THREADS: 8
> N_LOOPS: 100
>1 th.  8 th.  factor
> 
> [ T001: x := L_C ]  1.67   0.88 ->  1.91
> [ T002: x := L_N ]  1.25   0.63 ->  2.00
> [ T003: x := L_D ]  1.22   0.64 ->  1.90
> [ T004: x := S_C ]  2.09   1.39 ->  1.51
> [ T005: x := S_N ]  1.61   0.83 ->  1.94
> [ T006: x := S_D ]  1.61   0.84 ->  1.91
> [ T007: x := M_C ]  2.28   1.23 ->  1.85
> [ T008: x := M_N ]  1.83   0.92 ->  1.98
> [ T009: x := M_D ]  1.83   0.92 ->  1.98
> [ T010: x := P_C ]  1.86   0.97 ->  1.92
> [ T011: x := P_N ]  1.81   0.92 ->  1.97
> [ T012: x := P_D ]  1.81   0.95 ->  1.90
> [ T013: x := F_C ]  3.75   4.84 ->  0.77
> [ T014: x := F_N ]  3.13   1.58 ->  1.98
> [ T015: x := F_D ]  2.17   1.13 ->  1.93
> [ T016: x := o:GenCode ]__  4.09   2.11 ->  1.94
> [ T017: x := o[8] ]___  3.23   1.67 ->  1.93
> [ T018: round( i / 1000, 2 ) ]  4.08   2.06 ->  1.98
> [ T019: str( i / 1000 ) ]_ 10.26   8.00 ->  1.28
> [ T020: val( s ) ]  4.52   2.44 ->  1.85
> [ T021: val( a [ i % 16 + 1 ] ) ]_  7.95   4.09 ->  1.94
> [ T022: dtos( d - i % 1 ) ]___  7.75   5.94 ->  1.31
> [ T023: eval( { || i % 16 } ) ]___ 10.61  20.06 ->  0.53
> [ T024: eval( bc := { || i % 16 } ) ]_  5.24   2.67 ->  1.96
> [ T025: eval( { |x| x % 16 }, i ) ]___  8.01  34.88 ->  0.23
> [ T026: eval( bc := { |x| x % 16 }, i ) ]_  5.47   2.81 ->  1.94
> [ T027: eval( { |x| f1( x ) }, i ) ]__  9.66  45.31 ->  0.21
> [ T028: eval( bc := { |x| f1( x ) }, i ) ]  7.11   3.59 ->  1.98
> [ T029: x := &( "f1(" + str(i) + ")" ) ]__ 43.76  52.08 ->  0.84
> [ T030: bc := &( "{|x|f1(x)}" ); eval( bc, i ) ]__ 54.34  73.08 ->  0.74
> [ T031: x := valtype( x ) +  valtype( i ) ]___  8.55   5.25 ->  1.63
> [ T032: x := strzero( i % 100, 2 ) $ a[ i % 16 + 1 ] ] 14.16   8.73 ->  1.62
> [ T033: x := a[ i % 16 + 1 ] == s ]___  6.59   3.42 ->  1.93
> [ T034: x := a[ i % 16 + 1 ] = s ]  7.09   3.58 ->  1.98
> [ T035: x := a[ i % 16 + 1 ] >= s ]___  7.13   3.69 ->  1.93
> [ T036: x := a[ i % 16 + 1 ] <= s ]___  7.02   3.61 ->  1.94
> [ T037: x := a[ i % 16 + 1 ] < s ]  7.05   3.64 ->  1.94
> [ T038: x := a[ i % 16 + 1 ] > s ]  7.00   3.58 ->  1.96
> [ T039: ascan( a, i % 16 ) ]__  6.09   3.14 ->  1.94
> [ T040: ascan( a, { |x| x == i % 16 } ) ]_ 56.69  33.28 ->  1.70
> [ T041: if i%1000==0;a:={};end; aadd(a,{i,1,.T.,s,s2 ] 20.73  47.44 ->  0.44
> [ T042: x := a ]__  1.78   0.97 ->  1.84
> [ T043: x := {} ]_  4.26  32.91 ->  0.13
> [ T044: f0() ]  2.11   1.13 ->  1.88
> [ T045: f1( i ) ]_  3.06   1.58 ->  1.94
> [ T046: f2( c[1...8] ) ]__  3.22   1.74 ->  1.86
> [ T047: f2( c[1...4] ) ]__  3.20   1.63 ->  1.97
> [ T048: f2( @c[1...4] ) ]_  3.23   1.64 ->  1.97
> [ T049: f2( @c[1...4] ), c2 := c ]  3.36   1.69 ->  1.99
> [ T050: f3( a, a2, s, i, s2, bc, i, n, x ) ]__  9.63   5.03 ->  1.91
> [ T051: f2( a ) ]_  3.30   1.69 ->  1.95
> [ T052: x := f4() ]___ 38.06  43.86 ->  0.87
> [ T053: x := f5() ]___  6.58   4.63 ->  1.42
> [ T054: f_prv( c ) ]__  9.31   6.44 ->  1.45
> 
> [   TOTAL   ]_455.22 503.73 ->  0.90
> 
> [ total application time: ]..1311.17
> [ total rea

Re: [Harbour] MSVS 2008 ST/MT/MT+ results w STDALLOC/DLMALLOC/DLMALLOC 2.8.4

2008-10-05 Thread Szakáts Viktor

Hi Przemek,

Here are my 'speedtst --threads=4 --scale' and
'speedtst --threads=4 --scale --exclude=mem' results
respectively (I've used the default DLMALLOC):

Harbour Build Info
---
Version: Harbour 1.1.0dev (Rev. 9550)
PCode version: 0.2
Compiler: Microsoft Visual C 15.0.26569 (32 bit)
Platform: Windows XP 5.1.2600 Service Pack 3

Built on: Oct  5 2008 19:48:31
Last ChangeLog entry: 2008-10-05 18:46 UTC+0200 Viktor Szakats  
(harbour.01 syenar hu)

ChangeLog SVN version: ChangeLog 9550 2008-10-05 16:47:14Z vszakats
Extra Harbour compiler switches: -l -gc3
Extra C compiler switches: -DHB_NO_DEBUG -DHB_FM_STATISTICS_OFF
Other build settings: (C mode)

Clipper 5.3b compatible extensions: yes
Clipper 5.2e/5.3b compatible undocumented: yes
Clipper 5.2e/5.3b strict compatibility: no
Xbase++ compatible extensions: yes
FlagShip compatible extensions: yes
Visual Objects compatible extensions: no
FoxPro compatible extensions: no
dBase compatible extensions: no
CLIP compatible extensions: no
Non-portable Harbour extensions: no
Profiler: off
Memory tracing and statistics: off
Maximum symbol name length: 63
---

10/05/08 21:00:17 Windows XP 5.1.2600 Service Pack 3
Harbour 1.1.0dev (Rev. 9550) (MT)+ Microsoft Visual C 15.0.26569 (32  
bit)

THREADS: 4
N_LOOPS: 100
1 th.  4 th.   
factor
= 
= 
= 
= 

[ T001: x := L_C ]  0.73   0.78 - 
>  0.94
[ T002: x := L_N ]  0.28   0.50 - 
>  0.56
[ T003: x := L_D ]  0.30   0.48 - 
>  0.61
[ T004: x := S_C ]  0.74   0.81 - 
>  0.91
[ T005: x := S_N ]  0.31   0.56 - 
>  0.56
[ T006: x := S_D ]  0.31   0.55 - 
>  0.57
[ T007: x := M_C ]  0.83   0.98 - 
>  0.84
[ T008: x := M_N ]  0.41   0.74 - 
>  0.55
[ T009: x := M_D ]  0.42   0.72 - 
>  0.59
[ T010: x := P_C ]  0.53   0.78 - 
>  0.68
[ T011: x := P_N ]  0.41   0.72 - 
>  0.56
[ T012: x := P_D ]  0.42   0.72 - 
>  0.59
[ T013: x := F_C ]  2.14   2.30 - 
>  0.93
[ T014: x := F_N ]  1.55   1.72 - 
>  0.90
[ T015: x := F_D ]  0.89   0.97 - 
>  0.92
[ T016: x := o:GenCode ]__  1.47   1.92 - 
>  0.76
[ T017: x := o[8] ]___  1.13   1.22 - 
>  0.92
[ T018: round( i / 1000, 2 ) ]  1.36   1.80 - 
>  0.76
[ T019: str( i / 1000 ) ]_  3.80   4.66 - 
>  0.82
[ T020: val( s ) ]  2.13   2.86 - 
>  0.74
[ T021: val( a [ i % 16 + 1 ] ) ]_  4.26   4.24 - 
>  1.01
[ T022: dtos( d - i % 1 ) ]___  3.66   3.73 - 
>  0.98
[ T023: eval( { || i % 16 } ) ]___  6.92  12.66 - 
>  0.55
[ T024: eval( bc := { || i % 16 } ) ]_  2.24   2.63 - 
>  0.85
[ T025: eval( { |x| x % 16 }, i ) ]___  4.47  11.05 - 
>  0.40
[ T026: eval( bc := { |x| x % 16 }, i ) ]_  2.25   2.41 - 
>  0.93
[ T027: eval( { |x| f1( x ) }, i ) ]__  4.72  25.11 - 
>  0.19
[ T028: eval( bc := { |x| f1( x ) }, i ) ]  2.28   2.69 - 
>  0.85
[ T029: x := &( "f1(" + str(i) + ")" ) ]__ 26.72  43.86 - 
>  0.61
[ T030: bc := &( "{|x|f1(x)}" ); eval( bc, i ) ]__ 32.88  53.64 - 
>  0.61
[ T031: x := valtype( x ) +  valtype( i ) ]___  3.86   4.53 - 
>  0.85
[ T032: x := strzero( i % 100, 2 ) $ a[ i % 16 + 1 ] ]  5.67   6.83 - 
>  0.83
[ T033: x := a[ i % 16 + 1 ] == s ]___  2.76   2.91 - 
>  0.95
[ T034: x := a[ i % 16 + 1 ] = s ]  2.89   3.17 - 
>  0.91
[ T035: x := a[ i % 16 + 1 ] >= s ]___  2.92   3.17 - 
>  0.92
[ T036: x := a[ i % 16 + 1 ] <= s ]___  2.89   3.19 - 
>  0.91
[ T037: x := a[ i % 16 + 1 ] < s ]  2.92   3.17 - 
>  0.92
[ T038: x := a[ i % 16 + 1 ] > s ]  2.88   3.19 - 
>  0.90
[ T039: ascan( a, i % 16 ) ]__  2.33   2.84 - 
>  0.82
[ T040: ascan( a, { |x| x == i % 16 } ) ]_ 26.53  29.31 - 
>  0.91
[ T041: if i%1000==0;a:={};end; aadd(a,{i,1,.T.,s,s2 ] 11.80  28.45 - 
>  0.41
[ T042: x := a ]__  0.75   0.77 - 
>  0.98
[ T043: x := {} ]_  3.03  35.72 - 
>  0.08
[ T044: f0() ]  0.59   1.11 - 
>  0.53
[ T045: f1( i ) ]___

Re: [Harbour] 2008-10-05 17:53 UTC+0200 Przemyslaw Czerpak(druzus/at/priv.onet.pl)

2008-10-05 Thread Szakáts Viktor



Hi Przemek,


But the cost of memory allocations is very big. To improve scalability
here memory manager optimized for MT mode is necessary. It's not  
directly
related to Harbour though we can add some workarounds to reduce the  
overhead
in Harbour layer. But rather not now. In real applications it should  
not
cause such big problem because threads will make also other things  
not only

allocate and free memory in a loop :-)


If we can do something on the Harbour level even better,
but the latest dlmalloc version seems to give very good
results. Since it's unreleased I don't know how safe it
is to include it though. We should also explore how to
avoid the slowdown in ST mode.

You can find the file here:
http://www.syenar.hu/harbour/dlmalloc-284.zip

Brgds,
Viktor


___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [SPAM] Re: [Harbour] 2008-10-05 17:53 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

2008-10-05 Thread Przemyslaw Czerpak
On Sun, 05 Oct 2008, Pritpal Bedi wrote:

Hi Pritpal,

> 10/05/08 09:50:08 Windows XP 5.1.2600 Service Pack 2
> Harbour 1.1.0dev (Rev. 9549) (MT)+ Borland C++ 5.5.1 (32 bit)
> N_LOOPS: 100
>  _1.th  _8.th factor_1.th  _4.th factor
>     =  ==
>  _2.34  _4.77 ->  0.49_1.14  _2.33 ->  0.49   [ T001: x := L_C ]
>  _1.94  _5.25 ->  0.37_0.95  _1.95 ->  0.49   [ T002: x := L_N ]
>  _1.91  _4.06 ->  0.47_0.94  _1.97 ->  0.48   [ T003: x := L_D ]
>  _2.33  _4.39 ->  0.53_1.17  _2.05 ->  0.57   [ T004: x := S_C ]
>  _1.89  _4.03 ->  0.47_0.94  _1.78 ->  0.53   [ T005: x := S_N ]
>  _1.95  _4.00 ->  0.49_0.97  _1.94 ->  0.50   [ T006: x := S_D ]
>  _2.47  _4.67 ->  0.53_1.27  _2.26 ->  0.56   [ T007: x := M_C ]
>  _2.05  _4.03 ->  0.51_1.02  _1.98 ->  0.51   [ T008: x := M_N ]
>  _2.03  _4.03 ->  0.50_1.03  _1.91 ->  0.54   [ T009: x := M_D ]
>  _2.11  _4.17 ->  0.51_1.16  _2.08 ->  0.56   [ T010: x := P_C ]
>  _2.05  _4.05 ->  0.51_1.03  _1.95 ->  0.53   [ T011: x := P_N ]
>  _2.05  _4.06 ->  0.50_1.05  _1.94 ->  0.54   [ T012: x := P_D ]
>  _3.89  _5.89 ->  0.66_1.97  _2.88 ->  0.68   [ T013: x := F_C ]
>  _3.28  _3.53 ->  0.93_1.63  _1.75 ->  0.93   [ T014: x := F_N ]
>  _2.34  _4.09 ->  0.57_1.19  _2.00 ->  0.59   [ T015: x := F_D ]
>  _4.24  _5.13 ->  0.83_2.11  _2.47 ->  0.85   [ T016: x := o:GenCode ]
>  _3.50  _5.83 ->  0.60_1.74  _2.41 ->  0.72   [ T017: x := o[8] ]
>  _4.58  _3.91 ->  1.17_2.27  _1.75 ->  1.29   [ T018: round( i / 1000, 2 
> ) ]
>  _9.59  10.20 ->  0.94_4.77  _5.78 ->  0.82   [ T019: str( i / 1000 ) ]
>  _4.50  _3.02 ->  1.49_2.27  _1.45 ->  1.56   [ T020: val( s ) ]
>  _7.97  _8.09 ->  0.98_3.99  _3.95 ->  1.01   [ T021: val( a [ i % 16 + 1 
> ] ) ]
>  _7.72  _6.50 ->  1.19_3.80  _3.33 ->  1.14   [ T022: dtos( d - i % 1 
> ) ]
>  _9.86  38.39 ->  0.26_4.89  28.09 ->  0.17   [ T023: eval( { || i % 16 } 
> ) ]
>  _5.00  _7.63 ->  0.66_2.53  _3.67 ->  0.69   [ T024: eval( bc := { || i 
> % 16 } ) ]
>  _7.91  50.27 ->  0.16_3.89  19.39 ->  0.20   [ T025: eval( { |x| x % 16 
> }, i ) ]
>  _5.80  _8.59 ->  0.67_2.86  _4.19 ->  0.68   [ T026: eval( bc := { |x| x 
> % 16 }, i ) ]
>  _9.67  50.03 ->  0.19_4.88  23.83 ->  0.20   [ T027: eval( { |x| f1( x ) 
> }, i ) ]
>  _7.53  11.28 ->  0.67_3.75  _5.36 ->  0.70   [ T028: eval( bc := { |x| 
> f1( x ) }, i ) ]
>  42.44  63.16 ->  0.6721.55  31.52 ->  0.68   [ T029: x := &( "f1(" + 
> str(i) + ")" ) ]
>  54.95  86.47 ->  0.6427.41  43.08 ->  0.64   [ T030: bc := &( 
> "{|x|f1(x)}" ); eval( bc, i ) ]
>  _8.72  10.16 ->  0.86_4.42  _5.19 ->  0.85   [ T031: x := valtype( x ) + 
>  valtype( i ) ]
>  13.81  11.58 ->  1.19_7.02  _6.17 ->  1.14   [ T032: x := strzero( i % 
> 100, 2 ) $ a[ i % 16 + 1 ]
>  _6.91  11.39 ->  0.61_3.42  _5.55 ->  0.62   [ T033: x := a[ i % 16 + 1 
> ] == s ]
>  _7.30  10.92 ->  0.67_3.66  _5.41 ->  0.68   [ T034: x := a[ i % 16 + 1 
> ] = s ]
>  _7.31  10.78 ->  0.68_3.69  _5.28 ->  0.70   [ T035: x := a[ i % 16 + 1 
> ] >= s ]
>  _7.30  10.73 ->  0.68_3.89  _5.20 ->  0.75   [ T036: x := a[ i % 16 + 1 
> ] <= s ]
>  _7.31  10.76 ->  0.68_3.75  _5.33 ->  0.70   [ T037: x := a[ i % 16 + 1 
> ] < s ]
>  _7.31  10.76 ->  0.68_3.76  _5.31 ->  0.71   [ T038: x := a[ i % 16 + 1 
> ] > s ]
>  _6.06  _5.98 ->  1.01_3.09  _2.92 ->  1.06   [ T039: ascan( a, i % 16 ) ]
>  54.78  49.03 ->  1.12_8.74  25.19 ->  1.14   [ T040: ascan( a, { |x| x 
> == i % 16 } ) ]
>  20.95  35.94 ->  0.58_0.61  16.73 ->  0.63   [ T041: if 
> i%1000==0;a:={};end; aadd(a,{i,1,.T.,s,s2
>  _2.39  _4.81 ->  0.50_1.17  _2.36 ->  0.50   [ T042: x := a ]
>  _4.49  43.53 ->  0.10_2.24  23.19 ->  0.10   [ T043: x := {} ]
>  _2.36  _5.06 ->  0.47_1.16  _2.34 ->  0.49   [ T044: f0() ]
>  _3.63  _7.84 ->  0.46_1.83  _3.78 ->  0.48   [ T045: f1( i ) ]
>  _3.55  _7.51 ->  0.47_1.75  _3.28 ->  0.53   [ T046: f2( c[1...8] ) ]
>  _3.55  _7.72 ->  0.46_1.76  _3.59 ->  0.49   [ T047: f2( c[1...4] )]
>  _3.55  _7.70 ->  0.46_1.75  _3.63 ->  0.48   [ T048: f2( @c[1...4] ) 
> ]
>  _4.25  _9.14 ->  0.46_2.06  _4.58 ->  0.45   [ T049: f2( @c[1...4] 
> ), c2 := c ]
>  10.09  14.63 ->  0.69_5.03  _7.30 ->  0.69   [ T050: f3( a, a2, s, i, 
> s2, bc, i, n, x ) ]
>  _3.61  _7.63 ->  0.47_1.77  _3.69 ->  0.48   [ T051: f2( a ) ]
>  11.44  13.08 ->  0.87_5.97  _6.61 ->  0.90   [ T052: x := f4() ]
>  _6.98  _9.16 ->  0.76_3.44  _4.47 ->  0.77   [ T053: x := f5() ]
>  10.09  12.58 ->  0.80_5.11  _6.23 ->  0.82   [ T054: f_prv( c ) ]
> =      ===
> 437.61 751.95 -> 0.58  221.20 374.35 -> 0.59   [   TOTAL   ]
> =      ===
> ...1740.97   828.50
> ...1189.58   

Re: [Harbour] 2008-10-05 17:53 UTC+0200 PrzemyslawCzerpak(druzus/at/priv.onet.pl)

2008-10-05 Thread Enrico Maria Giordano


-Messaggio Originale- 
Da: "Przemyslaw Czerpak" <[EMAIL PROTECTED]>

A: "Harbour Project Main Developer List." 
Data invio: domenica 5 ottobre 2008 21.04
Oggetto: Re: [Harbour] 2008-10-05 17:53 UTC+0200 
PrzemyslawCzerpak(druzus/at/priv.onet.pl)




If you can please also make test for:
  speedtst --thread=2 --scale --exclude=mem


Here it is:

E:\HARBOUR>speedtst --thread=2 --scale --exclude=mem

10/05/08 21:37:52 Windows XP 5.1.2600 Service Pack 3
Harbour 1.1.0dev (Rev. 9550) (MT)+ Borland C++ 5.5.1 (32 bit)
THREADS: 2
N_LOOPS: 100
excluded tests: 029 030 023 025 027 040 041 043 052 053 019 022 031 032
   1 th.  2 th.  factor

[ T001: x := L_C ]  0.42   0.20 ->  2.06
[ T002: x := L_N ]  0.30   0.14 ->  2.11
[ T003: x := L_D ]  0.31   0.16 ->  2.00
[ T004: x := S_C ]  0.52   0.34 ->  1.50
[ T005: x := S_N ]  0.41   0.20 ->  2.00
[ T006: x := S_D ]  0.39   0.20 ->  1.93
[ T007: x := M_C ]  0.56   0.30 ->  1.89
[ T008: x := M_N ]  0.45   0.22 ->  2.07
[ T009: x := M_D ]  0.45   0.24 ->  1.93
[ T010: x := P_C ]  0.51   0.28 ->  1.83
[ T011: x := P_N ]  0.45   0.23 ->  1.94
[ T012: x := P_D ]  0.45   0.22 ->  2.07
[ T013: x := F_C ]  0.92   1.25 ->  0.74
[ T014: x := F_N ]  0.78   0.39 ->  2.01
[ T015: x := F_D ]  0.55   0.26 ->  2.06
[ T016: x := o:GenCode ]__  1.03   0.51 ->  2.00
[ T017: x := o[8] ]___  0.80   0.53 ->  1.50
[ T018: round( i / 1000, 2 ) ]  1.00   0.50 ->  2.00
[ T020: val( s ) ]  1.11   0.56 ->  1.97
[ T021: val( a [ i % 16 + 1 ] ) ]_  1.97   1.00 ->  1.97
[ T024: eval( bc := { || i % 16 } ) ]_  1.30   0.70 ->  1.84
[ T026: eval( bc := { |x| x % 16 }, i ) ]_  1.36   0.69 ->  1.98
[ T028: eval( bc := { |x| f1( x ) }, i ) ]  1.77   0.91 ->  1.95
[ T033: x := a[ i % 16 + 1 ] == s ]___  1.64   0.86 ->  1.91
[ T034: x := a[ i % 16 + 1 ] = s ]  1.77   1.00 ->  1.77
[ T035: x := a[ i % 16 + 1 ] >= s ]___  1.78   0.95 ->  1.87
[ T036: x := a[ i % 16 + 1 ] <= s ]___  1.77   0.95 ->  1.85
[ T037: x := a[ i % 16 + 1 ] < s ]  1.76   0.97 ->  1.82
[ T038: x := a[ i % 16 + 1 ] > s ]  1.74   0.92 ->  1.88
[ T039: ascan( a, i % 16 ) ]__  1.53   0.94 ->  1.64
[ T042: x := a ]__  0.45   0.22 ->  2.07
[ T044: f0() ]  0.51   0.27 ->  1.94
[ T045: f1( i ) ]_  0.77   0.38 ->  2.04
[ T046: f2( c[1...8] ) ]__  0.81   0.41 ->  2.00
[ T047: f2( c[1...4] ) ]__  0.81   0.41 ->  2.00
[ T048: f2( @c[1...4] ) ]_  0.80   0.41 ->  1.96
[ T049: f2( @c[1...4] ), c2 := c ]  0.84   0.42 ->  2.00
[ T050: f3( a, a2, s, i, s2, bc, i, n, x ) ]__  2.41   1.22 ->  1.97
[ T051: f2( a ) ]_  0.83   0.41 ->  2.04
[ T054: f_prv( c ) ]__  2.31   1.42 ->  1.63

[   TOTAL   ]_ 40.34  22.19 ->  1.82

[ total application time: ]84.09
[ total real time: ]...62.64

EMG

--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic 


___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] 2008-10-05 17:53 UTC+0200 Przemyslaw Czerpak(druzus/at/priv.onet.pl)

2008-10-05 Thread Lorenzo Fiorini
On Sun, Oct 5, 2008 at 9:04 PM, Przemyslaw Czerpak <[EMAIL PROTECTED]> wrote:

> Thank you very much. As I can see you two CPU machine and in all tests
> which does not allocate new memory you have the factor close to 2.0.
> Very nice. Also:
>   [ T004: x := S_C ]__  2.09   1.39 ->  1.51
> Is quite good so the overhead caused by operating on the same reference
> counter is relatively small. At least much smaller then in my machine.
> So probably the same will be with spinlocks.
> If you can please also make test for:
>   speedtst --thread=2 --scale --exclude=mem
> It will be much shorter due the less number of threads and tests.

Just for report, here is my cat /proc/cpuinfo:

model name  : Intel(R) Core(TM)2 Duo CPU E6750  @ 2.66GHz

I'm faster but I'm far from 2.0 using:

 ./speedtst --thread=2 --scale --exclude=mem &> speedtst.log

under Fedora 9.

Is it expected?

best regards,
Lorenzo

10/05/08 21:43:57 Linux 2.6.26.5-45.fc9.i686 i686
Harbour 1.1.0dev (Rev. 9551) (MT)+ GNU C 4.3 (32 bit)
THREADS: 2
N_LOOPS: 100
excluded tests: 029 030 023 025 027 040 041 043 052 053 019 022 031 032
1 th.  2 th.  factor

[ T001: x := L_C ]  0.25   0.21 ->  1.20
[ T002: x := L_N ]  0.18   0.16 ->  1.13
[ T003: x := L_D ]  0.17   0.16 ->  1.05
[ T004: x := S_C ]  0.23   0.22 ->  1.04
[ T005: x := S_N ]  0.17   0.16 ->  1.02
[ T006: x := S_D ]  0.17   0.16 ->  1.08
[ T007: x := M_C ]  0.25   0.20 ->  1.25
[ T008: x := M_N ]  0.19   0.20 ->  0.97
[ T009: x := M_D ]  0.18   0.19 ->  0.99
[ T010: x := P_C ]  0.24   0.19 ->  1.30
[ T011: x := P_N ]  0.19   0.19 ->  0.98
[ T012: x := P_D ]  0.19   0.18 ->  1.05
[ T013: x := F_C ]  0.50   0.28 ->  1.79
[ T014: x := F_N ]  0.48   0.27 ->  1.74
[ T015: x := F_D ]  0.27   0.18 ->  1.51
[ T016: x := o:GenCode ]__  0.43   0.25 ->  1.71
[ T017: x := o[8] ]___  0.34   0.27 ->  1.27
[ T018: round( i / 1000, 2 ) ]  0.57   0.37 ->  1.52
[ T020: val( s ) ]  0.62   0.36 ->  1.71
[ T021: val( a [ i % 16 + 1 ] ) ]_  0.95   0.59 ->  1.61
[ T024: eval( bc := { || i % 16 } ) ]_  0.56   0.43 ->  1.30
[ T026: eval( bc := { |x| x % 16 }, i ) ]_  0.57   0.47 ->  1.23
[ T028: eval( bc := { |x| f1( x ) }, i ) ]  0.76   0.66 ->  1.15
[ T033: x := a[ i % 16 + 1 ] == s ]___  0.76   0.60 ->  1.27
[ T034: x := a[ i % 16 + 1 ] = s ]  0.81   0.58 ->  1.39
[ T035: x := a[ i % 16 + 1 ] >= s ]___  0.80   0.60 ->  1.33
[ T036: x := a[ i % 16 + 1 ] <= s ]___  0.80   0.59 ->  1.36
[ T037: x := a[ i % 16 + 1 ] < s ]  0.80   0.60 ->  1.34
[ T038: x := a[ i % 16 + 1 ] > s ]  0.78   0.60 ->  1.29
[ T039: ascan( a, i % 16 ) ]__  0.72   0.48 ->  1.52
[ T042: x := a ]__  0.26   0.20 ->  1.31
[ T044: f0() ]  0.30   0.31 ->  0.97
[ T045: f1( i ) ]_  0.38   0.36 ->  1.06
[ T046: f2( c[1...8] ) ]__  0.45   0.37 ->  1.22
[ T047: f2( c[1...4] ) ]__  0.45   0.38 ->  1.19
[ T048: f2( @c[1...4] ) ]_  0.46   0.39 ->  1.17
[ T049: f2( @c[1...4] ), c2 := c ]  0.49   0.46 ->  1.09
[ T050: f3( a, a2, s, i, s2, bc, i, n, x ) ]__  1.06   0.80 ->  1.33
[ T051: f2( a ) ]_  0.45   0.42 ->  1.08
[ T054: f_prv( c ) ]__  1.23   0.86 ->  1.43

[   TOTAL   ]_ 19.48  14.95 ->  1.30

[ total application time: ]44.97
[ total real time: ]...34.43
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] How to build a Harbour program on Linux/OSX without installing it?

2008-10-05 Thread Szakáts Viktor

Hi all,

As subject:
How to build a Harbour program on Linux/OSX without
installing Harbour itself?

[ I'm working with multiple versions of Harbour at
one time, I'm also not an admin on my machine, and I
generally hate to pollute my system with any non std
packages, even if its Harbour. Yet, I'd like to build
Harbour programs, like speedtst as an example for today. ]

What I did so far:
- untarred the .tgz to a local dir.
- went to /usr/local/../bin/
- run './hbmk -mt -static speedtst.prg'
- got './hbmk: line 361: harbour: command not found'

As an aside, I cannot even run any prebuilt binaries,
as they cannot find the .dylib. (IMO these should use
static libs, to avoid such situation).

Brgds,
Viktor

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Re: How to build a Harbour program on Linux/OSX without installing it?

2008-10-05 Thread Szakáts Viktor

To slightly rephrase my previous question:
- How to use Harbour on Unixes without sudo or admin rights?
- How to use multiple versions of Harbour on Unixes in parallel?

Brgds,
Viktor

On 2008.10.05., at 22:25, Szakáts Viktor wrote:


Hi all,

As subject:
How to build a Harbour program on Linux/OSX without
installing Harbour itself?

[ I'm working with multiple versions of Harbour at
one time, I'm also not an admin on my machine, and I
generally hate to pollute my system with any non std
packages, even if its Harbour. Yet, I'd like to build
Harbour programs, like speedtst as an example for today. ]

What I did so far:
- untarred the .tgz to a local dir.
- went to /usr/local/../bin/
- run './hbmk -mt -static speedtst.prg'
- got './hbmk: line 361: harbour: command not found'

As an aside, I cannot even run any prebuilt binaries,
as they cannot find the .dylib. (IMO these should use
static libs, to avoid such situation).

Brgds,
Viktor



___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Re: How to build a Harbour program on Linux/OSX without installing it?

2008-10-05 Thread Lorenzo Fiorini
On Sun, Oct 5, 2008 at 10:28 PM, Szakáts Viktor <[EMAIL PROTECTED]> wrote:

> To slightly rephrase my previous question:
> - How to use Harbour on Unixes without sudo or admin rights?
> - How to use multiple versions of Harbour on Unixes in parallel?

Creates different install dirs in your home directory.

F.e I have

$HOME/mingw32-harbour
$HOME/mingwce-harbour
$HOME/devel-harbour

hb* scripts will "remember" the install dir so you can use
$HOME/mingw32-harbour/bin/hbmk -n -static -gtnul speedtst.prg

best regards,
Lorenzo
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Re: How to build a Harbour program on Linux/OSX without installing it?

2008-10-05 Thread Szakáts Viktor

That's exactly what I'd like to do :)

Question: How?

I already have several different Harbour dirs in my ~ folder,
but if I build with mpkg_tgz.sh, I'm not getting any hbmk scripts
or binaries in my bin folder, neither any libs in lib.

If I run './make_gnu.sh install', the results is a bunch
of errors '/usr/local/...: No such file or directory'.

[ Shouldn't this by default install in the local dirs? ]

Brgds,
Viktor


On 2008.10.05., at 22:41, Lorenzo Fiorini wrote:

On Sun, Oct 5, 2008 at 10:28 PM, Szakáts Viktor [EMAIL PROTECTED]> wrote:



To slightly rephrase my previous question:
- How to use Harbour on Unixes without sudo or admin rights?
- How to use multiple versions of Harbour on Unixes in parallel?


Creates different install dirs in your home directory.

F.e I have

$HOME/mingw32-harbour
$HOME/mingwce-harbour
$HOME/devel-harbour

hb* scripts will "remember" the install dir so you can use
$HOME/mingw32-harbour/bin/hbmk -n -static -gtnul speedtst.prg

best regards,
Lorenzo
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] 2008-10-05 17:53 UTC+0200 PrzemyslawCzerpak(druzus/at/priv.onet.pl)

2008-10-05 Thread Przemyslaw Czerpak
On Sun, 05 Oct 2008, Enrico Maria Giordano wrote:

Hi Enrico,

> E:\HARBOUR>speedtst --thread=2 --scale --exclude=mem
> 10/05/08 21:37:52 Windows XP 5.1.2600 Service Pack 3
> Harbour 1.1.0dev (Rev. 9550) (MT)+ Borland C++ 5.5.1 (32 bit)
> THREADS: 2
> N_LOOPS: 100
> excluded tests: 029 030 023 025 027 040 041 043 052 053 019 022 031 032
>1 th.  2 th.  factor
> 
> [ T001: x := L_C ]  0.42   0.20 ->  2.06
> [ T002: x := L_N ]  0.30   0.14 ->  2.11
> [ T003: x := L_D ]  0.31   0.16 ->  2.00
> [ T004: x := S_C ]  0.52   0.34 ->  1.50
> [ T005: x := S_N ]  0.41   0.20 ->  2.00
> [ T006: x := S_D ]  0.39   0.20 ->  1.93
> [ T007: x := M_C ]  0.56   0.30 ->  1.89
> [ T008: x := M_N ]  0.45   0.22 ->  2.07
> [ T009: x := M_D ]  0.45   0.24 ->  1.93
> [ T010: x := P_C ]  0.51   0.28 ->  1.83
> [ T011: x := P_N ]  0.45   0.23 ->  1.94
> [ T012: x := P_D ]  0.45   0.22 ->  2.07
> [ T013: x := F_C ]  0.92   1.25 ->  0.74
> [ T014: x := F_N ]  0.78   0.39 ->  2.01
> [ T015: x := F_D ]  0.55   0.26 ->  2.06
> [ T016: x := o:GenCode ]__  1.03   0.51 ->  2.00
> [ T017: x := o[8] ]___  0.80   0.53 ->  1.50
> [ T018: round( i / 1000, 2 ) ]  1.00   0.50 ->  2.00
> [ T020: val( s ) ]  1.11   0.56 ->  1.97
> [ T021: val( a [ i % 16 + 1 ] ) ]_  1.97   1.00 ->  1.97
> [ T024: eval( bc := { || i % 16 } ) ]_  1.30   0.70 ->  1.84
> [ T026: eval( bc := { |x| x % 16 }, i ) ]_  1.36   0.69 ->  1.98
> [ T028: eval( bc := { |x| f1( x ) }, i ) ]  1.77   0.91 ->  1.95
> [ T033: x := a[ i % 16 + 1 ] == s ]___  1.64   0.86 ->  1.91
> [ T034: x := a[ i % 16 + 1 ] = s ]  1.77   1.00 ->  1.77
> [ T035: x := a[ i % 16 + 1 ] >= s ]___  1.78   0.95 ->  1.87
> [ T036: x := a[ i % 16 + 1 ] <= s ]___  1.77   0.95 ->  1.85
> [ T037: x := a[ i % 16 + 1 ] < s ]  1.76   0.97 ->  1.82
> [ T038: x := a[ i % 16 + 1 ] > s ]  1.74   0.92 ->  1.88
> [ T039: ascan( a, i % 16 ) ]__  1.53   0.94 ->  1.64
> [ T042: x := a ]__  0.45   0.22 ->  2.07
> [ T044: f0() ]  0.51   0.27 ->  1.94
> [ T045: f1( i ) ]_  0.77   0.38 ->  2.04
> [ T046: f2( c[1...8] ) ]__  0.81   0.41 ->  2.00
> [ T047: f2( c[1...4] ) ]__  0.81   0.41 ->  2.00
> [ T048: f2( @c[1...4] ) ]_  0.80   0.41 ->  1.96
> [ T049: f2( @c[1...4] ), c2 := c ]  0.84   0.42 ->  2.00
> [ T050: f3( a, a2, s, i, s2, bc, i, n, x ) ]__  2.41   1.22 ->  1.97
> [ T051: f2( a ) ]_  0.83   0.41 ->  2.04
> [ T054: f_prv( c ) ]__  2.31   1.42 ->  1.63
> 
> [   TOTAL   ]_ 40.34  22.19 ->  1.82
> 
> [ total application time: ]84.09
> [ total real time: ]...62.64

Thank you. So the results are very close to 2.0 and only reduced by
two tests (T013 and T054) which allocates memory and where not excluded by
   --exclude=mem
I forgot to add them.

best regards,
Przemek
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] 2008-10-05 17:53 UTC+0200 Przemyslaw Czerpak(druzus/at/priv.onet.pl)

2008-10-05 Thread Przemyslaw Czerpak
On Sun, 05 Oct 2008, Lorenzo Fiorini wrote:

Hi Lorenzo,

> Just for report, here is my cat /proc/cpuinfo:
> model name: Intel(R) Core(TM)2 Duo CPU E6750  @ 2.66GHz
> I'm faster but I'm far from 2.0 using:
>  ./speedtst --thread=2 --scale --exclude=mem &> speedtst.log
> under Fedora 9.
> Is it expected?

Thank you for tests.
No it's not expected. It's fatal.
Please check if you have some dynamic CPU clock updating enabled 
Your results suggests sth like that.
If you are using KDE then you can use KPowersave to check it and
change the strategy.
And please also remember that unlike previous ones this test uses
only real time clock so it will be strongly effected by other system
activity. In multiprocessor systems it will reduce the scale factor.

best regards,
Przemek
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Re: How to build a Harbour program on Linux/OSX without installing it?

2008-10-05 Thread Lorenzo Fiorini
On Sun, Oct 5, 2008 at 10:48 PM, Szakáts Viktor <[EMAIL PROTECTED]> wrote:

> That's exactly what I'd like to do :)
>
> Question: How?

Probably there are smarter methods but I simply set HB_INSTALL_PREFIX
before running ./make_gnu.sh install.

It should be enough to run: HB_INSTALL_PREFIX= ./make_gnu.sh install

best regards,
Lorenzo
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Re: How to build a Harbour program on Linux/OSX without installing it?

2008-10-05 Thread Przemyslaw Czerpak
On Sun, 05 Oct 2008, Szak�ts Viktor wrote:

Hi Viktor,

> That's exactly what I'd like to do :)
> Question: How?

export HB_INSTALL_PREFIX="$HOME/harbour-1.1.0"

and:

   mkdir -p $HB_INSTALL_PREFIX/{bin,include,lib}
   ./make_gnu.sh install
or:
   ./make_tgz.sh
   and then decompress it to given directory

Probably for easier usage you will find also usable:
   export PATH="$HB_INSTALL_PREFIX/bin:$PATH"
but it's not necessary if you are using hb* scripts.

If you want to use shared harbour.so library then you will
have to also inform ld where it's located. In
   man ld.so
you will find all options. In short words:
   export LD_LIBRARY_PATH="$HB_INSTALL_PREFIX/bin"

The above is for Linux. In other *nixes it looks very similar.

best regards,
Przemek
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] 2008-10-05 17:53 UTC+0200 Przemyslaw Czerpak(druzus/at/priv.onet.pl)

2008-10-05 Thread Lorenzo Fiorini
On Sun, Oct 5, 2008 at 10:56 PM, Przemyslaw Czerpak <[EMAIL PROTECTED]> wrote:

> Thank you for tests.
> No it's not expected. It's fatal.
> Please check if you have some dynamic CPU clock updating enabled
> Your results suggests sth like that.

AFAIK I use a fixed cpu frequency.
I use gnome and if I try to add the CPU Frequency Scaling Monitor I
get: "You will not be able to modify the frequency of your machine.
Your machine may be misconfigured or not have hardware support for CPU
frequency scaling."

I'll try under Ubuntu 8.04.

I've other OS installed but they are under VirtualBox VMs so I'm not
sure if the results have meaning.

best regards,
Lorenzo
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Re: How to build a Harbour program on Linux/OSX without installing it?

2008-10-05 Thread Szakáts Viktor

Hi Przemek,

Thanks a lot. [ Not very user friendly IMO :( Especially
when you have 5-7 environments. Lots of typing, lots of
places for mistakes. ]

Can we have a command line option to make this the
default? I mean that we could use './make_gnu.sh --local'
or similar to just install in current harbour dir.
(just like it is in Windows).

Also, is there a way to force generating Harbour
binaries with _static_ libs?

Brgds,
Viktor

On 2008.10.05., at 23:11, Przemyslaw Czerpak wrote:


On Sun, 05 Oct 2008, Szak�ts Viktor wrote:

Hi Viktor,


That's exactly what I'd like to do :)
Question: How?


export HB_INSTALL_PREFIX="$HOME/harbour-1.1.0"

and:

  mkdir -p $HB_INSTALL_PREFIX/{bin,include,lib}
  ./make_gnu.sh install
or:
  ./make_tgz.sh
  and then decompress it to given directory

Probably for easier usage you will find also usable:
  export PATH="$HB_INSTALL_PREFIX/bin:$PATH"
but it's not necessary if you are using hb* scripts.

If you want to use shared harbour.so library then you will
have to also inform ld where it's located. In
  man ld.so
you will find all options. In short words:
  export LD_LIBRARY_PATH="$HB_INSTALL_PREFIX/bin"

The above is for Linux. In other *nixes it looks very similar.

best regards,
Przemek
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Darwin MT errors and one new warning

2008-10-05 Thread Szakáts Viktor

Hi Przemek,

../../gtcrs.c: In function tiGetS:
../../gtcrs.c:1415: warning: passing argument 1 of tigetstr discards  
qualifiers from pointer target type


[ when building hbvmmt lib: ]

In file included from ../../../arrays.c:78:
../../../../../include/hbstack.h:199: error: syntax error before  
'hb_stack_key'
../../../../../include/hbstack.h:199: warning: type defaults to 'int'  
in declaration of 'hb_stack_key'
../../../../../include/hbstack.h:199: warning: data definition has no  
type or storage class

../../../arrays.c: In function 'hb_arrayPushBase':
../../../arrays.c:106: warning: implicit declaration of function  
'hb_tls_get'


In file included from ../fm.c:95:
../../../include/hbstack.h:199: error: syntax error before  
'hb_stack_key'
../../../include/hbstack.h:199: warning: type defaults to 'int' in  
declaration of 'hb_stack_key'
../../../include/hbstack.h:199: warning: data definition has no type  
or storage class

../fm.c: In function 'hb_xquery':
../fm.c:1103: warning: implicit declaration of function 'hb_tls_get'

Brgds,
Viktor

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] 2008-10-05 17:53 UTC+0200 Przemyslaw Czerpak(druzus/at/priv.onet.pl)

2008-10-05 Thread Lorenzo Fiorini
On Sun, Oct 5, 2008 at 11:14 PM, Lorenzo Fiorini
<[EMAIL PROTECTED]> wrote:

> I'll try under Ubuntu 8.04.

Here are the results on the same hardware using another "physical"
partition with Ubuntu 8.04 i386.

Here the CPU Frequency Monitor works and says "On Demand". It shows
2.00Ghz on "idle" and 2.66Ghz during some parts of the speedtst.

At the moment I can't find a way to change it to "Performance".

Tomorrow I'll be able to do some tests on servers ranging from Xeon
Dual Processors ( two physical CPUs 4 logical ones ) to Dual Quad
Processors ( 2 physical CPUs 8 logical ones ).

best regards,
Lorenzo

10/05/08 23:45:57 Linux 2.6.24-19-generic i686
Harbour 1.1.0dev (Rev. 9551) (MT)+ GNU C 4.2.3 (32 bit)
THREADS: 2
N_LOOPS: 100
excluded tests: 029 030 023 025 027 040 041 043 052 053 019 022 031 032
1 th.  2 th.  factor

[ T001: x := L_C ]  0.23   0.19 ->  1.20
[ T002: x := L_N ]  0.16   0.15 ->  1.10
[ T003: x := L_D ]  0.16   0.15 ->  1.07
[ T004: x := S_C ]  0.22   0.19 ->  1.17
[ T005: x := S_N ]  0.15   0.15 ->  1.03
[ T006: x := S_D ]  0.15   0.15 ->  1.03
[ T007: x := M_C ]  0.24   0.19 ->  1.24
[ T008: x := M_N ]  0.18   0.15 ->  1.20
[ T009: x := M_D ]  0.18   0.15 ->  1.21
[ T010: x := P_C ]  0.21   0.19 ->  1.10
[ T011: x := P_N ]  0.17   0.14 ->  1.24
[ T012: x := P_D ]  0.17   0.14 ->  1.22
[ T013: x := F_C ]  0.45   0.28 ->  1.59
[ T014: x := F_N ]  0.41   0.25 ->  1.64
[ T015: x := F_D ]  0.25   0.15 ->  1.70
[ T016: x := o:GenCode ]__  0.43   0.30 ->  1.40
[ T017: x := o[8] ]___  0.31   0.24 ->  1.31
[ T018: round( i / 1000, 2 ) ]  0.55   0.35 ->  1.57
[ T020: val( s ) ]  0.55   0.29 ->  1.87
[ T021: val( a [ i % 16 + 1 ] ) ]_  0.92   0.53 ->  1.75
[ T024: eval( bc := { || i % 16 } ) ]_  0.60   0.48 ->  1.25
[ T026: eval( bc := { |x| x % 16 }, i ) ]_  0.57   0.43 ->  1.32
[ T028: eval( bc := { |x| f1( x ) }, i ) ]  0.76   0.59 ->  1.28
[ T033: x := a[ i % 16 + 1 ] == s ]___  0.81   0.57 ->  1.44
[ T034: x := a[ i % 16 + 1 ] = s ]  0.87   0.58 ->  1.50
[ T035: x := a[ i % 16 + 1 ] >= s ]___  0.89   0.59 ->  1.51
[ T036: x := a[ i % 16 + 1 ] <= s ]___  0.87   0.58 ->  1.50
[ T037: x := a[ i % 16 + 1 ] < s ]  0.87   0.59 ->  1.49
[ T038: x := a[ i % 16 + 1 ] > s ]  0.87   0.59 ->  1.47
[ T039: ascan( a, i % 16 ) ]__  0.68   0.43 ->  1.61
[ T042: x := a ]__  0.24   0.18 ->  1.33
[ T044: f0() ]  0.26   0.26 ->  1.00
[ T045: f1( i ) ]_  0.39   0.34 ->  1.17
[ T046: f2( c[1...8] ) ]__  0.42   0.36 ->  1.15
[ T047: f2( c[1...4] ) ]__  0.43   0.36 ->  1.18
[ T048: f2( @c[1...4] ) ]_  0.43   0.36 ->  1.19
[ T049: f2( @c[1...4] ), c2 := c ]  0.48   0.43 ->  1.13
[ T050: f3( a, a2, s, i, s2, bc, i, n, x ) ]__  1.04   0.73 ->  1.42
[ T051: f2( a ) ]_  0.43   0.34 ->  1.27
[ T054: f_prv( c ) ]__  1.16   0.76 ->  1.54

[   TOTAL   ]_ 19.16  13.85 ->  1.38

[ total application time: ]46.47
[ total real time: ]...33.01
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] 2008-10-06 00:28 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

2008-10-05 Thread Szakáts Viktor
2008-10-06 00:28 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
  * include/hbthread.h
! Blind fix for WinCE compilation after MT changes.
--
Brgds,
Viktor

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Darwin MT errors and one new warning

2008-10-05 Thread Przemyslaw Czerpak
On Sun, 05 Oct 2008, Szak�ts Viktor wrote:

Hi Viktor,

> ../../gtcrs.c: In function tiGetS:
> ../../gtcrs.c:1415: warning: passing argument 1 of tigetstr discards 
> qualifiers from pointer target type

It's a casting only - I'll pacify it in a while.

> [ when building hbvmmt lib: ]
> In file included from ../../../arrays.c:78:
> ../../../../../include/hbstack.h:199: error: syntax error before 
> 'hb_stack_key'
> ../../../../../include/hbstack.h:199: warning: type defaults to 'int' in 
> declaration of 'hb_stack_key'
> ../../../../../include/hbstack.h:199: warning: data definition has no type 
> or storage class
> ../../../arrays.c: In function 'hb_arrayPushBase':
> ../../../arrays.c:106: warning: implicit declaration of function 
> 'hb_tls_get'

include/hbthread.h[59]:

   #if defined( HB_OS_LINUX ) && !defined( __WATCOMC__ )
   #  include 
   #  define HB_PTHREAD_API
   #elif defined( HB_OS_WIN_32 )

I intentionally haven't added any other *nixes until someone will
test them. Please change:

   #if defined( HB_OS_LINUX ) && !defined( __WATCOMC__ )

to:

   #if ( defined( HB_OS_LINUX ) && !defined( __WATCOMC__ ) ) || \
   defined( HB_OS_DARWIN )

and test.

best regards,
Przemek
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] 2008-10-06 01:06 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

2008-10-05 Thread Szakáts Viktor
2008-10-06 01:06 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
  * source/debug/debugger.prg
  * source/rtl/typefile.prg
  * source/rtl/tgetlist.prg
  * source/rtl/treport.prg
  * source/rtl/teditor.prg
* Using [Q]QOut() functions instead of "[?]?" commands.
* Using hb_Run() function instead of RUN command.

  * source/rtl/typefile.prg
% Upped read buffer.
* Formatting.
% Got rid of a few unnecessary initialization.
--
Brgds,
Viktor

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] v1.0.2

2008-10-05 Thread Randy Portnoff

Hi Viktor,

IMO, we need a stable Harbour version ASAP - Therefore, bug fixes only.

Regards,
Randy.

At 03:57 PM 10/3/2008, Szakáts Viktor wrote:

Hi Randy,

There may be one. So far only just a few (exactly 4) fixes
were marked to be merged there, so I think we should
wait until some more comes, and/or we should decide which
selected trunk _features_ we may want to merge there
(like dlmalloc.c), and whether these are safe enough.

Also, we should take a close eye on 1.1, since maybe
it'd be better to invest efforts to do a stable 1.1 release
as early as possible.

Input and opinions are welcome from everyone.

Brgds,
Viktor

On 2008.10.03., at 15:58, Randy Portnoff wrote:


Hi all,

Is there going to be a v1.0.2 for the stable build?

Regards,
Randy.


___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour



___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] MSVC / HB_BUILD_DLL=yes fatal link error

2008-10-05 Thread Szakáts Viktor

Hi Przemek,

Just run my devel build MSVS2008 script with HB_BUILD_DLL=yes,
and I got this:
---
hbtest.obj : error LNK2019: unresolved external symbol _hb_stackPop  
referenced in function _HB_FUN_TEST_BEGIN

rt_math.obj : error LNK2001: unresolved external symbol _hb_stackPop
rt_misc.obj : error LNK2001: unresolved external symbol _hb_stackPop
rt_class.obj : error LNK2001: unresolved external symbol _hb_stackPop
bin\vc\hbtest-dll.exe : fatal error LNK1120: 1 unresolved externals
---

[ C mode, -DUNICODE ]

Brgds,
Viktor

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] v1.0.2

2008-10-05 Thread Szakáts Viktor

Hi Randy,

1.0.1 is _very stable_. From the 4 fixes marked
for merge from 1.1 to 1.0.2, only one is critical,
and only if -gc3 is used with certain code.
[this is also very easy to retrofit into 1.0.1 source.]

This one alone doesn't justify a few days/weeks worth
of heavy release work. For me at least. If there is
someone to volunteer to create the release, it's of
course no problem for me.

Brgds,
Viktor

On 2008.10.04., at 1:37, Randy Portnoff wrote:


Hi Viktor,

IMO, we need a stable Harbour version ASAP - Therefore, bug fixes  
only.


Regards,
Randy.

At 03:57 PM 10/3/2008, Szakáts Viktor wrote:

Hi Randy,

There may be one. So far only just a few (exactly 4) fixes
were marked to be merged there, so I think we should
wait until some more comes, and/or we should decide which
selected trunk _features_ we may want to merge there
(like dlmalloc.c), and whether these are safe enough.

Also, we should take a close eye on 1.1, since maybe
it'd be better to invest efforts to do a stable 1.1 release
as early as possible.

Input and opinions are welcome from everyone.

Brgds,
Viktor

On 2008.10.03., at 15:58, Randy Portnoff wrote:


Hi all,

Is there going to be a v1.0.2 for the stable build?

Regards,
Randy.


___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour



___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] Darwin: 64-bit problem

2008-10-05 Thread Szakáts Viktor

Hi Przemek,

I've built Harbour on Darwin with L_USR/C_USR="-arch x86_64".

Is there a way to pass these custom switches to hbmk?

[ Otherwise it doesn't work because of architecture mismatch. ]

Brgds,
Viktor

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] 2008-10-06 02:18 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

2008-10-05 Thread Przemyslaw Czerpak
2008-10-06 02:18 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
  * harbour/tests/speedtst.prg
* marked T054 as memory tests

  * harbour/source/vm/hvm.c
  * harbour/source/vm/thread.c
* added hb_threadOnce( @ [,  ] ) -> 
  This function allow to execute some code only once. It's usefull in
  MT environment for initialization.
   is variable which holds the execution status and have
  to be initialized to NIL. In most of cases it will be simple static
  variable in user code.
   is optional codeblock which is executed only once (on 1-st
  call with given )

  * harbour/source/rtl/filesys.c
! do not make any file name conversions in hb_fsNameConv() if HVM stack
  is not allocated

  * harbour/source/rtl/gtcrs/gtcrs.c
* casting

best regards
Przemek
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] 2008-10-05 17:53 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

2008-10-05 Thread Przemyslaw Czerpak
On Mon, 06 Oct 2008, Francesco Saverio Giudice wrote:

Hi Francesco,

Many thanks for your all tests.
I'll try to look at them closer tomorrow.

>> Now I'm running same tests on a Windows 2003 Server 32bit with 2 CPU Xeon 
>> Dual Core 3Ghz (total of 4 CPUs). I will send tests in a while.
> look at attached logs. Absolutly *out of mind* results.
> Probably due to "server" personality, times are out of ranges.
> There are also some tests with * chars because out of ranges.

In the 1-st case it was midnight effect and SECONDS() counter resetting.
In the second one I do not know what was the reason. Maybe some clock
updating? We are using real time clock so such things can happen. This
test shows that it consumes 870.36 seconds from all CPUs but in 3927.41
seconds of real time. Looks that sth froze the process execution for nearly
an hour (f.e. some other process with high priority or simply system clock
was updated).

> Tests executed on:
> Microsoft Windows Server 2003, Standard Edition Service Pack 2 (Build 3790)
> 2 x Intel(R) Xeon(TM) CPU 3.00GHz Dual Core
>   L2 Cache Size: 2048 Kb
>   Bus: 200 Mhz Socket
> 3,00 Gb Installed Memory (1,19 Gb free)
> in a Terminal Session.

In this test system load level is very important because we will calculate
also time consumed by other processes - side effect of using real time clock.
Probably it will be optimal to run this test only in 2 threads excluding
test with memory allocation to reduce the interactions with other programs.

Once again thanks to you and all others for test results.

best regards,
Przemek
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Darwin: 64-bit problem

2008-10-05 Thread Przemyslaw Czerpak
On Mon, 06 Oct 2008, Szak�ts Viktor wrote:

Hi Viktor,

> I've built Harbour on Darwin with L_USR/C_USR="-arch x86_64".
> Is there a way to pass these custom switches to hbmk?
> [ Otherwise it doesn't work because of architecture mismatch. ]

CC_C_USR, CC_L_USR, CC_PRG_USR are stored as defaults in hb*
scripts. MinGW/MinGWCE cross builds use them.

best regards,
Przemek
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Harbour website extremely slow

2008-10-05 Thread Phil Barnett
On Sunday 05 October 2008 07:27:32 am Enrico Maria Giordano wrote:

> It's already better now.

I didn't do anything.

You can see it's load and traffic performance graphs here:

http://www.linuxceptional.com/mrgt/

Doesn't look like anything exceptional was happening.

-- 
"Ninety percent of politicians give the other 10 percent a bad name." -- Henry 
Kissinger
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


[Harbour] 2008-10-06 03:09 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

2008-10-05 Thread Szakáts Viktor
2008-10-06 03:09 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
  * include/hbextern.ch
+ Added HB_THREADONCE.

  * ChangeLog
- Removed a duplicate entry of mine.
--
Brgds,
Viktor

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] harbour-project.org anon FTP

2008-10-05 Thread Phil Barnett
On Sunday 05 October 2008 12:59:12 pm Szakáts Viktor wrote:
> Hi Phil,
>
> May I suggest shutting down anonymous FTP uploads
> on our FTP?
>
> Actually the best would be to turn off FTP for our
> site completely. We're not using it, but internet
> users do, as used to find adult content in the 'incoming'
> dir.

The incoming directory is write only. Correct me if I'm wrong.

It's built the way it is intentionally so that anyone can upload, but it takes 
a admin to move the file to an accessible section.

It's set that way for The Oasis and it's a server wide FTP setting.

Feel free to delete anything you find in that directory.

-- 
"Ninety percent of politicians give the other 10 percent a bad name." -- Henry 
Kissinger
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Harbour Web site - Preview #1

2008-10-05 Thread Phil Barnett
On Saturday 04 October 2008 10:44:09 pm Vailton Renato wrote:
> Hi all!
>
> I am working in recent days in layout and in some texts to the site of
> the project. I'm running with it to finish it as soon as possible.
>
> As I have difficulty with English, any help or suggestions will be welcome.
>
> Here's a preview of what I am working:
> http://harbour-project.org/preview/
>
> I've been working on these days and has already set the layout of the
> homepage, icons and menus on the site. I am starting work to place the
> appropriate text as set out some details.
>
> My next step will be put correct texts already on the pages.
>
> I used only HTML, put a banner across the top of the site and other
> details adjusted visual ... I hope and I expect comments like that.

It's very nice. Very pleasing and nice looking.

The only change I would suggest would be to left justify the paragraphs 
instead of full justify. I don't like the 'rivers of whilte' that full 
justification always creates.

http://en.wikipedia.org/wiki/River_(typography)

-- 
"Ninety percent of politicians give the other 10 percent a bad name." -- Henry 
Kissinger
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] harbour-project.org anon FTP

2008-10-05 Thread Szakáts Viktor



Hi Phil,


On Sunday 05 October 2008 12:59:12 pm Szakáts Viktor wrote:

Hi Phil,

May I suggest shutting down anonymous FTP uploads
on our FTP?

Actually the best would be to turn off FTP for our
site completely. We're not using it, but internet
users do, as used to find adult content in the 'incoming'
dir.


The incoming directory is write only. Correct me if I'm wrong.
It's built the way it is intentionally so that anyone can upload,  
but it takes

a admin to move the file to an accessible section.

It's set that way for The Oasis and it's a server wide FTP setting.

Feel free to delete anything you find in that directory.


I don't feel like dealing with this problem on the daily
maintenance level, just thought to mention it, maybe it can
be fixed once and for all. We've also got site infection due
to sniffed FTP passwords, so FTP is by no means safe.

BTW, daily snapshots are still very old. I'd think it'd be
better to remove the links from the homepage, as it makes it
look like Harbour development had stalled.

Monthly and weekly SVN backups don't seem to work either,
but that's less critical.

Brgds,
Viktor

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] harbour-project.org anon FTP

2008-10-05 Thread Phil Barnett
On Sunday 05 October 2008 09:34:01 pm Szakáts Viktor wrote:
> I don't feel like dealing with this problem on the daily
> maintenance level, just thought to mention it, maybe it can
> be fixed once and for all. We've also got site infection due
> to sniffed FTP passwords, so FTP is by no means safe.

That's why it's anonymous.Anonymous ftp is safe as long as it can't be used 
for both read and write. Passwords and FTP lack of security has been known 
for years. This server has been set this way now for at least 10 years and it 
hasn't caused any problem. Ilke I tell everyone that has a password, please 
don't use ftp. Use SCP. I did tell you that, right?

> BTW, daily snapshots are still very old. I'd think it'd be
> better to remove the links from the homepage, as it makes it
> look like Harbour development had stalled.
>
> Monthly and weekly SVN backups don't seem to work either,
> but that's less critical.

I tried to fix that the other day and didn't get it figured out. The jobs are 
running. They also don't do anything if I run them by hand, so I'll spend 
some time and get them going.

-- 
"Ninety percent of politicians give the other 10 percent a bad name." -- Henry 
Kissinger
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] harbour-project.org anon FTP

2008-10-05 Thread Szakáts Viktor
That's why it's anonymous.Anonymous ftp is safe as long as it can't  
be used
for both read and write. Passwords and FTP lack of security has been  
known


If you don't mind getting unknown files on the server
and the FTP server is without security holes, it is safe.

for years. This server has been set this way now for at least 10  
years and it
hasn't caused any problem. Ilke I tell everyone that has a password,  
please

don't use ftp. Use SCP. I did tell you that, right?


It once caused a site infection on our homepage.

Don't get me wrong, this is not a personal matter,
I'm using SCP only, as I told.

Anyway, if per-site FTP setup is no option, what can we
do, but we certainly don't need this feature for Harbour,
that was my only point.


BTW, daily snapshots are still very old. I'd think it'd be
better to remove the links from the homepage, as it makes it
look like Harbour development had stalled.

Monthly and weekly SVN backups don't seem to work either,
but that's less critical.


I tried to fix that the other day and didn't get it figured out. The  
jobs are
running. They also don't do anything if I run them by hand, so I'll  
spend

some time and get them going.


Thanks. If you could post the scripts, maybe we could
help figuring what may be wrong.

Brgds,
Viktor

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] harbour-project.org anon FTP

2008-10-05 Thread Phil Barnett
On Sunday 05 October 2008 09:34:01 pm Szakáts Viktor wrote:

> BTW, daily snapshots are still very old. I'd think it'd be
> better to remove the links from the homepage, as it makes it
> look like Harbour development had stalled.

Ok, I was not checking the right thing. What is running and working properly 
is the svn backups.

I'll make new jobs for the latest repository checkout.

What checkout command would you like me to use?

-- 
"Ninety percent of politicians give the other 10 percent a bad name." -- Henry 
Kissinger
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] harbour-project.org anon FTP

2008-10-05 Thread Szakáts Viktor

BTW, daily snapshots are still very old. I'd think it'd be
better to remove the links from the homepage, as it makes it
look like Harbour development had stalled.


Ok, I was not checking the right thing. What is running and working  
properly

is the svn backups.

I'll make new jobs for the latest repository checkout.


Okay, great.

[ The monthly backup is updated now. ]


What checkout command would you like me to use?


For the daily snapshots:
svn export 
http://harbour-project.svn.sourceforge.net/svnroot/harbour-project/trunk/harbour
[ this will put the result in a 'harbour' subfolder. https also works  
BTW. ]


For SVN backups:
rsync -av harbour-project.svn.sourceforge.net::svn/harbour-project/* .

Brgds,
Viktor

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] Harbour Web site - Preview #1

2008-10-05 Thread Pritpal Bedi

Renalto


Phil Barnett wrote:
> 
> It's very nice. Very pleasing and nice looking.
> 
> The only change I would suggest would be to left justify the paragraphs 
> instead of full justify. I don't like the 'rivers of whilte' that full 
> justification always creates.
> 

+1

Plus: If you could replace burgundy color with dark-blue or the 
blue color of Harbour ship.. Just try. I hope it will do wonders.
Right now upper part and lower one appears missing the uniformity.

Plus: If you could avoid page haeding "Welcome to the Harbour Project"
it will be more towards proper distribution of space. If you think it
should not be avoided then reduce its size.

Plus: Include some blue tint on the icon representing "Development",
again for the sake of uniform look and feel.

Regards
Pritpal Bedi



-- 
View this message in context: 
http://www.nabble.com/Harbour-Web-site---Preview--1-tp19820239p19831151.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] harbour-project.org anon FTP

2008-10-05 Thread Phil Barnett
On Sunday 05 October 2008 10:16:07 pm Szakáts Viktor wrote:

> For the daily snapshots:
> svn export
> http://harbour-project.svn.sourceforge.net/svnroot/harbour-project/trunk/ha
>rbour [ this will put the result in a 'harbour' subfolder. https also works
> BTW. ]

Ok, that's what I was already using. Just making sure.

Actually, I was cleaning out the co directory and using co. What's the 
difference between that and export?

> For SVN backups:
> rsync -av harbour-project.svn.sourceforge.net::svn/harbour-project/* .

And this is what we have been using for the svn backups for some time now.

-- 
"Ninety percent of politicians give the other 10 percent a bad name." -- Henry 
Kissinger
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] harbour-project.org anon FTP

2008-10-05 Thread Szakáts Viktor

For the daily snapshots:
svn export
http://harbour-project.svn.sourceforge.net/svnroot/harbour-project/trunk/ha
rbour [ this will put the result in a 'harbour' subfolder. https  
also works

BTW. ]


Ok, that's what I was already using. Just making sure.

Actually, I was cleaning out the co directory and using co. What's the
difference between that and export?


'co' will create a full local development sandbox (updatable,
committable), this means it will create all the SVN administration
files (in hidden '.svn' subdirs in each dir), and all this will
significantly grow the size of such local repository.

'export' on the other hand will get the pure SVN content only,
without any administration overhead. It's perfect for snapshot
archives.

For both commands, the target directory must not exist before
running them.

Brgds,
Viktor

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] harbour-project.org anon FTP

2008-10-05 Thread Phil Barnett
On Sunday 05 October 2008 10:32:22 pm Szakáts Viktor wrote:
> 'co' will create a full local development sandbox (updatable,
> committable), this means it will create all the SVN administration
> files (in hidden '.svn' subdirs in each dir), and all this will
> significantly grow the size of such local repository.
>
> 'export' on the other hand will get the pure SVN content only,
> without any administration overhead. It's perfect for snapshot
> archives.

-rw-r--r--   1 rootroot  9228135 Oct  5 22:23 harbour-checkout.1.bz2
-rw-r--r--   1 rootroot  5261372 Oct  5 22:55 harbour-checkout.bz2

Yeah, quite a difference. (I fixed the ownership of these in the shell script 
just now)

So, we can add a link to harbour-checkout.bz2 which I will update daily.

Or I can update it more than once if you think that's appropriate. Right now, 
it crons at 6 pm EST, which is midnight or later in Europe. We used to do it 
every three hours, which was probably overkill.

Right now, we're keeping the last 4 copies named .1.bz2 .2.bz2 .3.bz2, etc. I 
can also extend that to keep more.

It should all be working now.

-- 
"Ninety percent of politicians give the other 10 percent a bad name." -- Henry 
Kissinger
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour


Re: [Harbour] harbour-project.org anon FTP

2008-10-05 Thread Szakáts Viktor

'export' on the other hand will get the pure SVN content only,
without any administration overhead. It's perfect for snapshot
archives.


-rw-r--r--   1 rootroot  9228135 Oct  5 22:23 harbour- 
checkout.1.bz2
-rw-r--r--   1 rootroot  5261372 Oct  5 22:55 harbour- 
checkout.bz2


Yeah, quite a difference. (I fixed the ownership of these in the  
shell script

just now)

So, we can add a link to harbour-checkout.bz2 which I will update  
daily.


Or I can update it more than once if you think that's appropriate.  
Right now,
it crons at 6 pm EST, which is midnight or later in Europe. We used  
to do it

every three hours, which was probably overkill.

Right now, we're keeping the last 4 copies named .1.bz2 .2.bz2 . 
3.bz2, etc. I

can also extend that to keep more.


Great, many thanks.

Just one last comment; so far the daily snapshots were called 'harbour- 
svn.tgz'
and 'harbour-svn.zip' (these are linked from the homepage), .bz2 as an  
option

is nice, but IMO we should keep .tgz and .zip too.
Could you generate these, too?

Also, the dailies would IMO better be named as
'harbour-nightly.[zip|tgz|bz2]'.

Brgds,
Viktor

___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour