#############################################################################
##
#A  genVtabread          CHEVIE library          Meinolf Geck & Frank L"ubeck
##
#Y  Copyright 1992--1993,  Lehrstuhl D f"ur Mathematik,    RWTH Aachen,   and
#Y                         IWR   der   Universit"at    Heidelberg,   Germany.
##
####################################################################
##
##  
## 
GenCharTab:=proc()
  local name;
  if nargs = 0 then
        lprint(`The following generic character tables are available:`);
        lprint(``);
        system(`\
        cd `.CHEVIEPATH.`/tables;\
        for a in ``ls``; do ls $a; done`);
        RETURN(NULL);
  fi;
  name := args[1];
  LASTTABLEFILENAME:='LASTTABLEFILENAME';
  system(`rm -f LASTTABLEFILENAME`);
  system(`echo  'LASTTABLEFILENAME:=``'`.
         ```find `.CHEVIEPATH.`/tables/ -type f -name `.
          name.` -print``'``:' >LASTTABLEFILENAME`);
  read LASTTABLEFILENAME;
  system(`rm -f LASTTABLEFILENAME`);
  if LASTTABLEFILENAME<>`` then
    read LASTTABLEFILENAME;
  else
    lprint( `Generic table ```. name. ``` not found.` );
    lprint( `Please try one of the following:` );
    system(`\
        cd `.CHEVIEPATH.`/tables;\
        for a in ``ls``; do ls $a; done`);
  fi;
  NULL;
end:
  
####################################################################
##
##  
## 
GreenFunTab:=proc()
  local name;
  if nargs = 0 then
        lprint(`The following generic tables of Green functions are available:`);
        lprint(``);
        system(`\
        cd `.CHEVIEPATH.`/greenfunctions;\
        for a in ``ls``; do ls $a; done`);
        RETURN(NULL);
  fi;
  name := args[1];
  LASTTABLEFILENAME:='LASTTABLEFILENAME';
  system(`rm -f LASTTABLEFILENAME`);
  system(`echo  'LASTTABLEFILENAME:=``'`.
         ```find `.CHEVIEPATH.`/greenfunctions/ -type f -name `.
          name.` -print``'``:' >LASTTABLEFILENAME`);
  read LASTTABLEFILENAME;
  system(`rm -f LASTTABLEFILENAME`);
  if LASTTABLEFILENAME<>`` then
    read LASTTABLEFILENAME;
  else
    lprint( `Table of Green functions ```. name. ``` not found.` );
    lprint( `Please try one of the following:` );
    system(`\
        cd `.CHEVIEPATH.`/greenfunctions;\
        for a in ``ls``; do ls $a; done`);
  fi;
  NULL;
end:

