[Harbour] Little trick for linux harbour users

[Guy Roussin]

Hi,

$ cat t.prg
#!/usr/bin/hbrun

proc main()
? isbit(5,1)
return


I get an error with :
./t.prg
because hbct (isbit()) is not linked with hbrun ...

So as a workaround i replace the first line of the
harbour script like this :

$ cat t.prg
#ifdef SH_COMPILATION /* sh compilation :
hbmk2 -notrace -quiet -run -q0 -n -p -gtcgi -lhbct $0
exit
*/
#endif

proc main()
? isbit(5,1)
return

now my harbour script run fine :
./t.prg
.T.

Note that you can always compile the code with hbmk2 :
hbmk2 -notrace -quiet -run -q0 -n -p -gtcgi -lhbct t

Cool ... no ?

Perhaps it is possible to replace
#!/usr/bin/hbrun

with something like this :

#!/usr/bin/hbmk2 ...

?

--
Guy

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

Re: [Harbour] Changing install prefix in linux ?

[Guy Roussin]

Hi Bruno,

I think it's a bad idea.  "/usr/local" is the good path for linux/ubuntu
when you manualy install software (make; make install).
And /usr is the good path for deb packages only.

Notice that with harbour you can build your own ubuntu package :
$ /path/to/harbour
$ fakeroot sh mpkg_deb.sh
and install it :
$ sudo dpkg -i ../harbour*deb
Now harbour use /usr

My 2c,

Guy

Bruno Luciani a écrit :

I try to set HB_INSTALL_PREFIX using

export HB_INSTALL_PREFIX=/usr

But when I execute , make install  the target is /usr/local and this 
path is wrong

for UBUNTU

Any Idea ?

Bruno


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

Re: [Harbour] Changing install prefix in linux ?

[Guy Roussin]

Hi Bruno,



In previous versions of Harbour I make the change because
harbour package from ubuntu repositories install in /usr and not in 
/usr/local

Yes harbour package from ubuntu install in /usr ... fine.



Now I have a mess in my machine , I am triyng to delete manually
the old executables , library and include directories , to use the 
newest version


When you install the new version of harbour (you build yourself) with 
dpkg -i,

the old version package will be automaticly removed.

You can also remove the old version :
$ sudo aptitude remove harbour


Linux use first /usr


No, you can change $PATH, $LD_LIBRARY_PATH, $LD_INCLUDE_PATH
export PATH=/usr/local/bin:$PATH
export LD_LIBRARY_PATH=/usr/local/lib/harbour

...

even /etc/ld.so.conf (ldconfig) is read before /usr/lib



anyway something is wrong , because if I compile in dinamyc , the 
executable give me an

error , that not found the harbour shared library, in static compiles ok

I don't know now what is better

Sorry i can't help you here. Give the logs to the list ...

Guy

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

[Harbour] Can't build harbour/debian with current svn

[Guy Roussin]

Hi,

$ LANG=C fakeroot sh mpkg_deb.sh
mpkg_deb.sh: line 123: ./bin/pack_src.sh: No such file or directory

Thank you,

--
Guy

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

Re: [Harbour] Can't build harbour/debian with current svn

[Guy Roussin]

Hi,

 > $ LANG=C fakeroot sh mpkg_deb.sh

fakeroot debian/rules binary

Thank you Tamas

I use :

> $ dpkg-buildpackage -rfakeroot -uc -b

and build is fine.
I suggest to remove mpkg_deb.sh from svn

--
Guy 


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

Re: [Harbour] SF.net SVN: harbour-project:[12784] trunk/harbour

[Guy Roussin]

Hi Viktor,

missing .txt only disturb windows users because notepad add .txt
to each files ;-)

+1 to conserv the current naming.

Regards

Guy

Viktor Szakáts a écrit :

Imo most information in install.doc are also good in readme.txt


Majority of content in this file used to be stored
in file named 'INSTALL' in other projects. IMO readme.txt
just gets ignored, plus I wouldn't want to update
everything in two copies, plus it simpler to point everyone
to ONE file instead of scattering related information into
two. So I prefer to keep one file.

Missing .txt extension is disturbing though, and I can just
wonder why this became the de facto standard name for
these files. I personally never use obscure or no extension
with files meant for user consumption.

Such renaming in Harbour would look like this:

ChangeLog -> CHANGES.txt
COPYING -> COPYING.txt
INSTALL -> INSTALL.txt
TODO -> TODO.txt

If there are no objections, I can do it.

Brgds,
Viktor



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

Re: [Harbour] Re: Random links

[Guy Roussin]

Hi,


BTW, does someone know if it's possible to run dosemu under
amd64 Ubuntu?

I'm tempted to move to 64-bit, but I'd cut myself out of
DOS even more if it breaks dosemu.

i don't try it but it's there :
http://packages.ubuntu.com/search?lang=fr&keywords=dosemu

--
Guy Roussin


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

[Harbour] xhb-diff.txt little typo

[Guy Roussin]

Hi,

I get this error with the sample in lines 111->117
./tst.prg(4) Error E0020  Incomplete statement or unbalanced delimiters
./tst.prg(8) Error E0013  NEXT does not match FOR
2 errors

I replace the line 112:
FOR EACH c IN (@s)
with :
FOR EACH c IN @s

and now compile is fine.

I found this documentation very usefull.
Thank you Przemek,

--
Guy 


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

Re: [Harbour] ASCAN slow - proposal weighted search

[Guy Roussin]

Hi Fernando,

Perhaps you can use hbmemio. I think that hbmemio
has been created for this purpose...

Guy

Fernando Athayde a écrit :
ASORT(::aArrayResumo, {|a,b| str(a[1],11)+str(a[3],11)+dtoc(a[5])+a[7] 
> str(b[1],11)+str(b[3],11)+dtoc(b[5])+b[7] } )


//Normal way (Slow for more than 100 registers)
nPosicaoArray := ASCAN(::aArrayResumo, ;
 {|a| str(a[1],11)+str(a[3],11)+dtoc(a[5])+a[7] ==;
  STR( 
::oQueryRelatorioPrincipal:fieldGet('idgrupo_centro_custo'),11)+;
  
STR(::oQueryRelatorioPrincipal:fieldGet('idcentro_custo'),11 )+;
  DTOC(oDB:Mysql2Date 
(::oQueryRelatorioPrincipal:fieldGet('data_emissao') ) )+cSiglaMoeda} )


//Weighted search (Is very fast)
nPosicaoArray := 0
nArraySize := LEN( ::aArrayResumo )
nJump := nArraySize - 1
nPosition := 1
DO WHILE .T.
   nPosition += nJump
   IF nPosition > nArraySize
  nJump := 0
  nPosition := nArraySize
   ENDIF
   IF 
str(::aArrayResumo[nPosition,1],11)+str(::aArrayResumo[nPosition,3],11);
   
+dtoc(::aArrayResumo[nPosition,5])+::aArrayResumo[nPosition,7] >;
  STR( 
::oQueryRelatorioPrincipal:fieldGet('idgrupo_centro_custo'),11 );
+STR( 
::oQueryRelatorioPrincipal:fieldGet('idcentro_custo'),11 );
+DTOC(oDB:Mysql2Date 
(::oQueryRelatorioPrincipal:fieldGet('data_emissao') ) )+cSiglaMoeda


  nPosition -= nJump
  nJump := INT(nJump/2)
   ENDIF
   IF 
str(::aArrayResumo[nPosition,1],11)+str(::aArrayResumo[nPosition,3],11);

+dtoc(::aArrayResumo[nPosition,5])+::aArrayResumo[nPosition,7] ==
  STR( 
::oQueryRelatorioPrincipal:fieldGet('idgrupo_centro_custo'),11 );
+STR( 
::oQueryRelatorioPrincipal:fieldGet('idcentro_custo'),11 );
+DTOC(oDB:Mysql2Date 
(::oQueryRelatorioPrincipal:fieldGet('data_emissao') ) )+cSiglaMoeda

  nPosicaoArray := nPosition
  EXIT
   ENDIF
   IF nJump<1
  EXIT
   ENDIF
ENDDO

my proposal is made a ASCANEX sending a block how parameter
but i don´t know how to use eval and blocks

Thanks,
Fernando Athayde


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

Re: [Harbour] Array

[Guy Roussin]

Hi,


Is there a different way to initialize/create an associative array in 
Harbour?

v := {=>}

Guy
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Re: [Harbour] Testing Linux

[Guy Roussin]

Hi,



I have tried building Harbour under Mandriva 2010 and compiled the 
hello.prg successfully but when I run, I have the following error.  
But I have verified that the libharbour.so was found under 
/usr/local/lib and /usr/local/lib/harbour.

Add as root:
/usr/local/lib/
/usr/local/lib/harbour

in /etc/ld.so.conf

then type:
ldconfig


Guy
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Re: [Harbour] Problems updating from SVN

[Guy Roussin]

Hi,



But I never need to do that
until yesterday all works ok


Same problem here (linux)

There is a strange filename in the repository :
$ svn update
svn: Erreur en convertissant une entrée du répertoire 'contrib/hbide' 
vers UTF8

svn: Données UTF-8 valides
(hex:)
suivies par une séquence UTF-8 invalide
(hex: f0 e3 67 f6)

$ file contrib/hbide/*
contrib/hbide/freadlin.c: ASCII C program text
contrib/hbide/��g�ut.log: ASCII text
contrib/hbide/hbide: ELF 32-bit LSB executable, Intel 80386, version 1 
(SYSV), dynamically linked (uses shared libs), for GNU/Linux 2.6.18, not 
stripped

contrib/hbide/hbide.hbp: ASCII text
contrib/hbide/hbide.prg: ASCII C program text
contrib/hbide/hb_out.log: ASCII text
contrib/hbide/ideactions.prg: ASCII C program text
contrib/hbide/idemisc.prg: ASCII C program text
contrib/hbide/ideparseexpr.c: ASCII C program text
contrib/hbide/idestylesheets.prg: ASCII C program text
contrib/hbide/idetags.prg: ASCII C program text
contrib/hbide/resources: setgid directory

Notice the second filename in the list ...
i think this is a log file (not from svn) you can
remove it, if you can ;-) !

--
Guy

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Re: [Harbour] openSUSE 32-bit build on 64-bit [update#1]

[Guy Roussin]

Hi Viktor,

Anyhow until then my advice is to keep both 32-bit and 
64-bit hosts if there is a need to produce for both 
targets. Debian is indeed even worse, and process varies 
from distro to distro and version by version. Hopefully 
one day distro makers will talk to each other and sort 
out the lib/lib32/lib64 mess.


  


With debian/ubuntu you can use debootstrap to compile 32bits debian/ubuntu
packages on 64bits distro (debian, ubuntu, redhat, opensuse, ...)

For exemple (sorry don't test) :

First install debootstrap package (depend on your distrib.: debootstrap 
is in all distribs)

# aptitude install debootstrap

# mkdir /home/guy/debian32
# debootstrap --arch i386 lenny /home/guy/debian32 
http://ftp.us.debian.org/debian/

# chroot /home/guy/debian32

Install package to compile harbour :
# aptitude install gcc binutils debhelper  ... subversion ...

get harbour (you can also copy it from your host ) :
# svn ...

compile harbour with dpkg-buildpackage ...
# cd .../harbour
# dpkg-buildpackage -b

exit chroot :
# exit


With this, you can create debian/ubuntu package (32 and 64bits) on your 
opensuse :-)


Hopes it help.

Guy


___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Re: [Harbour] Error compiling hbqt/qtgui with current svn

[Guy Roussin]

Hi Pritpal,

gcc -I. -I../../../../../../include -Wall -W -O3 -I/usr/include/qt4
-I/usr/include/qt4/QtCore -I/usr/include/qt4/QtGui -oQSizeGrip.o -c
../../../QSizeGrip.cpp
../../../QSizeGrip.cpp:84: error: 'QSizeGrip' was not declared in this
scope


Sorry, my first reply is invalid.
Error message is different.
It suggests that you have missing line in QSizeGrip.cpp

#include 
I use regular svn without modifications (13677) and there is a
line (71) :

#include 
in QSizeGrip.cpp 


--
Guy 


___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Re: [Harbour] Error compiling hbqt/qtgui with current svn

[Guy Roussin]

Hi,

I use regular svn without modifications (13677) and there is a
line (71) :

#include 
in QSizeGrip.cpp



Yes, this line is since day ONE.
How come that you are experiencing this problem only today?

I cannot suggest anything, just see in your Qt distro about QSizeGrip
file and find out what has caused this problem.
  

I try to compile harbour on freemantle/maemo (never did before).
maemo is a linux distrib (debian derivative) for smartphone
supported by nokia. nokia promote qt on this platform.

QtGui/QSizeGrip is only one line : #include "qsizegrip.h"
and there is a file "qsizegrip.h" in /usr/include/qt4/QtGui

So, i think I am not qualified enough to solve this problem.

Thank you.

Guy

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

[Harbour] Error running hbide with today svn (13910)

[Guy Roussin]

Hi,

I get this error running hbide on linux debian sid 32 bits :
$ ./hbide
idemisc.prg:857:HBIDE_DBG(): HB_TR_ALWAYS NIL
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS WidgetmainWindow   
QMainWindow  QMainWindow():new()
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   mainWindow   
resize(851, 473)
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   mainWindow   
setDocumentMode(true)
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   mainWindow   
setTabShape(1)
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   mainWindow   
setDockNestingEnabled(false)
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   mainWindow   
setDockOptions(1)
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS new   drawingArea  
QWidget(o[ "mainWindow" ])
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   mainWindow   
setCentralWidget(o[ "drawingArea" ])
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS new   menuBar  
QMenuBar(o[ "mainWindow" ])
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   menuBar  
setGeometry(QRect():new(0, 0, 851, 24))
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   mainWindow   
setMenuBar(o[ "menuBar" ])
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS new   statusBar
QStatusBar(o[ "mainWindow" ])
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   mainWindow   
setStatusBar(o[ "statusBar" ])
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   mainWindow   
setWindowTitle(q__tr("mainWindow", "MainWindow", 0, "UTF8"))
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS 

THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS ConstrdrawingArea  
{|o| QWidget():new(o[ "mainWindow" ])}
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS ConstrmenuBar  
{|o| QMenuBar():new(o[ "mainWindow" ])}
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS ConstrstatusBar
{|o| QStatusBar():new(o[ "mainWindow" ])}
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS 

THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS mainWindow   {|o,v| 
o[v]:resize(851, 473)}
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS mainWindow   {|o,v| 
o[v]:setDocumentMode(.T.)}
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS mainWindow   {|o,v| 
o[v]:setTabShape(1)}
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS mainWindow   {|o,v| 
o[v]:setDockNestingEnabled(.F.)}
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS mainWindow   {|o,v| 
o[v]:setDockOptions(1)}
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS mainWindow   {|o,v| 
o[v]:setCentralWidget(o[ "drawingArea" ])}
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS menuBar  {|o,v| 
o[v]:setGeometry(QRect():new(0, 0, 851, 24))}
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS mainWindow   {|o,v| 
o[v]:setMenuBar(o[ "menuBar" ])}
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS mainWindow   {|o,v| 
o[v]:setStatusBar(o[ "statusBar" ])}
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS mainWindow   {|o,v| 
o[v]:setWindowTitle(q__tr("mainWindow", "MainWindow", 0, "UTF8"))}
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS WidgetForm 
QWidget  QWidget():new()
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   Form 
resize(572, 38)
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   Form 
setStyleSheet(QString::fromUtf8("border-color: 
qlineargradient(spread:pad, x1:0, y1:0, x2:1, y2:0, stop:0 rgba(0, 0, 0, 
255), stop:1 rgba(255, 255, 255, 255));"))
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS new   horizontalLayout 
QHBoxLayout(o[ "Form" ])
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS new   buttonClose  
QToolButton(o[ "Form" ])
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   horizontalLayout 
addWidget(o[ "buttonClose" ])
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS new   label
QLabel(o[ "Form" ])
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   label
setMaximumSize(QSize():new(25, 16777215))
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   horizontalLayout 
addWidget(o[ "label" ])
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS new   comboBox 
QComboBox(o[ "Form" ])
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   comboBox 
setMinimumSize(QSize():new(200, 0))
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   comboBox 
setMaximumSize(QSize():new(100, 16777215))
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   horizontalLayout 
addWidget(o[ "comboBox" ])
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS new   toolButton_2 
QToolButton(o[ "Form" ])
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   horizontalLayout 
addWidget(o[ "toolButton_2" ])
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS new   toolButton_3 
QToolButton(o[ "Form" ])
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS Command   horizontalLayout 
addWidget(o[ "toolButton_3" ])
THbQtUI.prg:0:HBQ_DBG(): HB_TR_ALWAYS new   horizontalSpacer 
QSpacerItem(40, 20, 7, 1)
THbQtUI

Re: [Harbour] Re: Error running hbide with today svn (13910)

[Guy Roussin]

I get this error running hbide on linux debian sid 32 bits :
$ ./hbide

Unrecoverable error 6005: Exception SIGSEGV at address 0x29
Called from HBIDE:_OSEARCHREPLACE(0) in ../../../tobject.prg
Called from IDEDOCKS:BUILDSEARCHREPLACEWIDGET(333) in idedocks.prg
Called from IDEDOCKS:BUILDDIALOG(300) in idedocks.prg
Called from HBIDE:CREATE(331) in hbide.prg
Called from MAIN(110) in hbide.prg

 

1. Ensure that searchreplace.uic is present in hbide/resources.
   

yes it is

2. Ensureyou are using r13910 or above
   

yes r13910 (see subject) and now 13912


3. Rebuild hbIDE.
   

cd /usr/local/src/harbour
svn update  ' --> now rev 13912
make clean
make
sudo make install
cd contrib/hbide
./hbmk2 hbide.hbp
./hbide
{same crash}
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Re: [Harbour] hbIDE - On-line documentation-cum-distro update

[Guy Roussin]

Hi Pritpal,

I try hbide on my debian sid, it compiles fine but i get some errors
when running, i report them here :

=>  Error when applying a theme
$ ./hbide

Unrecoverable error 6005: Exception SIGSEGV at address 0x61
Called from HBQTUI:_QOBJ(0)
Called from HBQTUI:DESTROY(0) in ../../../THbQtUI.prg
Called from IDETHEMES:SELECTTHEME(716) in idethemes.prg
Called from IDEEDITOR:APPLYTHEME(1359) in ideeditor.prg
Called from IDEEDIT:EXECEVENT(1632) in ideeditor.prg
Called from (b)IDEEDIT_CONNECTEDITSIGNALS(1580) in ideeditor.prg
Called from QT_QEVENTLOOP_PROCESSEVENTS(0)
Called from QEVENTLOOP:PROCESSEVENTS(0) in ../../../TQEventLoop.prg
Called from APPEVENT(0) in ../../../xbpgeneric.prg
Called from HBIDE:CREATE(517) in hbide.prg
Called from MAIN(115) in hbide.prg

=>  Incorrect syntax coloration when a comment is like this :
//


=>  When i create a new project, if i click save button i get this error :

Error BASE/1132  Bound error: array access
Called from IDEHOME:ADDPROJECTSINFO(358)
Called from IDEHOME:REFRESH(316)
Called from IDEPROJMANAGER:SAVE(554)
Called from (b)IDEPROJMANAGER_BUILDINTERFACE(702)
Called from QT_QEVENTLOOP_PROCESSEVENTS(0)
Called from QEVENTLOOP:PROCESSEVENTS(0)
Called from APPEVENT(0)
Called from HBIDE:CREATE(517)
Called from MAIN(115)

Thank you for the great job.

--
Guy

___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

[Harbour] time in seconds since 1970

[Guy Roussin]

Hi,

I try to get the time since 1970/01/01 0:00 GMT
in seconds (same as date '+%s') or better in milliseconds
with harbour.

How can i do that ?

Thank you.

--
Guy 


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

Re: [Harbour] time in seconds since 1970

[Guy Roussin]

Hi Viktor,

Thank you for the quick reply.

But i think that -t"1970-01-01" is not "00:00 GMT"
but "00:00 local time" isn't it ?

So this is not exactly the result i expect ...

Guy

Viktor Szakáts a écrit :

Hi Guy,

In ms:
? ( hb_datetime() - t"1970-01-01" ) * ( 24 * 60 * 60 * 1000 )

--
Viktor

On Fri, Mar 27, 2009 at 7:09 PM, Guy Roussin 
mailto:guy.rous...@teledetection.fr>> 
wrote:


Hi,

I try to get the time since 1970/01/01 0:00 GMT
in seconds (same as date '+%s') or better in milliseconds
with harbour.

How can i do that ?

Thank you.


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

Re: [Harbour] time in seconds since 1970

[Guy Roussin]

Hi Przemek,



Thank you for the quick reply.
But i think that -t"1970-01-01" is not "00:00 GMT"
but "00:00 local time" isn't it ?
So this is not exactly the result i expect ...



It doesn't matter. t"1970-01-01" is some timestamp constant value.
Important is base value only.
Number of milliseconds from 1970-01-01 00:00 GMT:

   ? INT( ( hb_ntot( HB_MILLISECONDS() ) - t"1970-01-01" ) * ;
  ( 24 * 60 * 60 * 1000 ) )

Local time difference to GMT in milliseconds:

   ? INT( hb_tton( hb_datetime() ) * ( 24 * 60 * 60 * 1000 ) - ;
  HB_MILLISECONDS() )

HB_MILLISECONDS() returns julian time in milliseconds.
  

Thank for explanation but i don't get the results i espect ...

$ cat t.prg
? INT( ( hb_datetime() - t"1970-01-01" ) * ( 24 * 60 * 60 * 1000 ) )
? INT( ( hb_ntot( HB_MILLISECONDS() ) - t"1970-01-01" ) * ( 24 * 60 * 60 
* 1000 ) )
? INT( hb_tton( hb_datetime() ) * ( 24 * 60 * 60 * 1000 ) -  
HB_MILLISECONDS() )


$ hbmk2 t
hbmk: Processing configuration: /usr/bin/hbmk.cfg
Harbour 1.1.0dev (Rev. 10716)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 't.prg'...
Lines 4, Functions/Procedures 1
Generating C source output to 't.c'... Done.

$ ./t ; echo "`date '+%s'` * 1000" | bc
 
  
1238197444690 


  53546455702024200
  360 
1238193844000


I don't understand the second result.
I suppose the result must be the same as
date "+%s" * 1000. No ?

Best regards,

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

Re: [Harbour] time in seconds since 1970

[Guy Roussin]

Hi Przemek,

Why i get this :

? hb_ntot( HB_MILLISECONDS() )

00/00/00 00:00:00.000

Best regards,

Guy

Przemyslaw Czerpak a écrit :

On Fri, 27 Mar 2009, Guy Roussin wrote:
  

Thank you for the quick reply.
But i think that -t"1970-01-01" is not "00:00 GMT"
but "00:00 local time" isn't it ?
So this is not exactly the result i expect ...



It doesn't matter. t"1970-01-01" is some timestamp constant value.
Important is base value only.
Number of milliseconds from 1970-01-01 00:00 GMT:

   ? INT( ( hb_ntot( HB_MILLISECONDS() ) - t"1970-01-01" ) * ;
  ( 24 * 60 * 60 * 1000 ) )

Local time difference to GMT in milliseconds:

   ? INT( hb_tton( hb_datetime() ) * ( 24 * 60 * 60 * 1000 ) - ;
  HB_MILLISECONDS() )

HB_MILLISECONDS() returns julian time in milliseconds.

best regards,
Przemek


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

Re: [Harbour] time in seconds since 1970

[Guy Roussin]

Thank you very much Przemek,
Now i understand. Very good example.

Note that i'm looking for this function to "simulate"
the time() function of php ...
http://www.w3schools.com/php/func_date_time.asp

Best regards,

Guy

Przemyslaw Czerpak a écrit :

On Sat, 28 Mar 2009, Guy Roussin wrote:
  

Hi Przemek,
Why i get this :
? hb_ntot( HB_MILLISECONDS() )
00/00/00 00:00:00.000



Because HB_MILLISECONDS() returns julian time in milliseconds.
I guess you wanted to make sth like:
   ? hb_ntot( HB_MILLISECONDS() / ( 24 * 60 * 60 * 1000 ) )
And you were confused by missing: / ( 24 * 60 * 60 * 1000 )
in exmaple I sent. Sorry, my typo.
I think this code should help you:

   #define MILLISEC_PER_DAY  ( 24 * 60 * 60 * 1000 )

   proc main()
  ? " local time:", hb_datetime()
  ? "   UTC time:", utc_time()
  ?
  ? utc_time() - t"1970-01-01", "days"
  ? int( ( utc_time() - t"1970-01-01" ) * MILLISEC_PER_DAY ), "milliseconds"
   return

   func utc_time()
   return hb_ntot( hb_milliSeconds() / MILLISEC_PER_DAY )


best regards,
Przemek
  


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

[Harbour] hbmk2: little bug and ask for a new feature ...

[Guy Roussin]

Hi,

- I notice a little bug with hbmk2 (debian lenny 5.0 - harbour svn 10781):

$ echo '? "hello"' > t.prg
$ hbmk2 t
hbmk: Processing configuration: /usr/bin/hbmk.cfg
Harbour 1.1.0dev (Rev. 10781)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 't.prg'...
Lines 1, Functions/Procedures 1
Generating C source output to 't.c'... Done.
/usr/bin/ld: cannot find -llibharbour
collect2: ld returned 1 exit status
hbmk: Error: Running C compiler. 256:
gcc t.c /tmp/hbmk_lzvh26.c   -O3  -ot -I/usr/include/harbour 
-L/usr/lib/harbour -Wl,--start-group -llibharbour -lhbcplr -lhbdebug 
-Wl,--end-group



notice : -llibharbour
i suppose it must be -lharbour  ?

- Is-it possible to run hbmk2 *without executing anything*, only 
displaying the command lines ?


I think this feature would be very usefull.

- In the INSTALL file we can have the debian way (ubuntu,...) to install 
harbour :


---
$ fakeroot sh mpkg_deb.sh
$ sudo dpkg -i ../harbour_1.*.deb

To test it type:
$ echo '? "Hello world!"' > hello.prg
$ ./hello
You should see 'Hello world!' on screen.


we should add also the rpm way ...

Thanks,

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

Re: [Harbour] hbmk2: little bug and ask for a new feature ...

[Guy Roussin]

Sorry a line is missing :

---
$ fakeroot sh mpkg_deb.sh
$ sudo dpkg -i ../harbour_1.*.deb

To test it type:
$ echo '? "Hello world!"' > hello.prg

$ hbmk2 hello

$ ./hello
You should see 'Hello world!' on screen.


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

Re: [Harbour] hbmk2: little bug and ask for a new feature ...

[Guy Roussin]

Hi Viktor,



- Is-it possible to run hbmk2 *without executing anything*, only
displaying the command lines ?


See it committed.

Thank you Viktor to consider this feature.

$ hbmk2 -traceonly t
hbmk: Processing configuration: /usr/bin/hbmk.cfg
hbmk: Harbour compiler command:
-n2 t -i/usr/include/harbour
hbmk: C compiler command:
gcc t.c   -O3  -ot -I/usr/include/harbour -L/usr/lib/harbour 
-L/usr/lib/harbour -Wl,--start-group -llibharbour -lhbcplr -lhbdebug 
-Wl,--end-group


I'd prefer something like this (only 2 lines) :
harbour -n2 t -i/usr/include/harbour
gcc t.c   -O3  -ot -I/usr/include/harbour -L/usr/lib/harbour 
-L/usr/lib/harbour -Wl,--start-group -llibharbour -lhbcplr -lhbdebug 
-Wl,--end-group


=> remove line starting with "hbmk: " perhaps with -quiet ?
=> add "harbour" to the harbour compiler command

So i can cut and paste or edit and run to make some tests ... very usefull
For example, now i can fix the -llibharbour => -lharbour ;-)

 


I think this feature would be very usefull.

- In the INSTALL file we can have the debian way (ubuntu,...) to
install harbour :

---
$ fakeroot sh mpkg_deb.sh
$ sudo dpkg -i ../harbour_1.*.deb

To test it type:
$ echo '? "Hello world!"' > hello.prg
$ ./hello
You should see 'Hello world!' on screen.


we should add also the rpm way ...


Package creation isn't in the scope of INSTALL, as I intentionally 
didn't want to complicate things with it (package creation isn't 
a requirement to create a usable *nix build). We should have 
another document describing package creation related topics. 
But, probably someone else will be a better candidate to give details 
on these, as I don't use them, and I don't understand how they work 
or why they work the way they do on different situations and distros.


Otherwise it'd be good to have such doc to clear up any question 
regarding all the pkg creation variations we have.

Yes, agreed, packaging must be in distros ...

Best regards,

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

Re: [Harbour] hbmk2: little bug and ask for a new feature ...

[Guy Roussin]

Hi Viktor,


So i can cut and paste or edit and run to make some tests ... very
usefull
For example, now i can fix the -llibharbour => -lharbour ;-)


I've fixed that, and the problem wasn't exactly that. See ChangeLog.
Pls tell if it still doesn't work.

The problem is still here. Exactly the same one (svn 10804)

$ cat t.prg
? 'bonjour'
$ hbmk2 t
hbmk: Processing configuration: /usr/bin/hbmk.cfg
Harbour 1.1.0dev (Rev. 10804)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 't.prg'...
Lines 1, Functions/Procedures 1
Generating C source output to 't.c'... Done.
/usr/bin/ld: cannot find -llibharbour
collect2: ld returned 1 exit status
hbmk: Error: Running C compiler. 256:
gcc t.c /tmp/hbmk_0epu8v.c   -O3  -ot -I/usr/include/harbour 
-L/usr/lib/harbour -L/usr/lib/harbour -Wl,--start-group -llibharbour 
-lhbcplr -lhbdebug -Wl,--end-group



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

Re: [Harbour] hbmk2: little bug and ask for a new feature ...

[Guy Roussin]

Hi Viktor,

Thank Viktor for your effort to fix this problem.

Thanks Guy, the libdirs are still wrong, could you post your 
-trace -info output? (-info is the important bit here)




$ hbmk2 -trace -info t
hbmk: Autodetected architecture: linux
hbmk: Autodetected compiler: gcc
hbmk: Using Harbour: /usr/bin /usr/include/harbour /usr/lib/harbour 
/usr/lib/harbour

hbmk: Processing configuration: /usr/bin/hbmk.cfg
hbmk: Harbour compiler command (internal):
/usr/bin/harbour -n2 t -i/usr/include/harbour
Harbour 1.1.0dev (Rev. 10804)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 't.prg'...
Lines 1, Functions/Procedures 1
Generating C source output to 't.c'... Done.
hbmk: C compiler command:
gcc t.c /tmp/hbmk_ea4tbt.c   -O3  -ot -I/usr/include/harbour 
-L/usr/lib/harbour -L/usr/lib/harbour -Wl,--start-group -llibharbour 
-lhbcplr -lhbdebug -Wl,--end-group

/usr/bin/ld: cannot find -llibharbour
collect2: ld returned 1 exit status
hbmk: Error: Running C compiler. 256:
gcc t.c /tmp/hbmk_ea4tbt.c   -O3  -ot -I/usr/include/harbour 
-L/usr/lib/harbour -L/usr/lib/harbour -Wl,--start-group -llibharbour 
-lhbcplr -lhbdebug -Wl,--end-group



Note also there is 2 occurences of "-L/usr/lib/harbour"

Also please tell where you harbour shared libs can be found 
in your installation?




$ dpkg -L harbour | grep so$
/usr/lib/harbour/libharbour-1.1.0.so
/usr/lib/harbour/libharbourmt-1.1.0.so
/usr/lib/harbour/libharbour.so
/usr/lib/harbour/libharbourmt.so
/usr/lib/libharbour.so
/usr/lib/libharbourmt.so

The 4 last are links on the first 2.

$ dpkg -L harbour | grep a$
/usr/lib/harbour/libhbcommon.a
/usr/lib/harbour/libhbpp.a
/usr/lib/harbour/libhbcplr.a
/usr/lib/harbour/libhbrtl.a
/usr/lib/harbour/libgtcgi.a
/usr/lib/harbour/libgtpca.a
/usr/lib/harbour/libgtstd.a
/usr/lib/harbour/libgttrm.a
/usr/lib/harbour/libgtcrs.a
/usr/lib/harbour/libgtxwc.a
/usr/lib/harbour/libhbvm.a
/usr/lib/harbour/libhbfm.a
/usr/lib/harbour/libhbvmmt.a
/usr/lib/harbour/libhbfmmt.a
/usr/lib/harbour/libhbmacro.a
/usr/lib/harbour/libhbcpage.a
/usr/lib/harbour/libhblang.a
/usr/lib/harbour/libhbrdd.a
/usr/lib/harbour/libhbnulrdd.a
/usr/lib/harbour/librddntx.a
/usr/lib/harbour/librddnsx.a
/usr/lib/harbour/librddcdx.a
/usr/lib/harbour/librddfpt.a
/usr/lib/harbour/libhbsix.a
/usr/lib/harbour/libhbhsx.a
/usr/lib/harbour/libhbusrrdd.a
/usr/lib/harbour/libhbuddall.a
/usr/lib/harbour/libhbextern.a
/usr/lib/harbour/libhbpcre.a
/usr/lib/harbour/libhbzlib.a
/usr/lib/harbour/libhbdebug.a
/usr/lib/harbour/libhbbmcdx.a
/usr/lib/harbour/libhbbtree.a
/usr/lib/harbour/libhbclipsm.a
/usr/lib/harbour/libhbct.a
/usr/lib/harbour/libhbgt.a
/usr/lib/harbour/libhbmisc.a
/usr/lib/harbour/libhbmsql.a
/usr/lib/harbour/libhbmzip.a
/usr/lib/harbour/libhbnf.a
/usr/lib/harbour/libhbsqlit3.a
/usr/lib/harbour/libhbtip.a
/usr/lib/harbour/libhbtpathy.a
/usr/lib/harbour/libhbvpdf.a
/usr/lib/harbour/libhbziparc.a
/usr/lib/harbour/libxhb.a
/usr/lib/harbour/libhbhpdf.a
/usr/lib/harbour/libhbcurl.a
/usr/lib/harbour/libhbgd.a
/usr/lib/harbour/libhbmysql.a
/usr/lib/harbour/libhbodbc.a
/usr/lib/harbour/libhbpgsql.a
/usr/lib/harbour/liblibhpdf.a

Guy

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

Re: [Harbour] hbmk2: little bug and ask for a new feature ...

[Guy Roussin]

Hi Viktor,

Fine here with svn 10815

Perhaps you can add a line for "-traceonly" option in
"hbmk2 -help"

I found the name "-traceonly" not very accurate because
we need "-quiet" to have *only* trace ...
Perhaps, the name "-trace" is better or, another option
is to automatically  activate "-quiet" when we use "-traceonly"

However, not very important ...

Guy

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

Re: [Harbour] hbmk2: little bug and ask for a new feature ...

[Guy Roussin]

Perhaps you can add a line for "-traceonly" option in
"hbmk2 -help"

I found the name "-traceonly" not very accurate because
we need "-quiet" to have *only* trace ...
Perhaps, the name "-trace" is better or, another option
is to automatically  activate "-quiet" when we use "-traceonly"


Sorry, i don't read carrefully the hbmk2 -help :-(

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

[Harbour] hbmk2 error in gcc parameters for linux

[Guy Roussin]

Hi Viktor,

I think i found an error in hbmk2 for linux

$ hbmk2 t2
hbmk: Processing configuration: /usr/bin/hbmk.cfg
hbmk: Processing: ginfo.hbp
Harbour 1.1.0dev (Rev. 10887)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 't2.prg'...
Lines 4, Functions/Procedures 1
Generating C source output to 't2.c'... Done.
/usr/bin/ld: cannot find -llibmysqlclient
collect2: ld returned 1 exit status
hbmk: Error: Running linker. 256:
gcc t2.o hbmk_2f15xh.o   -Wl,--start-group -lharbour -lgpm -lhbmysql 
-llibmysqlclient -lhbcplr -lhbdebug -Wl,--end-group -ot2 -L/usr/lib/harbour


The ld syntax must be -lmysqlclient
and not -llibmysqlclient

Thank you,

--
Guy

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

Re: [Harbour] hbmk2 error in gcc parameters for linux

[Guy Roussin]

Thank you Viktor,

hbmk2 isn't doing any transformation regarding lib prefix,
so the solution here is not to pass it via ginfo.hbp.
  

$ cat ginfo.hbp
libs=hbmysql libmysqlclient

I fix ginfo.hbp :
$ cat ginfo.hbp
libs=hbmysql mysqlclient

and now t2 (and ginfo) compile fine.

I did not think that, by default, all .hbp files in the current 
directory were processed.


Best regards,

--
Guy Roussin


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

[Harbour] Little error et xml parser

[Guy Roussin]

Hi,

1. I notice this error when i run prg with hbrun :
$ ./td.prg ( or$ hbrun td.prg )
Error BASE/6101  Unknown or unregistered symbol: HB_GT_CGI_DEFAULT (Quit)
Error BASE/6101  Unknown or unregistered symbol: HB_GT_CGI_DEFAULT
Called from HB_HRBRUN(0) 


( I know that i can make #!/usr/bin/hbrun //GTCGI in the first line )


2. I'm looking for a "simple" xml parser for harbour (xml file => array 
of hash)

Do you know a free parser for harbour ?

Thank you,

--
Guy 


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

Re: [Harbour] Ubuntu adventure

[Guy Roussin]

Hi,

Here the way i compile and install harbour (as user and not root !):
perhaps you need to install fakeroot and some others packages

$ cd
$ svn co 
https://harbour-project.svn.sourceforge.net/svnroot/harbour-project/trunk/harbour 


$ cd harbour
$ fakeroot sh mpkg_deb.sh
$ sudo dpkg -i ../harbour_1.0.1-1_i386.deb

Guy


Angel Pais a écrit :
Finally I've got crazy enought to try to build harbour from svn on 
UBUNTU 9.04


Followed INSTALL Instructions but failed in ./make_gnu install

This is the log:

abu...@abuntu:~/src/harbour$ sudo ./make_gnu.sh install
[sudo] password for abuntu:
make -C doc install _HB_BLD=yes
make[1]: se ingresa al directorio `/home/abuntu/src/harbour/doc'
make -C en-EN install _HB_BLD=yes
make[2]: se ingresa al directorio `/home/abuntu/src/harbour/doc/en-EN'
make[2]: No se hace nada para `install'.
make[2]: se sale del directorio `/home/abuntu/src/harbour/doc/en-EN'
make[1]: se sale del directorio `/home/abuntu/src/harbour/doc'
make -C include install _HB_BLD=yes
make[1]: se ingresa al directorio `/home/abuntu/src/harbour/include'
! Can't install, path not found: '/usr/local/include/harbour'
make[1]: *** [install] Error 1
make[1]: se sale del directorio `/home/abuntu/src/harbour/include'
make: *** [include.inst] Error 2


Any Clue ?

TIA
Angel Pais



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

[Harbour] hb_asize()

[Guy Roussin]

Hello,

I suppose this is not a bug but a pointer behavior.
I try to create a 2D array and this is what i get :

#!/usr/bin/hbrun

function main()
local aArray:={}

asize(aArray,20)
afill(aArray,{})
aeval(aArray,{|x|asize(x,5)})

aArray[5,2]:="test"
? aArray[4,2] // test !

return (NIL)


I'll found usefull something like this :

hb_asize(aArray,20,5)

Thanks,

--
Guy 


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

Re: [Harbour] hb_asize()

[Guy Roussin]

Thank you Przemyslaw and Mindaugas for the quick answer,

I found afill() not very intuitive. But as you said i can use aeval ...

Guy

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

Re: [Harbour] Re: dbu

[Guy Roussin]

Hi,


Maybe we can include another dbu clone, Alexander's dbc come in mind 
(Hello Alex :-))


I'm ready to provide dbc sources under common Harbour license.


Thank you Alexander, this is a great news.

This kind of utility is really missing in harbour package ...

--
Guy

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

[Harbour] Some suggestions

[Guy Roussin]

Hi,

1) I suggest a REQUEST HB_GT_CGI_DEFAULT in hbformat.prg
for linux users ...

2) On my distro (debian stable) i have libqt v4.4. This is not enought
for hbqt. So the builded package is broken.
Perhaps, in mpkg_deb.sh we can test version of libqt4 ?
$ dpkg -l libqt4-dev | grep "^ii"
ii  libqt4-dev   
4.4.3-1  Qt 4 development files


3) We need to increment harbour version in debian/changelog

--
Guy


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

Re: [Harbour] Re: dbu

[Guy Roussin]

lol

reformat is Alexander code ;-)

Guy

For reformat i suggest you harbour utility hbformat made by same
expertise as hbmk2 creator (Viktor) : professional software easy to
use and with powerful result

2009/6/10 Alexander S.Kresin :
  

Many thanks for this offer, we can for sure place it inside
'examples/dbc'. Feel free to commit it, or I can do it if you
send me the files.
  

 I'll commit it after reviewing and reformatting.




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

Re: [Harbour] Some suggestions

[Guy Roussin]

Viktor Szakáts a écrit :

3) We need to increment harbour version in debian/changelog


Is there a way to signal beta status? If there is
pls tell how, if there isn't I think we should only
increase it on final release just like we did in 1.0.x.


There is no beta status for debian package. RC ou beta is a
matter of upstream team (harbour developper).
The "debian" version number is after "*-*"

For example, if upstream version is
2.0.beta2svn11542
the "debian" number can be 2.0.beta2svn11542*-*1 ...
or 2.0.beta2svn11542*-*0.1lenny ...

--
Guy

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

Re: [Harbour] Some suggestions

[Guy Roussin]

Viktor Szakáts a écrit :

Does it look any good if add a new entry with header:

harbour (2.0.0beta1-2) unstable; urgency=low

?

yes, but you need to create an entry *exactly* like
the others. Be carefull with date format, empty lines, ...
There is a debian command (dch -i "2.0.0beta1-1")
to make this job.

I attach a diff file against the previous version.

Guy


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

Re: [Harbour] Some suggestions

[Guy Roussin]

Hi,


2) On my distro (debian stable) i have libqt v4.4. This is not enought
for hbqt. So the builded package is broken.
Perhaps, in mpkg_deb.sh we can test version of libqt4 ?
$ dpkg -l libqt4-dev | grep "^ii"
ii  libqt4-dev   
4.4.3-1  Qt 4 development files

Here is a patch to fix the problem.
Please, review it.

--
Guy



mpkg_deb.sh.diff
Description: patch
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Re: [Harbour] Some suggestions

[Guy Roussin]

Hi,




2) On my distro (debian stable) i have libqt v4.4. This is not enought
for hbqt. So the builded package is broken.
Perhaps, in mpkg_deb.sh we can test version of libqt4 ?
$ dpkg -l libqt4-dev | grep "^ii"
ii  libqt4-dev   
4.4.3-1  Qt 4 development files

I notice that if i regenerate moc_slots.cpp with libqt4 (4.4.3)
$ moc hbqt_slots.h > moc_slots.cpp
hbqt compile fine !

--
Guy

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

[Harbour] hbmk2: include and lib locations

[Guy Roussin]

Hi Viktor,

hbmk2 work fine when i create debian harbour package.

But if i build/install harbour with :

export HB_INSTALL_PREFIX=/usr/local
./make_gnu.sh install

I get this :

$ which hbmk2
/usr/local/bin/hbmk2

$ hbmk2 hello
hbmk: Processing configuration: /usr/local/bin/hbmk.cfg
Harbour 2.0.0beta1 (Rev. 11303)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 'hello.prg'...
Lines 11, Functions/Procedures 1
Generating C source output to 'hello.c'... Done.
hello.c:7:21: error: hbvmpub.h: Aucun fichier ou dossier de ce type
hello.c:8:20: error: hbinit.h: Aucun fichier ou dossier de ce type
hello.c:11: warning: data definition has no type or storage class
hello.c:11: warning: parameter names (without types) in function declaration
hello.c:12: warning: data definition has no type or storage class
hello.c:12: warning: parameter names (without types) in function declaration
hello.c: In function ‘HB_INIT_SYMBOLS_BEGIN’:
(...)

$ hbmk2 -traceonly hello
hbmk: Processing configuration: /usr/local/bin/hbmk.cfg
hbmk: Harbour compiler command (internal):
/usr/local/bin/harbour -n2 hello -i/usr/local/include
hbmk: C compiler command:
gcc -c -O3 -I/usr/local/include hello.c
hbmk: Linker command:
gcc hello.o -Wl,--start-group -lharbour -lhbcplr -lhbdebug 
-Wl,--end-group -ohello -L/usr/local/lib


note that include files are in /usr/local/include/harbour
and lib files in /usr/local/lib/harbour

Thank you,

--
Guy

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

Re: [Harbour] hbmk2: include and lib locations

[Guy Roussin]

Hi Viktor

Could you check if the file is there? 


yes, the file is there.

If it is, maybe the
check is wrong, in this case I'd like to ask you to do
a little tracing around that point to print the filename
in line #1009. Maybe it's wrong.

  

i think i found the problem.

I need to unset HB_INSTALL_PREFIX

$ echo $HB_INSTALL_PREFIX
/usr/local

$ hbmk2 hello
hbmk: Processing configuration: 
/usr/local/bin/hbmk.cfg 
Harbour 2.0.0beta1 (Rev. 11303)

Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 'hello.prg'...
Lines 11, Functions/Procedures 1
Generating C source output to 'hello.c'... Done.
hello.c:7:21: error: hbvmpub.h: Aucun fichier ou dossier de ce type
hello.c:8:20: error: hbinit.h: Aucun fichier ou dossier de ce type
(...)

$ unset HB_INSTALL_PREFIX
$ hbmk2 hello

/usr/local/bin/../include/harbour/hbvm.hhbmk: Processing configuration: 
/usr/local/bin/hbmk.cfg 
Harbour 2.0.0beta1 (Rev. 11303)

Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 'hello.prg'...
Lines 11, Functions/Procedures 1
Generating C source output to 'hello.c'... Done.


Guy

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

Re: [Harbour] hbmk2: include and lib locations

[Guy Roussin]

Hi Viktor


Can you retry both methods after r11317 ?
  


Works fine now with r11317.
Thank you.

Guy

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

[Harbour] hbqt in linux

[Guy Roussin]

Hi,

I try hbqt and i works fine, only a warning :
$ ./demoqt
Object::connect: No such signal QTreeView::hovered() in 
../../hbqt_slots.cpp:405
Object::connect: No such signal QListView::hovered() in 
../../hbqt_slots.cpp:405

This is on an unstable distrib with qt 4.5.1.

But i can't use it with my stable distrib (qt 4.4.3) and it is difficult in
a stable distrib to replace qt 4.4 with qt 4.5 without breaking a lot af 
stuff ...


With qt 4.4.3, I remark that i can build libhbqt.a if i make :
$moc hbqt_slots.h > moc_slots.cpp

But i can't link applications (demoqt.prg for example) :

$ hbmk2 demoqt
hbmk: Processing local make script: 
hbmk.hbm
hbmk: Processing configuration: 
/usr/local/bin/hbmk.cfg 
Harbour 2.0.0beta1 (Rev. 11360)

Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 'demoqt.prg'...
Lines 740, Functions/Procedures 18
Generating C source output to 'demoqt.c'... Done.
demoqt.o:(.data+0x38): undefined reference to `HB_FUN_QT_QAPPLICATION'
demoqt.o:(.data+0x58): undefined reference to `HB_FUN_QT_QAPPLICATION_EXEC'
demoqt.o:(.data+0x248): undefined reference to `HB_FUN_QT_CONNECT_SIGNAL'
demoqt.o:(.data+0x448): undefined reference to `HB_FUN_UIDEBUG'
demoqt.o:(.data+0x698): undefined reference to `HB_FUN_QT_QWEBVIEW_SETURL'
/usr/local/lib/harbour/libhbqt.a(TQAbstractButton.o):(.data+0xb8): 
undefined reference to `HB_FUN_QT_QABSTRACTBUTTON_AUTOEXCLUSIVE'
/usr/local/lib/harbour/libhbqt.a(TQAbstractButton.o):(.data+0xd8): 
undefined reference to `HB_FUN_QT_QABSTRACTBUTTON_AUTOREPEAT'
/usr/local/lib/harbour/libhbqt.a(TQAbstractButton.o):(.data+0xe8): 
undefined reference to `HB_FUN_QT_QABSTRACTBUTTON_AUTOREPEATDELAY'
/usr/local/lib/harbour/libhbqt.a(TQAbstractButton.o):(.data+0xf8): 
undefined reference to `HB_FUN_QT_QABSTRACTBUTTON_AUTOREPEATINTERVAL'
/usr/local/lib/harbour/libhbqt.a(TQAbstractButton.o):(.data+0x108): 
undefined reference to `HB_FUN_QT_QABSTRACTBUTTON_GROUP'

(...)

Is there a way to use hbqt with qt 4.4 on linux ?

Thank you.

--
Guy

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

[Harbour] cross compile harbour for linux mipsel

[Guy Roussin]

Hi,

I try to cross-compile harbour for linux mipsel on linux x86.
I install all the stuff necessary to cross compilation for mipsel.

I copy config/linux/gcc.cf to config/linux/mipsel-linux-gnu-gcc.cf

$ diff -uNr config/linux/gcc.cf config/linux/mipsel-linux-gnu-gcc.cf
--- config/linux/gcc.cf2009-04-06 14:37:17.0 +0200
+++ config/linux/mipsel-linux-gnu-gcc.cf2009-06-18 
15:45:13.0 +0200

@@ -110,7 +110,7 @@

LDFLAGS = $(LINKPATHS)

-AR = ar
+AR = mipsel-linux-gnu-ar
ARFLAGS = $(HB_USER_AFLAGS)
AR_RULE = $(AR) $(ARFLAGS) crs $(LIB_DIR)/$@ $(^F) || ( $(RM) 
$(LIB_DIR)/$@ && false )


$ export HB_COMPILER=mipsel-linux-gnu-gcc
$ sh make_gnu.sh
(...)
mipsel-linux-gnu-gcc -I. -I../../../../include  -Wall -W -O3-c 
../../reserved.c -oreserved.o
mipsel-linux-gnu-ar  crs 
../../../../lib/linux/mipsel-linux-gnu-gcc/libhbcommon.a expropt1.o 
expropt2.o hbfsapi.o hbfopen.o hbgete.o hbwince.o hbhash.o hbprintf.o 
hbstr.o hbdate.o hbmem.o hbtrace.o hbver.o hbverdsp.o hbarch.o 
reserved.o || ( rm -f 
../../../../lib/linux/mipsel-linux-gnu-gcc/libhbcommon.a && false )
make[3]: Leaving directory 
`/usr/local/src/harbour/source/common/linux/mipsel-linux-gnu-gcc'

make[2]: Leaving directory `/usr/local/src/harbour/source/common'
make -C pp
make[2]: Entering directory `/usr/local/src/harbour/source/pp'
make[3]: Entering directory 
`/usr/local/src/harbour/source/pp/linux/mipsel-linux-gnu-gcc'
mipsel-linux-gnu-gcc -I. -I../../../../include  -Wall -W -O3-c 
../../hbpp.c -ohbpp.o
mipsel-linux-gnu-gcc  -Wall -W -O3 -ohbpp hbpp.o 
-L../../../../lib/linux/mipsel-linux-gnu-gcc  -Wl,--start-group   
-lhbcommon -lm -lrt -ldl -Wl,--end-group
./hbpp ../../../../include/hbstdgen.ch -opptable.c -q 
-c../../../../ChangeLog -v../../../../include/hbverbld.h

./hbpp: ./hbpp: cannot execute binary file
make[3]: *** [pptable.c] Error 126
rm hbpp.o
make[3]: Leaving directory 
`/usr/local/src/harbour/source/pp/linux/mipsel-linux-gnu-gcc'

make[2]: *** [descend] Error 2
make[2]: Leaving directory `/usr/local/src/harbour/source/pp'
make[1]: *** [pp] Error 2
make[1]: Leaving directory `/usr/local/src/harbour/source'
make: *** [source] Error 2

$ file /usr/local/src/harbour/source/pp/linux/mipsel-linux-gnu-gcc/hbpp
/usr/local/src/harbour/source/pp/linux/mipsel-linux-gnu-gcc/hbpp: ELF 
32-bit LSB executable, MIPS, MIPS-I version 1 (SYSV), dynamically linked 
(uses shared libs), for GNU/Linux 2.6.8, with unknown capability 0xf41 = 
0x756e6700, not stripped


How can i say in the build process to use x86 hbpp (in 
/usr/local/bin/hbpp) ?


Thank you.

--
Guy Roussin

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

Re: [Harbour] cross compile harbour for linux mipsel

[Guy Roussin]

Hi,

I manage to cross compile harbour for mips(el).
Perhaps this would be usefull for someone ...
I think you can replace mipsel with your target architecture (arm, ...)

$ pwd
/usr/local/src/harbour

$ svn update
At revision 11424.

$ cp config/linux/gcc.cf config/linux/mipsel-linux-gnu-gcc.cf
$ cat diff4mipsel.patch | patch -p0

$ export HB_BIN_COMPILE=/usr/local/bin
$ export HB_PPGEN_PATH=/usr/local/bin
$ export HB_WITHOUT_ODBC=yes
$ export HB_WITHOUT_GTCRS=yes
$ export HB_WITHOUT_X11=yes
$ export HB_WITH_QT=no
$ export HB_COMPILER=mipsel-linux-gnu-gcc
$ export HB_BIN_INSTALL=/usr/mipsel-linux-gnu/harbour/bin
$ export HB_INC_INSTALL=/usr/mipsel-linux-gnu/harbour/include
$ export HB_LIB_INSTALL=/usr/mipsel-linux-gnu/harbour/lib


$ sh make_gnu.sh

Before install we need to patch bin/postinst.sh
$ cat diffpostinst4mipsel.patch | patch -p0

$ sh make_gnu.sh install

Notice that when i run hbmk2 on mipsel it complains with :

g...@cobalt:~$ uname -a
Linux cobalt 2.6.26-2-r5k-cobalt #1 Fri May 29 07:53:52 UTC 2009 mips 
GNU/Linux

g...@cobalt:~$ hbmk2 t
hbmk: Please choose a C compiler by using -comp= option or envvar 
HB_COMPILER.  
 You have the following choices on your platform: gcc, gpp, watcom, 
icc
g...@cobalt:~$ which gcc

/usr/bin/gcc



Guy

--- config/linux/mipsel-linux-gnu-gcc.cf.orig	2009-06-19 11:32:44.0 +0200
+++ config/linux/mipsel-linux-gnu-gcc.cf	2009-06-19 11:33:11.0 +0200
@@ -110,7 +110,7 @@
 
 LDFLAGS = $(LINKPATHS)
 
-AR = ar
+AR = mipsel-linux-gnu-ar
 ARFLAGS = $(HB_USER_AFLAGS)
 AR_RULE = $(AR) $(ARFLAGS) crs $(LIB_DIR)/$@ $(^F) || ( $(RM) $(LIB_DIR)/$@ && false )
 
--- bin/postinst.sh.orig	2009-06-19 12:23:50.0 +0200
+++ bin/postinst.sh	2009-06-19 12:23:30.0 +0200
@@ -41,6 +41,7 @@
 . ${hb_root}/bin/hb-func.sh
 
 if [ "$HB_COMPILER" = "gcc" ] || \
+   [ "$HB_COMPILER" = "mipsel-linux-gnu-gcc" ] || \
[ "$HB_COMPILER" = "gpp" ] || \
[ "$HB_COMPILER" = "mingw" ] || \
[ "$HB_COMPILER" = "mingw64" ] || \
@@ -98,6 +99,7 @@
 
 mk_hbtools "${HB_BIN_INSTALL}" "$@"
 if [ "$HB_COMPILER" = "gcc" ] || \
+   [ "$HB_COMPILER" = "mipsel-linux-gnu-gcc" ] || \
[ "$HB_COMPILER" = "gpp" ] || \
[ "$HB_COMPILER" = "mingw" ] || \
[ "$HB_COMPILER" = "mingw64" ] || \
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Re: [Harbour] cross compile harbour for linux mipsel

[Guy Roussin]

Thank you Viktor,

Works fine with your suggestions.

I only modify 2 lines in config/linux/gcc.cf :

line 10 :
HB_CMP = $(HB_COMPILER)
to
HB_CMP = $(HB_CCPREFIX)$(HB_COMPILER)

line 113 :
AR = ar
to
AR = $(HB_CCPREFIX)ar


and i set this exports :

export HB_BIN_COMPILE="/usr/local/bin"
export HB_CCPREFIX="mipsel-linux-gnu-"
export HB_PPGEN_PATH="/usr/local/bin"

export HB_WITHOUT_GTCRS="yes"
export HB_WITHOUT_ODBC="yes"
export HB_WITHOUT_X11="yes"
export HB_WITH_QT="no"

export HB_INC_INSTALL="/usr/mipsel-linux-gnu/harbour/include"
export HB_LIB_INSTALL="/usr/mipsel-linux-gnu/harbour/lib"
export HB_BIN_INSTALL="/usr/mipsel-linux-gnu/harbour/bin"

All is fine now ... even hbmk2.

Guy



Viktor Szakáts a écrit :

Thanks Guy.

Maybe it's simpler to just add HB_CCPREFIX support
to that AR macro in gcc.cf:

AR = ${HB_CCPREFIX}ar

And set HB_CCPREFIX accordingly:
export HB_CCPREFIX=mipsel-linux-gnu-

This envvar should also make hbmk2 work. Can you try?

In case we made these work, we can probably add a new
target called linux/gccmips (with .cf and full hbmk2 support).

Brgds,
Viktor

On 2009.06.19., at 12:34, Guy Roussin wrote:


Hi,

I manage to cross compile harbour for mips(el).
Perhaps this would be usefull for someone ...
I think you can replace mipsel with your target architecture (arm, ...)

$ pwd
/usr/local/src/harbour

$ svn update
At revision 11424.

$ cp config/linux/gcc.cf config/linux/mipsel-linux-gnu-gcc.cf
$ cat diff4mipsel.patch | patch -p0

$ export HB_BIN_COMPILE=/usr/local/bin
$ export HB_PPGEN_PATH=/usr/local/bin
$ export HB_WITHOUT_ODBC=yes
$ export HB_WITHOUT_GTCRS=yes
$ export HB_WITHOUT_X11=yes
$ export HB_WITH_QT=no
$ export HB_COMPILER=mipsel-linux-gnu-gcc
$ export HB_BIN_INSTALL=/usr/mipsel-linux-gnu/harbour/bin
$ export HB_INC_INSTALL=/usr/mipsel-linux-gnu/harbour/include
$ export HB_LIB_INSTALL=/usr/mipsel-linux-gnu/harbour/lib


$ sh make_gnu.sh

Before install we need to patch bin/postinst.sh
$ cat diffpostinst4mipsel.patch | patch -p0

$ sh make_gnu.sh install

Notice that when i run hbmk2 on mipsel it complains with :

g...@cobalt:~$ uname -a
Linux cobalt 2.6.26-2-r5k-cobalt #1 Fri May 29 07:53:52 UTC 2009 mips 
GNU/Linux

g...@cobalt:~$ hbmk2 t
hbmk: Please choose a C compiler by using -comp= option or envvar 
HB_COMPILER.   You have the following choices on your platform: 
gcc, gpp, watcom, iccg...@cobalt:~$ which gcc

/usr/bin/gcc



Guy

--- config/linux/mipsel-linux-gnu-gcc.cf.orig2009-06-19 
11:32:44.0 +0200
+++ config/linux/mipsel-linux-gnu-gcc.cf2009-06-19 
11:33:11.0 +0200

@@ -110,7 +110,7 @@

LDFLAGS = $(LINKPATHS)

-AR = ar
+AR = mipsel-linux-gnu-ar
ARFLAGS = $(HB_USER_AFLAGS)
AR_RULE = $(AR) $(ARFLAGS) crs $(LIB_DIR)/$@ $(^F) || ( $(RM) 
$(LIB_DIR)/$@ && false )


--- bin/postinst.sh.orig2009-06-19 12:23:50.0 +0200
+++ bin/postinst.sh2009-06-19 12:23:30.0 +0200
@@ -41,6 +41,7 @@
. ${hb_root}/bin/hb-func.sh

if [ "$HB_COMPILER" = "gcc" ] || \
+   [ "$HB_COMPILER" = "mipsel-linux-gnu-gcc" ] || \
   [ "$HB_COMPILER" = "gpp" ] || \
   [ "$HB_COMPILER" = "mingw" ] || \
   [ "$HB_COMPILER" = "mingw64" ] || \
@@ -98,6 +99,7 @@

mk_hbtools "${HB_BIN_INSTALL}" "$@"
if [ "$HB_COMPILER" = "gcc" ] || \
+   [ "$HB_COMPILER" = "mipsel-linux-gnu-gcc" ] || \
   [ "$HB_COMPILER" = "gpp" ] || \
   [ "$HB_COMPILER" = "mingw" ] || \
   [ "$HB_COMPILER" = "mingw64" ] || \
___


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

Re: [Harbour] cross compile harbour for linux mipsel

[Guy Roussin]

Hi Przemyslaw,

I apply your patch in config/linux/gcc.cf
with this exports :

export HB_CCPREFIX="mipsel-linux-gnu-"

export HB_BIN_COMPILE="/usr/local/bin"
export HB_PPGEN_PATH="/usr/local/bin"

export HB_WITHOUT_GTCRS="yes"
export HB_WITHOUT_ODBC="yes"
export HB_WITHOUT_X11="yes"
export HB_WITH_QT="no"

export HB_BIN_INSTALL="/usr/mipsel-linux-gnu/harbour/bin"
export HB_INC_INSTALL="/usr/mipsel-linux-gnu/harbour/include/harbour"
export HB_LIB_INSTALL="/usr/mipsel-linux-gnu/harbour/lib/harbour"

All is fine *except one point* :

When i run apps dynamic link on mips(el) i get a
segmentation fault :

g...@cobalt:~$ cat t.prg
#!/usr/local/bin/hbrun //GTCGI
?? "hello"
?
g...@cobalt:~$ ./t.prg
hello
g...@cobalt:~$ hbmk2 t
hbmk: Processing configuration: 
/usr/local/bin/hbmk.cfg 
Harbour 2.0.0beta1 (Rev. 11424)

Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 't.prg'...
Lines 3, Functions/Procedures 1
Generating C source output to 't.c'... Done.
g...@cobalt:~$ ./t
Segmentation fault
g...@cobalt:~$ hbmk2 -static t
hbmk: Processing configuration: 
/usr/local/bin/hbmk.cfg 
Harbour 2.0.0beta1 (Rev. 11424)

Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 't.prg'...
Lines 3, Functions/Procedures 1
Generating C source output to 't.c'... Done.
g...@cobalt:~$ ./t
hello   


Thank you,

Guy



Przemyslaw Czerpak a écrit :

It should be enough to change in linux/gcc.cf CC, LD and AR definitions:
   CC = $(HB_CCACHE) $(HB_CCPREFIX)$(HB_CMP)
   LD = $(HB_CCACHE) $(HB_CCPREFIX)$(HB_CMP)
   AR = $(HB_CCPREFIX)ar

and then use:
   export HB_CCPREFIX=mipsel-linux-gnu-

It should work without any other modifications in source core code and
probably we should commit such modification. It can be usable also in few
other situations.

It should be also possible to create 'gcc' and 'ar' links  to
mipsel-linux-gnu-gcc and mipsel-linux-gnu-ar and then set this directory
in PATH before path with native 'gcc' and 'ar' binaries.
This will work with existing code without any modifications but it does
not allow to use two passes (native and cross) compilation which can be
usable in some situations, f.e. building binaries without installed native
harbour.

best regards,
Przemek
  


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

Re: [Harbour] cross compile harbour for linux mipsel

[Guy Roussin]

Hi Przemyslaw,


All is fine *except one point* :
When i run apps dynamic link on mips(el) i get a
segmentation fault :

g...@cobalt:~$ hbmk2 t
hbmk: Processing configuration: /usr/local/bin/hbmk.cfg
Harbour 2.0.0beta1 (Rev. 11424)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 't.prg'...
Lines 3, Functions/Procedures 1
Generating C source output to 't.c'... Done.
g...@cobalt:~$ ./t
Segmentation fault


Probably there is sth wrong with shared library.
Try to check if valid harbour.so is used by:
   ldd ./t

$ ldd ./t
   libharbour.so => /usr/local/lib/harbour/libharbour.so (0x2aadc000)
   libc.so.6 => /lib/libc.so.6 (0x2af44000)
   libm.so.6 => /lib/libm.so.6 (0x2b0bc000)
   libdl.so.2 => /lib/libdl.so.2 (0x2b154000)
   librt.so.1 => /lib/librt.so.1 (0x2b168000)
   libgcc_s.so.1 => /lib/libgcc_s.so.1 (0x2b184000)
   /lib/ld.so.1 (0x2aaa8000)
   libpthread.so.0 => /lib/libpthread.so.0 (0x2b1c)


and also:
   file /libharbour-2.0.0.so

$ file /usr/local/lib/harbour/libharbour-2.0.0.so
/usr/local/lib/harbour/libharbour-2.0.0.so: ELF 32-bit LSB shared 
object, MIPS, MIPS-I version 1 (SYSV), dynamically linked, with unknown 
capability 0xf41 = 0x756e6700, not stripped




Some architectures may need special compile time switches for
shared library code. You can try to recompile whole Harbour
code with:
   export HB_USER_PRGFLAGS="-fPIC"
though usually such problems are detected at link time when shared
library is created.
mipsel-linux-gnu-gcc -I. -I../../../../include  -Wall -W -O3-c 
../../xsavescr.c -oxsavescr.o
/usr/local/bin/harbour ../../achoice.prg -n1 -i../../../../include -q0 
-w3 -es2 -kmo -l -gc3  -fPIC

Error F0034  Bad command line option 'f'
make[3]: *** [achoice.c] Erreur 1
make[3]: quittant le répertoire « 
/usr/local/src/harbour/source/rtl/linux/gcc »

make[2]: *** [descend] Erreur 2
make[2]: quittant le répertoire « /usr/local/src/harbour/source/rtl »
make[1]: *** [rtl] Erreur 2
make[1]: quittant le répertoire « /usr/local/src/harbour/source »
make: *** [source] Erreur 2

Regards,

Guy

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

Re: [Harbour] cross compile harbour for linux mipsel

[Guy Roussin]

Hi Viktor and Przemyslaw,


Probably there is sth wrong with shared library.
Try to check if valid harbour.so is used by:
ldd ./t

$ ldd ./t
libharbour.so => /usr/local/lib/harbour/libharbour.so (0x2aadc000)
libc.so.6 => /lib/libc.so.6 (0x2af44000)
libm.so.6 => /lib/libm.so.6 (0x2b0bc000)
libdl.so.2 => /lib/libdl.so.2 (0x2b154000)
librt.so.1 => /lib/librt.so.1 (0x2b168000)
libgcc_s.so.1 => /lib/libgcc_s.so.1 (0x2b184000)
/lib/ld.so.1 (0x2aaa8000)
libpthread.so.0 => /lib/libpthread.so.0 (0x2b1c)


and also:
file /libharbour-2.0.0.so

$ file /usr/local/lib/harbour/libharbour-2.0.0.so
/usr/local/lib/harbour/libharbour-2.0.0.so: ELF 32-bit LSB shared 
object, MIPS, MIPS-I version 1 (SYSV), dynamically linked, with 
unknown capability 0xf41 = 0x756e6700, not stripped


Can you post your -trace hbmk2 output?


g...@cobalt:~$ hbmk2 -trace t
hbmk: Processing configuration: /usr/local/bin/hbmk.cfg
hbmk: Harbour compiler command (internal):
/usr/local/bin/harbour -n2 t -i/usr/local/include/harbour
Harbour 2.0.0beta1 (Rev. 11424)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 't.prg'...
Lines 3, Functions/Procedures 1
Generating C source output to 't.c'... Done.
hbmk: C compiler command:
gcc -c -O3 -I/usr/local/include/harbour t.c /tmp/hbmk_6i6xtf.c
hbmk: Linker command:
gcc t.o hbmk_6i6xtf.o -Wl,--start-group -lharbour -lhbcplr -lhbdebug 
-Wl,--end-group -ot -L/usr/local/lib/harbour

g...@cobalt:~$ ./t
Segmentation fault

(this was before using HB_USER_CFLAGS="-fPIC")



Some architectures may need special compile time switches for
shared library code. You can try to recompile whole Harbour
code with:
export HB_USER_PRGFLAGS="-fPIC"
though usually such problems are detected at link time when shared
library is created.
mipsel-linux-gnu-gcc -I. -I../../../../include -Wall -W -O3 -c 
../../xsavescr.c -oxsavescr.o
/usr/local/bin/harbour ../../achoice.prg -n1 -i../../../../include 
-q0 -w3 -es2 -kmo -l -gc3 -fPIC

Error F0034 Bad command line option 'f'
make[3]: *** [achoice.c] Erreur 1
make[3]: quittant le répertoire « 
/usr/local/src/harbour/source/rtl/linux/gcc »

make[2]: *** [descend] Erreur 2
make[2]: quittant le répertoire « /usr/local/src/harbour/source/rtl »
make[1]: *** [rtl] Erreur 2
make[1]: quittant le répertoire « /usr/local/src/harbour/source »
make: *** [source] Erreur 2


Should be HB_USER_CFLAGS="-fPIC"

ok with this flag there is no more "segmentation fault" error on mipsel !
Now, harbour works very fine on this target.

Note that i get this warning when i cross compile for mips(el) :

mipsel-linux-gnu-gcc -I. -I../../../../include -Wall -W -O3 -fPIC -c 
../../hbprintf.c -ohbprintf.o

../../hbprintf.c: In function ‘put_dbl’:
../../hbprintf.c:647: warning: implicit declaration of function ‘modfl’
../../hbprintf.c:647: warning: incompatible implicit declaration of 
built-in function ‘modfl’



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

Re: [Harbour] cross compile harbour for linux mipsel

[Guy Roussin]

Hi Viktor,


Can you post your -trace hbmk2 output?


Notice that now, (because i use HBHB_USER_CFLAGS="-fPIC"
to compile harbour mips(el)), i get 2 "-fPIC" in hbmk2 trace:

g...@cobalt:~$ hbmk2 -trace t
hbmk: Processing configuration: 
/usr/local/bin/hbmk.cfg 
hbmk: Harbour compiler command 
(internal):  
/usr/local/bin/harbour -n2 t -i/usr/local/include/harbour

Harbour 2.0.0beta1 (Rev. 11442)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 't.prg'...
Lines 3, Functions/Procedures 1
Generating C source output to 't.c'... Done.
hbmk: C compiler 
command:   
gcc -c -O3  *-fPIC -fPIC* -I/usr/local/include/harbour t.c 
/tmp/hbmk_2hi5cp.c
hbmk: Linker 
command:   
gcc t.o hbmk_2hi5cp.o   -Wl,--start-group -lharbour -lhbcplr -lhbdebug 
-Wl,--end-group -ot -L/usr/local/lib/harbour


g...@cobalt:~$ cat /usr/local/bin/hbmk.cfg
# Harbour Make configuration
# Generated by Harbour build process
arch=linux
comp=gcc
cflags={linux&gcc} -fPIC


Best regards,

Guy


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

[Harbour] Segmentation fault with hbqt

[Guy Roussin]

Hi,

Today, i try hbqt and i get a segmentation fault on demoqt.

Here the backtrace :

$ gdb ./demoqt
GNU gdb 6.8-debian
Copyright (C) 2008 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.  Type "show copying"
and "show warranty" for details.
This GDB was configured as "i486-linux-gnu"...
(gdb) r
Starting program: /usr/local/src/harbour/contrib/hbqt/tests/demoqt 
[Thread debugging using libthread_db enabled]

[New Thread 0xb5559710 (LWP 23714)]

Program received signal SIGSEGV, Segmentation fault.
[Switching to Thread 0xb5559710 (LWP 23714)]
0xb78e52c1 in QString::fromLocal8Bit (str=0x20 , 
   size=-1) at tools/qstring.cpp:3650

3650tools/qstring.cpp: No such file or directory.
in tools/qstring.cpp
Current language:  auto; currently c++
(gdb) bt
#0  0xb78e52c1 in QString::fromLocal8Bit (
   str=0x20 , size=-1) at tools/qstring.cpp:3650
#1  0xb799413a in QCoreApplication::arguments ()
   at kernel/qcoreapplication.cpp:1929
#2  0xb7003f5f in sm_performSaveYourself (smd=0x851e5d0)
   at kernel/qapplication_x11.cpp:5600
#3  0xb7004cb9 in sm_saveYourselfCallback (smcConn=0x8500418, 
   clientData=0x851e5d0, saveType=1, shutdown=0, interactStyle=0)

   at kernel/qapplication_x11.cpp:5583
#4  0xb5809f4b in _SmcProcessMessage () from /usr/lib/libSM.so.6
#5  0xb57fda4f in IceProcessMessages () from /usr/lib/libICE.so.6
#6  0xb6ffc438 in QSmSocketReceiver::socketActivated (this=0x851b030)
   at kernel/qapplication_x11.cpp:5722
#7  0xb6ffc4a1 in QSmSocketReceiver::qt_metacall (this=0x851b030, 
   _c=139585112, _id=139465048, _a=0xbfc1ecac)

   at .moc/release-shared/qapplication_x11.moc:65
#8  0xb79a8b98 in QMetaObject::activate (sender=0x852e600, 
   from_signal_index=4, to_signal_index=4, argv=0xbfc1ecac)

   at kernel/qobject.cpp:3120
#9  0xb79a9822 in QMetaObject::activate (sender=0x852e600, m=0xb7a84a90, 
   local_signal_index=0, argv=0xbfc1ecac) at kernel/qobject.cpp:3194

#10 0xb79e4463 in QSocketNotifier::activated (this=0x852e600, _t1=10)
   at .moc/release-shared/moc_qsocketnotifier.cpp:83
---Type  to continue, or q  to quit---
#11 0xb79ad927 in QSocketNotifier::event (this=0x852e600, e=0xbfc1f020)
   at kernel/qsocketnotifier.cpp:316
#12 0xb6f997bc in QApplicationPrivate::notify_helper (this=0x84c5988, 
   receiver=0x852e600, e=0xbfc1f020) at kernel/qapplication.cpp:4057
#13 0xb6fa1ace in QApplication::notify (this=0x84c5978, receiver=0x852e600, 
   e=0xbfc1f020) at kernel/qapplication.cpp:3604
#14 0xb7992a2b in QCoreApplication::notifyInternal (this=0x84c5978, 
   receiver=0x852e600, event=0xbfc1f020) at kernel/qcoreapplication.cpp:610

#15 0xb79be62a in socketNotifierSourceDispatch (source=0x84c9368)
   at ../../include/QtCore/../../src/corelib/kernel/qcoreapplication.h:213
#16 0xb5a24848 in g_main_context_dispatch () from /usr/lib/libglib-2.0.so.0
#17 0xb5a27d73 in ?? () from /usr/lib/libglib-2.0.so.0
#18 0x084c88f8 in ?? ()
#19 0x0000 in ?? ()
(gdb) 


Regards,

--
Guy Roussin


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

Re: [Harbour] SF.net SVN: harbour-project:[11512] trunk/harbour

[Guy Roussin]

Hi Pritpal,

Note that i already reported this bug :

Subject : Segmentation fault with hbqt
date : 21.06.2009 11:01

Regards,

Guy Roussin


Pritpal Bedi a écrit :

Hi Lorenzo


Lorenzo Fiorini-2 wrote:
  

#25 0x08090e9b in HB_FUN_QT_QAPPLICATION_EXEC ()
#26 0x0814199a in hb_vmProc ()
#27 0x0810fc39 in hb_vmExecute ()
#28 0x08090c3b in HB_FUN_exit_QT_END ()
#29 0x0814199a in hb_vmProc ()
#30 0x08143f43 in hb_vmQuit ()
#31 0x08146843 in main ()




How you are quitting the application ? Via click on X button ?
If yes, this GPF is known. The reason is I have not implemented 
the complete event management so the DO WHILE loop is not 
terminated with X click. Try to exit with pressing "Q" or "q"

and report back if the GPF still ocuurs.

BTW I have documented this behavior in the changelog.

Regards
Pritpal Bedi

  


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

Re: [Harbour] Error compilin demoqt in linux

[Guy Roussin]

  Hi Viktor

there are the same (ubuntu 9.04)
I try with gdb, there are output

regards
Davor

s...@siki:~/clipp/harbour/contrib/hbqt/tests$ hbmk2 -debug demoqt.prg
hbmk: Processing local make script: hbmk.hbm
hbmk: Processing configuration: /usr/bin/hbmk.cfg
hbmk: Processing: hbqt.hbc
Harbour 2.0.0beta2 (Rev. 11561)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 'demoqt.prg'...
Lines 723, Functions/Procedures 18
Generating C source output to 'demoqt.c'... Done.
s...@siki:~/clipp/harbour/contrib/hbqt/tests$ gdb ./demoqt
GNU gdb 6.8-debian
Copyright (C) 2008 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later 


This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.  Type "show 
copying"

and "show warranty" for details.
This GDB was configured as "i486-linux-gnu"...
(gdb) run
Starting program: /opt/clipp/harbour/contrib/hbqt/tests/demoqt
[Thread debugging using libthread_db enabled]
[New Thread 0xb56f8af0 (LWP 16848)]

Program exited normally.
(gdb)


Same error here (with debian sid and Harbour 2.0.0beta2 (Rev. 11565))
The program exit normally ...

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

Re: [Harbour] Error compilin demoqt in linux

[Guy Roussin]

Hi,

Rebuild Harbour with
   export HB_USER_CFLAGS=-g
or:
   export HB_BUILD_DEBUG=yes

then create final binaries without striping debug information
   hbmk2 -nostrip ... tst.prg

and run them using valgrind:
   exec valgrind --tool=memcheck --leak-check=yes --num-callers=32 -v ./tst \
  2> err.log

use you application and close it. Ten check in err.log for any errors
detected by valgrind.

  


Here the first error i found (log around 400kb) :

==5172== Use of uninitialised value of size 4
==5172==at 0x4262FDD: hb_gt_def_OutErr (hbgtcore.c:704)
==5172==by 0x42584DC: hb_gtOutErr (gtapi.c:999)
==5172==by 0x42501E8: hb_errInternalRaw (errintlo.c:108)
==5172==by 0x4250045: hb_errInternal (errint.c:61)
==5172==by 0x422F74F: hb_signalExceptionHandler (extrap.c:354)
==5172==by 0x613944F: (within /lib/i686/cmov/libc-2.9.so)
==5172==by 0x640B2F6: XSetCommand (in /usr/lib/libX11.so.6.2.0)
==5172==by 0x640FC7F: XSetWMProperties (in /usr/lib/libX11.so.6.2.0)
==5172==by 0x493B3B0: QWidgetPrivate::create_sys(unsigned long, 
bool, bool) (qwidget_x11.cpp:756)
==5172==by 0x490068B: QWidget::create(unsigned long, bool, bool) 
(qwidget.cpp:1252)
==5172==by 0x48FB942: QWidgetPrivate::createWinId(unsigned long) 
(qwidget.cpp:2182)
==5172==by 0x490002A: QWidgetPrivate::setWindowTitle_helper(QString 
const&) (qwidget.cpp:5343)
==5172==by 0x4900481: QWidget::setWindowTitle(QString const&) 
(qwidget.cpp:5374)
==5172==by 0x80FCD11: HB_FUN_QT_QWIDGET_SETWINDOWTITLE 
(hbqt_qwidget.cpp:1759)

==5172==by 0x4227694: hb_vmProc (hvm.c:5693)
==5172==by 0x41EF929: hb_vmExecute (hvm.c:1625)
==5172==by 0x4229AB6: hb_vmDoBlock (codebloc.c:286)
==5172==by 0x41F1E18: hb_vmSend (hvm.c:5837)
==5172==by 0x4224BA2: hb___msgEvalInline (classes.c:4367)
==5172==by 0x41F1E18: hb_vmSend (hvm.c:5837)
==5172==by 0x41EE487: hb_vmExecute (hvm.c:1644)
==5172==by 0x8090DEA: HB_FUN_MAIN (demoqt.c:543)
==5172==by 0x4227694: hb_vmProc (hvm.c:5693)
==5172==by 0x4233441: main (mainstd.c:88)
Unrecoverable error 6005: ==5172==
==5172== Use of uninitialised value of size 4
==5172==at 0x4262FE8: hb_gt_def_OutErr (hbgtcore.c:705)
==5172==by 0x42584DC: hb_gtOutErr (gtapi.c:999)
==5172==by 0x42501E8: hb_errInternalRaw (errintlo.c:108)
==5172==by 0x4250045: hb_errInternal (errint.c:61)
==5172==by 0x422F74F: hb_signalExceptionHandler (extrap.c:354)
==5172==by 0x613944F: (within /lib/i686/cmov/libc-2.9.so)
==5172==by 0x640B2F6: XSetCommand (in /usr/lib/libX11.so.6.2.0)
==5172==by 0x640FC7F: XSetWMProperties (in /usr/lib/libX11.so.6.2.0)
==5172==by 0x493B3B0: QWidgetPrivate::create_sys(unsigned long, 
bool, bool) (qwidget_x11.cpp:756)
==5172==by 0x490068B: QWidget::create(unsigned long, bool, bool) 
(qwidget.cpp:1252)
==5172==by 0x48FB942: QWidgetPrivate::createWinId(unsigned long) 
(qwidget.cpp:2182)
==5172==by 0x490002A: QWidgetPrivate::setWindowTitle_helper(QString 
const&) (qwidget.cpp:5343)
==5172==by 0x4900481: QWidget::setWindowTitle(QString const&) 
(qwidget.cpp:5374)
==5172==by 0x80FCD11: HB_FUN_QT_QWIDGET_SETWINDOWTITLE 
(hbqt_qwidget.cpp:1759)

==5172==by 0x4227694: hb_vmProc (hvm.c:5693)
==5172==by 0x41EF929: hb_vmExecute (hvm.c:1625)
==5172==by 0x4229AB6: hb_vmDoBlock (codebloc.c:286)
==5172==by 0x41F1E18: hb_vmSend (hvm.c:5837)
==5172==by 0x4224BA2: hb___msgEvalInline (classes.c:4367)
==5172==by 0x41F1E18: hb_vmSend (hvm.c:5837)
==5172==by 0x41EE487: hb_vmExecute (hvm.c:1644)
==5172==by 0x8090DEA: HB_FUN_MAIN (demoqt.c:543)
==5172==by 0x4227694: hb_vmProc (hvm.c:5693)
==5172==by 0x4233441: main (mainstd.c:88)


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

[Harbour] error compiling harbour today svn 11572

[Guy Roussin]

Hi,

$ svn update
À la révision 11572.
$ sh make_gnu.sh
make
(...)
make[3]: entrant dans le répertoire « 
/usr/local/src/harbour/source/rdd/linux/gcc »

gcc -I. -I../../../../include -Wall -W -O3 -c ../../dbcmd.c -odbcmd.o
gcc -I. -I../../../../include -Wall -W -O3 -c ../../dbcmd53.c -odbcmd53.o
gcc -I. -I../../../../include -Wall -W -O3 -c ../../dbcmdhb.c -odbcmdhb.o
gcc -I. -I../../../../include -Wall -W -O3 -c ../../dbcmdx.c -odbcmdx.o
gcc -I. -I../../../../include -Wall -W -O3 -c ../../dbdetach.c -odbdetach.o
gcc -I. -I../../../../include -Wall -W -O3 -c ../../dbdetacx.c -odbdetacx.o
gcc -I. -I../../../../include -Wall -W -O3 -c ../../dbdrop.c -odbdrop.o
gcc -I. -I../../../../include -Wall -W -O3 -c ../../dbexists.c -odbexists.o
gcc -I. -I../../../../include -Wall -W -O3 -c ../../fieldhb.c -ofieldhb.o
gcc -I. -I../../../../include -Wall -W -O3 -c ../../workarea.c -oworkarea.o
gcc -I. -I../../../../include -Wall -W -O3 -c ../../wacore.c -owacore.o
gcc -I. -I../../../../include -Wall -W -O3 -c ../../wafunc.c -owafunc.o
gcc -I. -I../../../../include -Wall -W -O3 -c ../../dbf1.c -odbf1.o
../../dbf1.c:2212: error: conflicting types for ‘hb_dbfPutRec’
../../../../include/hbrdddbf.h:271: error: previous declaration of 
‘hb_dbfPutRec’ was here

make[3]: *** [dbf1.o] Erreur 1
make[3]: quittant le répertoire « 
/usr/local/src/harbour/source/rdd/linux/gcc »

make[2]: *** [descend] Erreur 2
make[2]: quittant le répertoire « /usr/local/src/harbour/source/rdd »
make[1]: *** [rdd] Erreur 2
make[1]: quittant le répertoire « /usr/local/src/harbour/source »

Thank you,

Guy

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

[Harbour] terminal settings with gttrm

[Guy Roussin]

Hi,

When I run in a linux terminal, a program that uses harbour gttrm 
(default?),

all goes well, but the display is done in white on a black background.
When the program is completed, the display remains in white on a
black background.

I must then enter the reset command (in bash) to find
the originals terminal settings (black on white background)

Is there possibility to correct or bypass this problem?

Thank you.

--
Guy Roussin


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

Re: [Harbour] terminal settings with gttrm

[Guy Roussin]

Hi Przemek,


I must then enter the reset command (in bash) to find
the originals terminal settings (black on white background)
Is there possibility to correct or bypass this problem?



AFAIK you are using older GTTRM code because current one restores
default terminal color on exit.
  

Thank you i update harbour from svn and now it restores correctly default
terminal color on exit. But only for the prompt and the cursor, the rest 
of the

screen is always black.

How can i restore screen before harbour app ?

This sample give a black screen :

#!/usr/bin/hbrun //GTTRM
function main(cFiltre)
local cScreen:=savescreen( 0,0,maxrow(),maxcol() )
USE test
dbedit()
restscreen( 0,0,maxrow(),maxcol(), cScreen )
return(NIL)

Best regards,

Guy


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

Re: [Harbour] terminal settings with gttrm

[Guy Roussin]

Hi,

Yes it is and it's expected behavior. We cannot restore sth what we
do not know. Anyhow it's possible to make a trick and simulate such
behavior on some terminals which supports alternative screen display.

This code shows it. It works with terminals which supports the following
escape sequences:
   ESC [ ? 47 h   // switch to alternate screen
   ESC [ ? 47 l   // restore original screen


#!/usr/bin/hbrun //GTTRM
proc main()

   fwrite( 1, chr( 27 ) + "[?47h" )// switch to alternate screen

   dispbox( 0, 0, maxrow(), maxcol(), "+-+|+-+| " )
   wait

   fwrite( 1, chr( 27 ) + "[?47l" )// restore startup screen

return
  

Excellent !
-> ok with xterm and gnome-terminal
->  not ok on text console (ctrl-alt-fx)

Thank you very much Przemek. Very usefull trick !

Best regards,

Guy

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

[Harbour] Little bug with first line options ...

[Guy Roussin]

Hi,

I add this line on top of my PRG :
#/usr/bin/hbrun //gtcgi

I notice that the option //gtcgi is not activated
if the prg file is a DOS file (CRLF) but works
fine if the file is saved as a UNIX file ...

Thank you,

Guy

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

[Harbour] Compilation error

[Guy Roussin]

Hello,

Today i get this error compiling harbour on debian sid (x86) :

$ svn co 
https://harbour-project.svn.sourceforge.net/svnroot/harbour-project/trunk/harbour 
harbour

$ cd harbour
$ fakeroot sh mpkg_deb.sh

[...]

make[3]: entrant dans le répertoire « 
/usr/local/src/harbour/contrib/hbfimage »
make[4]: entrant dans le répertoire « 
/usr/local/src/harbour/contrib/hbfimage/linux/gcc »
gcc -I. -I../../../../include -Wall -W -O3 -I/usr/include -c 
../../fi_winfu.c -ofi_winfu.o

In file included from ../../fi_winfu.c:74:
/usr/include/FreeImage.h:157: error: conflicting types for ‘LONG’
../../../../include/hbdefs.h:212: error: previous declaration of ‘LONG’ 
was here

make[4]: *** [fi_winfu.o] Erreur 1
make[4]: quittant le répertoire « 
/usr/local/src/harbour/contrib/hbfimage/linux/gcc »

make[3]: *** [descend] Erreur 2
make[3]: quittant le répertoire « /usr/local/src/harbour/contrib/hbfimage »
make[2]: *** [hbfimage] Erreur 2
make[2]: quittant le répertoire « /usr/local/src/harbour/contrib »
make[1]: *** [contrib] Erreur 2
make[1]: quittant le répertoire « /usr/local/src/harbour »
touch build-stamp
debian/rules binary

$ dpkg -S /usr/include/FreeImage.h
libfreeimage-dev: /usr/include/FreeImage.h

$ apt-cache policy libfreeimage-dev
libfreeimage-dev:
 Installé : 3.10.0-1
 Candidat : 3.10.0-1
Table de version :
*** 3.10.0-1 0
   300 http://ftp.fr.debian.org lenny/main Packages
   500 http://ftp.fr.debian.org sid/main Packages
   100 /var/lib/dpkg/status

$ head -157 /usr/include/FreeImage.h | tail -1
typedef int32_t LONG;

$ head -212 include/hbdefs.h | tail -1
  typedef long LONG;

Thank you,

--
Guy

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

[Harbour] Can't create a correct debian package

[Guy Roussin]

Hello,

There is a problem when i try to create a debian package (debian sid x86)
with current svn. With this patch i can create successfully the package.


$ diff -uNr harbour.orig/debian/rules harbour/debian/rules
--- harbour.orig/debian/rules2009-02-01 10:22:29.0 +0100
+++ harbour/debian/rules2009-02-01 10:57:21.0 +0100
@@ -14,7 +14,7 @@
export HB_LIB_INSTALL=$(INSTDIR)$(_DEFAULT_LIB_DIR)
export HB_INC_INSTALL=$(INSTDIR)$(_DEFAULT_INC_DIR)
export HB_ETC_DIR=$(INSTDIR)/etc
-export HB_DOC_INSTALL=$(INSTDIR)/usr/share/doc
+export HB_DOC_INSTALL=$(INSTDIR)/usr/share/doc/harbour

CFLAGS = -g

@@ -55,9 +55,9 @@
rm -f $(HB_BIN_INSTALL)/hbverfix
install -m644 debian/harbour.cfg $(HB_ETC_DIR)/harbour.cfg
install -m644 source/rtl/gtcrs/hb-charmap.def $(HB_ETC_DIR)/harbour
-install -m644 doc/*.txt $(HB_DOC_INSTALL)/harbour
-install -m644 doc/en/*.txt $(HB_DOC_INSTALL)/harbour/en
-install -m644 doc/es/*.txt $(HB_DOC_INSTALL)/harbour/es
+install -m644 doc/*.txt $(HB_DOC_INSTALL)
+install -m644 doc/en/*.txt $(HB_DOC_INSTALL)/en
+install -m644 doc/es/*.txt $(HB_DOC_INSTALL)/es


# Build architecture-independent files here.


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

[Harbour] Can't use hbmk ...

[Guy Roussin]

Hi,
I create a new deb package with current svn. But the package
don't include the new hbmk command (from utils).
In the package hbmk is always a link to hb-build.
Thanks.

--
Guy 


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

Re: [Harbour] Can't use hbmk ...

[Guy Roussin]

Guy Roussin a écrit :

Hi,
I create a new deb package with current svn. But the package
don't include the new hbmk command (from utils).
In the package hbmk is always a link to hb-build.
Thanks.


Now i can use hbmk2 :-)

But i get this error :

$ hbmk2 hbpgsql.hbp
Harbour Make 1.1.0dev (Rev. 10311)
Copyright (c) 1999-2009, Viktor Szakats
http://www.harbour-project.org/

hbmk: Autodetected HB_ARCHITECTURE: linux
hbmk: Harbour Make couldn't detect any supported C compilers
 on your system. Please setup one and try again.
hbmk: Error: Compiler not properly set.

$ which gcc
/usr/bin/gcc

$ ls -al /usr/bin/gcc*
lrwxrwxrwx 1 root root  7 oct 15 09:24 /usr/bin/gcc -> gcc-4.3
-rwxr-xr-x 1 root root  80976 jan  3  2007 /usr/bin/gcc-3.3
-rwxr-xr-x 1 root root  89680 sep  4  2006 /usr/bin/gcc-4.0
-rwxr-xr-x 1 root root 196996 déc  2 02:14 /usr/bin/gcc-4.1
-rwxr-xr-x 1 root root 192220 jan  4 19:58 /usr/bin/gcc-4.2
-rwxr-xr-x 1 root root 207648 déc 31 13:52 /usr/bin/gcc-4.3
-rwxr-xr-x 1 root root  15963 jan  3  2007 /usr/bin/gccbug-3.3
-rwxr-xr-x 1 root root  16203 sep  4  2006 /usr/bin/gccbug-4.0
-rwxr-xr-x 1 root root  16288 déc  2 02:11 /usr/bin/gccbug-4.1
-rwxr-xr-x 1 root root   2018 jui 18  2008 /usr/bin/gccmakedep

Thanks

--
Guy

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

Re: [Harbour] Can't use hbmk ...

[Guy Roussin]

Hi Viktor,

Some more test of hbmk2 with debian 5.0 and current svn

$ hbmk2 round
Harbour 1.1.0dev (Rev. 10391)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 'round.prg'...
Lines 25, Functions/Procedures 1
Generating C source output to 'round.c'... Done.
/usr/bin/ld: cannot find -lharbour.1.1.0
collect2: ld returned 1 exit status
hbmk: Error: Running C compiler. 256: 'gcc round.c   -O3  -O3 -oround 
-I/usr/include/harbour -L/usr/lib/harbour -Wl,--start-group 
-lharbour.1.1.0 -lhbcplr -lhbdebug -lgpm -lm -ldl -lrt -Wl,--end-group'


I think the name of harbour library is :
harbour-1.1.0 and not harbour.1.1.0

Note that without env (export) i get something strange :
$ hbmk2 round
sh: hbmk2bin/harbour: Aucun fichier ou répertoire de ce type
hbmk: Error: Running Harbour compiler. 32512: 'hbmk2bin/harbour round -n 
-ihbmk2include/harbour'


Thank you,

Guy

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

Re: [Harbour] Can't use hbmk ...

[Guy Roussin]

Thank you Viktor,

Now i get this error, i suppose it is related to gt :

$ echo '? "hello"' > tst.prg

$ hbmk2 -n- tst
Harbour 1.1.0dev (Rev. 10401)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 'tst.prg'...
Lines 1, Functions/Procedures 1
Generating C source output to 'tst.c'... Done.
/usr/lib/harbour/libharbour-1.1.0.so: undefined reference to `scrollok'
/usr/lib/harbour/libharbour-1.1.0.so: undefined reference to `XQueryColors'
/usr/lib/harbour/libharbour-1.1.0.so: undefined reference to 
`SLtt_Use_Blink_For_ACS'

/usr/lib/harbour/libharbour-1.1.0.so: undefined reference to `XLookupKeysym'
/usr/lib/harbour/libharbour-1.1.0.so: undefined reference to `XFree'
/usr/lib/harbour/libharbour-1.1.0.so: undefined reference to `XDrawSegments'
/usr/lib/harbour/libharbour-1.1.0.so: undefined reference to `stdscr'
...
/usr/lib/harbour/libharbour-1.1.0.so: undefined reference to 
`SLtt_Screen_Rows'

/usr/lib/harbour/libharbour-1.1.0.so: undefined reference to `SLutf8_enable'
collect2: ld returned 1 exit status
hbmk: Error: Running C compiler. 256: 'gcc tst.c   -O3  -otst 
-I/usr/include/harbour -L/usr/lib/harbour -Wl,--start-group 
-lharbour-1.1.0 -lhbcplr -lhbdebug -lgpm -lm -ldl -lrt -Wl,--end-group'


Note that i try to add -gtcgi but i can't see -lgtcgi in link command 
and i get the same error.


But if i add -gtzzz (for example) i can see -lgtzzz in link command :

$ hbmk2 -gtzzz -n- tst
Harbour 1.1.0dev (Rev. 10401)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 'tst.prg'...
Lines 1, Functions/Procedures 1
Generating C source output to 'tst.c'... Done.
/usr/bin/ld: cannot find -lgtzzz
collect2: ld returned 1 exit status
hbmk: Error: Running C compiler. 256: 'gcc tst.c ./hbsc_estlqh.c   -O3  
-otst -I/usr/include/harbour -L/usr/lib/harbour -Wl,--start-group 
-lharbour-1.1.0 -lhbcplr -lhbdebug -lgpm -lgtzzz -lm -ldl -lrt 
-Wl,--end-group'


Thanks,

PS: Why the -n- is not the default option as in clipper ?

Guy

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

Re: [Harbour] Can't use hbmk ...

[Guy Roussin]

Hi Viktor,

I have an idea, but I'd like to check it first locally.
 


Note that i try to add -gtcgi but i can't see -lgtcgi in link
command and i get the same error.


Yes, this is normal, as gtcgi lib is already present in the shared lib.


Thank you, works fine now: i can compile :-)

Now another little problem, when i use hbmk :

$ echo '? "hello"' > tst.prg
$ hbmk tst
Harbour 1.1.0dev (Rev. 10405)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 'tst.prg'...
Lines 1, Functions/Procedures 1
Generating C source output to 'tst.c'... Done.
$ ./tst

hello
$ ldd tst
   linux-gate.so.1 =>  (0xb7faf000)
   libharbour.so => /usr/lib/libharbour.so (0xb7b26000)
   libgpm.so.2 => /usr/lib/libgpm.so.2 (0xb7b2)
   libX11.so.6 => /usr/lib/libX11.so.6 (0xb7a3)
   libncurses.so.5 => /lib/libncurses.so.5 (0xb79fe000)
   libslang.so.2 => /lib/libslang.so.2 (0xb792)
   libm.so.6 => /lib/i686/cmov/libm.so.6 (0xb78fa000)
   libdl.so.2 => /lib/i686/cmov/libdl.so.2 (0xb78f6000)
   librt.so.1 => /lib/i686/cmov/librt.so.1 (0xb78ed000)
   libc.so.6 => /lib/i686/cmov/libc.so.6 (0xb7792000)
   libxcb-xlib.so.0 => /usr/lib/libxcb-xlib.so.0 (0xb778f000)
   libxcb.so.1 => /usr/lib/libxcb.so.1 (0xb000)
   /lib/ld-linux.so.2 (0xb7fb)
   libpthread.so.0 => /lib/i686/cmov/libpthread.so.0 (0xb775e000)
   libXau.so.6 => /usr/lib/libXau.so.6 (0xb775b000)
   libXdmcp.so.6 => /usr/lib/libXdmcp.so.6 (0xb7756000)

When i use hbmk2 :

$ hbmk2 -n- tst
Harbour 1.1.0dev (Rev. 10405)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 'tst.prg'...
Lines 1, Functions/Procedures 1
Generating C source output to 'tst.c'... Done.
$ ./tst
./tst: error while loading shared libraries: libharbour-1.1.0.so: cannot 
open shared object file: No such file or directory

$ ldd tst
   linux-gate.so.1 =>  (0xb7f06000)
   libharbour-1.1.0.so => not found
   libgpm.so.2 => /usr/lib/libgpm.so.2 (0xb7ede000)
   libX11.so.6 => /usr/lib/libX11.so.6 (0xb7dee000)
   libncurses.so.5 => /lib/libncurses.so.5 (0xb7dbc000)
   libslang.so.2 => /lib/libslang.so.2 (0xb7cde000)
   libm.so.6 => /lib/i686/cmov/libm.so.6 (0xb7cb8000)
   libdl.so.2 => /lib/i686/cmov/libdl.so.2 (0xb7cb4000)
   librt.so.1 => /lib/i686/cmov/librt.so.1 (0xb7cab000)
   libc.so.6 => /lib/i686/cmov/libc.so.6 (0xb7b4f000)
   libxcb-xlib.so.0 => /usr/lib/libxcb-xlib.so.0 (0xb7b4d000)
   libxcb.so.1 => /usr/lib/libxcb.so.1 (0xb7b35000)
   /lib/ld-linux.so.2 (0xb7f07000)
   libpthread.so.0 => /lib/i686/cmov/libpthread.so.0 (0xb7b1c000)
   libXau.so.6 => /usr/lib/libXau.so.6 (0xb7b19000)
   libXdmcp.so.6 => /usr/lib/libXdmcp.so.6 (0xb7b13000)

Note that i can add "/usr/lib/harbour" in /etc/ld.so.conf and run ldconfig
and it run fine ...

Another little problem. With hbmk :
$ cd
$ echo '? "hello"' > /tmp/tst.prg
$ hbmk /tmp/tst
Harbour 1.1.0dev (Rev. 10405)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling '/tmp/tst.prg'...
Lines 1, Functions/Procedures 1
Generating C source output to 'tst.c'... Done.
$ ./tst

hello

Now, with hbmk2 :
$ cd
$ echo '? "hello"' > /tmp/tst.prg
$ hbmk2 -n- /tmp/tst
Harbour 1.1.0dev (Rev. 10405)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling '/tmp/tst.prg'...
Lines 1, Functions/Procedures 1
Generating C source output to 'tst.c'... Done.
gcc: /tmp/tst.c: Aucun fichier ou répertoire de ce type
hbmk: Error: Running C compiler. 256: 'gcc /tmp/tst.c   -O3  -o/tmp/tst 
-I/usr/bin/../include/harbour -L/usr/bin/../lib/harbour -L/usr/X11R6/lib 
-Wl,--start-group -lharbour-1.1.0 -lhbcplr -lhbdebug -lgpm -lX11 
-lncurses -lslang -lm -ldl -lrt -Wl,--end-group


Thanks,

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

Re: [Harbour] Harbour under ubuntu

[Guy Roussin]

Hi,

cd $HOME
mkdir src
cd src
svn co 
https://harbour-project.svn.sourceforge.net/svnroot/harbour-project/trunk/harbour
harbour
cd harbour
./make_deb.sh
sudo dpkg -i harbour 1.0.0-1_i386.deb
  

For me, svn produce harbour_1.0.1-1_i386.deb
and not harbour 1.0.0-1_i386.deb ...

Guy

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

Re: [Harbour] SF.net SVN: harbour-project:[10411] trunk/harbour

[Guy Roussin]

Viktor,

I think there is a typo :
$ echo "? 'hello'" > tst.prg
$ hbmk2 tst
Harbour 1.1.0dev (Rev. 10412)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 'tst.prg'...
Lines 1, Functions/Procedures 1
Generating C source output to 'tst.c'... Done.
gcc: usr/lib/harbour/libharbour.so: Aucun fichier ou répertoire de ce type
hbmk: Error: Running C compiler. 256: 'gcc tst.c   -O3  -otst 
-I/usr/bin/../include/harbour -L/usr/bin/../lib/harbour -L/usr/X11R6/lib 
-Wl,--start-group usr/lib/harbour/libharbour.so -lhbcplr -lhbdebug -lm 
-ldl -lrt -lncurses -lX11 -Wl,--end-group'


Thanks,

Guy

vszak...@users.sourceforge.net a écrit :

Revision: 10411
  
http://harbour-project.svn.sourceforge.net/harbour-project/?rev=10411&view=rev
Author:   vszakats
Date: 2009-02-23 13:53:42 + (Mon, 23 Feb 2009)

Log Message:
---
2009-02-23 14:51 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
  * utils/hbmk2/hbmk2.prg
! Fixed bug which made gtwvt the default GT for mingw.
! Fixed to create final exe in current dir if no output
  filename was specified and the first input file
  contained a path.
* Changed to use version-less harbour shared lib names
  on *nixes.
! Fixed to pass full path with harbour.so to gcc.
  (even when Harbour isn't run from a system location)
! Fixed compilation/linking/cleanup if an input file
  wasn't in current dir.
* Temp stub file is now created in system default temp dir,
  instead of the current one.
+ Harbour shared lib path is normalized when Harbour
  is found on system locations. (so '*/bin/../lib/' becomes
  '*/lib')
* Better I hope handling of .so/.dylib/.sl/.dll files passed
  on the command line.

  * bin/hb-mkdll.bat
! Fixed typo in Borland MT .dll name.
! Fixed to not include maindll.obj, maindllp.obj in
  Borland .dlls.
* Minor formatting and cleanup on internal names.
+ Added checking for source lib existence, showing
  message if not found.
+ Better user feedback.

  * bin/postinst.bat
+ Added running hb_mkdll.bat at the end of the build
  process. For now users have to use 'set HB_DLL=yes'
  to enable this features. It's experimental yet,
  see previous comments.

  * source/vm/Makefile
+ Now generating hbmainstd and hbmainwin for remaining
  (non-mingw and non-mingwce) compilers. MSVC and BCC
  need this for -shared linkage, I'm not sure about the
  rest, anyhow we can disable it for other compilers
  if it isn't needed in future.

  * bin/hb-func.sh
% Refined hbmkcfg.hbp setup to better detect conditions.

  * contrib/hbcurl/hbcurl.c
! Pacified this only one new gcc 4.3.3 warning.

  * config/win/gcc.cf
  * config/win/mingw.cf
+ Added -mtune=pentiumpro gcc optimization.

Modified Paths:
--
trunk/harbour/ChangeLog
trunk/harbour/bin/hb-func.sh
trunk/harbour/bin/hb-mkdll.bat
trunk/harbour/bin/postinst.bat
trunk/harbour/config/win/gcc.cf
trunk/harbour/config/win/mingw.cf
trunk/harbour/contrib/hbcurl/hbcurl.c
trunk/harbour/source/vm/Makefile
trunk/harbour/utils/hbmk2/hbmk2.prg


This was sent by the SourceForge.net collaborative development platform, the 
world's largest Open Source development site.
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
  



--
Guy Roussin

UMR TETIS "Territoires, Environnement, Teledetection et Information  Spatiale" 


Maison de la Télédétection en Languedoc Roussillon
500, rue J.F. Breton
34093 MONTPELLIER Cedex 5

tél: 04.67.54.87.46 fax: 04.67.54.87.00
mailto:guy.rous...@teledetection.fr

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

Re: [Harbour] Harbour under ubuntu

[Guy Roussin]

Hi Massimo,

no more make_deb.sh in svn
now, you must use mpkg_deb.sh instead

for example, i use :
$ fakeroot sh mpkg_deb.sh

Guy

Massimo Belgrano a écrit :

cd $home
cd src
cd harbour
./make_deb.sh

bash:./make_deb.sh: no such file

svn have reported checked out revisione 10418

2009/2/22 Guy Roussin :
  

Hi,


cd $HOME
mkdir src
cd src
svn co
https://harbour-project.svn.sourceforge.net/svnroot/harbour-project/trunk/harbour
harbour
cd harbour
./make_deb.sh
sudo dpkg -i harbour 1.0.0-1_i386.deb

  

For me, svn produce harbour_1.0.1-1_i386.deb
and not harbour 1.0.0-1_i386.deb ...

Guy

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






1
___
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] SF.net SVN: harbour-project:[10419] trunk/harbour

[Guy Roussin]

Hi,


Revision: 10419
  
http://harbour-project.svn.sourceforge.net/harbour-project/?rev=10419&view=rev
Author:   vszakats
Date: 2009-02-23 21:19:25 + (Mon, 23 Feb 2009)

Log Message:
---
2009-02-23 22:17 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
  * utils/hbmk2/hbmk2.prg
! Fixed bug in path normalization which stripped leading
  (root) path separator. Guy, could you please retest now?
  


Thank you Viktor,
Now it runs very fine :-)
Guy

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

Re: [Harbour] Harbour under ubuntu

[Guy Roussin]

Hi Massimo,

Are you sure, you have the fakeroot package installed ?
(sudo aptitude install fakeroot)
I think your message is not related to the fakeroot
command (perhaps another command on your system ?)

Note that the fakeroot is only usefull to compile harbour
as user (and not root) : this is more secure. Never run as root ;-)

Here the way i compile and install harbour (as user and not root !):

$ cd
$ svn co 
https://harbour-project.svn.sourceforge.net/svnroot/harbour-project/trunk/harbour

$ cd harbour
$ fakeroot sh mpkg_deb.sh
$ sudo dpkg -i ../harbour_1.0.1-1_i386.deb

Guy

Massimo Belgrano a écrit :

cd $home
cd src
cd harbour
fakeroot sh mpkg_deb.sh

fakerootkey set to 1787254769
nested operation not yet supported
2009/2/23 Guy Roussin :
  

Hi Massimo,

no more make_deb.sh in svn
now, you must use mpkg_deb.sh instead

for example, i use :
$ fakeroot sh mpkg_deb.sh

Guy

Massimo Belgrano a écrit :


cd $home
cd src
cd harbour
./make_deb.sh

bash:./make_deb.sh: no such file

svn have reported checked out revisione 10418

2009/2/22 Guy Roussin :

  

Hi,



cd $HOME
mkdir src
cd src
svn co

https://harbour-project.svn.sourceforge.net/svnroot/harbour-project/trunk/harbour
harbour
cd harbour
./make_deb.sh
sudo dpkg -i harbour 1.0.0-1_i386.deb


  


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

Re: [Harbour] Harbour under ubuntu

[Guy Roussin]

Massimo,

I think your message is not related to the fakeroot

Or perhaps you run fakeroot as root ???
You don't need fakeroot, if you compile harbour as root ..

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

Re: [Harbour] Harbour under ubuntu

[Guy Roussin]

Hi Massimo,

Be sure to log (X, gdm) as *user* and then open a new terminal (console)
http://wiki.debian.org/FakeRoot
(see Error messages)

Guy


Massimo Belgrano a écrit :

Ops sorry during  prev test i switched to root
(i think that root user will do every command like administrator
unhappy to see that is non true)
but i not able to generate  harbour_1.0.1-1_i386.deb

Fist time that i execute  from harbour dir
$ fakeroot sh mpkg_deb.sh
switch from $ to #

here operation made
vmpla...@ubuntu-vm:~$ cd $home
vmpla...@ubuntu-vm:~$ cd src
vmpla...@ubuntu-vm:~/src$ cd harbour
vmpla...@ubuntu-vm:~/src/harbour$ fakeroot sh mpkg_deb.sh
r...@ubuntu-vm:~/src/harbour# fakeroot sh mpkg_deb.sh
fakeroot: FAKEROOTKEY set to 1343819330
fakeroot: nested operation not yet supported
r...@ubuntu-vm:~/src/harbour#


  


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

Re: [Harbour] Harbour under ubuntu

[Guy Roussin]

Hi Massimo,

You can run 'sh mpkg_deb.sh'
as root and don't use fakeroot :
$ sudo sh mpkg_deb.sh
fakeroot is only need to compile harbour as user

Guy

Massimo Belgrano a écrit :

Thanks for clarification about fakeroot and sorry for my ignorance.
the prompt /src/harbour$ tell me that i am logged as user and have open terminal
my problem is that when i execute
vmpla...@ubuntu-vm:~/src/harbour$ fakeroot sh mpkg_deb.sh

automatically my prompt is transformed in

r...@ubuntu-vm:~/src/harbour#

and no file is generated
i have tried also download  last update , reboot, and repeat operation
but the result are the same

Must i try something like follow row?
fakeroot
sh mpkg_deb.sh
exit

2009/2/24 Guy Roussin :
  

Hi Massimo,

Be sure to log (X, gdm) as *user* and then open a new terminal (console)
http://wiki.debian.org/FakeRoot
(see Error messages)

Guy


Massimo Belgrano a écrit :


Ops sorry during  prev test i switched to root
(i think that root user will do every command like administrator
unhappy to see that is non true)
but i not able to generate  harbour_1.0.1-1_i386.deb

Fist time that i execute  from harbour dir
$ fakeroot sh mpkg_deb.sh
switch from $ to #

here operation made
vmpla...@ubuntu-vm:~$ cd $home
vmpla...@ubuntu-vm:~$ cd src
vmpla...@ubuntu-vm:~/src$ cd harbour
vmpla...@ubuntu-vm:~/src/harbour$ fakeroot sh mpkg_deb.sh
r...@ubuntu-vm:~/src/harbour# fakeroot sh mpkg_deb.sh
fakeroot: FAKEROOTKEY set to 1343819330
fakeroot: nested operation not yet supported
r...@ubuntu-vm:~/src/harbour#


  


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

[Harbour] Compiling harbour under cygwin

[Guy Roussin]

Hi,

I try to compile harbour under cygwin for a friend.
But i get an error :

$ ./make_gcc.sh
make_gcc.mak:331: attention : écrasement des commandes pour la cible « 
lib/gcc/libhbmainstd.a »
make_gcc.mak:309: attention : anciennes commandes ignorées pour la cible 
« lib/gcc/libhbmainstd.a »
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc -oobj/gcc/mainstd.o 
source/vm/mainstd.c

ar rc  lib/gcc/libhbmainstd.a obj/gcc/mainstd.o
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc -oobj/gcc/mainwin.o 
source/vm/mainwin.c

ar rc  lib/gcc/libhbmainwin.a obj/gcc/mainwin.o
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc 
-oobj/gcc/expropt1.o source/common/expropt1.c
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc 
-oobj/gcc/expropt2.o source/common/expropt2.c
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc -oobj/gcc/hbarch.o 
source/common/hbarch.c
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc -oobj/gcc/hbdate.o 
source/common/hbdate.c
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc -oobj/gcc/hbfopen.o 
source/common/hbfopen.c
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc -oobj/gcc/hbfsapi.o 
source/common/hbfsapi.c
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc -oobj/gcc/hbgete.o 
source/common/hbgete.c
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc -oobj/gcc/hbhash.o 
source/common/hbhash.c
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc -oobj/gcc/hbmem.o 
source/common/hbmem.c
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc 
-oobj/gcc/hbprintf.o source/common/hbprintf.c

source/common/hbprintf.c: In function `put_dbl':
source/common/hbprintf.c:647: attention : d'eclaration implicite de la 
fonction << modfl >>
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc -oobj/gcc/hbstr.o 
source/common/hbstr.c
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc -oobj/gcc/hbtrace.o 
source/common/hbtrace.c
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc -oobj/gcc/hbver.o 
source/common/hbver.c
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc 
-oobj/gcc/hbverdsp.o source/common/hbverdsp.c
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc -oobj/gcc/hbwince.o 
source/common/hbwince.c
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc 
-oobj/gcc/reserved.o source/common/reserved.c
ar rc  lib/gcc/libhbcommon.a obj/gcc/expropt1.o obj/gcc/expropt2.o 
obj/gcc/hbarch.o obj/gcc/hbdate.o obj/gcc/hbfopen.o obj/gcc/hbfsapi.o 
obj/gcc/hbgete.o obj/gcc/hbhash.o obj/gcc/hbmem.o obj/gcc/hbprintf.o 
obj/gcc/hbstr.o obj/gcc/hbtrace.o obj/gcc/hbver.o obj/gcc/hbverdsp.o 
obj/gcc/hbwince.o obj/gcc/reserved.o
gcc -c -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc -oobj/gcc/hbpp.o 
source/pp/hbpp.c
gcc -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc -o bin/gcc/hbpp.exe 
obj/gcc/hbpp.o lib/gcc/libhbcommon.a  -luser32 -lwinspool -lwsock32 
-lgdi32 -lncurses -lX11 -L/usr/X11R6/lib
lib/gcc/libhbcommon.a(hbprintf.o):hbprintf.c:(.text+0x13d2): référence 
indéfinie vers « _modfl »
lib/gcc/libhbcommon.a(hbprintf.o):hbprintf.c:(.text+0x1442): référence 
indéfinie vers « _modfl »
lib/gcc/libhbcommon.a(hbprintf.o):hbprintf.c:(.text+0x1590): référence 
indéfinie vers « _modfl »
lib/gcc/libhbcommon.a(hbprintf.o):hbprintf.c:(.text+0x166f): référence 
indéfinie vers « _modfl »

collect2: ld a retourn'e 1 code d''etat d'ex'ecution
make: *** [bin/gcc/hbpp.exe] Erreur 1

Thanks,

--
Guy

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

Re: [Harbour] Compiling harbour under cygwin

[Guy Roussin]

Viktor Szakáts a écrit :

Hi Guy,
 


$ ./make_gcc.sh
make_gcc.mak:331: attention : écrasement des commandes pour la
cible « lib/gcc/libhbmainstd.a »
make_gcc.mak:309: attention : anciennes commandes ignorées pour la
cible « lib/gcc/libhbmainstd.a »


Sorry, my French is very rusty,
q'est-ce que c'est 'cible'? :)



Your french is better than my english ('cible' <=> 'target'),
Here the english version of the error :

$ export LANG=C
$ ./make_gcc.sh
make_gcc.mak:331: warning: overriding commands for target 
`lib/gcc/libhbmainstd.a'
make_gcc.mak:309: warning: ignoring old commands for target 
`lib/gcc/libhbmainstd.a'
gcc -O3 -march=i586 -W -Wall -Iinclude  -Iobj/gcc -o bin/gcc/hbpp.exe 
obj/gcc/hbpp.o lib/gcc/libhbcommon.a  -luser32 -lwinspool -lwsock32 
-lgdi32 -lncurses -lX11 -L/usr/X11R6/lib
lib/gcc/libhbcommon.a(hbprintf.o):hbprintf.c:(.text+0x13d2): undefined 
reference to `_modfl'
lib/gcc/libhbcommon.a(hbprintf.o):hbprintf.c:(.text+0x1442): undefined 
reference to `_modfl'
lib/gcc/libhbcommon.a(hbprintf.o):hbprintf.c:(.text+0x1590): undefined 
reference to `_modfl'
lib/gcc/libhbcommon.a(hbprintf.o):hbprintf.c:(.text+0x166f): undefined 
reference to `_modfl'

collect2: ld returned 1 exit status
make: *** [bin/gcc/hbpp.exe] Error 1


I'd recommend trying with GNU make (win/gcc settings) to avoid 
the above.



I try with :
export HB_ARCHITECTURE=win
export HB_CC_NAME=gcc
./make_gcc.sh

and i get the same error ...

Thanks,

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

[Harbour] Compiling harbour under windows with gcc

[Guy Roussin]

Hi,

How to compile harbour under windows using gcc ?
(i don't want to use non free / non open source compiler)

I already try with cygwin without success.

Guy

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

Re: [Harbour] Harbour under ubuntu

[Guy Roussin]

Massimo Belgrano a écrit :

Thanks for your support
Here my redirection
vmpla...@ubuntu-vm:~$ cd $home

vmpla...@ubuntu-vm:~$ ls -la src
total 6296
drwxr-xr-x  3 root root4096 2009-02-22 12:06 .
drwxr-xr-x 34 vmplanet vmplanet4096 2009-02-25 03:19 ..
drwxr-xr-x 14 root root4096 2009-02-23 12:49 harbour
-rw-r--r--  1 root root 534 2009-02-22 12:06
harbour_1.0.0-1_i386.changes
-rw-r--r--  1 root root 6415134 2009-02-22 12:06
harbour_1.0.0-1_i386.deb
vmpla...@ubuntu-vm:~$

  

Hi Massimo,

Very strange ~/src dir.
The owner is root !!!  not good ...

I understand now why fakeroot is not working ...

Strange also to see

harbour_1.0.0-1_i386.deb 
must be harbour_1.0.1-1_i386.deb !


You can try to make these steps as user *** vmplanet *** :

$ cd
$ sudo chown -R vmplanet.vmplanet src

Now you can follow the commands i give you to compile harbour :

$ cd src 
$ svn co https://harbour-project.svn.sourceforge.net/svnroot/harbour-project/trunk/harbour

$ cd harbour
$ fakeroot sh mpkg_deb.sh
$ sudo dpkg -i ../harbour_1.0.1-1_i386.deb


To avoid such problem (and others) avoid running as root ...

Guy

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

Re: [Harbour] Harbour under ubuntu

[Guy Roussin]

Hi,

Wich is best way for learn about linux?
  

I'm not a ubuntu user but i found this :
http://ubuntuguide.org/wiki/Ubuntu:Intrepid
Seems fine to install ubuntu ...

but i think you can read also debian reference
http://www.debian.org/doc/user-manuals.en.html
(debian is very similar to ubuntu) and print the
refrence card ...

Guy

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

Re: [Harbour] poccce POLINK: error: Unresolved external symbol 'modfl'.

[Guy Roussin]

Hi,

Same error as the one i reported the 2009/02/25 when i try to compile
harbour under cygwin ...

Guy

AbeB a écrit :

cut from log
-
C:\Harbour\HARBOU~2\trunk\harbour\source\pp>if not exist
..\..\lib\win\poccce\. md ..\..\lib\win\poccce mingw32-make.exe[3]: Entering
directory `C:/Harbour/HARBOU~2/trunk/harbour/source/pp/win/poccce'
pocc.exe -I. -Ze -Go -Ot -Ox -Tarm-coff -D_WINCE -DUNICODE
-DHB_NO_WIN_CONSOLE -I../../../../include-c ../../hbpp.c -Fohbpp.obj
polink.exe  -OUT:hbpp.exe hbpp.obj -LIBPATH:../../../../lib/win/poccce
coredll.lib corelibc.lib winsock.lib ws2.libhbcommon.lib
POLINK: error: Unresolved external symbol 'modfl'.
POLINK: fatal error: 1 unresolved external(s).

-
HB_ARCHITECTURE=win
HB_BIN_INSTALL=C:\hb-poccce\bin
HB_COMPILER=poccce
HB_DOC_INSTALL=C:\hb-poccce\doc
HB_INC_INSTALL=C:\hb-poccce\include
HB_INSTALL_PREFIX=C:\hb-poccce
HB_LIB_INSTALL=C:\hb-poccce\lib
--
Path=C:\devl\make-3.81;c:\progra~1\PellesC\bin
INCLUDE=c:\progra~1\PellesC\include\wince;c:\progra~1\PellesC\include;
LIB=c:\progra~1\PellesC\lib;c:\progra~1\PellesC\lib\wince;c:\progra~1\PellesC\include\wince;c:\progra~1\PellesC\include;


  



--
Guy Roussin

UMR TETIS "Territoires, Environnement, Teledetection et Information  Spatiale" 


Maison de la Télédétection en Languedoc Roussillon
500, rue J.F. Breton
34093 MONTPELLIER Cedex 5

tél: 04.67.54.87.46 fax: 04.67.54.87.00
mailto:guy.rous...@teledetection.fr

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

Re: [Harbour] Howto build contrib contents under Linux

[Guy Roussin]

Hi,

export HB_CONTRIBLIBS=hbpgsql
./make_gnu.sh

Guy

elart a écrit :
I'm interested of  contrib/hbpgsql  contents  but i can't  figure howto 
make and test them under Linux
Into the  .../contrib/ dir i see the make_b32_all.bat and the 
make_vc_all.bat

i hope i can manually make something without a make_gnu_all script.

How can i try to compile the contrib/hbpgsql under Linux (Ubuntu 7.10)...?

Thank you in advance.

Best regards.

Marco



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

[Harbour] Little patch to contrib/hbpgsql/Makefile

[Guy Roussin]

Hi, 

I want to build hbpgsql lib on my debian etch.
I only need to install libpq-dev package and make 
a little patch to harbour/contrib/hbpgsql/Makefile
Can you apply it ?

Thank you.

--
Guy Roussin


http://www.teledetection.fr
--- Makefile.orig	2007-12-15 12:47:37.0 +0100
+++ Makefile	2007-12-15 12:36:09.0 +0100
@@ -21,5 +21,5 @@
 ifeq ($(HB_COMPILER),mingw32)
CFLAGS := $(CFLAGS) -I/postgres/include
 else
-   CFLAGS := $(CFLAGS) -I/usr/local/pgsql/include -I/usr/local/pgsql/include/libpq -I/usr/include/pgsql
+   CFLAGS := $(CFLAGS) -I/usr/local/pgsql/include -I/usr/local/pgsql/include/libpq -I/usr/include/pgsql -I/usr/include/postgresql
 endif
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Re: [Harbour] Error generando Harbour en HbRDDADS / Error Building Harbour in HbRDDADS

[Guy Roussin]

I think "ace.h" is removed from svn ... perhaps a licence problem ?
Guy

Guillermo Varona Silupú a écrit :

[SPA]
Hola, he actualizado al ultimo SVN de Harbour, y cuando genero el 
compilador mediante make_gnu.bat (uso WinXP SP2+MinGW), obtengo una 
lista bastante larga de errores al momento de generar la Lib HbRddADS.

Antes no tenia ningun error al momento de construir harbour.
Yo no voy a usar y creo que no usare esta librería, cómo puedo hacer 
para evitar que pase por la creacion de esta librería?


[ENG]
Hello, I updated the last SVN Harbor, and when the compiler generates 
through make_gnu.bat (use WinXP SP2 + MinGW), I get a fairly long list 
of errors when generating the Lib HbRddADS.

Before, she had no mistake when it built harbor.
I am not going to use and I do not think usare this library, how can I 
do to avoid passing through the creation of this library?


TIA,
Best Regards
GVS

P.D.: LOG also attached to the construction of harbour . . . ups!!! 
can't attached

Here part of the list of errors:

../../ads1.c:3416: error: syntax error before "hIndex"
../../ads1.c:3418: error: `UNSIGNED32' undeclared (first use in this 
function)
../../ads1.c:3420: error: `pOrderInfo' undeclared (first use in this 
function)
../../ads1.c:3421: error: `UNSIGNED16' undeclared (first use in this 
function)

../../ads1.c:3421: error: syntax error before "u16"
../../ads1.c:3422: error: `UNSIGNED8' undeclared (first use in this 
function)

../../ads1.c:3429: error: `pArea' undeclared (first use in this function)
../../ads1.c:3445: error: `u32Options' undeclared (first use in this 
function)
../../ads1.c:3445: error: `ADS_COMPOUND' undeclared (first use in this 
function)


../../ads1.c:3455: error: `pucWhile' undeclared (first use in this 
function)

../../ads1.c:3458: error: syntax error before "pucScope"
../../ads1.c:3464: error: `u32RetVal' undeclared (first use in this 
function)
../../ads1.c:3464: error: `ADS_BOTTOM' undeclared (first use in this 
function)
../../ads1.c:3464: error: `pucScope' undeclared (first use in this 
function)
../../ads1.c:3464: error: `u16BufLen' undeclared (first use in this 
function)
../../ads1.c:3466: error: `AE_SUCCESS' undeclared (first use in this 
function)

../../ads1.c:3473: error: `u16' undeclared (first use in this function)
../../ads1.c:3474: warning: implicit declaration of function 
`AdsGetIndexExpr'

../../ads1.c:3474: error: `u16Len' undeclared (first use in this function)
../../ads1.c:3476: error: `ADS_STRING' undeclared (first use in this 
function)
../../ads1.c:3488: error: `hTableOrIndex' undeclared (first use in this 
function

)
../../ads1.c:3516: error: `ADS_CUSTOM' undeclared (first use in this 
function)
../../ads1.c:3520: error: `ADS_DESCENDING' undeclared (first use in this 
functio

n)
../../ads1.c:3525: error: `ADS_UNIQUE' undeclared (first use in this 
function)
../../ads1.c:3528: warning: implicit declaration of function 
`AdsCreateIndex'

../../ads1.c:3529: error: syntax error before ')' token
../../ads1.c:3543: error: `hIndex' undeclared (first use in this function)
../../ads1.c:3548: error: syntax error before "ahIndex"
../../ads1.c:3552: error: syntax error before ')' token
../../ads1.c:3553: error: `AE_INDEX_ALREADY_OPEN' undeclared (first use 
in this

function)
../../ads1.c:3558: error: `ahIndex' undeclared (first use in this function)
../../ads1.c:3420: warning: unused variable `pExprItem'
../../ads1.c: At top level:
../../ads1.c:3564: error: syntax error before "pArea"
../../ads1.c: In function `adsOrderDestroy':
../../ads1.c:3566: error: `ADSHANDLE' undeclared (first use in this 
function)

../../ads1.c:3566: error: syntax error before "hIndex"
../../ads1.c:3567: error: `UNSIGNED32' undeclared (first use in this 
function)
../../ads1.c:3570: error: `pOrderInfo' undeclared (first use in this 
function)
../../ads1.c:3572: error: `UNSIGNED8' undeclared (first use in this 
function)

../../ads1.c:3572: error: syntax error before "pucTagName"
../../ads1.c:3574: error: `pucTagName' undeclared (first use in this 
function)
../../ads1.c:3576: error: `ADS_MAX_TAG_NAME' undeclared (first use in 
this funct

ion)
../../ads1.c:3577: error: `u32RetVal' undeclared (first use in this 
function)

../../ads1.c:3577: error: `pArea' undeclared (first use in this function)
../../ads1.c:3577: error: `hIndex' undeclared (first use in this function)
../../ads1.c:3578: error: `AE_SUCCESS' undeclared (first use in this 
function)
../../ads1.c:3582: warning: implicit declaration of function 
`AdsDeleteIndex'

../../ads1.c: At top level:
../../ads1.c:3600: error: syntax error before "pArea"
../../ads1.c: In function `adsOrderInfo':
../../ads1.c:3602: error: `ADSHANDLE' undeclared (first use in this 
function)

../../ads1.c:3602: error: syntax error before "hIndex"
../../ads1.c:3603: error: `UNSIGNED8' undeclared (first use in this 
function)
../../ads1.c:3604: error: `UNSIGNED16' undeclared (first use in this 
function)
../../ads1.c:3606: err

Re: [Harbour] Little patch to contrib/hbpgsql/Makefile

[Guy Roussin]

Hi,

Przemyslaw Czerpak a écrit :

On Sat, 15 Dec 2007, Guy Roussin wrote:
Hi, 
I want to build hbpgsql lib on my debian etch.
I only need to install libpq-dev package and make 
a little patch to harbour/contrib/hbpgsql/Makefile

Can you apply it ?


Yes, please.

The patch was in my previous mail :-)


If you can also add conditional build of hbpgsql to DEB files
then it would be nice.

I think the way to go is to create a 'debian' sub-directory, with
all stuff required by debian/ubuntu package on harbour svn.
After this, the file make_deb.sh become a very short script with lines
like these:
"debian/rules binary"
"debian/rules clean"
"debian/rules build"

Luis Mayoral is the maintainer of the debian package, but i can't
see any update since 2004.
I'm not a debian developper, but i can try to create this
debian sub-directory. I get the debian sub-directory from the
actual debian package as a start.
What do you think ?

Guy

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

Re: [Harbour] Little patch to contrib/hbpgsql/Makefile

[Guy Roussin]

Luis Mayoral is the maintainer of the debian package, but i can't
see any update since 2004.

Sorry, there is an update from Clint Adams, 18 May 2006

Guy

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

Re: [Harbour] Little patch to contrib/hbpgsql/Makefile

[Guy Roussin]

Hi,


We already have it.

I didn't even think to look at !
Great :-)


After this, the file make_deb.sh become a very short script with lines
like these:
"debian/rules binary"
"debian/rules clean"
"debian/rules build"


And in practice it is sth like that.
make_deb.sh simply pack current source code using
bin/pack_src.sh
and then execute
dpkg-buildpackage -b
to create DEB binaries

ok, fine.


Just look at debian/* directory in our SVN - you should have
its copy on your local disk. It was updated for modifications
in Harbour repository.

Ok now, i only need to test it with my debian's (etch, testing & sid)
and ubuntu (gutsy) ... then report !

Thank you.

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

Re: [Harbour] Re: HB_LONG_LONG_OFF in OS/2

[Guy Roussin]

Hi,

With this code :
#!/usr/local/bin/hbrun
proc main()
? 1234567890123456789
? 12345678901234567890
return

i get these results (linux debian):
 1234567890123456789
 1234567890123457

strange no ?

Guy

David Arturo Macias Corona a écrit :

 > When HB_LONG_LONG_OFF was set then in nearly all places where it was
 > used I was emulating big numbers using double values so numerical
 > precission will be only one visible difference with some exceptions
 > when you reach some limits, f.e. LASTREC() with DBF with more then
 > 2GB records returns negative value with HB_LONG_LONG_OFF.
 > This is very simple code to check if it works:

 > proc main()
 > ? 1234567890123456789
 > return

 > Without HB_LONG_LONG_OFF this number is stored as double value
  ***
 > rounded to 53 bits precision and presented as:
 > 1234567890123457000
  ***


Sorry, with or without ? I got inverse


I get:

With HB_LONG_LONG_OFF:
( set C_USR=-DHB_LONG_LONG_OFF )

[E:\harbour801\bin]hbrun.exe test.prg

 1234567890123457000


Without HB_LONG_LONG_OFF:
( Rem  set C_USR=-DHB_LONG_LONG_OFF )

[E:\harbour801\bin]hbrun.exe test.prg

 1234567890123456789

David Macias



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

[Harbour] Accessing big text files with very long lines

[Guy Roussin]

Hi,

I create a little class to access big text files with very long lines.
So, after parsing the file, i can get very quickly a line in the text file.
Now, i want to fclose() the text file when the object is destroyed.
How can i do this with harbour ?

--
Guy Roussin

#!/usr/bin/hbrun
#include "hbclass.ch"

// Note: BUFLEN must be >= len(::cSep)
#define BUFLEN 1024

function main()
 local oObjet
 oObjet := FLaccess():New("clLine.prg")
 ? oObjet:numberOfLines()
 ? oObjet:getLine()
 ? oObjet:getLine()
 ? oObjet:getLine(16)
 ? oObjet:getLine()
 ? oObjet:nCurrentLine
 ? oObjet:nHandle
return NIL 

class FLaccess
 method new()
 method readLines()
 method numberOfLines()
 method getLine()
 var nHandle READONLY
 var cSep READONLY
 var nCurrentLine READONLY
 var aPtLines READONLY
endclass

method new(cF,cS) class FLaccess
 ::nHandle:=fopen(cF,0)
 ::cSep:=if(cS==NIL,hb_OSNewLine(),cS)
 ::nCurrentLine:=0
 ::aPtLines:={}
 ::readLines()
return Self

method readLines() class FLaccess
 local cBuffer:=space(BUFLEN)
 local nAtcSep:=0
 local nOctetsLus:=0
 local nLencSep:=len(::cSep)
 aadd(::aPtLines,-nLencSep)
 while (nOctetsLus:=fread(::nHandle,@cBuffer,BUFLEN))>0
  nAtcSep:=at(::cSep,cBuffer) 
  if nAtcSep==0 .or. nAtcSep+nLencSep-1>nOctetsLus   
   if nOctetsLus___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Re: [Harbour] Accessing big text files with very long lines

[Guy Roussin]

Przemyslaw Czerpak a écrit :

On Mon, 31 Mar 2008, Alex Strickland wrote:

Now, i want to fclose() the text file when the object is destroyed.
How can i do this with harbour ?
I do not think there are destructors in Harbour, call an exit/close 
method.

They do exist in xHarbour.


You are wrong. Only Harbour have fully working destructors and
xHarbour doesn't. The xHarbour implementation is too buggy for
serious usage. 
Please read docs/destruct.txt and try test code in destruct.prg.


Fine thank you, i only need to add this to my code :

class FLaccess
 ...
 destructor close
 ...
endclass

...

method close() class FLaccess
fclose(::nHandle)
return NIL

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

[Harbour] harbour and wine 1.0 release

[Guy Roussin]

Hi,

wine 1.0 release should arrive on 6 june 2008.
Is harbour application and harbour itself (compiled with bcc or others)
run fines on wine RC ?

I recently try harbour apps with some dll (ace32.dll)
witch hangs on wine ...

I can test some windows apps on my linux boxes if somebody send
me some demos versions ...

Thank you,

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

[Harbour] make_deb.sh

[Guy Roussin]

Hi,

I notice that HB_CONTRIBLIBS in make_deb.sh is not taken into
account by dpkg-buildpackage -b

As a workaround i add this line before dpkg-buildpackage -b :
export HB_CONTRIBLIBS

So even if the package libpq-dev is there, libhbpgsql.a is not
compiled.

I also suggest to add those lines in make_deb.sh :

if test_reqpkg libmysqlclient15-dev
then
 HB_CONTRIBLIBS="${HB_CONTRIBLIBS} hbmysql"
fi

Thank you,

--
Guy Roussin

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

Re: [Harbour] make_deb.sh

[Guy Roussin]

Hi,


I'll make the modifications but I do not use any DEB based
distribution and I cannot test them. If possible I'd like
to ask you to commit necessary fixes and cleanups.

I want to ask all users using Debian or Ubuntu to make tests
and required updates or to send information about found problems
to this list.

All is fine, thank you. I compile package and use harbour on debian
etch and debian sid. I get only errors when compiling rddads. I
suppose "ace.h" and so are not free enough to be in debian ...

Thank you again.

Guy Roussin

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

[Harbour] little fix and improve of make_deb.sh

[Guy Roussin]

Hi,

Here is a little patch to fix and improve make_deb.sh.
I think this patch fix Lorenzo problem. It uses dpkg -l
instead of dpkg -s to find if a package is intalled.
It also add hbgd in HB_CONTRIBLIBS, if libgd[2]-xpm-dev
is present. It also fixes some typos.

Feel free to apply this patch if you found it usefull.

--
Guy Roussin


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

Re: [Harbour] little fix and improve of make_deb.sh

[Guy Roussin]

Hi,

Again a little fix, the line :

if [ -z "$HB_WITHOUT_GTSLN" ] && test_reqpkg libslang2-dev

can be replace by :

if [ -z "$HB_WITHOUT_GTSLN" ] && ! test_reqpkg libslang2-dev

Guy

Guy Roussin a écrit :

Hi,

Here is a little patch to fix and improve make_deb.sh.
I think this patch fix Lorenzo problem. It uses dpkg -l
instead of dpkg -s to find if a package is intalled.
It also add hbgd in HB_CONTRIBLIBS, if libgd[2]-xpm-dev
is present. It also fixes some typos.

Feel free to apply this patch if you found it usefull.


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

[Harbour] Incrementing debian version of harbour

[Guy Roussin]

Hi,

I think we need to update the harbour version of debian to 1.0.0.RC1 for 
example.
and write something like this (on a debian host) :
$ cd harbour/debian
$ dch -v 1.0.0.RC1 "Lot of new stuff see changelog"

This command "increment" the debian/changelog.

I think we can simulate "dch" command (on non debian host) by adding on top
of this file something like this (don't change spaces ...) :

--- :< ---
harbour (1.0.0.RC1) unstable; urgency=low

  * Lot of new stuff see changelog

 -- Iam.TheDebianMaintener <[EMAIL PROTECTED]>  Thu, 05 Jun 2008 15:05:20 +0200

--- :< ---

Thank you,

--
Guy Roussin

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

[Harbour] TMYSQLSERVER error ...

[Guy Roussin]

Hi,

I get this error with current harbour svn.

Error BASE/1070  Argument error: == (Quit)
Error BASE/1070  Argument error: ==
Called from TMYSQLSERVER:NEW(1376)

Guy Roussin

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