Changeset 08e78b9 in tol for toltcl

Timestamp:

Nov 4, 2011, 5:51:43 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

a58f1e9

Parents:

d5d6e31

Message:

refs #1323, using TOLHasBeenInitialized which is already implemented inside TOL

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

Location:

toltcl/generic

Files:

• tolaccess.cpp (modified) (1 diff)
• toltcl.c (modified) (2 diffs)
• toltclInt.h (modified) (1 diff)

toltcl/generic/tolaccess.cpp

@@ -142 +142 @@
   }
   return TCL_OK;
-}
-
-int Tol_IsInitialized( )
-{
-  return BGrammar::Exists( "Real" );
 }
 

toltcl/generic/toltcl.c

@@ -218 +218 @@
   vmode = objc == 3 ? Tcl_GetString(objv[2]) :  NULL;
 
-  if ( !Tol_IsInitialized( ) ) {
-    //printf( "TOL no esta inicializado\n" );
+  if ( !TOLHasBeenInitialized( ) ) {
+    printf( "TOL no esta inicializado\n" );
     /*
      * Initialize kernel
@@ -232 +232 @@
     Tol_gsl_set_error_handler(&TT_gsl_error_handler);
   } else {
-    //printf( "TOL esta inicializado\n" );
+    printf( "TOL esta inicializado\n" );
   }
   

toltcl/generic/toltclInt.h

@@ -43 +43 @@
 extern Tcl_Interp * TT_interp;
 
-/*! Check if TOL kernel has being initialized
- */
-extern int Tol_IsInitialized ();
-
 /*! Fill in obj_result the version info corresponding to tol
  *   {major MajorNum minor MinorNum release ReleaseNum coment Comment}