Changeset 47faaab in tol for vbtol

Timestamp:

Nov 14, 2008, 6:01:55 PM (18 years ago)

Author:

Liván Ramírez Dorta <livanr68@…>

Branches:

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

Children:

2d065cc

Parents:

2fa44ff

Message:

changes from CVS not merged previously

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

File:

• vbtol/vbasic/tol.bas (modified) (1 diff)

vbtol/vbasic/tol.bas

@@ -1 +1 @@
 Attribute VB_Name = "Tol"
 
-Declare Sub TolInit Lib "VBTol.dll" (ByVal addr As Long, ByVal vmode As String)
+Declare Sub TolInit Lib "VBTol.dll" (ByVal addr As Long, ByVal vmode As String, _
+                                     ByVal initlib As Integer)
 
-Declare Function TolEval Lib "VBTol.dll" (ByVal expr As String, ByRef nerror As Integer, ByRef nwarning As Integer) As Integer
+Declare Function TolEval Lib "VBTol.dll" (ByVal expr As String, ByRef nerror As Integer, _
+                                          ByRef nwarning As Integer) As Integer
 
 Declare Function TolDecompile Lib "VBTol.dll" (ByVal name As String) As Integer
 
 Declare Function TolDecompileAll Lib "VBTol.dll" () As Integer
+
+Declare Function TolGetText Lib "VBTol.dll" (ByVal lvalue As String, ByRef retvalue As String) As Integer
+
+Declare Function TolCreateText Lib "VBTol.dll" (ByVal name As String, ByVal value As String) As Integer
+
+Const Known As Integer = 0
+Const Unknown As Integer = 1
+Const PosInf As Integer = 2
+Const NegInf As Integer = 3
+
+Type TolReal
+  kind As Integer
+  value As Double
+End Type
+
+Declare Function TolGetReal Lib "VBTol.dll" (ByVal lvalue As String, ByRef retvalue As TolReal) As Integer
+
+Declare Function TolCreateReal Lib "VBTol.dll" (ByVal name As String, ByRef value As TolReal) As Integer
+
+Type MaskCell
+  row As Long
+  col As Long
+  kind As Integer
+End Type
+
+Declare Function TolGetMatrix Lib "VBTol.dll" (ByVal lvalue As String, ByRef retvalue() As Double, _
+                                               ByRef retmask() As MaskCell) As Integer
+
+Declare Function TolCreateMatrix Lib "VBTol.dll" (ByVal name As String, ByRef value() As Double, _
+                                                  ByRef mask() As MaskCell) As Integer
+
+Declare Function TolGetRange Lib "VBTol.dll" (ByVal lvalue As String, _
+    ByVal frow As Long, ByVal lrow As Long, ByVal fcol As Long, ByVal fcol As Long, _
+    ByRef retvalue() As Double, ByRef retmask() As MaskCell) As Integer
+
+Declare Function TolGetRow Lib "VBTol.dll" (ByVal lvalue As String, ByVal row As Long, _
+                                            ByRef retvalue() As Double, ByRef retmask() As MaskCell) As Integer
+
+Declare Function TolGetColumn Lib "VBTol.dll" (ByVal lvalue As String, ByVal col As Long, _
+                                               ByRef retvalue() As Double, ByRef retmask() As MaskCell) As Integer
+
+Declare Function TolGetCell Lib "VBTol.dll" (ByVal lvalue As String, ByVal row As Long, ByVal col As Long, _
+                                             ByRef retvalue As TolReal) As Integer
+
+Declare Function TolPutRange Lib "VBTol.dll" (ByVal lvalue As String, ByVal row As Long, ByVal col As Long, _
+                                              ByRef value() As Double, ByRef mask() As MaskCell) As Integer
+
+Declare Function TolPutRow Lib "VBTol.dll" (ByVal lvalue As String, ByVal row As Long, _
+                                              ByRef value() As Double, ByRef mask() As MaskCell) As Integer
+
+Declare Function TolPutColumn Lib "VBTol.dll" (ByVal lvalue As String, ByVal col As Long, _
+                                              ByRef value() As Double, ByRef mask() As MaskCell) As Integer
+
+Declare Function TolPutCell Lib "VBTol.dll" (ByVal lvalue As String, ByVal row As Long, ByVal col As Long, _
+                                             ByRef value As TolReal) As Integer