Changeset 6562295 in tol


Ignore:
Timestamp:
Dec 30, 2010, 4:56:44 PM (16 years ago)
Author:
Víctor de Buen <vdebuen@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
437a0af
Parents:
240d143
Message:

TOL version related variables must be defined at initialization time to avoid frozen values in stdlib.oza

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

Location:
tol/stdlib/general/TolPackage
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • tol/stdlib/general/TolPackage/client.tol

    r240d143 r6562295  
    3636//////////////////////////////////////////////////////////////////////////////
    3737{
    38 //WriteLn("TRACE [TolPackage::Client::Initialize] ");
     38  Real TolPackage::Initialize(void);
    3939  Real OSDirMake(_.localRoot);
    4040  True

  • tol/stdlib/general/TolPackage/common.tol

    r240d143 r6562295  
    4242//////////////////////////////////////////////////////////////////////////////
    4343
    44 Set _.currentTolVersionTokens = Tokenizer(Version," ");
     44Set _.currentTolVersionTokens = Copy(Empty);
     45Text _.currentTolVersion = "";
     46Date _.currentTolReleaseDate = UnknownDate;
    4547
    46 Text _.currentTolVersion =
     48//////////////////////////////////////////////////////////////////////////////
     49Text _.autodoc.member.Initialize =
     50"Inicializa el servicio de paquetes TOL";
     51Real Initialize(Real void)
     52//////////////////////////////////////////////////////////////////////////////
    4753{
    48   _.currentTolVersionTokens[1]+" "+_.currentTolVersionTokens[2]
     54  If(Card(_.currentTolVersionTokens),False,
     55  {
     56    Set _.currentTolVersionTokens := Tokenizer(Version," ");
     57    Text _.currentTolVersion :=
     58    {
     59     _.currentTolVersionTokens[1]+" "+_.currentTolVersionTokens[2]
     60    };
     61    Date _.currentTolReleaseDate :=
     62    {
     63      TextToDate(
     64       _.currentTolVersionTokens[3]+" "+_.currentTolVersionTokens[4],
     65      "%Y-%m-%d %h:%i:%s")
     66   };
     67   True
     68 })
    4969};
    50 
    51 Date _.currentTolReleaseDate =
    52 {
    53   TextToDate(
    54     _.currentTolVersionTokens[3]+" "+_.currentTolVersionTokens[4],
    55     "%Y-%m-%d %h:%i:%s")
    56 };
    57 
    5870
    5971//////////////////////////////////////////////////////////////////////////////
Note: See TracChangeset for help on using the changeset viewer.