I'm not sure if that is fragile. You may use
18!:1[1 to get all numbered locales, and then use 'jijx'-:>@{.@(18!:2) to test
if that locale is jijx. (untest)
Сбт, 02 Апр 2011, Ian Clark писал(а):
> I want to commence a test script like this:
>
> smclear ''
> clear ''
>
> where 'clear' is of course the library verb to delete all words in
> locale 'base'.
>
> My suggested verb 'smclear' would empty the J602 session window IJX to
> commence a fresh log of events.
>
> Browsing locale 'jijs' suggests the following should work --and indeed it
> does:
>
> smclear=: 3 : 0
> wd 'psel ',SMHWNDP_0_
> wd 'set e ""'
> )
>
> but it looks rather fragile to me, since it relies on locale 0
> governing the IJX window.
>
> Is there a better way? Is there a library verb to do the job?
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
--
regards,
====================================================
GPG key 1024D/4434BAB3 2008-08-24
gpg --keyserver subkeys.pgp.net --recv-keys 4434BAB3
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
