Thanks, Bill, I note what you don't say -- that there's a verb for it already.
There's a boolean flag IFIJX in all the numbered locales I've examined. But I guess it'll only be defined for locales with COCREATOR-: <'jijs' . However, a try. / catch. should safely discover the locale with IFIJX=1. On Sun, Apr 3, 2011 at 1:12 AM, bill lam <[email protected]> wrote: > 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 ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
