diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/GeneralizedPolynomial-Uniform/util.maple | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/src/GeneralizedPolynomial-Uniform/util.maple b/src/GeneralizedPolynomial-Uniform/util.maple index cd1a4a1..9c7f660 100644 --- a/src/GeneralizedPolynomial-Uniform/util.maple +++ b/src/GeneralizedPolynomial-Uniform/util.maple @@ -2,7 +2,6 @@ # $Id$ # -# C_str - codegen[C](), but returning its result as a Maple string # fix_rationals - convert numbers to RATIONAL() calls # nonmatching_names - find names in a list which *don't* have a specified prefix # sprint_numeric_list - convert a numeric list to a valid C identifier suffix @@ -18,51 +17,6 @@ ################################################################################ # -# This function is a wrapper around codegen[C]() which returns the -# genenerated code explictly as a Maple string. -# -# Arguments: -# expr = (in) The expression for which code is to be generated. -# ... = (in) Any further arguments are taken as options to be passed -# to codegen[C]() -# -# Results: -# The function returns a maple string of C code. -# -C_str := -proc(expr::algebraic) -local tempname, str, temp; - -# name of temp file -# FIXME: should use process number to ensure uniqueness -tempname := "/tmp/C_str.tmp.c"; - -# truncate temp file to zero length -fopen(tempname, WRITE); -fclose(tempname); - -# generate the code -codegen[C](args, filename=tempname); - -# read the code back in -str := ""; - while true - do - temp := readline(tempname); - if (temp = 0) - then break; - end if; - str := cat(str, temp); - end do; -fclose(tempname); - -# strip off the leading " t0 = " -return op(2,sscanf(str, "%s = %[^;];")); -end proc; - -################################################################################ - -# # This function converts all {integer, rational} subexpressions of its # input except integer exponents and -1 factors in products, into function # calls |