Changeset 37bffcf in tol


Ignore:
Timestamp:
Jun 16, 2010, 10:16:20 AM (16 years ago)
Author:
Víctor de Buen <vdebuen@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
f0178c4
Parents:
1b05b60
Message:

Refs #916
Se embebe el archivo builder.tol
GetNameVersion y GetDeepDependencies se mueven a common.tol

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • tol/stdlib/general/TolPackage/server.tol

    r1b05b60 r37bffcf  
    66
    77
     8//////////////////////////////////////////////////////////////////////////////
    89NameBlock Server = [[
     10//////////////////////////////////////////////////////////////////////////////
    911
    1012Text _.localRoot =
    … …  
    1517};
    1618
    17 //////////////////////////////////////////////////////////////////////////////
    18 Text ScapeField(Text field)
    19 //////////////////////////////////////////////////////////////////////////////
    20 {
    21   ReplaceTable(field,[[
    22     [["\n","[[BR]]"]],
    23     [[";",","]] ]])
    24 };
    25 
    26 //////////////////////////////////////////////////////////////////////////////
    27 Real ResetRepository(
    28   Text root,         //Local server-side installing directory
    29   Text url,          //A unique address with remote or local protocol
    30   Text name,         //A unique name
    31   Text type,         //Private, Public
    32   Text description)  //Purpose of repository
    33 //////////////////////////////////////////////////////////////////////////////
    34 {
    35   Text index.csv =
    36   "repository;"+
    37   "name;"+
    38   "name.version;"+
    39   "version.high;"+
    40   "version.low;"+
    41   "brief;"+
    42   "keys;"+
    43   "authors;"+
    44   "minTolVersion;"+
    45   "releaseDate;"+
    46   "dependencies;\n";
    47 
    48   Text index.tol =
    49   "//////////////////////////////////////////////////////////////////////////////\n"
    50   "//FILE : index.tol                                                            \n"
    51   "//PURPOSE : internal use of Class TolPackage::@Repository                     \n"
    52   "//                                                                            \n"
    53   "//       PLEASE, DON'T TOUCH THIS FILE NOR OTHER ONE IN THIS DIRECTORY!       \n"
    54   "//                                                                            \n"
    55   "//////////////////////////////////////////////////////////////////////////////\n"
    56   "  Text name = \""+name+"\";\n"+
    57   "  Text type = \""+type+"\";\n"+
    58   "  Text description = \""+description+"\";\n"+
    59   "\n";
    60    
    61   Text WriteFile(root+"index.csv",  index.csv);
    62   Text WriteFile(root+"index.tol",  index.tol);
    63 //Text WriteFile(root+"index.wiki", index.wiki);
    64 //Text WriteFile(root+"index.html", index.html);
    65   True
    66 };
    67 
    68 //////////////////////////////////////////////////////////////////////////////
    69   Set GetNameVersion(Text packageName, Real specificVersion)
    70 //////////////////////////////////////////////////////////////////////////////
    71 {
    72   NameBlock p = Eval(packageName);
    73   Text name.version = If(!specificVersion,packageName,
    74     packageName+"."<<p::_.autodoc.version.high+"."<<p::_.autodoc.version.low)
    75 };
    76 
    77 //////////////////////////////////////////////////////////////////////////////
    78   Set GetDeepDependencies(Text packageName, Real specificVersion)
    79 //////////////////////////////////////////////////////////////////////////////
    80 {
    81   NameBlock p = Eval(packageName);
    82   Text name.version = GetNameVersion(p);
    83   If(!Card(p::_.autodoc.dependencies), Copy(Empty),
    84   {
    85     Unique(SetConcat(EvalSet(p::_.autodoc.dependencies,GetDeepDependencies))<<
    86            name.version)
    87   })
    88 };
    89 
    90 //////////////////////////////////////////////////////////////////////////////
    91 Real AddPackageInfo.Version(
    92   Text root,
    93   NameBlock pkg,
    94   Real specificVersion)
    95 //////////////////////////////////////////////////////////////////////////////
    96 {
    97   Text name = Name(pkg);
    98   Text name.version = GetNameVersion(pkg);
    99   Set dependencies = GetDeepDependencies(name);
    100   Text index.csv =
    101     pkg:: _.autodoc.url + ";"
    102   <<name + ";"
    103   <<name.version+ ";"
    104   <<If(!specificVersion,?,pkg::_.autodoc.version.high) + ";"
    105   <<If(!specificVersion,?,pkg::_.autodoc.version.low) + ";"
    106   <<pkg::ScapeField(_.autodoc.brief) + ";"
    107   <<pkg::ScapeField(_.autodoc.keys) + ";"
    108   <<pkg::ScapeField(_.autodoc.authors) + ";"
    109   <<pkg::_.autodoc.minTolVersion + ";"
    110   <<Now + ";"
    111   <<dependencies+ "\n";
    112   Text AppendFile(root+"index.csv",  index.csv);
    113   //Text AppendFile(root+"index.wiki", index.wiki);
    114   //Text AppendFile(root+"index.html", index.html);
    115   True
    116 };
    117 
    118 
    119 
    120 //////////////////////////////////////////////////////////////////////////////
    121 Real AddPackage(Text root, NameBlock pkg)
    122 //////////////////////////////////////////////////////////////////////////////
    123 {
    124   Real AddPackageInfo.Version(root,pkg,True);
    125   Real AddPackageInfo.Version(root,pkg,False)
    126 }
     19#Embed "builder.tol"
    12720
    12821]];
Note: See TracChangeset for help on using the changeset viewer.