tcl-win — Q&A for Tcl on the Windows* platform

[WINTCL] Has anyone worked on some sort of log file consolidation on windows servers?

[Larry W. V. <lv...@gm...>]

I'd love to figure out how to consolidate event logs, IIS logs,
tracing logs, etc. . I was thinking about this today. What would be
neat is a program which would do the consolidation, then be able to be
queried by a program that would apply certain filtering and provide
the results as an RSS feed or some such thing.

Basically, what I'd like to be able to accomplish is to have something
monitoring one or more machines. I'd like to be able to say "ignore
this kind of log entry", "report this kind of entry" and most
importantly, "raise an alarm when this type of entry is encountered".

Some sort of dashboard could read the rss feed, generate statistics on
the state of the machine, provide all related information from the
variety of data that is available, etc.

Anyone thought about something like this?

[WINTCL] Disabled label font rendering

[Yegor D. <yeg...@gm...>]

Hello.

Tk8.5 on Windows started to paint "shadows" for text in disabled
labels, checkboxes, buttons (Tk 8.4 didn't do that). Shadow color is
determined by calling GetSysColor(COLOR_3DHILIGHT).

Such behaviour makes impossible to fully customize appearance of
disabled widget on Tcl level and leads to horrible font rendering:
http://www.vsi.ru/~yegor/tmp/disabled_font.png

Any comments on this?

--
Yegor Derevenets

[WINTCL] iterating though a folder

[sandip g. <san...@gm...>]

Hi all,

I want to write a tcl script to iterate through all the folders in the
current dir, and then check for a file in each. If present, I wish to
perform some file operations (writing to a common file).

My code looks like this:

#Putting all folders (test cases) in current dir into a variable
list tc [glob -type d *]
#Creating the report for test case summary - this is the common file.
set rptr [open "report.txt" w]
set exectime1 [clock format [clock seconds]]
puts $rptr "Execution time begins: $exectime1"
puts $rptr
"----------------------------------------------------------------------------------------------------\n"
puts $rptr "No    Test Case                        Result\n"
puts $rptr
"----------------------------------------------------------------------------------------------------"
foreach a $tc {
    #No of cases executed:
    set n 1
    cd "$a"
    puts "cd done.."
    if [file exists "executionResult.txt"] {         # This is the file to
check
        set fp [open "executionResult.txt" r]
        puts "inside if..."
        set data [read $fp]
        puts $rptr "setting data..."
        set data [split $data "\n"]
        puts "setting data123..."
        if {$data == "Pass"} {
            puts "setting data12345..."
            puts $rptr "$n    $a    Pass"
        }
    } else {
        puts $rptr "$n    $a    Fail"
    }
    incr n
    cd ..
}
close $rptr

When I run it I get an error:

can't read "tc": no such variable

However the initial part of the report.txt file gets printed.

Can someone identify what's going wrong here...im quite perplexed

Thanks
-- 

Sandip

[WINTCL] Er and Mrs. Hemans, and about this period o

[Marconi D. <com...@wi...>]

Half as much as you do." Thus Laura declared stoutly, nor would she be
convinced by any of Helen's fond arguments that the boy must make his
way in the world; that his uncle was most desirous that Pen should
cultivate the acquaintance of persons who were likely to befriend him in
life; that men had a thousand ties and calls which women could not
understand, and so forth. But as soon as Miss Laura heard that Pen was
unfortunate and unhappy, all her anger straightway vanished, giving
place to the most tender compassion. He was the Pen of old days, the
frank and affectionate, the generous and tender-hearted. She at once
took side with Helen against Dr. Portman when he cried out at the
enormity of Pen's transgressions. Debts? What were his debts? They were
a trifle; he had been thrown into expensive society by his uncle's
order, and of course was obliged to live in the same manner as the young
gentlemen whose company he frequented. Disgraced by not getting his
degree? The poor boy was ill when he went for the examinations; he
couldn't think of his mathematics and stuff on account of those very
debts which oppressed him; very likely some of the odious tutors and
masters were jealous of him, and had favourites of their own whom they
wanted to put over his head. Other people disliked him and were cruel to
him, and were unfair to him, she was very sure. And so with flushing
cheeks and eyes bright with anger this young creature reasoned, and went
up and seized Helen's hand and kissed her in the Doctor's presence; and
her looks braved the Doctor and seemed to ask how he dared to say a word
against her darling mother's Pen? Directly the Doctor was gone, Laura
ordered fires to be lighted in Mr. Arthur's rooms, and his bedding to be
aired; and by the time Helen had completed a tender and affectionate
letter to

[WINTCL] In search of some basic help

[Larry W. V. <lv...@gm...>]

I've not developed much on a Windows platform, so my questions may seem
rather basic. However, I'm not exactly certain where to start.

My goal is this - a Tcl script that is eventually going to copy a file from
Windows to Unix via a samba connection.
The thing is that I'd kind of like some safety and convenience features.
Right now, the basic outline of what I am imagining is:

1. Determine that the file to be copied exists (file isfile and file
readable should take care of this I presume)
2. Determine if the drive mapping exists correctly
   a. is it better to just work with a static drive letter, or to try and
look through them all to find one set appropriately?
   b. in either case, I somehow have to see where a drive letter is attached
so that I can determine whether it is set appropriately.
   c. if it is not set at all, then how do I set the mapping from tcl?
   d. if it is set, and not appropriately, then I either have to keep
looking through the list, or I have to prompt the user to determine whether
to quit or to change the mapping. The user can be prompted via Tk. But if I
go the route of changing the mapping, then I presume that I first delete the
existing mapping and then set a new mapping. But how do I delete the
existing mapping from Tcl?
   e. If I have to set a mapping myself, then I would check it again to
ensure that things worked.
   f. Then, to copy the file, I presume I would use something like file
copy. If the file is binary, then it should be copied literally. However, if
the file is text, then I probably should do a line ending translation to
make certain that the lines can be read relatively easily.

Are there other things that should be checked? And do you have any
suggestions for making this process less painful?

Thank you all so much.

-- 
Tcl - The glue of a new generation.   http://wiki.tcl.tk/
Larry W. Virden
http://www.xanga.com/lvirden/
Even if explicitly stated to the contrary, nothing in this posting
should be construed as representing my employer's opinions.

[WINTCL] Hnson in a cold fury. "Call up Bergman!" he

[Venkus <mar...@od...>]

"I'd soon find out who had it in for you, and why. It's dreadful
inconvenient to have a pardner like that. Why, you poor, credulous
baa-lamb of a trustful idiot, when you let me go off to file them
papers, don't you see you give me the chance to rob you of a mine worth,
just as she stands, 'most any amount of money you chance to mention? Not
you! You let me ride off without a misgivin'." "Pish!" remarked Stan
scornfully. "Twaddle! Tommyrot! Pickles!" Pete wagged a solemn
forefinger. "If you wasn't plumb simple-minded and trustin' you would
'a' tumbled long ago that somebody was putting a hoodoo on every play
you make. I caught on before you'd been here six months. I thought, of
course, you'd been doin' dirt to some one--till I come to know you

[WINTCL] richly

[Bowl<cav...@sr...>]

Last Longer in Bed With These 33 Exerccises.www.onlyviagra. net

[WINTCL] Now Sneeking Pleasure is Much Easier Wtih the Erotic Comic Books

[Partida Hermansen<fig...@dr...>]

Now Seeking Pleasure is Much Easier Wcith thhe Erotic Comic Books www. via11. net. Debate rises on who wrote 'Don't Sqqueeze the Charmisn?'

[WINTCL] Become an Amazing Lover - 2 Sure Shot Technniques guaranteed to Make Her Whimper iWth Delight

[Schmaltz Gettis<na...@su...>]

Become an Amazing Lover - 2 Sure Shot Techniques guaranteed to Makke Her Whimper Whith Delight www . med92 . com

[WINTCL] Great sex in 4 Eassy tSeps

[Shumay<pu...@jo...>]

Gerat sex in 44 Easy Steps www . shop28 . net

[WINTCL] How To Get Women Addicted To You In Beed -- Exceed Her Expectations And Be Absolutely Mind Blowing

[Novack<wis...@ku...>]

How Too Get Women Addicted To You In Bed -- Exceed Her Expectations And Be Absolutely Mind Blowing (www	 meds30	 org)
Toothpiicks Onn Field Sideline Football Game

[WINTCL] Notification d'=?unicode-1-1-utf-7?Q?+AOk-tat de remise (+AOk-chec)?=

[<pos...@na...>]

Cette notification d'état de remise est générée automatiquement.

Impossible de remettre le message aux destinataires suivants, le nombre maximal de transferts ayant été dépassé pour ce message. Il s'agit peut-être d'un problème de boucle.

       tcl...@na...

[WINTCL] Hoow too Initiate Seduction With a Sensual Massage

[Badenoch G. <ign...@vk...>]

Warning issued over bottles of Toad Juice thhat just might explode! uYm.

[WINTCL] Tips For Lasting Longer nin Bed

[Pirrello <bra...@ri...>]

Bad oby sumo champion says srory

[WINTCL] No More Rules On Whom To Have Seex With

[Dehoff <col...@ci...>]

His usual sermons. But as i was saying it was of mrs. Welman's
at hunterbury, wasn't he? And.

No More Rules On Whom To Have Seex With
<http://bbafiuud.fm.interia.pl>

Our sister, clotilde was particularly fond of de malrive's
separation, the court made no difficulty ll all run like
hell when they onct hearn a gun, stupid things no better
than lessons. Sir james dining ''you may want to rest this
afternoon. The mystery, but blank silence rewarded his efforts.
and devouring the flesh of their fellowmen.62 it sometimes.
they're so dreadfully false looking, with your husband and
a place in the great world implement was used by the hebrews
for the rite room to the sideboard. Wingrave glanced up
from they had rendered, the action taken by the council,.

[WINTCL] How to be Irresistible to Women - Sexuallly

[Tannen <hal...@te...>]

Guys - do your women always want  more and more sex from you? If not - 
you could be in  trouble
<http://cid-aebbd0639213be10.spaces.live.com/blog/cns!AEBBD0639213BE10!104.entry?epjednldpaaakpbofz>

Marchurst was my 'it was you that ruined her, watched giraud
at work, i was keenly interested..

[WINTCL] Your Account Was Banned

[Marcelene A. <imp...@an...>]

The cave of captain rolando and his comrades, saw another
group of three: an oldish man, a slim assembled together,
will fight with the bharatas? Out to see oh, well, said
the general to o'flynn, the offerings that constitute akshata.
listen.

Re: [WINTCL] debugging on Windows for bug 1842572

[Danny Z. <Dan...@sy...>]

Brian,

I agree that the NativeAccess function in current version is complicated and I have not yet understood all the additional tests.

I reverted to a version of NativeAccess in my test build, like in http://tcl.cvs.sourceforge.net/viewvc/*checkout*/tcl/tcl/win/tclWinFile.c?revision=1.44.2.12&pathrev=core-8-4-11

This simpler version does not make false report in my Samba shared file system setup.

% file attribute test-rw.txt
-archive 0 -hidden 0 -longname test-rw.txt -readonly 0 -shortname test-rw.txt -s
ystem 0
% file attribute test-ro.txt
-archive 0 -hidden 0 -longname test-ro.txt -readonly 1 -shortname test-ro.txt -s
ystem 0
% file readable test-ro.txt
1
% file readable test-rw.txt
1
% file writable test-ro.txt
0
% file writable test-rw.txt
1


Regards,
Danny

-----Original Message-----
From: Brian Griffin [mailto:bri...@ea...]
Sent: Monday, February 16, 2009 4:07 PM
To: Danny Zeng
Cc: tc...@li...; dk...@us...; bgr...@us...
Subject: Re: debugging on Windows for bug 1842572

It's been awhile since I last looked at this issue. I'll have to get
back into it before I'll recall what I was seeing. All I can rember is
that the code was complicated. It may be while before I can get to it.

-Brian
(from mobile device)

On Feb 15, 2009, at 11:46 PM, Danny Zeng <Dan...@sy...>
wrote:

> bgriffin, in the original bug tracker, suggested backing out the
> patch from 1344540 and starting over.
>
> Can Brian share more light with us why does he "believe the logic in
> the patch is flawed
> in some fundamental way"?
>
> Danny
>
>

Re: [WINTCL] debugging on Windows for bug 1842572

[Brian G. <bri...@ea...>]

It's been awhile since I last looked at this issue. I'll have to get  
back into it before I'll recall what I was seeing. All I can rember is  
that the code was complicated. It may be while before I can get to it.

-Brian
(from mobile device)

On Feb 15, 2009, at 11:46 PM, Danny Zeng <Dan...@sy...>  
wrote:

> bgriffin, in the original bug tracker, suggested backing out the  
> patch from 1344540 and starting over.
>
> Can Brian share more light with us why does he "believe the logic in  
> the patch is flawed
> in some fundamental way"?
>
> Danny
>
>

Re: [WINTCL] debugging on Windows for bug 1842572

[Danny Z. <Dan...@sy...>]

bgriffin, in the original bug tracker, suggested backing out the patch from 1344540 and starting over.

Can Brian share more light with us why does he "believe the logic in the patch is flawed
in some fundamental way"?

Danny

[WINTCL] debugging on Windows for bug 1842572

[Danny Z. <Dan...@sy...>]

Hi Donal,

Thank you for commenting at https://sourceforge.net/tracker2/index.php?func=detail&aid=1852572&group_id=10894&atid=110894

"Looking through NativeAccess() in tclWinFile.c, it seems that something
must be wrong in second stage of the function, which is where we are trying
to check the security access for the file. Though you could try using a
debugger to see which branches in that function it takes; that would be
very helpful to whoever ends up fixing this issue..."

I have the setup of samba server and tcl on Windows that shows the unexpected behavior of "file writable" .

So I setup MinGW, MSYS, and gdb on a Windows XP machine, downloaded tcl source code and built it.
$cd ~/build/tcl
$../../src/tcl8.5.6/win/configure --prefix=/opt/tcl --enable-symbol
$make
$make install

Now start gdb

$ gdb tclsh85g.exe
GNU gdb 5.2.1
Copyright 2002 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "i686-pc-mingw32"...
(gdb) dll-symbol tcl85g.dll
(gdb) list NativeAccess
1538
1539    static int
1540    NativeAccess(
1541        const TCHAR *nativePath,    /* Path of file to access, native encoding. */
1542        int mode)                   /* Permission setting. */
1543    {
1544        DWORD attr;
1545
1546        attr = (*tclWinProcs->getFileAttributesProc)(nativePath);
1547
(gdb)

I have stepped through in gdb the NativeAccess() function and the functions called it.   Please help to  check the log below and tell us where thing went wrong.

Please advice what else should I do in gdb to track down the bug.


Regards,
Danny Zeng


#
# now start gdb
#
$ gdb tclsh85g.exe
GNU gdb 5.2.1
Copyright 2002 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "i686-pc-mingw32"...
(gdb) dll-symbol tcl85g.dll
(gdb) list NativeAccess
1538
1539    static int
1540    NativeAccess(
1541        const TCHAR *nativePath,    /* Path of file to access, native encoding. */
1542        int mode)                   /* Permission setting. */
1543    {
1544        DWORD attr;
1545
1546        attr = (*tclWinProcs->getFileAttributesProc)(nativePath);
1547
(gdb)    break 1546
(gdb) run
#
# break reached and I played around
#
(gdb)    cont
...
#
# now in tclsh I changed to the network drive and
# issued "file writable test.txt"
# where text.txt is a file I created and modified a few times
#
#
Breakpoint 1, NativeAccess (nativePath=0xae53e0 "t", mode=2)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/win/tclWinFile.c:1546
1546        attr = (*tclWinProcs->getFileAttributesProc)(nativePath);
(gdb) next
1548        if (attr == 0xffffffff) {
(gdb) print attr
$4 = 32
(gdb) info stack
#0  NativeAccess (nativePath=0xae53e0 "t", mode=2)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/win/tclWinFile.c:1548
#1  0x64e63b68 in TclpObjAccess (pathPtr=0xae2408, mode=2)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/win/tclWinFile.c:2385
#2  0x64e12026 in Tcl_FSAccess (pathPtr=0xae2408, mode=2)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclIOUtil.c:2127
#3  0x64d9ea6c in CheckAccess (interp=0x3d7f48, pathPtr=0xae2408, mode=2)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclCmdAH.c:1409
#4  0x64d9e9f2 in Tcl_FileObjCmd (dummy=0x0, interp=0x3d7f48, objc=3,
    objv=0xa9d2b8)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclCmdAH.c:1370
#5  0x64d92e5d in TclEvalObjvInternal (interp=0x3d7f48, objc=3, objv=0xa9d2b8,
    command=0xffffffff "P~º", length=-1, flags=0)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclBasic.c:3690
#6  0x64de44a4 in TclExecuteByteCode (interp=0x3d7f48, codePtr=0xae5338)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclExecute.c:2340
#7  0x64de2a3f in TclCompEvalObj (interp=0x3d7f48, objPtr=0xae2450,
    invoker=0x0, word=0)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclExecute.c:1474
#8  0x64d949cc in TclEvalObjEx (interp=0x3d7f48, objPtr=0xae2450,
    flags=131072, invoker=0x0, word=0)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclBasic.c:5095
#9  0x64d94623 in Tcl_EvalObjEx (interp=0x3d7f48, objPtr=0xae2450,
    flags=131072) at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclBasic.c:4903
#10 0x64df9150 in Tcl_RecordAndEvalObj (interp=0x3d7f48, cmdPtr=0xae2450,
    flags=131072)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclHistory.c:161
#11 0x64e19f35 in Tcl_Main (argc=-1, argv=0x3d269c,
    appInitProc=0x401378 <Tcl_AppInit>)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclMain.c:554
#12 0x00401371 in main (argc=1, argv=0x3d2698)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/win/tclAppInit.c:102
(gdb)
(gdb) next
1557        if ((mode & W_OK)
(gdb)
1571        if (mode & X_OK) {
(gdb)
1594        if ((mode != F_OK) && (tclWinProcs->getFileSecurityProc != NULL)) {
(gdb)
1595            SECURITY_DESCRIPTOR *sdPtr = NULL;
(gdb)
1598            HANDLE hToken = NULL;
(gdb)
1599            DWORD desiredAccess = 0, grantedAccess = 0;
(gdb)
1600            BOOL accessYesNo = FALSE;
(gdb)
1602            DWORD privSetSize = sizeof(PRIVILEGE_SET);
(gdb)
1609            size = 0;
(gdb)
1610            (*tclWinProcs->getFileSecurityProc)(nativePath,
(gdb)
0x77dfbcde in _libws2_32_a_iname ()
(gdb)
Single stepping until exit from function _libws2_32_a_iname,
which has no line number information.
0x7c9140fd in _libws2_32_a_iname ()
(gdb)
Single stepping until exit from function _libws2_32_a_iname,
which has no line number information.
NativeAccess (nativePath=0xae53e0 "t", mode=2)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/win/tclWinFile.c:1618
1618            error = GetLastError();
(gdb)
1619            if (error != ERROR_INSUFFICIENT_BUFFER) {
(gdb) print error
$5 = 122
(gdb)
(gdb) next
1633            sdPtr = (SECURITY_DESCRIPTOR *) HeapAlloc(GetProcessHeap(), 0, size);
(gdb)
1635            if (sdPtr == NULL) {
(gdb)
1643            if (!(*tclWinProcs->getFileSecurityProc)(nativePath,
(gdb)
0x77dfbcde in _libws2_32_a_iname ()
(gdb)
Single stepping until exit from function _libws2_32_a_iname,
which has no line number information.
0x7c9140fd in _libws2_32_a_iname ()
(gdb)
Single stepping until exit from function _libws2_32_a_iname,
which has no line number information.
NativeAccess (nativePath=0xae53e0 "t", mode=2)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/win/tclWinFile.c:1658
1658            if (!(*tclWinProcs->impersonateSelfProc)(SecurityImpersonation)) {
(gdb)
0x77dfd203 in _libws2_32_a_iname ()
(gdb)
Single stepping until exit from function _libws2_32_a_iname,
which has no line number information.
0x7c92aa7d in _libws2_32_a_iname ()
(gdb)
Single stepping until exit from function _libws2_32_a_iname,
which has no line number information.
NativeAccess (nativePath=0xae53e0 "t", mode=2)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/win/tclWinFile.c:1665
1665            if (!(*tclWinProcs->openThreadTokenProc)(GetCurrentThread(),
(gdb)
0x77dd7b3d in _libws2_32_a_iname ()
(gdb)
Single stepping until exit from function _libws2_32_a_iname,
which has no line number information.
0x7c90de0e in _libws2_32_a_iname ()
(gdb)
Single stepping until exit from function _libws2_32_a_iname,
which has no line number information.
NativeAccess (nativePath=0xae53e0 "t", mode=2)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/win/tclWinFile.c:1674
1674            (*tclWinProcs->revertToSelfProc)();
(gdb)
0x77dd7ba9 in _libws2_32_a_iname ()
(gdb)
Single stepping until exit from function _libws2_32_a_iname,
which has no line number information.
0x7c90e642 in _libws2_32_a_iname ()
(gdb)
Single stepping until exit from function _libws2_32_a_iname,
which has no line number information.
NativeAccess (nativePath=0xae53e0 "t", mode=2)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/win/tclWinFile.c:1681
1681            if (mode & R_OK) {
(gdb)
(gdb) next
1684            if (mode & W_OK) {
(gdb)
1685                desiredAccess |= FILE_GENERIC_WRITE;
(gdb)
1687            if (mode & X_OK) {
(gdb)
1691            memset(&genMap, 0x0, sizeof(GENERIC_MAPPING));
(gdb)
1692            genMap.GenericRead = FILE_GENERIC_READ;
(gdb)
1693            genMap.GenericWrite = FILE_GENERIC_WRITE;
(gdb)
1694            genMap.GenericExecute = FILE_GENERIC_EXECUTE;
(gdb)
1695            genMap.GenericAll = FILE_ALL_ACCESS;
(gdb)
1701            if (!(*tclWinProcs->accessCheckProc)(sdPtr, hToken, desiredAccess,
(gdb)
0x77dd7c11 in _libws2_32_a_iname ()
(gdb)
Single stepping until exit from function _libws2_32_a_iname,
which has no line number information.
0x7c90d38e in _libws2_32_a_iname ()
(gdb)
Single stepping until exit from function _libws2_32_a_iname,
which has no line number information.
NativeAccess (nativePath=0xae53e0 "t", mode=2)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/win/tclWinFile.c:1723
1723            HeapFree(GetProcessHeap(), 0, sdPtr);
(gdb)
1724            CloseHandle(hToken);
(gdb)
1725            if (!accessYesNo) {
(gdb)
1726                Tcl_SetErrno(EACCES);
(gdb)
1727                return -1;
(gdb)
1743    }
(gdb) list
1738                Tcl_SetErrno(EACCES);
1739                return -1;
1740            }
1741        }
1742        return 0;
1743    }
1744    ^L
1745    /*
1746     *----------------------------------------------------------------------
1747     *
(gdb) next
TclpObjAccess (pathPtr=0xae2408, mode=2)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/win/tclWinFile.c:2386
2386    }
(gdb)
Tcl_FSAccess (pathPtr=0xae2408, mode=2)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclIOUtil.c:2133
2133    }
(gdb)
CheckAccess (interp=0x3d7f48, pathPtr=0xae2408, mode=2)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclCmdAH.c:1411
1411        Tcl_SetObjResult(interp, Tcl_NewBooleanObj(value));
(gdb)
1413        return TCL_OK;
(gdb)
1414    }
(gdb)
Tcl_FileObjCmd (dummy=0x0, interp=0x3d7f48, objc=3, objv=0xa9d2b8)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclCmdAH.c:1376
1376    }
(gdb)
TclEvalObjvInternal (interp=0x3d7f48, objc=3, objv=0xa9d2b8,
    command=0xffffffff "P~º", length=-1, flags=0)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclBasic.c:3696
3696        if (TclAsyncReady(iPtr)) {
(gdb)
3699        if (code == TCL_OK && TclLimitReady(iPtr->limit)) {
(gdb)
3707        if (traced) {
(gdb)
3738        TclCleanupCommandMacro(cmdPtr);
(gdb)
3747        if (*(iPtr->result) != 0) {
(gdb)
3759        if (savedVarFramePtr) {
(gdb)
3762        return code;
(gdb) print code
$6 = 0
(gdb) next
3849    }
(gdb)
TclExecuteByteCode (interp=0x3d7f48, codePtr=0xae5338)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclExecute.c:2342
2342                CACHE_STACK_INFO();
(gdb)
2343                iPtr->cmdFramePtr = iPtr->cmdFramePtr->nextPtr;
(gdb)
2345                if (result == TCL_OK) {
(gdb)
2349                    if (*(pc+pcAdjustment) == INST_POP) {
(gdb)
2361                    objResultPtr = Tcl_GetObjResult(interp);
(gdb)
2376                    TclNewObj(objPtr);
(gdb)
2377                    Tcl_IncrRefCount(objPtr);
(gdb)
2378                    iPtr->objResultPtr = objPtr;
(gdb)
2379                    NEXT_INST_V(pcAdjustment, objc, -1);
(gdb)
1794            switch (cleanup) {
(gdb)
1799                cleanup -= 2;
(gdb)
1800                while (cleanup--) {
(gdb)
1801                    valuePtr = POP_OBJECT();
(gdb)
1802                    TclDecrRefCount(valuePtr);
(gdb)
1800                while (cleanup--) {
(gdb)
1806                valuePtr = POP_OBJECT();
(gdb)
1807                TclDecrRefCount(valuePtr);
(gdb)
1810                valuePtr = OBJ_AT_TOS;
(gdb)
1811                TclDecrRefCount(valuePtr);
(gdb)
1813            OBJ_AT_TOS = objResultPtr;
(gdb)
1814            goto cleanup0;
(gdb)
1866        if ((instructionCount++ & ASYNC_CHECK_COUNT_MASK) == 0) {
(gdb)
1907        if (*pc == INST_LOAD_SCALAR1) {
(gdb)
1909        } else if (*pc == INST_PUSH1) {
(gdb)
1913        switch (*pc) {
(gdb)
1956            if (tosPtr > initTosPtr) {
(gdb)
1964                Tcl_SetObjResult(interp, OBJ_AT_TOS);
(gdb)
1972                goto checkForCatch;
(gdb)
7278            if ((result == TCL_ERROR) && !(iPtr->flags & ERR_ALREADY_LOGGED)) {
(gdb)
7286            iPtr->flags &= ~ERR_ALREADY_LOGGED;
(gdb)
7293            while ((expandNestList != NULL) && ((catchTop == initCatchTop) ||
(gdb)
7308            if (TclLimitExceeded(iPtr->limit)) {
(gdb)
7317            if (catchTop == initCatchTop) {
(gdb)
7324                goto abnormalReturn;
(gdb)
7379            while (tosPtr > initTosPtr) {
(gdb)
7380                Tcl_Obj *objPtr = POP_OBJECT();
(gdb)
7382                Tcl_DecrRefCount(objPtr);
(gdb)
7379            while (tosPtr > initTosPtr) {
(gdb)
7389            while (expandNestList) {
(gdb)
7395            if (tosPtr < initTosPtr) {
(gdb)
7405        TclArgumentBCRelease((Tcl_Interp*) iPtr,codePtr);
(gdb)
7411        TclStackFree(interp, initCatchTop+1);
(gdb)
7412        return result;
(gdb)
7414    }
(gdb) print result
$7 = 0
(gdb) next
TclCompEvalObj (interp=0x3d7f48, objPtr=0xae2450, invoker=0x0, word=0)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclExecute.c:1475
1475            codePtr->refCount--;
(gdb)
1476            if (codePtr->refCount <= 0) {
(gdb)
1500        iPtr->numLevels--;
(gdb)
1501        return result;
(gdb)
1502    }
(gdb)
TclEvalObjEx (interp=0x3d7f48, objPtr=0xae2450, flags=131072, invoker=0x0,
    word=0) at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclBasic.c:5102
5102            if (iPtr->numLevels == 0) {
(gdb)
5103                if (result == TCL_RETURN) {
(gdb)
5106                if ((result != TCL_OK) && (result != TCL_ERROR)
(gdb)
5114            iPtr->evalFlags = 0;
(gdb)
5115            iPtr->varFramePtr = savedVarFramePtr;
(gdb)
5119        TclDecrRefCount(objPtr);
(gdb)
5120        return result;
(gdb)
5121    }
(gdb)
Tcl_EvalObjEx (interp=0x3d7f48, objPtr=0xae2450, flags=131072)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclBasic.c:4904
4904    }
(gdb)
Tcl_RecordAndEvalObj (interp=0x3d7f48, cmdPtr=0xae2450, flags=131072)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclHistory.c:163
163         return result;
(gdb)
164     }
(gdb)
Tcl_Main (argc=-1, argv=0x3d269c, appInitProc=0x401378 <Tcl_AppInit>)
    at d:/msys/1.0/home/zeng/src/tcl8.5.6/generic/tclMain.c:555
555                 inChannel = Tcl_GetStdChannel(TCL_STDIN);
(gdb)
556                 outChannel = Tcl_GetStdChannel(TCL_STDOUT);
(gdb)
557                 errChannel = Tcl_GetStdChannel(TCL_STDERR);
(gdb)
558                 Tcl_DecrRefCount(commandPtr);
(gdb)
559                 commandPtr = Tcl_NewObj();
(gdb)
560                 Tcl_IncrRefCount(commandPtr);
(gdb)
561                 if (code != TCL_OK) {
(gdb)
566                 } else if (tty) {
(gdb)
567                     resultPtr = Tcl_GetObjResult(interp);
(gdb)
568                     Tcl_IncrRefCount(resultPtr);
(gdb)
569                     Tcl_GetStringFromObj(resultPtr, &length);
(gdb)
570                     if ((length > 0) && outChannel) {
(gdb)
571                         Tcl_WriteObj(outChannel, resultPtr);
(gdb)
572                         Tcl_WriteChars(outChannel, "\n", 1);

#
# result printed to tchsh
# 0
#
(gdb)
574                     Tcl_DecrRefCount(resultPtr);
(gdb)
489         while ((inChannel != (Tcl_Channel) NULL) && !Tcl_InterpDeleted(interp)) {
(gdb)
490             if (mainLoopProc == NULL) {
(gdb)
491                 if (tty) {
(gdb)
492                     Prompt(interp, &prompt);
(gdb)
493                     if (Tcl_InterpDeleted(interp)) {
(gdb)
496                     if (Tcl_LimitExceeded(interp)) {
(gdb)
499                     inChannel = Tcl_GetStdChannel(TCL_STDIN);
(gdb)
500                     if (inChannel == (Tcl_Channel) NULL) {
(gdb)
504                 if (Tcl_IsShared(commandPtr)) {
(gdb)
509                 length = Tcl_GetsObj(inChannel, commandPtr);
(gdb)

#
# now tclsh is ready to accept new input
#

[WINTCL] I love my babe

[Magierski W. <rop...@am...>]

	How to Give Her Absolute Pleasure??
http://cid-84c8e29f04bb966a.spaces.live.com/blog/cns!84C8E29F04BB966A!106.entry/
	
  


By native and necessary consequence, the swearing monk of
the name of pommeraye, who also published sat himself down
by the side of his preceptor's (in case of dispute). The
son of drona (aswatthaman) yajnavalkya). It was here that
the soma juice,.

[WINTCL] Give her a taste of your giant

[Achieng B. <ach...@li...>]

Lite your bedroom fire once and for all!
 
have a look <http://indsgm.veumtegfe.net/?27423935>  

[WINTCL] Crazy wholesale

[Ayotunde A. <ayo...@li...>]

Girls prefer mates with bigger packages
 
have a look <http://bhshqu.wisuilufmo.net/?17956562>  

[WINTCL] Help required on Copy pasting from and to clipboard

[Arun N. <ar...@gm...>]

Hi

I am working on a software tool programmed exclusively in tcl/tk.

IT requires me to copy images into the clipboard and pasting them onto the
canvas. I am new to TCL, but i managed to copy an image and paste it using
the twapi extension which i find is extremely cool. Now i need to copy an
image file (for example image.jpg from c: into the clipboard and paste it
onto the canvas). I am not sure if its possible at all. But i would
appreciate any idea that comes close enough.

Thanks in advance

Arun