Mailing-List: contact cygwin-help AT cygwin DOT com; run by ezmlm List-Subscribe: List-Archive: List-Post: List-Help: , Sender: cygwin-owner AT cygwin DOT com Mail-Followup-To: cygwin AT cygwin DOT com Delivered-To: mailing list cygwin AT cygwin DOT com To: cygwin AT cygwin DOT com CC: "Gerrit P. Haase" Subject: Re: Problem compiling Perl Tk800.024 References: <001201c2df2a$8ce62a30$152ca8c0 AT int DOT mediasurface DOT com> From: "Dr. Volker Zell" Date: Tue, 04 Mar 2003 13:15:09 +0100 In-Reply-To: <001201c2df2a$8ce62a30$152ca8c0@int.mediasurface.com> ("jon ewing"'s message of "Fri, 28 Feb 2003 13:08:47 -0000") Message-ID: <8765qzuy42.fsf@vzell-de.de.oracle.com> Lines: 282 User-Agent: Gnus/5.090007 (Oort Gnus v0.07) XEmacs/21.4 (Common Lisp (candidate 1), i686-pc-cygwin) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii >>>>> "jon" == jon ewing 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/