Mercurial > hg > octave-nkf
changeset 4475:15c739d0c13c
[project @ 2003-07-30 16:26:20 by jwe]
author | jwe |
---|---|
date | Wed, 30 Jul 2003 16:26:20 +0000 |
parents | f62a7ed4fb06 |
children | b7360f8eb035 |
files | ck-oct-fcns.m |
diffstat | 1 files changed, 0 insertions(+), 41 deletions(-) [+] |
line wrap: on
line diff
deleted file mode 100644 --- a/ck-oct-fcns.m +++ /dev/null @@ -1,41 +0,0 @@ -# Script to check for dependency on whitespace_in_literal_matrix. -# -# Use with a command like this: -# -# find . -name '*.m' -print | \ -# sed -e 's,^.*/,,' -e 's,\.m$,,' | \ -# octave --norc --silent --path "`pwd`//:" ~/check_octave_functions -# -# Originally by R. D. Auchterlounie <rda@eng.cam.ac.uk> - -1; # Don't interpret this a file that defines a single function. - -function t = wlm_check (wlm, fname) - whitespace_in_literal_matrix = wlm; - bc = "printf (\" %s\", wlm)"; - eval (["t = type ", fname, ";"], ["t = \"failed\";", bc]); -endfunction - -while (isstr (fname = fgets (stdin, 100))) - - # Someone should improve Octave's string handling capabilities! - - tmp = toascii (fname); - tmp (length (tmp)) = 0; - fname = setstr (tmp); - - printf ("checking %s ...", fname); - - eval (["clear ", fname]); trd = wlm_check ("traditional", fname); - eval (["clear ", fname]); ign = wlm_check ("ignore", fname); - eval (["clear ", fname]); def = wlm_check ("default", fname); - - if (strcmp (trd, "failed") - || strcmp (ign, "failed") - || strcmp (def, "failed")) - printf (" FAILED\n"); - else - printf (" ok\n"); - endif - -endwhile