#############################################################################
##
#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, execresult;
  if nargs = 0 then
        printf("The following generic character tables are available:\n");
        printf("\n");
        system("sh -c 'cd "||CHEVIEPATH||"/tables; for a in `ls`; do ls $a; done'");
        RETURN(NULL);
  fi;
  name := args[1];
  execresult := ssystem("find "||CHEVIEPATH||"/tables/ -type f -name "||name||" -print");
	execresult[2] := Trim(execresult[2]);
  if execresult[1]=0 and execresult[2]<>"" then
		read(execresult[2]);
  else
    printf("Generic table `%a` not found.\n", name);
    printf("Please try one of the following:\n");
    system("sh -c ' cd "||CHEVIEPATH||"/tables; for a in `ls`; do ls $a; done'");
  fi;
  NULL;
end:
  
####################################################################
##
##  
## 
GreenFunTab:=proc()
  global execresult;
  local name;
  if nargs = 0 then
        printf("The following generic tables of Green functions are available:\n");
        printf("\n");
        system("sh -c 'cd "||CHEVIEPATH||"/greenfunctions; for a in `ls`; do ls $a; done'");
				RETURN(NULL);
  fi;
  name := args[1];
  execresult := ssystem("find "||CHEVIEPATH||"/greenfunctions/ -type f -name "||name||" -print");
	execresult[2] := Trim(execresult[2]);
  if execresult[1]=0 and execresult[2]<>"" then
		read(execresult[2]);
  else
    printf("Table of Green functions `"||name||"` not found.\n" );
    printf("Please try one of the following:\n" );
    system("sh -c 'cd "||CHEVIEPATH||"/greenfunctions; for a in `ls`; do ls $a; done'");
  fi;
  NULL;
end:

