[adam@madras:/pkg/stratego-shell/current/bin]$ stratego-shell
stratego> import file
stratego> import dir
stratego> get-files(|ext) = readdir ; filter(test(get-extension => ext))

stratego> <get-files(|“cplc”)> “/pkg/build/config-install-scripts/cps-calculus/xmpl”
command failed

stratego> “/pkg/build/config-install-scripts/cps-calculus/xmpl”
[“inline-2.diff-cps”,“frag-1.diff-cps”,“eval-1.diff-cps”,“confluence-test-1.diff-cps”,“rename-1.diff-cps”,“rename-1.log”,“inline-1.diff-cps”,“eval-2.diff-cps”,“rename-1.test.sh”,“rename-1.cplc.opt”,“rename-1.cplc”,“rename-1.ast.opt”,“tests.
toc”,“eval-1.log”,“eval-1.ast.opt”,“inline-2.test.sh”,“eval-1.cplc.opt”,“eval-1.cplc”,“inline-2.ast.opt”,“inline-1.ast.opt”,“frag-1.ast.opt”,“eval-2.ast.opt”,“confluence-test-1.ast.opt”,“inline-2.log”,“inline-1.log”,“frag-1.log”,“eval-2.log
“,“confluence-test-1.log”,“inline-1.test.sh”,“frag-1.test.sh”,“eval-2.test.sh”,“eval-1.test.sh”,“confluence-test-1.test.sh”,“Makefile”,“frag-1.cplc.opt”,“inline-2.cplc.opt”,“Makefile.in”,“frag-1.cplc”,“inline-2.cplc”,“inline-1.cplc.opt”,“co
nfluence-test-1.cplc”,“confluence-test-1.cplc.opt”,“Makefile.am”,“inline-1.cplc”,“eval-2.cplc”,“eval-2.cplc.opt”,”.svn”,“..”,“.”]

stratego> <readdir; filter(test(get-extension => “cplc”))> “/pkg/build/config-install-scripts/cps-calculus/xmpl”
[“rename-1.cplc”,“eval-1.cplc”,“frag-1.cplc”,“inline-2.cplc”,“confluence-test-1.cplc”,“inline-1.cplc”,“eval-2.cplc”]

stratego> :showdef get-files
get-files( | ext : ATerm() -> ATerm()) =
{:
readdir(|)
; filter(test(get-extension(|)
; ?ext) |)}

Submitted on 21 March 2004 at 21:08

SSH-2, martin:

Solved by fix in implementation of term arguments