@program fmlrps-rpinfo.muf
1 1000 d
i
$include $lib/rp
$include $lib/alynna
$def RPSYS "$rpsystem" match

: find-nameprop ( s -- s )
var item
var value
var value2
var search
search !
RPSYS { "/" search @ "/name" } astrcat getprop if
 { search @ capitalize } astrcat exit
then
RPSYS "/" array_get_propdirs foreach value ! pop
 RPSYS { "/" value @ "/" search @ "/name" } astrcat getprop if
  { value @ capitalize "/" search @ capitalize } astrcat exit
 then
 RPSYS { "/" value @ "/" } astrcat array_get_propdirs foreach value2 ! pop
  RPSYS { "/" value @ "/" value2 @ "/" search @ "/name" } astrcat getprop if
   { value @ capitalize "/" value2 @ capitalize "/" search @ capitalize } astrcat exit
  then
 repeat
repeat
""
;

: find-propdir ( s -- s )
var item
var value
var value2
var search
search !
RPSYS { "/" search @ "/" } astrcat propdir? if
 { search @ capitalize } astrcat exit
then
RPSYS "/" array_get_propdirs foreach value ! pop
 RPSYS { "/" value @ "/" search @ "/" } astrcat propdir? if
  { value @ capitalize "/" search @ capitalize } astrcat exit
 then
 RPSYS { "/" value @ "/" } astrcat array_get_propdirs foreach value2 ! pop
  RPSYS { "/" value @ "/" value2 @ "/" search @ "/" } astrcat propdir? if
   { value @ capitalize "/" value2 @ capitalize "/" search @ capitalize } astrcat exit
  then
 repeat
repeat
""
;

.
c
q