From 4662dbf4240757189a6619cc2b1d7110b0b7ded8 Mon Sep 17 00:00:00 2001 From: Jakob Kaivo Date: Mon, 28 Mar 2022 17:00:30 -0400 Subject: remove shell script alternative menu drivers --- miralib/menudriver.csh | 104 ------------------------------------------------- miralib/menudriver.sh | 102 ------------------------------------------------ 2 files changed, 206 deletions(-) delete mode 100755 miralib/menudriver.csh delete mode 100755 miralib/menudriver.sh (limited to 'miralib') diff --git a/miralib/menudriver.csh b/miralib/menudriver.csh deleted file mode 100755 index 2aa89e7..0000000 --- a/miralib/menudriver.csh +++ /dev/null @@ -1,104 +0,0 @@ -#!/bin/csh -f -# menu driver - Copyright Research Software Ltd 1985, 2006 -# this version modified to ignore execute permissions of files - -# see below for explanation of these variables, which we -# set to defaults if not present in the user's environment - -if(! $?MENUVIEWER) set MENUVIEWER = cat #ALTERNATIVE: more -if(! $?VIEWER) then -# choose one of these by removing the '#' in column one - set VIEWER = 'less -EX' RETURNTOMENU = NO -# set VIEWER = less RETURNTOMENU = YES -# set VIEWER = 'more -d' RETURNTOMENU = NO -endif - -set sansnl n invalid last oldlasts noglob -set histchars = '@^' #neutralize '!' - -if("`echo -n`" == '') then #use flag -n to suppress newline, if working -set sansnl = '-n' -endif - -if("$1" != '') cd "$1" -set top = "`pwd`" -while( -f contents ) - if("$n" == '') then - clear - if("$invalid" != '') echo invalid option "$invalid" - set invalid = '' - $MENUVIEWER contents; - echo $sansnl ::please type selection number \(or q to quit\): - set line = "$<" - set n = `expr " $line" : ' *\([^ ]*\)'` - endif - if("$n" == '.' && "$last" != '') then - set n = $last; - else if("$n" == '+' && "$last" != '' && "$last" != '.') then - set n = `expr $last + 1` - else if("$n" == '-' && "$last" != '' && "$last" != '.') then - set n = `expr $last - 1` - endif - if("$n" != '') then - if(-d "$n") then - if(-f "$n/contents") then - cd "$n"; set oldlasts = "$n,$oldlasts" last = "." - else set invalid = "$n" - endif - set n = '' - else if(-f "$n") then - if("$n" == '99') then #special case, 99 is an executable - clear; "./$n" - else clear; - $VIEWER "$n" - if("$RETURNTOMENU" == 'YES') then - set last = $n n = '' - continue #next iteration of while-loop - endif - endif - echo $sansnl ::next selection \(return to go back to menu, q to quit\): - set last = $n line = "$<" - set n = `expr " $line" : ' *\([^ ]*\)'` - else if("$n" == 'q' || "$n" == '/q') then - exit - else if("$n" == '???') then # ??? interrogates display settings - echo " MENUVIEWER='$MENUVIEWER'" - echo " VIEWER='$VIEWER', RETURNTOMENU='$RETURNTOMENU'" - echo these can be changed by setting environment variables \ -of the same names - set n = '' - echo $sansnl '[Hit return to continue]' - set lose = "$<" - else if( "$n" =~ !* ) then - set line = `expr "$line" : ' *\(.*\)'` - set line = `expr "$line" : '\(.*[^ ]\) *'` - if( ".$line" == '.!!' || ".$line" == '.!' ) then - if(! $?lastbang) then - set invalid = "$n" n = ''; continue - else echo !"$lastbang" - endif - else set lastbang = `expr "$line" : '!\(.*\)'` - endif - $lastbang - echo $sansnl '[Hit return to continue]' - set n = '' - set lose = "$<" - else set invalid = "$n" n = '' - endif - else if("$oldlasts" == '') exit #we are at the root of the tree - cd .. - set last = `expr $oldlasts : '\([^,]*\)'` - set oldlasts = `expr $oldlasts : '[^,]*,\(.*\)'` - endif -end #of while-loop -exit -# Explanation of variables -# -# MENUVIEWER is the program used to display contents pages -# -# VIEWER is the program used to display individual sections -# -# RETURNTOMENU=YES prevents another prompt being given after displaying -# each section, causing instead an immediate return to contents page. It -# should be `YES' if VIEWER is a program that pauses for input at end of -# file, `NO' if VIEWER is a program that quits silently at end of file. diff --git a/miralib/menudriver.sh b/miralib/menudriver.sh deleted file mode 100755 index 81d4362..0000000 --- a/miralib/menudriver.sh +++ /dev/null @@ -1,102 +0,0 @@ -#! /bin/sh -# menu driver - Copyright Research Software Ltd 1985, 2006 -# this version modified to ignore execute permissions of files - -# see below for explanation of these variables, which we -# set to defaults if not present in the user's environment - -test "$MENUVIEWER" || MENUVIEWER=cat #ALTERNATIVE: more -if test ! "$VIEWER" -then -# choose one of these by removing the '#' in column one - VIEWER='less -EX'; RETURNTOMENU=NO -# VIEWER=less, RETURNTOMENU=YES -# VIEWER='more -d'; RETURNTOMENU=NO -fi - -if test -z "`echo -n`" #use flag -n to suppress newline, if working -then sansnl='-n' -fi - -cd "$1" -top="`pwd`" -while test -f contents -do - if test '' = "$n" - then echo  #clear - test ."$invalid" = . || echo invalid option "$invalid" - invalid="" - $MENUVIEWER contents; - echo $sansnl ::please type selection number \(or q to quit\): - read n - fi - if test '.' = "$n" -a "$last" - then n=$last - elif test '+' = "$n" -a "$last" -a "$last" != . - then n=`expr $last + 1` - elif test '-' = "$n" -a "$last" -a "$last" != . - then n=`expr $last - 1` - fi - if test '' != "$n" - then if test -d "$n" - then if test -f "$n/contents" - then cd "$n"; oldlasts=$n:$oldlasts; last="."; - else invalid="$n"; fi - n="" - elif test -f "$n" - then if test '99' = "$n" #special case, 99 is an executable - then echo ; "./$n" - else echo  #clear - $VIEWER "$n" - if test "$RETURNTOMENU" = YES - then last=$n; n=""; continue #next iteration of while-loop - fi - fi - echo $sansnl ::next selection \(return to go back to menu, q to quit\): - last=$n; read n - elif test ."$n" = .q -o ."$n" = ./q - then exit - elif test '???' = "$n" # ??? interrogates display settings - then echo " MENUVIEWER='$MENUVIEWER'" - echo " VIEWER='$VIEWER', RETURNTOMENU='$RETURNTOMENU'" - echo these can be changed by setting environment variables \ -of the same names - n="" - echo $sansnl '[Hit return to continue]' - read lose - else case $n in - !*) if test ".$n" = '.!!' -o ".$n" = '.!' - then if test "$lastbang" = '' - then invalid="$n"; n=""; continue - else echo !"$lastbang" - fi - else lastbang=`expr "$n" : '!\(.*\)'` - fi - $lastbang - echo $sansnl '[Hit return to continue]' - n="" - read lose ;; - *) invalid="$n"; n="" ;; - esac - fi - else test "$oldlasts" || exit #we are at the root of the tree - cd .. - last=`expr $oldlasts : '\([^:]*\)'` - oldlasts=`expr $oldlasts : '[^:]*:\(.*\)'` - fi -done -exit -# Oct 2003 modified for Peter Bartke to overcome problem on UWIN -# no test -x, instead all files displayed except 99 which is executed -# May 2006 use echo $sansnl because echo -n not portable - -# Explanation of variables -# -# MENUVIEWER is the program used to display contents pages -# -# VIEWER is the program used to display individual sections -# -# RETURNTOMENU=YES prevents another prompt being given after displaying -# each section, causing instead an immediate return to contents page. It -# should be `YES' if VIEWER is a program that pauses for input at end of -# file, `NO' if VIEWER is a program that quits silently at end of file. -- cgit v1.2.1