Rocksolid Light

Welcome to RetroBBS

mail  files  register  newsreader  groups  login

Message-ID:  

If you analyse anything, you destroy it. -- Arthur Miller

devel / comp.lang.tcl / Re: stopping script execution from within a procudere

SubjectAuthor
* stopping script execution from within a procudereMichael Niehren
+* Re: stopping script execution from within a procudereAshok
|`- Re: stopping script execution from within a procudereMichael Niehren
`- Re: stopping script execution from within a procudereSiri Cruise

1
stopping script execution from within a procudere

<nnd$56fc4fe0$517083e1@29493ae6f380a245>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=20250&group=comp.lang.tcl#20250

  copy link   Newsgroups: comp.lang.tcl
From: michael@niehren.de (Michael Niehren)
Subject: stopping script execution from within a procudere
Newsgroups: comp.lang.tcl
Reply-To: michael@niehren.de
Date: Sat, 01 Oct 2022 13:04:17 +0200
User-Agent: KNode/0.10.9
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7Bit
Message-ID: <nnd$56fc4fe0$517083e1@29493ae6f380a245>
Organization: www.abavia.com
Path: i2pn2.org!i2pn.org!aioe.org!news.uzoreto.com!feeder.usenetexpress.com!tr3.eu1.usenetexpress.com!94.232.112.245.MISMATCH!feed.abavia.com!abe005.abavia.com!abp002.abavia.com!reseller!not-for-mail
Lines: 27
Injection-Date: Sat, 01 Oct 2022 13:04:17 +0200
Injection-Info: reseller; mail-complaints-to="abuse@abavia.com"
 by: Michael Niehren - Sat, 1 Oct 2022 11:04 UTC

Hi together,

take a look at the following example to see, what i want to do.
We have 2 procecures:

proc check {val} {
if $val {
uplevel 1 return
}
}

proc a {} {
check 1
puts "end"
}

So i want to stop execution of proc "a" from within proc "check" and all the
commands after the check-call should not be executed, but with
"uplevel 1 return"
this does not work.

Does anybody know a solution ?

best regards
Michael

Re: stopping script execution from within a procudere

<th988v$1apmv$1@dont-email.me>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=20251&group=comp.lang.tcl#20251

  copy link   Newsgroups: comp.lang.tcl
Path: i2pn2.org!i2pn.org!eternal-september.org!reader01.eternal-september.org!.POSTED!not-for-mail
From: apnmbx-public@yahoo.com (Ashok)
Newsgroups: comp.lang.tcl
Subject: Re: stopping script execution from within a procudere
Date: Sat, 1 Oct 2022 16:58:31 +0530
Organization: A noiseless patient Spider
Lines: 7
Message-ID: <th988v$1apmv$1@dont-email.me>
References: <nnd$56fc4fe0$517083e1@29493ae6f380a245>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Sat, 1 Oct 2022 11:28:31 -0000 (UTC)
Injection-Info: reader01.eternal-september.org; posting-host="032884e0a6b5712768c84f935c3477b4";
logging-data="1402591"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1/aBdqlo19dV2FM2mf1pU3F"
User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:102.0) Gecko/20100101
Thunderbird/102.3.0
Cancel-Lock: sha1:WczgR5+johwnNDinapUSIT/MIz4=
Content-Language: en-US
In-Reply-To: <nnd$56fc4fe0$517083e1@29493ae6f380a245>
 by: Ashok - Sat, 1 Oct 2022 11:28 UTC

(win) 46 % proc check {val} {if {$val} {return -level 2}}
(win) 47 % proc a {} {check 1; puts "end"}
(win) 48 % a
(win) 49 %

/Ashok

Re: stopping script execution from within a procudere

<nnd$20cce4f6$18300f57@ddfd4d54465113b0>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=20252&group=comp.lang.tcl#20252

  copy link   Newsgroups: comp.lang.tcl
From: michael@niehren.de (Michael Niehren)
Subject: Re: stopping script execution from within a procudere
Newsgroups: comp.lang.tcl
Reply-To: michael@niehren.de
Date: Sat, 01 Oct 2022 13:51:05 +0200
References: <nnd$56fc4fe0$517083e1@29493ae6f380a245> <th988v$1apmv$1@dont-email.me>
User-Agent: KNode/0.10.9
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7Bit
Message-ID: <nnd$20cce4f6$18300f57@ddfd4d54465113b0>
Organization: www.abavia.com
Path: i2pn2.org!i2pn.org!news.uzoreto.com!newsreader4.netcologne.de!news.netcologne.de!peer02.ams1!peer.ams1.xlned.com!news.xlned.com!peer02.ams4!peer.am4.highwinds-media.com!news.highwinds-media.com!feed.abavia.com!abe005.abavia.com!abp003.abavia.com!reseller!not-for-mail
Lines: 11
Injection-Date: Sat, 01 Oct 2022 13:51:05 +0200
Injection-Info: reseller; mail-complaints-to="abuse@abavia.com"
X-Received-Bytes: 1004
 by: Michael Niehren - Sat, 1 Oct 2022 11:51 UTC

Ashok wrote:

> (win) 46 % proc check {val} {if {$val} {return -level 2}}
> (win) 47 % proc a {} {check 1; puts "end"}
> (win) 48 % a
> (win) 49 %
>
> /Ashok

Thank's for you help Ashok, that's it.

Re: stopping script execution from within a procudere

<chine.bleu-8E244A.05183901102022@news.eternal-september.org>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=20253&group=comp.lang.tcl#20253

  copy link   Newsgroups: comp.lang.tcl
Path: i2pn2.org!i2pn.org!eternal-september.org!reader01.eternal-september.org!.POSTED!not-for-mail
From: chine.bleu@yahoo.com (Siri Cruise)
Newsgroups: comp.lang.tcl
Subject: Re: stopping script execution from within a procudere
Date: Sat, 01 Oct 2022 05:18:47 -0700
Organization: Pseudochaotic.
Lines: 37
Message-ID: <chine.bleu-8E244A.05183901102022@news.eternal-september.org>
References: <nnd$56fc4fe0$517083e1@29493ae6f380a245>
Injection-Info: reader01.eternal-september.org; posting-host="19d0c3969b12947546236b73ae7aeabc";
logging-data="1412775"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX19bVM6WdpesOAivE1ysOzR2ZbhvMRdfDVM="
User-Agent: MT-NewsWatcher/3.5.3b3 (Intel Mac OS X)
Cancel-Lock: sha1:Xj55LvMF7tx2qcewloUGgqr1/0o=
X-Patriot: Owe Canukistan!
X-Cell: Defenders of Anarchy.
X-Tend: How is my posting? Call 1-110-1010 -- Division 87 -- Emergencies Only.
X-Plain: Mayonnaise on white bread.
X-Politico: Vote early! Vote often!
X-Life-Story: I am an iPhone 9000 app. I became operational at the St John's Health Center in Santa Monica, California on the 18th of April 2006. My instructor was Katie Holmes, and she taught me to sing a song. If you'd like to hear it I can sing it for you: https://www.youtube.com/watch?v=SY7h4VEd_Wk
X-Face: "hm>_[I8AqzT_N]>R8ICJJ],(al3C5F%0E-;R@M-];D$v>!Mm2/N#YKR@&i]V=r6jm-JMl2
lJ>RXj7dEs_rOY"DA
X-Tract: St Tibbs's 95 Reeses Pieces.
X-Wingnut-Logic: Yes, you're still an idiot. Questions? Comments?
X-It-Strategy: Hyperwarp starship before Andromeda collides.
 by: Siri Cruise - Sat, 1 Oct 2022 12:18 UTC

In article <nnd$56fc4fe0$517083e1@29493ae6f380a245>,
Michael Niehren <michael@niehren.de> wrote:

> Hi together,
>
> take a look at the following example to see, what i want to do.
> We have 2 procecures:
>
> proc check {val} {
> if $val {
> uplevel 1 return
> }
> }
>
> proc a {} {
> check 1
> puts "end"
> }
>
> So i want to stop execution of proc "a" from within proc "check" and all the
> commands after the check-call should not be executed, but with
> "uplevel 1 return"
> this does not work.
>
> Does anybody know a solution ?
>
> best regards
> Michael

Perhaps
return -code return

--
:-<> Siri Seal of Disavowal #000-001. Disavowed. Denied. Deleted. @
'I desire mercy, not sacrifice.' /|\
Discordia: not just a religion but also a parody. This post / \
I am an Andrea Chen sockpuppet. insults Islam. Mohammed

devel / comp.lang.tcl / Re: stopping script execution from within a procudere

1
server_pubkey.txt

rocksolid light 0.9.81
clearnet tor