Changeset 90b9e0c in tol

Timestamp:

Sep 17, 2009, 2:08:10 PM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

b184182

Parents:

077124f

Message:

Preparing for new modular parser

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@1396 be4846ae-f051-483a-831f-b64e7d08527f

Location:

tol/stdlib/math/stat/models/bayesian/bysMcmc/bsr

Files:

• _import.tol (modified) (5 diffs)
• _oneNode.tol (modified) (1 diff)

tol/stdlib/math/stat/models/bayesian/bysMcmc/bsr/_import.tol

@@ -82 +82 @@
 
 ///////////////////////////////////////////////////////////////////////////
-Real Write.Header(NameBlock model, Real fileHandler)
+Real Write.Header(NameBlock model, Real fileHandler, Text module.type)
 ///////////////////////////////////////////////////////////////////////////
 {
@@ -98 +98 @@
     "$BEGIN\n"
     "\n"+
+    "Module.Type = "+module.type+";\n"
     "Model.Name = \""+model.name+"\";\n"
     "Model.Description = \""+Replace(model.desc,"\n","\\n\"\n\"")+"\";\n"
@@ -382 +383 @@
 
 //////////////////////////////////////////////////////////////////////////////
-Text _.autodoc.member.Write =
+Text _.autodoc.member.Write.Primary =
 "Imports data from a model defined by a NameBlock having a set of mandatory "
 "methods to get all needed information to write an ASCII file with BSR "
 "format that will can be readed by function BSR.Parse ";
-  Text Write(NameBlock model)
+  Text Write.Primary(NameBlock model)
+//////////////////////////////////////////////////////////////////////////////
+{
+  Text model.name = model::Get.Doc.Model.Name(0);
+  Text session.name = model::Get.Doc.Session.Name(0);
+  Text path = model::Get.Doc.Path(0);
+  Real Do OSDirMake(path);
+
+  Text file.bsr = path+model.name+"."+session.name+".bsr";
+  Real f.bsr = FOpen(file.bsr,"w");
+  Real If(!f.bsr, Real{
+      WriteLn(_MID+"Cannot open "+file.bsr+" for writing.","E");
+      Real Stop
+    });
+  WriteLn(_MID+"File "+file.bsr+" was open successfully.");
+
+  Real numSegment = model::Get.LinReg.Size(0);
+  NameBlock segment = model::Get.LinReg.Segment(0);
+
+  Real Write.Header                    (model,   f.bsr, "primary");
+  Real Write.Header.MainLinearBlock    (model,   f.bsr);
+  Real Write.Data.MainLinearBlock      (segment, f.bsr);
+  Real Write.Header.NoiseDistribution  (model,   f.bsr);
+  Real Write.Data.NoiseDistribution    (segment, f.bsr);
+  Real Write.Header.RegressionMatrices (model,   f.bsr);
+  Real Write.Data.RegressionMatrices   (segment, f.bsr);
+  Real Write.Header.MissingBlock       (model,   f.bsr);
+  Real Write.Data.MissingBlock         (segment, f.bsr);
+  Real FPutText(f.bsr,"\n$END\n");
+  file.bsr
+};
+
+//////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.Write.Joint =
+"Imports data from a model defined by a NameBlock having a set of mandatory "
+"methods to get all needed information to write an ASCII file with BSR "
+"format that will can be readed by function BSR.Parse ";
+  Text Write.Joint(NameBlock model)
 //////////////////////////////////////////////////////////////////////////////
 {
@@ -409 +447 @@
   Real f.con  = FOpen(file.bsr+".con", "w");
 
-  Real Write.Header                    (model, f.head);
+  Real Write.Header                    (model, f.head, "joint");
   Real Write.Header.MainLinearBlock    (model, f.lin);
   Real Write.Header.MissingBlock       (model, f.mis);
@@ -454 +492 @@
   Real OSFilRemove(file.bsr+".con");
   file.bsr
+};
+
+//////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.Write =
+"Imports data from a model defined by a NameBlock having a set of mandatory "
+"methods to get all needed information to write an ASCII file with BSR "
+"format that will can be readed by function BSR.Parse ";
+  Text Write(NameBlock model)
+//////////////////////////////////////////////////////////////////////////////
+{
+  Text moduleType = ToLower(If(!FunctionExist("Text","model::Get.ModuleType"),
+  {
+    "joint"
+  },
+  {
+    model::Get.ModuleType(0)
+  }));
+  Case
+  (
+    moduleType=="primary", Write.Primary(model),
+    moduleType=="joint",   Write.Joint  (model),
+    moduleType=="master",  Write.Master (model),
+    1==1,
+    {
+      Error("Invalid module type '"+moduleType+"' should be one of these "
+            "'primary', 'joint' or 'master'")
+    }
+  )
 }
 
+
 ]];
 

tol/stdlib/math/stat/models/bayesian/bysMcmc/bsr/_oneNode.tol

@@ -240 +240 @@
     //Building generic model definition
     Set modelDef = BSR.ModelDef (
+      "joint",
       docInfo = data::_.docInfo,
       linearBlock,