Tcl/Tk

Everything else.

Tcl/Tk

Postby linecon0 » Wed Jan 30, 2002 5:26 am

Environment Info:
10.1.2 (latest dev tools)
G4 TiBook

I am experiencing problems with Tcl 8.3.4
and Tk 8.3.4 which should be the latest release. In the case of Tcl, she builds fine but errors on a few tests. As for Tk, some linking problems and need some hints on how to resolve the issue.

I sure hope this paste is happen with the narrow window.

(here is the error with the test phase of tcl)

[localhost [img]images/icons/grin.gif"%20border="0[/img] ownloads/tcl8.3.4/unix] root# make test
if test ! -f tclsh; then make tclsh; else true; fi
cd dltest;
PATH=..:/sw/bin:/sw/sbin:/Users/tk/bin:/usr/local/bin:/usr/bin:/bin:e
make[1]: Nothing to be done for `all'.
cc -pipe -prebind tclTestInit.o tclTest.o tclTestObj.o
tclTestProcBodyObj.o tc\
-o tcltest
LD_LIBRARY_PATH=`pwd`:; export LD_LIBRARY_PATH; \
LIBPATH=`pwd`:; export LIBPATH; \
SHLIB_PATH=`pwd`:; export SHLIB_PATH; \
TCL_LIBRARY="/Users/tk/Desktop/Downloads/tcl8.3.4/library"; export
TCL_LIBRARY;\
./tcltest ./../tests/all.tcl
Tcl 8.3.2 tests running in interp:
/Users/tk/Desktop/Downloads/tcl8.3.4/unix/tt
Tests running in working dir: /Users/tk/Desktop/Downloads/tcl8.3.4/tests
Only sourcing test files that match: *.test
Tests began at Tue Jan 29 16:37:16 PST 2002
append.test
assocd.test
async.test
autoMkindex.test
basic.test
binary.test
case.test
clock.test

==== clock-8.1 clock scan midnight/gmt range bug 413397 FAILED
==== Contents of test case:

set fmt "%m/%d"
list [clock format [clock scan year -base $5amPST -gmt 0] -format $fmt]
[c]

---- Result was:
12/31 12/30
---- Result should have been:
12/31 12/31
==== clock-8.1 FAILED

cmdAH.test

==== cmdAH-18.2 Tcl_FileObjCmd: executable FAILED
==== Contents of test case:

file executable gorp.file

---- Result was:
1
---- Result should have been:
0
==== cmdAH-18.2 FAILED


==== cmdAH-31.6 Tcl_FileObjCmd: channels in other interp FAILED
==== Contents of test case:

# Safe interps start out with no channels
safeInterp eval [list file channels]

---- Result was:
file4 stderr stdout stdin
---- Result should have been:

==== cmdAH-31.6 FAILED


==== cmdAH-31.9 Tcl_FileObjCmd: channels in other interp FAILED
==== Contents of test case:

lsort [safeInterp eval [list file channels]]

---- Result was:
file4 stderr stdin stdout
---- Result should have been:
file4 stdout
==== cmdAH-31.9 FAILED


==== cmdAH-31.11 Tcl_FileObjCmd: channels in other interp FAILED
==== Contents of test case:

# $newFileId should now be visible only in safeInterp
list [file channels $newFileId] [safeInterp eval [list file channels
$newF]

---- Result was:
file4 file4
---- Result should have been:
{} file4
==== cmdAH-31.11 FAILED


==== cmdAH-31.12 Tcl_FileObjCmd: channels in other interp FAILED
==== Contents of test case:

lsort [safeInterp eval [list file channels]]

---- Result was:
file4 stderr stdin stdout
---- Result should have been:
file4 stdout
==== cmdAH-31.12 FAILED


==== cmdAH-31.13 Tcl_FileObjCmd: channels in other interp FAILED
==== Contents of test case:

safeInterp eval [list close $newFileId]
safeInterp eval [list file channels]

---- Result was:
stderr stdout stdin
---- Result should have been:
stdout
==== cmdAH-31.13 FAILED

cmdIL.test

==== cmdIL-1.24 Tcl_LsortObjCmd procedure, order of -index and -command
FAILED
==== Contents of test case:

catch {rename 1 ""}
proc testcmp {a b} {return [string compare $a $b]}
set l [list [list a b] [list c d]]
set result [list [catch {lsort -command testcmp -index 1 $l} msg] $msg]
rename testcmp ""
set result

---- Result was:
1 {invalid command name "1"}
---- Result should have been:
0 {{a b} {c d}}
==== cmdIL-1.24 FAILED


==== cmdIL-1.26 Tcl_LsortObjCmd procedure, offset indexing from end FAILED
==== Contents of test case:

lsort -index end-1 {{a 1 e i} {b 2 3 f g} {c 4 5 6 d h}}

---- Result was:
{b 2 3 f g} {c 4 5 6 d h} {a 1 e i}
---- Result should have been:
{c 4 5 6 d h} {a 1 e i} {b 2 3 f g}
==== cmdIL-1.26 FAILED

cmdInfo.test
cmdMZ.test

==== cmdMZ-1.4 Tcl_PwdObjCmd: failure FAILED
==== Contents of test case:

# We don't want this test to run on Linux because they do a
# permissions caching trick which causes this to fail. The
# caching is incorrect, but we have no control over that.
file delete -force foo
file mkdir foo
set cwd [pwd]
cd foo
file attr . -permissions 000
set result [list [catch {pwd} msg] $msg]
cd $cwd
file delete -force foo
set result

---- Result was:
0 /Users/tk/Desktop/Downloads/tcl8.3.4/unix/foo
---- Result should have been:
1 {error getting working directory name: permission denied}
==== cmdMZ-1.4 FAILED

compExpr-old.test
compExpr.test
compile.test
concat.test
dcall.test
dstring.test
encoding.test
env.test
error.test
eval.test
event.test
exec.test
execute.test
expr-old.test
expr.test
fCmd.test
fileName.test
for-old.test
for.test
foreach.test

TclExecuteByteCode: done instruction at pc 47: stack top 7 != entry stack
top 6
TclExecuteByteCode execution failure: end stack top != start stack top
make: *** [test] Abort trap
[localhost [img]images/icons/grin.gif"%20border="0[/img] ownloads/tcl8.3.4/unix] root#


[below is the error from tk where it appear
to have a problem with linking]

rm -f libtk8.3.dylib
cc -dynamiclib -prebind -o libtk8.3.dylib tk3d.o tkArgv.o tkAtom.o
tkBind.o tk
ld: warning prebinding disabled because of undefined symbols
ld: Undefined symbols:
_Tcl_DeleteHashEntry
_Tcl_Free
_Tcl_GetIndexFromObj
_Tcl_GetString
_Tcl_InitHashTable
_Tcl_ListObjAppendElement
_Tcl_NewIntObj
_Tcl_NewObj
_Tcl_Panic
_Tcl_SetResult
_XFillPolygon
_XFillRectangle
_Tcl_AppendResult
_XFree
_XGetAtomName
_XInternAtom
_Tcl_AddErrorInfo
_Tcl_Alloc
_Tcl_AllowExceptions
_Tcl_AppendElement
_Tcl_BackgroundError
_Tcl_ConvertElement
_Tcl_DStringAppend
_Tcl_DStringFree
_Tcl_DStringGetResult
_Tcl_DStringInit
_Tcl_DStringResult
_Tcl_DStringSetLength
_Tcl_DeleteHashTable
_Tcl_DoWhenIdle
_Tcl_EventuallyFree
_Tcl_FirstHashEntry
_Tcl_GetBooleanFromObj
_Tcl_GetIntFromObj
_Tcl_GetStringFromObj
_Tcl_GetStringResult
_Tcl_GlobalEval
_Tcl_NextHashEntry
_Tcl_Preserve
_Tcl_Realloc
_Tcl_Release
_Tcl_ResetResult
_Tcl_ScanElement
_Tcl_WrongNumArgs
_XForceScreenSaver
_XKeysymToString
_XStringToKeysym
_XWarpPointer
_Tcl_CreateInterp
_Tcl_DeleteInterp
_Tcl_GetThreadData
_Tcl_IsSafe
_Tcl_TranslateFileName
_XCreateBitmapFromData
_Tcl_AppendStringsToObj
_Tcl_DoOneEvent
_Tcl_GetDoubleFromObj
_Tcl_GetLongFromObj
_Tcl_GetObjResult
_Tcl_NewStringObj
_Tcl_SetBooleanObj
_Tcl_SetDoubleObj
_Tcl_SetIntObj
_Tcl_SetLongObj
_Tcl_SetStringObj
_Tcl_SplitList
_Tcl_TraceVar
_Tcl_UntraceVar
_XBell
_XFlush
_XGetVisualInfo
_XSync
_XVisualIDFromVisual
_XCreateGC
_XFreeGC
_TclFreeObj
_Tcl_AppendToObj
_Tcl_GetAssocData
_Tcl_NewDoubleObj
_Tcl_NewListObj
_Tcl_SetAssocData
_Tcl_CreateChannel
_Tcl_CreateCommand
_Tcl_DStringAppendElement
_Tcl_Eval
_Tcl_GetCommandInfo
_Tcl_Init
_Tcl_PkgRequire
_Tcl_RecordAndEval
_Tcl_SetChannelOption
_Tcl_SetErrno
_Tcl_SetStdChannel
_XParseColor
_XSetErrorHandler
_Tcl_CancelIdleCall
_Tcl_QueueEvent
_XCreateIC
_XFilterEvent
_XRefreshKeyboardMapping
_XSetInputFocus
_Tcl_DuplicateObj
_Tcl_GetInt
_Tcl_ListObjGetElements
_Tcl_NewBooleanObj
_Tcl_NumUtfChars
_Tcl_SetObjResult
_Tcl_UniCharIsUpper
_Tcl_UniCharToLower
_Tcl_UniCharToUpper
_Tcl_UniCharToUtf
_Tcl_UtfAtIndex
_Tcl_UtfNext
_Tcl_UtfToUniChar
_XGContextFromGC
_Tcl_ServiceEvent
_Tcl_Sleep
_XGrabKeyboard
_XGrabPointer
_XQueryPointer
_XUngrabKeyboard
_XUngrabPointer
_Tcl_GetBoolean
_TclGetStartupScriptFileName
_Tcl_CommandComplete
_Tcl_CreateChannelHandler
_Tcl_DeleteChannelHandler
_Tcl_EvalFile
_Tcl_Exit
_Tcl_ExternalToUtfDString
_Tcl_FindExecutable
_Tcl_Flush
_Tcl_GetChannel
_Tcl_GetStdChannel
_Tcl_GetVar
_Tcl_Gets
_Tcl_Merge
_Tcl_SetVar
_Tcl_SourceRCFile
_Tcl_WriteChars
_Tcl_WriteObj
_Tcl_GetDouble
_Tcl_PrintDouble
_Tcl_Close
_Tcl_OpenFileChannel
_Tcl_PosixError
_Tcl_Read
_Tcl_Seek
_XGetWindowProperty
_XSetSelectionOwner
_XFillRectangles
_XCreateColormap
_XFreeColormap
_Tcl_CreateExitHandler
_Tcl_CreateObjCommand
_Tcl_GetInterpPath
_Tcl_GetMaster
_Tcl_GetVar2
_Tcl_HideCommand
_Tcl_InterpDeleted
_Tcl_LinkVar
_Tcl_PkgProvideEx
_Tcl_SetMainLoop
_Tcl_SetVar2
_Tcl_UnlinkVar
_Tcl_UtfToTitle
_Tcl_VarEval
_XChangeWindowAttributes
_XConfigureWindow
_XDefineCursor
_XDestroyIC
_XDestroyWindow
_XGetIMValues
_XMapWindow
_XMoveResizeWindow
_XMoveWindow
_XOpenIM
_XResizeWindow
_XRootWindow
_XSetLocaleModifiers
_XSetWindowBackground
_XSetWindowBackgroundPixmap
_XSetWindowBorder
_XSetWindowBorderPixmap
_XSetWindowBorderWidth
_XSetWindowColormap
_XSynchronize
_XUnmapWindow
_XCopyArea
_XCopyPlane
_XSetClipOrigin
_XSetForeground
_XAllocColor
_XAllocNamedColor
_XFreeColors
_XLookupColor
_XQueryColors
_XCreateGlyphCursor
_XCreatePixmapCursor
_XFreeCursor
_XLoadFont
_XEmptyRegion
_XUnionRectWithRegion
_Tcl_DStringEndSublist
_Tcl_DStringStartSublist
_XCreateWindow
_XGetWindowAttributes
_XSelectInput
_XSendEvent
_Tcl_CreateEventSource
_Tcl_CreateFileHandler
_Tcl_DeleteEventSource
_Tcl_DeleteFileHandler
_Tcl_SetMaxBlockTime
_TclpGetTime
_XCloseDisplay
_XEventsQueued
_XNextEvent
_XNoOp
_XOpenDisplay
_XGetInputFocus
_XGrabServer
_XQueryTree
_XUngrabServer
_Tcl_CreateEncoding
_Tcl_FreeEncoding
_Tcl_GetEncoding
_Tcl_GetEncodingName
_Tcl_StringMatch
_Tcl_UtfCharComplete
_Tcl_UtfToExternal
_Tcl_UtfToExternalDString
_XDrawString
_XDrawString16
_XFreeFont
_XFreeFontNames
_XGetFontProperty
_XListFonts
_XLoadQueryFont
_XSetFont
_XTextWidth
_XTextWidth16
_XFreeModifiermap
_XGetModifierMapping
_XKeycodeToKeysym
_XKeysymToKeycode
_XLookupString
_XmbLookupString
_Tcl_CreateTimerHandler
_Tcl_DeleteTimerHandler
_Tcl_ExternalToUtf
_XChangeProperty
_XConvertSelection
_XDeleteProperty
_Tcl_GetVar2Ex
_Tcl_SetObjErrorCode
_XListHosts
_XAllocClassHint
_XAllocSizeHints
_XGetGeometry
_XGetWMColormapWindows
_XIconifyWindow
_XReconfigureWMWindow
_XReparentWindow
_XSetClassHint
_XSetCommand
_XSetIconName
_XSetTransientForHint
_XSetWMClientMachine
_XSetWMColormapWindows
_XSetWMHints
_XSetWMName
_XSetWMNormalHints
_XStringListToTextProperty
_XTranslateCoordinates
_XWithdrawWindow
_XCreatePixmap
_XFreePixmap
_tclStubsPtr
_Tcl_DeleteCommandFromToken
_Tcl_EvalObjEx
_Tcl_ObjGetVar2
_Tcl_ObjSetVar2
_Tcl_SetCommandInfo
_Tcl_SetVar2Ex
_Tcl_ConvertCountedElement
_Tcl_EvalEx
_Tcl_ScanCountedElement
_Tcl_UtfFindFirst
_Tcl_ListObjIndex
_Tcl_ListObjLength
_Tcl_ListObjReplace
_Tcl_SetListObj
_Tcl_AppendObjToObj
_Tcl_EvalObjv
_XDrawArc
_XDrawLine
_XFillArc
_XSetTSOrigin
_XDrawLines
_Tcl_Write
_XGetImage
_XSetDashes
_XDrawRectangle
_Tcl_GetByteArrayFromObj
_Tcl_Eof
_Tcl_GetObjType
_Tcl_ListObjAppendList
_XClipBox
_XCreateImage
_XCreateRegion
_XDestroyRegion
_XIntersectRegion
_XPutImage
_XSetClipMask
_XSetRegion
__XInitImageFuncPtrs
_Tcl_GetRegExpFromObj
_Tcl_RegExpExec
_Tcl_RegExpRange
_Tcl_UniCharIsAlpha
_Tcl_UtfToLower
_XRectInRegion
_Tcl_UtfPrev
/usr/bin/libtool: internal link edit command failed
make: *** [libtk8.3.dylib] Error 1
[localhost [img]images/icons/grin.gif"%20border="0[/img] ownloads/tk8.3.4/unix] root#
linecon0
 
Posts: 1
Joined: Tue Jan 29, 2002 8:00 pm
Location: San Francisco

Return to General Discussion

Who is online

Users browsing this forum: No registered users and 6 guests

cron