Changeset 137d85f in tol

Timestamp:

Dec 22, 2010, 10:36:09 PM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

7efd6dd

Parents:

c81695b

Message:

refs #1044, implementing Cint.SetCINTSYSDIR

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

Location:

tol/contrib/cint

Files:

• Jamfile (added)
• tolCint.cpp (modified) (1 diff)

tol/contrib/cint/tolCint.cpp

@@ -123 +123 @@
     return(Cint_scratch_all());
   }
+}
+
+//--------------------------------------------------------------------
+  DeclareContensClass(BDat, BDatTemporary, BDatCint_SetCINTSYSDIR);
+  DefExtOpr(1, BDatCint_SetCINTSYSDIR, "Cint.SetCINTSYSDIR", 1, 1, "Text",
+  "(Text CINTSYSDIR)",
+  I2("Set the value of the internal variable CINTSYSDIR.",
+     "Inicializa el valor de la variable interna CINTSYSDIR.")+
+     cint_url_link(),
+     BOperClassify::Conversion_);
+  void BDatCint_SetCINTSYSDIR::CalcContens()
+//--------------------------------------------------------------------
+{
+  if(CheckNonDeclarativeAction("Cint.SetCINTSYSDIR")) { return; }
+  BText& filePath = Text(Arg(1));
+  G__SetCINTSYSDIR(filePath);
+  contens_ = 1;
 }