Changeset c14b554 in tol for toltcl/generic/tolsergrp.cpp


Ignore:
Timestamp:
Oct 19, 2008, 5:56:30 PM (18 years ago)
Author:
Jorge Pérez <josp.jorge@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
ce06505
Parents:
6d7779d
Message:

merging from NameBlock/VMatrix branch

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • toltcl/generic/tolsergrp.cpp

    r6d7779d rc14b554  
    6666                                  BDate & begin,
    6767                                  BDate & end,
    68                                   int RangeIsDefault);
     68                                  int RangeIsDefault,
     69                                  Tcl_Obj *obj_result);
    6970
    7071static int Tol_CreateSerieGrpData(Tcl_Interp * interp,
    … …  
    7374                                  BDate & begin,
    7475                                  BDate & end,
    75                                   int RangeIsDefault);
     76                                  int RangeIsDefault,
     77                                  Tcl_Obj *obj_result);
    7678
    7779#define TICK_END -1
    … …  
    487489
    488490  BGrammar * gra = GraTimeSet();
     491
     492  if ( !gra ) {
     493    Tcl_AppendResult(interp,
     494                     "TimeSet grammar not found", NULL);
     495    return TCL_ERROR;
     496  }
     497
    489498  BUserTimeSet * uts;
    490499
    … …  
    836845  }
    837846  tcl_code = Tol_CreateSerieGrpData(interp,objc,series,&sgrp,
    838                                     I0,I1,isDefault);
     847                                    I0,I1,isDefault,obj_result);
    839848  if ( tcl_code != TCL_OK ) {
    840849    Tol_FreeSerieGroup(sgrp);
    841     Tcl_AppendObjToObj(obj_result,Tcl_GetObjResult(interp));
    842850    return TCL_ERROR;
    843851  }
    … …  
    886894
    887895  tcl_code = Tol_CreateSerieGrpData(interp,series,&sgrp,
    888                                     I0,I1,isDefault);
     896                                    I0,I1,isDefault,obj_result);
    889897  if ( tcl_code != TCL_OK ) {
    890898    Tol_FreeSerieGroup(sgrp);
    891     Tcl_AppendObjToObj(obj_result,Tcl_GetObjResult(interp));
    892899    return TCL_ERROR;
    893900  }
    … …  
    15361543                            BDate & begin,
    15371544                            BDate & end,
    1538                             int RangeIsDefault)
    1539 {
    1540  
    1541   BGrammar * gra = BGrammar::FindByName("Serie");
     1545                            int RangeIsDefault,
     1546                            Tcl_Obj *obj_result)
     1547{
     1548 
     1549  BGrammar * gra = GraSerie();
     1550
     1551  if ( !gra ) {
     1552    Tcl_AppendStringsToObj( obj_result,
     1553                            "Serie grammar not found", NULL );
     1554    return TCL_ERROR;
     1555  }
     1556
    15421557  scursors cursors;
    15431558  Tol_SerieGroup * tsg = NULL;
    15441559
    15451560  *tsgPtr = NULL;
    1546   if (!gra) {
    1547     Tcl_AppendResult(interp,"grammar 'Serie' not found",NULL);
    1548     return TCL_ERROR;
    1549   }
    15501561
    15511562  tsg = *tsgPtr = Tol_AllocSerieGroup();
    … …  
    15911602      continue;
    15921603    //uts = Tol_GetTimeSerie(interp,series[i]);
    1593     uts = (BUserTimeSerie*)Tol_ResolveObject(interp, series[i], GraSerie());
     1604    uts = (BUserTimeSerie*)Tol_ResolveObject(interp, series[i], obj_result/*,
     1605                                             gra*/);
    15941606    if ( !uts )
    15951607      return TCL_ERROR;
    … …  
    15991611    sername = Tcl_GetString(series[i]);
    16001612    if (!uts->HasDating()) {
    1601       Tcl_AppendResult(interp, "\"",
    1602                        sername,
    1603                        "\" does not have dating", NULL );
     1613      Tcl_AppendStringsToObj(obj_result, "'",
     1614                             sername,
     1615                             "' does not have dating", NULL );
    16041616      return TCL_ERROR;
    16051617    }
    … …  
    16321644        return BadAlloc(interp);
    16331645      /* por aqui no deberia pasar, REVISALO!!! */
    1634       Tcl_AppendResult(interp,"invalid range of dates",NULL);
     1646      Tcl_AppendStringsToObj(obj_result,"invalid range of dates",NULL);
    16351647      return TCL_ERROR;
    16361648    }
    … …  
    16451657 
    16461658  if (cursors.last==-1) {
    1647     Tcl_AppendResult(interp,"the set of serie given have no data",NULL);
     1659    Tcl_AppendStringsToObj(obj_result,
     1660                           "the set of serie given have no data",NULL);
    16481661    return TCL_ERROR;
    16491662  }
    … …  
    17841797                            BDate & begin,
    17851798                            BDate & end,
    1786                             int RangeIsDefault)
     1799                            int RangeIsDefault,
     1800                            Tcl_Obj *obj_result)
    17871801{
    17881802  int objc = LstLength(series);
    … …  
    18621876        return BadAlloc(interp);
    18631877      /* por aqui no deberia pasar, REVISALO!!! */
    1864       Tcl_AppendResult(interp,"invalid range of dates",NULL);
     1878      Tcl_AppendStringsToObj(obj_result,
     1879                             "invalid range of dates",NULL);
    18651880      return TCL_ERROR;
    18661881    }
    … …  
    18771892 
    18781893  if (cursors.last==-1) {
    1879     Tcl_AppendResult(interp,"the set of serie given have no data",NULL);
     1894    Tcl_AppendStringsToObj(obj_result,
     1895                           "the set of serie given have no data",NULL);
    18801896    return TCL_ERROR;
    18811897  }
    … …  
    20332049      break;
    20342050  if ( i == NTYPES ) {
    2035     Tcl_AppendStringsToObj( obj_result, "invalid autocorrelation funtion type '",
    2036                             type_name, "' must be: ACF, PACF, IACF or IPACF", NULL );
     2051    Tcl_AppendStringsToObj(obj_result,
     2052                           "invalid autocorrelation funtion type '",
     2053                           type_name, "' must be: ACF, PACF, IACF or IPACF",
     2054                           NULL );
    20372055    return TCL_ERROR;
    20382056  }
    … …  
    20422060  BUserTimeSerie * uts;
    20432061  //uts = Tol_GetTimeSerie( interp, objv[1] );
    2044   uts = (BUserTimeSerie*)Tol_ResolveObject(interp, objv[1], GraSerie());
     2062  uts = (BUserTimeSerie*)Tol_ResolveObject(interp, objv[1], obj_result/*,
     2063                                           GraSerie()*/);
     2064  if ( !uts ) {
     2065    return TCL_ERROR;
     2066  }
    20452067  int size_cor = -1;
    2046   if ( !uts ) {
    2047     Tcl_AppendObjToObj( obj_result, Tcl_GetObjResult(interp) );
    2048     return TCL_ERROR;
    2049   }
    20502068  if ( objc == 3 ) {
    20512069    tcl_code = Tcl_GetIntFromObj( interp, objv[2], &size_cor );
    … …  
    22002218 
    22012219  // uts = Tol_GetTimeSerie( interp, objv[0] );
    2202   uts = (BUserTimeSerie*)Tol_ResolveObject(interp, objv[0], GraSerie());
     2220  uts = (BUserTimeSerie*)Tol_ResolveObject(interp, objv[0],
     2221                                           obj_result/*,GraSerie()*/);
    22032222  if ( !uts ) {
    2204     Tcl_AppendObjToObj(obj_result, Tcl_GetObjResult(interp));
    22052223    return TCL_ERROR;
    22062224  }
    … …  
    22302248      }
    22312249      if (found == false) {
    2232         Tcl_AppendStringsToObj(obj_result, "bad statistics name \"",
    2233                           Tcl_GetString(objv[i+1]),"\"", NULL);
     2250        Tcl_AppendStringsToObj(obj_result, "bad statistics name '",
     2251                          Tcl_GetString(objv[i+1]),"'", NULL);
    22342252        Tcl_Free((char*)(stats));
    22352253        return TCL_ERROR;
Note: See TracChangeset for help on using the changeset viewer.