my_menu

(tmp_for_tar/vrml.doc/my_menu.m)

Function Synopsis

i = my_menu (prompt,acch)

Help text

 c = my_menu (prompt, poss)

 prompt : Description of options
 poss   : Possible input chars. If omitted or equal to "", any char is
          accepted. 

 c and poss are converted to upper case.

 Last modified: December 2000

Listing of function file tmp_for_tar/vrml.doc/my_menu.m

## c = my_menu (prompt, poss)
##
## prompt : Description of options
## poss   : Possible input chars. If omitted or equal to "", any char is
##          accepted. 
##
## c and poss are converted to upper case.

## Author:        Etienne Grossmann  <etienne@isr.ist.utl.pt>
## Last modified: December 2000

function i = my_menu (prompt,acch)

if nargin<2, acch=""; end
if prompt(length(prompt)) != "\n", prompt = [prompt,"\n"]; end

acch = upper (acch);

while 1,
  printf(prompt);
  i = upper (kbhit());
  if !length(acch) || any (acch == i),
    break
  else
    printf ("Enter a character in [%s]\n",acch);
  end
end