From 5f46bf9ec04af74c2f0c3e264d1460bd5b3a133d Mon Sep 17 00:00:00 2001 From: jthorn Date: Sun, 19 May 2002 13:12:18 +0000 Subject: 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 --- src/GeneralizedPolynomial-Uniform/util.maple | 46 ---------------------------- 1 file changed, 46 deletions(-) (limited to 'src') 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 @@ -17,51 +16,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 -- cgit v1.2.3