close Warning: Can't synchronize with repository "(default)" (/var/svn/tolp does not appear to be a Subversion repository.). Look in the Trac log for more information.

Ticket #1962: sampleBDB.tol

File sampleBDB.tol, 1.2 KB (added by César Pérez Álvarez, 7 years ago)
Line 
1////////////////////////////////////////////////////////////////////////////////
2// FILE   :
3// PURPOSE:
4////////////////////////////////////////////////////////////////////////////////
5
6////////////////////////////////////////////////////////////////////////////////
7// INCLUDES
8////////////////////////////////////////////////////////////////////////////////
9
10
11////////////////////////////////////////////////////////////////////////////////
12// FUNCTIONS
13////////////////////////////////////////////////////////////////////////////////
14
15
16////////////////////////////////////////////////////////////////////////////////
17// PARAMETERS
18////////////////////////////////////////////////////////////////////////////////
19
20
21////////////////////////////////////////////////////////////////////////////////
22// PROCEDURES
23////////////////////////////////////////////////////////////////////////////////
24
25Set GetData(Text pathICS)
26{
27  Set data = BDBOpen(pathICS, 0, NL, "", "");
28  Set info = Empty;
29  Real k = 1;
30  Real end = data->RegNumber;   
31 
32 
33  Real While(LE(k, end), Real
34  {
35    Set reg = BDBReg(data, k);
36    Set info := info<<reg;
37    Real k := k+1
38  });
39 
40  Real BDBClose(data);
41  info
42};
43
44Set data = GetData("sampleBDB.ics");
45