remove unused function C_str() (now in ../../archive/)

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/LocalInterp/trunk@48 df1f8a13-aa1d-4dd4-9681-27ded5b42416

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