I can confirm with a script containing echo (4!:4 <'y') foo=: 3 : 0'' echo (4!:4 <'y') )
load this script will print _1 0 Пт, 25 ноя 2016, Ric Tikkanz написал(а): > No it appears that (4!:4 <''y'') returns 0 inside loc_z_, which is why the > result is the path to profile.ijs as that seems to be the first element in > the result of 4!:3 '' > > Cheers, > > On Fri, Nov 25, 2016 at 2:22 PM, bill lam <[email protected]> wrote: > > > I think (4!:4 <''y'') returns _1 inside loc_z_. Can you verify > > this? > > > > Пт, 25 ноя 2016, Ric Tikkanz написал(а): > > > In J804 (and earlier) running the following verb would give the pathname > > of > > > the script that called it. > > > > > > loc_z_=: 3 : 'jpath > (4!:4 <''y'') { 4!:3 $0' NB. pathname of script > > > calling it > > > > > > So a script that ran: MyPath=: loc '' > > > would assign the script's pathname to the noun MyPath. > > > > > > In J805 this no longer appears to work as before. Instead the path > > returned > > > is /opt/j64_805/bin/profile.ijs > > > > > > Is this change of behaviour expected/intended? > > > > > > Cheers, > > > > > > Engine: j805/j64/linux > > > Beta-16: commercial/2016-11-17T13:15:53 > > > Library: 8.05.09 > > > Qt IDE: 1.5.2s/5.5.1 > > > Platform: Linux 64 > > > Installer: J805 install > > > InstallPath: /opt/j64_805 > > > Contact: www.jsoftware.com > > > ---------------------------------------------------------------------- > > > 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 > > gpg --keyserver subkeys.pgp.net --armor --export 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 -- regards, ==================================================== GPG key 1024D/4434BAB3 2008-08-24 gpg --keyserver subkeys.pgp.net --recv-keys 4434BAB3 gpg --keyserver subkeys.pgp.net --armor --export 4434BAB3 ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
