Re: Question about Check[]
- To: mathgroup
- Subject: Re: Question about Check[]
- From: stevec at ncsa.uiuc.edu
- Date: Tue, 2 May 89 09:59:00 CDT
[Fourth in the series on Check and other things. -smc]
Here is a 1.2 session:
Comments?
====================================================================
In[57]:= foo/: CForm[foo[x_,y_]]:= SequenceForm[
"readdata( foo,", x , ",", y,")"]
log: SING error
In[58]:= foo[1,2]
Out[58]= foo[1, 2]
In[59]:= CForm[%]
Out[59]= readdata( foo,1,2)
In[60]:= temp = foo[1,2] + foo[2,3] + foo[3,4]
Out[60]= foo[1, 2] + foo[2, 3] + foo[3, 4]
In[61]:= CForm[temp]
Out[61]//CForm= foo(1,2) + foo(2,3) + foo(3,4)
In[62]:= temp /. {foo[x___] -> CForm[foo[x]]}
Out[62]= readdata( foo,1,2) + readdata( foo,2,3) + readdata( foo,3,4)
In[63]:= FullForm[%]
Out[63]//FullForm=
> Plus[SequenceForm["readdata( foo,", 1, ",", 2, ")"],
> SequenceForm["readdata( foo,", 2, ",", 3, ")"],
> SequenceForm["readdata( foo,", 3, ",", 4, ")"]]