Mail Archives: cygwin/2003/03/04/07:14:52
>>>>> "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/
- Raw text -