This is the mail archive of the cygwin@cygwin.com mailing list for the Cygwin project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: Problem compiling Perl Tk800.024


>>>>> "jon" == jon ewing <jon at mediasurface dot com> writes:

    jon> Hi Gerrit,

    jon> Sorry for the delay in replying...

    >> Hmmm, I tried Tk800.23 without X, there were only minor 
    >> problems, does it compile without X?

Yes, See below ....

    jon> No.

    jon> Firstly I removed the duplicated methods from stubs.c. Then when
    jon> 'make'ing, I first got:

    jon> ...
    jon> ...
    jon> make[1]: Entering directory `/home/jon/src/perlModules/Tk800.024/pTk'
    jon> gcc -c -I..  -I. -Ibitmaps  -DPERL_USE_SAFE_PUTENV -fno-strict-aliasing
    jon> -I/usr/local/include -DUSEIMPORTLIB -O2   -DVERSION=\"800.024\"
    jon> -DXS_VERSION=\"800.024\"  -I/usr/lib/perl5/5.6.1/cygwin-multi/CORE
    jon> -D__WIN32__ -Wall -Wno-implicit-int -Wno-comment -Wno-unused
    jon> -D__USE_FIXED_PROTOTYPES__ stubs.c
    jon> cc1: warning: changing search order for system directory
    jon> "/usr/local/include"
    jon> cc1: warning:   as it has already been specified as a non-system
    jon> directory
    jon> In file included from /usr/include/w32api/windows.h:87,
    jon>                  from Lang.h:194,
    jon>                  from tkPort.h:24,
    jon>                  from tk.h:71,
    jon>                  from tkInt.h:21,
    jon>                  from stubs.c:7:
    jon> /usr/include/w32api/winspool.h:239: unnamed fields of type other than
    jon> struct or union are not allowed
    jon> /usr/include/w32api/winspool.h:254: unnamed fields of type other than
    jon> struct or union are not allowed
    jon> /usr/include/w32api/winspool.h:275: unnamed fields of type other than
    jon> struct or union are not allowed
    jon> /usr/include/w32api/winspool.h:300: unnamed fields of type other than
    jon> struct or union are not allowed
    jon> /usr/include/w32api/winspool.h:446: unnamed fields of type other than
    jon> struct or union are not allowed
    jon> /usr/include/w32api/winspool.h:469: unnamed fields of type other than
    jon> struct or union are not allowed
    jon> make[1]: *** [stubs.o] Error 1
    jon> make[1]: Leaving directory `/home/jon/src/perlModules/Tk800.024/pTk'
    jon> make: *** [pTk/libpTk.a] Error 2



    jon> I figured the stuff from winspool.h probably wasn't used, so edited
    jon> windows.h and commented out that line. The compilation then got further,
    jon> but stopped with:

    jon> ...
    jon> ...
    jon> gcc -c -I..  -I. -Ibitmaps  -DPERL_USE_SAFE_PUTENV -fno-strict-aliasing
    jon> -I/usr/local/include -DUSEIMPORTLIB -O2   -DVERSION=\"800.024\"
    jon> -DXS_VERSION=\"800.024\"  -I/usr/lib/perl5/5.6.1/cygwin-multi/CORE
    jon> -D__WIN32__ -Wall -Wno-implicit-int -Wno-comment -Wno-unused
    jon> -D__USE_FIXED_PROTOTYPES__ tixUnixDraw.c
    jon> cc1: warning: changing search order for system directory
    jon> "/usr/local/include"
    jon> cc1: warning:   as it has already been specified as a non-system
    jon> directory
    jon> tixUnixDraw.c: In function `TixpStartSubRegionDraw':
    jon> tixUnixDraw.c:152: structure has no member named `rectUsed'
    jon> tixUnixDraw.c:153: structure has no member named `rect'
    jon> tixUnixDraw.c:154: structure has no member named `rect'
    jon> tixUnixDraw.c:155: structure has no member named `rect'
    jon> tixUnixDraw.c:156: structure has no member named `rect'
    jon> tixUnixDraw.c:158: structure has no member named `rect'
    jon> tixUnixDraw.c:161: structure has no member named `rectUsed'
    jon> tixUnixDraw.c: In function `TixpEndSubRegionDraw':
    jon> tixUnixDraw.c:178: structure has no member named `rectUsed'
    jon> tixUnixDraw.c:179: structure has no member named `rect'
    jon> tixUnixDraw.c:180: structure has no member named `rect'
    jon> tixUnixDraw.c:181: structure has no member named `rect'
    jon> tixUnixDraw.c:182: structure has no member named `rect'
    jon> tixUnixDraw.c:183: structure has no member named `rect'
    jon> tixUnixDraw.c: In function `TixpSubRegDrawImage':
    jon> tixUnixDraw.c:268: structure has no member named `rectUsed'
    jon> tixUnixDraw.c:269: structure has no member named `rect'
    jon> tixUnixDraw.c:270: structure has no member named `rect'
    jon> tixUnixDraw.c:271: structure has no member named `rect'
    jon> tixUnixDraw.c:272: structure has no member named `rect'
    jon> tixUnixDraw.c:274: structure has no member named `rect'
    jon> tixUnixDraw.c:274: structure has no member named `rect'
    jon> tixUnixDraw.c:275: structure has no member named `rect'
    jon> tixUnixDraw.c:275: structure has no member named `rect'
    jon> tixUnixDraw.c:278: structure has no member named `rect'
    jon> tixUnixDraw.c:279: structure has no member named `rect'
    jon> tixUnixDraw.c:280: structure has no member named `rect'
    jon> tixUnixDraw.c:281: structure has no member named `rect'
    jon> tixUnixDraw.c:283: structure has no member named `rect'
    jon> tixUnixDraw.c:283: structure has no member named `rect'
    jon> tixUnixDraw.c:284: structure has no member named `rect'
    jon> tixUnixDraw.c:284: structure has no member named `rect'
    jon> make[1]: *** [tixUnixDraw.o] Error 1
    jon> make[1]: Leaving directory `/home/jon/src/perlModules/Tk800.024/pTk'
    jon> make: *** [pTk/libpTk.a] Error 2



    jon> I tried again with 'perl Makefile.PL x'. Again I edited the stubs.c, and
    jon> this time it compiled ok, but failed nearly all the tests, with all test
    jon> failing for the same reason, eg:

    jon> t/zzTixGrid.........X Error of failed request:  BadWindow (invalid
    jon> Window parameter)
    jon>   Major opcode of failed request:  1 (X_CreateWindow)
    jon>   Resource id in failed request:  0x0
    jon>   Serial number of failed request:  5
    jon>   Current serial number in output stream:  6
    jon> t/zzTixGrid.........dubious

    jon>         Test returned status 1 (wstat 256, 0x100)
    jon> DIED. FAILED tests 1-36
    jon>         Failed 36/36 tests, 0.00% okay
    jon> Failed Test     Status Wstat Total Fail  Failed  List of Failed
    jon> ------------------------------------------------------------------------
    jon> --------
    jon> t/Trace.t          1   256     5    5 100.00%  1-5
    jon> t/autoload.t       1   256     5    5 100.00%  1-5
    jon> t/balloon.t        1   256     8    8 100.00%  1-8
    jon> t/browseentry.t    1   256    15   13  86.67%  3-15
    jon> t/create.t         1   256   419  418  99.76%  2-419
    jon> t/dash.t           1   256    ??   ??       %  ??
    jon> t/fbox.t           1   256     6    4  66.67%  3-6
    jon> t/fileevent.t     13  3328     1    1 100.00%  1
    jon> t/fileselect.t     1   256     5    3  60.00%  3-5
    jon> t/font.t           1   256     9    9 100.00%  1-9
    jon> t/geomgr.t         1   256    19   19 100.00%  1-19
    jon> t/list.t           1   256    ??   ??       %  ??
    jon> t/mega.t           1   256     8    8 100.00%  1-8
    jon> t/mwm.t            1   256     2    2 100.00%  1-2
    jon> t/optmenu.t        1   256    24   22  91.67%  3-24
    jon> t/photo.t          1   256    ??   ??       %  ??
    jon> t/progbar.t        1   256    15   15 100.00%  1-15
    jon> t/widget.t         1   256     7    7 100.00%  1-7
    jon> t/zzHList.t        1   256    22   22 100.00%  1-22
    jon> t/zzPhoto.t        1   256    27   27 100.00%  1-27
    jon> t/zzScrolled.t     1   256    94   94 100.00%  1-94
    jon> t/zzText.t         1   256    22   22 100.00%  1-22
    jon> t/zzTixGrid.t      1   256    36   36 100.00%  1-36
    jon> Failed 23/25 test scripts, 8.00% okay. 740/838 subtests failed, 11.69%
    jon> okay.
    jon> make: *** [test_dynamic] Error 2


    jon> Have you been able to compile 800.024?

    jon> Thanks lots for your help,

Hi Jon

Try compiling first the X version.

 o perl Makefile.pl x

In that case the stubs.c file is not there in the pTk subdirectory. If you
start with

 o perl Makefile

and afterwards (after make clean) with 

 o perl Makefile x

there is a stubs.c file in ./pTk
And even if you comment out all the duplicated definitions of some functions
you'll get the "X Error of failed request" kind of errors.


Here's my make test:

cd pTk && make DEFINE="-U_WIN32"
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/pTk'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/pTk'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/pTk'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/pTk'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/pod'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/pod'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/demos'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/demos'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/Xlib'
make[2]: Entering directory `/gnu/cpan/build/Tk800.024/Xlib/X'
make[2]: Leaving directory `/gnu/cpan/build/Tk800.024/Xlib/X'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/Xlib'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/WinPhoto'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/WinPhoto'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/Tixish'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/Tixish'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/TixPixmap'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/TixPixmap'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/TixGrid'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/TixGrid'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/TextList'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/TextList'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/Text'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/Text'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/TList'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/TList'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/Scrollbar'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/Scrollbar'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/Scale'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/Scale'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/Photo'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/Photo'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/NBFrame'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/NBFrame'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/Mwm'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/Mwm'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/Menubutton'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/Menubutton'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/Listbox'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/Listbox'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/InputO'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/InputO'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/IO'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/IO'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/HList'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/HList'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/Event'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/Event'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/Entry'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/Entry'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/DragDrop'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/DragDrop'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/Compound'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/Compound'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/Canvas'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/Canvas'
make[1]: Entering directory `/gnu/cpan/build/Tk800.024/Bitmap'
make[1]: Leaving directory `/gnu/cpan/build/Tk800.024/Bitmap'
/bin/perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/Require.t t/Trace.t t/X.t t/autoload.t t/balloon.t t/browseentry.t t/create.t t/dash.t t/fbox.t t/fileevent.t t/fileselect.t t/font.t t/geomgr.t t/list.t t/mega.t t/mwm.t t/optmenu.t t/photo.t t/progbar.t t/widget.t t/zzHList.t t/zzPhoto.t t/zzScrolled.t t/zzText.t t/zzTixGrid.t
t/autoload.......ok
t/balloon........ok
t/browseentry....ok
t/create.........ok
t/dash...........ok
t/fbox...........ok
t/fileevent......ok
t/fileselect.....ok
t/font...........ok
t/geomgr.........ok
t/list...........ok
t/mega...........ok
t/mwm............ok
t/optmenu........ok
t/photo..........ok
t/progbar........ok
t/Require........ok
t/Trace..........ok
t/widget.........ok
t/X..............ok
t/zzHList........ok
t/zzPhoto........ok
t/zzScrolled.....ok
t/zzText.........ok
t/zzTixGrid......# Test 18 got: '1' (t/zzTixGrid.t at line 81 *TODO*)
#    Expected: '' (oops col selection is not cleared)
# Test 26 got: '1' (t/zzTixGrid.t at line 91 *TODO*)
#    Expected: '' (oops row selection is not cleared)
# Test 32 got: '1' (t/zzTixGrid.t at line 99 *TODO*)
#    Expected: '0' (oops cell selection contain a not selected item)
ok
All tests successful.
Files=25, Tests=904, 48 wallclock secs (12.71 cusr +  8.47 csys = 21.19 CPU)


I'm just using it with texdoctk from the latest teTeX distro.

By the way I'm using perl-5.8.0. (Does anyone know why all the man pages and perl scripts in /bin
have CRLF's ?)

    jon> Jon.

Ciao
  Volker


--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Bug reporting:         http://cygwin.com/bugs.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]