[Bugs-r-devel] SF.net SVN: bugs-r: [51] trunk/BRugs/R/model.names.R

[<li...@us...>]

Revision: 51
          http://bugs-r.svn.sourceforge.net/bugs-r/?rev=51&view=rev
Author:   ligges
Date:     2007-09-14 02:44:27 -0700 (Fri, 14 Sep 2007)

Log Message:
-----------
modelNames rewritten to work with OpenBUGS 3.x.y

Modified Paths:
--------------
    trunk/BRugs/R/model.names.R

Modified: trunk/BRugs/R/model.names.R
===================================================================
--- trunk/BRugs/R/model.names.R	2007-09-14 09:43:56 UTC (rev 50)
+++ trunk/BRugs/R/model.names.R	2007-09-14 09:44:27 UTC (rev 51)
@@ -2,8 +2,19 @@
 function()
 {
 #   gets names in OpenBUGS model
-    command <- "BugsRobjects.Names"
-    .C("CmdInterpreter", command, nchar(command), integer(1), PACKAGE="BRugs")
-    buffer <- file.path(tempdir(), "buffer.txt")
-    readLines(buffer)
+    command <- "BugsRobjects.GetNumberNames"
+    number <- .C("Integer", command, nchar(command), integer(1), integer(1), PACKAGE="BRugs")[[3]]
+    name <- character(number)
+    if(length(number)){
+        for(i in 1:number){
+            command <- paste("BugsRobjects.SetIndex(", i-1, ")", sep="")
+            .C("CmdInterpreter", command, nchar(command), integer(1), PACKAGE="BRugs")
+            command <- "BugsRobjects.GetStringLength"
+            numchar <- .C("Integer", command, nchar(command), integer(1), integer(1), PACKAGE="BRugs")[[3]]
+            command <- "BugsRobjects.GetVariable"
+            char <- paste(rep(" ", numchar), collapse="")
+            name[i] <- .C("CharArray", command, nchar(command), char, numchar, integer(1), PACKAGE="BRugs")[[3]]
+        }
+    }
+    return(name)
 }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.