[rkward-cvs] rkward/rkward/rbackend/rpackages/rkward/R internal.R,1.25,1.26

[Thomas Friedrichsmeier]

Update of /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12419/rkward/rbackend/rpackages/rkward/R

Modified Files:
	internal.R 
Log Message:
Adding first draft of RFunctionObject. Does not do much, yet, but seems to work ok

Index: internal.R
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R/internal.R,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** internal.R	17 Apr 2006 14:03:20 -0000	1.25
--- internal.R	28 Apr 2006 13:36:33 -0000	1.26
***************
*** 23,27 ****
  	if (is.list (x)) type = type + 8
  	if (type != 0) type = type + 16 else type = 32
! 	if (is.function (x)) type = type + 128
  	if (!is.null (attr (x, ".rk.meta"))) type = type + 256
  	d <- dim (x)
--- 23,27 ----
  	if (is.list (x)) type = type + 8
  	if (type != 0) type = type + 16 else type = 32
! 	if (is.function (x)) type = 128
  	if (!is.null (attr (x, ".rk.meta"))) type = type + 256
  	d <- dim (x)