|
DataMuseum.dkPresents historical artifacts from the history of: RC9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: @ M T
Length: 1021 (0x3fd)
Types: TextFile
Notes: @(#)Menu.find 13.1 (RC International) 91/07/25
Names: »Menu.find«
└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
└─⟦97ad7467e⟧ »0005«
└─⟦this⟧ »./home/vmsys/OBJECTS/Menu.find«
# @(#)Menu.find 13.1 (RC International) 91/07/25
#ident "@(#)face:OBJECTS/Menu.find 1.4"
menu=Objects Found in `pathconv -t -v "${ARG1:-$OPWD}"`
help=OPEN TEXT OBJECTS/Text.mfhelp T.m.found 'Objects Found'
framemsg="Move to an item with arrow keys and press ENTER to select the item."
close=`unset FINDRET`nop
rows=18
init="$FINDRET"
#
# see if find can should be done
#
`regex -v "${ARG1:-$OPWD}" '^/$' &&
set -l DOFIND=false -l FINDRET=false || set -l DOFIND=true`
#
# if find can be executed, call genfind which will produce a list
# of the found files
#
`regex -v "$DOFIND" "true" && genfind -1 "${ARG1:-$OPWD}" "$ARG2" "$ARG3" "$ARG4" "$ARG5" | regex '(.*)$0;(.*)$1;(.*)$2;(.*)$3' '
name=$m2
arg=$m0
description=$m3
action=OPEN $m1 $m0' && set -l FINDRET=true || set -l FINDRET=false`
#
# print appropriate message ...
#
`regex -v "$DOFIND" "false" && message "Can not invoke the \"find\" command from root (/).";
regex -v "$DOFIND" "true" && regex -v "$FINDRET" "false" &&
message "No objects found."`