Changeset c14154f in tol


Ignore:
Timestamp:
Jan 11, 2011, 9:43:07 AM (16 years ago)
Author:
Víctor de Buen <vdebuen@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
c06e7c5
Parents:
eabb526
Message:

Conditional trace about CINT decimal's problem

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

Location:
tol
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • tol/contrib/cint/tolCint.cpp

    reabb526 rc14154f  
    4444*/
    4545
     46//#define DO_TRACE_CINT_DECIMAL;
     47#ifdef DO_TRACE_CINT_DECIMAL
     48#define TRACE_CINT_DECIMAL \
     49  G__exec_text(BText(" double x = 2.1112; printf(\"")+__FILE__+":"+__LINE__+" [x=%.15lg]\n\",x); ");
     50#else
     51#define TRACE_CINT_DECIMAL
     52#endif
     53
     54
     55
    4656//--------------------------------------------------------------------
    4757 BText cint_url_link()
    … …  
    8494  if(Cint_is_initialized())
    8595  {
     96    TRACE_CINT_DECIMAL;
    8697    return(G__INIT_CINT_SUCCESS);
    8798  }
    … …  
    106117    G__set_errmsgcallback(reinterpret_cast<void*>(Cint_errmsgcallback));
    107118    G__setautoconsole(1);
     119    TRACE_CINT_DECIMAL;
    108120    return(G__init_cint_);
    109121  }

  • tol/init.cpp

    reabb526 rc14154f  
    125125static BSystemText*   tolSdkPath_                 = NULL;
    126126
    127 
    128127int Cint_initialize(const BText& filePath);
     128
     129//#define DO_TRACE_CINT_DECIMAL;
     130#ifdef DO_TRACE_CINT_DECIMAL
     131#include <G__ci.h>
     132#define TRACE_CINT_DECIMAL \
     133  G__exec_text(BText(" double x = 2.1112; printf(\"")+__FILE__+":"+__LINE__+" [x=%.15lg]\n\",x); ");
     134#else
     135#define TRACE_CINT_DECIMAL
     136#endif
     137
    129138
    130139//--------------------------------------------------------------------
    … …  
    433442{
    434443  static BBool initGrammars_ = BFALSE;
     444  TRACE_CINT_DECIMAL;
    435445
    436446  InitCint();
    … …  
    438448
    439449  signal_assign();
     450  TRACE_CINT_DECIMAL;
    440451
    441452  initGrammars_=BTRUE;
    … …  
    448459  TrcIGSL("LC_NUMERIC=C");
    449460  setlocale( LC_NUMERIC, "C");
     461  TRACE_CINT_DECIMAL;
    450462
    451463  TrcIG("System tools: ");
    … …  
    454466  TrcIGS(BText("Small Block Heap=")<<sbh);
    455467  _set_sbh_threshold(sbh);
     468  TRACE_CINT_DECIMAL;
    456469# endif
    457470# if defined(__USE_GBLA__)
    … …  
    460473  TrcIGS("GBLA");
    461474  if(!BLAPI_Init()) return false;
     475  TRACE_CINT_DECIMAL;
    462476  //------------------------------
    463477# endif
    464478  TrcIGS("GSL");
    465479  GslInitialize();
     480  TRACE_CINT_DECIMAL;
    466481  TrcIGS("Parser");
    467482  BParser::InitDefaultParser();
     483  TRACE_CINT_DECIMAL;
    468484  TrcIGS("Global Hashed Table");
    469485  BGrammar::Initialize();
     486  TRACE_CINT_DECIMAL;
    470487  TrcIGS("Local Stack Manager");
    471488  BStackManager::Initialize();
     489  TRACE_CINT_DECIMAL;
    472490
    473491  TrcIG("System types: ");
    … …  
    476494  //--------------------------------------------------
    477495  BAnyGrammar::InitGrammar();
     496  TRACE_CINT_DECIMAL;
    478497
    479498  //--------------------------------------------------
    … …  
    494513            BCopyContens<BDat>::New,
    495514            BFunArgContens<BDat>::NewLocal);
     515  TRACE_CINT_DECIMAL;
    496516
    497517  //--------------------------------------------------
    … …  
    510530           BCopyContens<BText>::New,
    511531           BFunArgContens<BText>::NewLocal);
     532  TRACE_CINT_DECIMAL;
    512533
    513534  //--------------------------------------------------
    … …  
    526547            BCopyContens<BDate>::New,
    527548            BFunArgContens<BDate>::NewLocal);
     549  TRACE_CINT_DECIMAL;
    528550
    529551  //--------------------------------------------------
    … …  
    800822    TrcIGS("Special functions");
    801823    BSpecialFunction::Initialize();
     824  TRACE_CINT_DECIMAL;
    802825
    803826    TrcIG("Built-in objects: ");
    … …  
    841864    TrcIGSL("AIA: Automatic Intervention Analisis");
    842865        BAia::StaticInit();     
     866  TRACE_CINT_DECIMAL;
    843867    TrcIGSL("OIS: Objects Indexed Serialization");
    844868    BOis::Initialize();
     869  TRACE_CINT_DECIMAL;
    845870    BGrammar::PutLast(GraSet());
    846871#   if defined(USE_DELAY_INIT)
    … …  
    851876    TrcIGS("Methods");
    852877    BuildMethodFunctions();
     878  TRACE_CINT_DECIMAL;
    853879
    854880  //initializing tools
    … …  
    861887        "SVN desde el que se ha generado la presente versión de TOL."));
    862888
     889  TRACE_CINT_DECIMAL;
    863890    int BTolOprProfiler_Init();
    864891    BTolOprProfiler_Init();
     892  TRACE_CINT_DECIMAL;
    865893    TOLHasBeenInitialized_ = true;
    866894    return(initGrammars_);
    … …  
    11201148//--------------------------------------------------------------------
    11211149{
     1150  TRACE_CINT_DECIMAL;
    11221151  static bool done_ = false;
    11231152  static BSystemText* version_ = NULL;
    … …  
    11371166
    11381167  TOLHasBeenInitialized_ = true;
     1168  TRACE_CINT_DECIMAL;
    11391169
    11401170  BText initpath = GetFilePath(_tolSessionPath_)+  "stdlib";
    … …  
    11771207    I2("The path of the TOL headers.",
    11781208             "El camino de las cabeceras de TOL."));
     1209  TRACE_CINT_DECIMAL;
    11791210}
    11801211
Note: See TracChangeset for help on using the changeset viewer.