Scripts/Session Utilities

&This is a collection of productivity utilities for J Session Manager.

Select Globals

Produces a selectable list of global definitions in current script window. After selection, locates the definition.

This utility was rescued from j406 and adapted for j601. Originally part of jadelib.ijs is was broken as reported general/2004-May/017786 Regardless of its usefulness, it was removed from future versions.

NB. smutil - session manager utilities
NB.
NB. 07/25/2006 Oleg Kobchenko adapted from j406

cocurrent 'jijs'

NB.*selactive v list of global definitions in current script window
selactive=: 3 : 0
  fl=. id2name qsmact ''
  if. '.ijs' -: _4{.fl do.
    'n x'=. globaldefs smread smselact ''
    's t'=. wdselect ('Globals - ',fl);<n
    if. s do. smscroll t{x end.
  end.
  empty''
)

It is bound to a function key in Configuration or in code like this

NB. smsetcmd 'f9';'1';'Select Globals';'selactive_jijs_]require ''user/smutil.ijs'''

-- OlegKobchenko 2006-07-25 04:43:05

Open Most Recent Script

Shortcut for menu File|Recent... — Open. It opens the very recent script worked in J Session. Useful in situations when you crash a lot or you accidentally close a script.

NB.   open {. RECENT_jijs_

It is bound to a function key in Configuration or in code like this

NB. smsetcmd 'f11';'1';'Open Most Recent';'open{.RECENT_jijs_'

-- OlegKobchenko 2006-08-03 09:06:23

Name-Value List

Shows name list with same parameters as nl or names but with associated values. Convenient to browse with grid.

NB.*nvl v name-value list with nl/names format
nvl_z_=: (,. 3 :'5!:5<y'&.>)@nl

Examples

   <@:;"1@|:' PS_' nvl_jgl2_ 0
+--------------+-+
|PS_DASH       |1|
|PS_DASHDOT    |3|
|PS_DASHDOTDOT |4|
|PS_DOT        |2|
|PS_INSIDEFRAME|6|
|PS_NULL       |5|
|PS_SOLID      |0|
+--------------+-+

   >@(LF&cut)&.> 'form' nvl_j_ 3
+-----------+---------------------------------------------------+
|formedit   |3 : 0                                              |
|           |require '~system\extras\util\formedit.ijs'         |
|           |y conew 'jformedit'                                |
|           |)                                                  |
+-----------+---------------------------------------------------+
|formeditrun|3 : 0                                              |
|           |'form file'=. y                                    |
|           |load file                                          |
|           |if. +./'coclass' E. 1!:1<file do.                  |
|           |  t1=. 'object=:''''conew''',form,''''             |
...

See Also

• jedit script at NSG's J and APL page by Andrew Niktin