sed.tol de Ink.Watercolor

Funcion para realizar semillas.

Declaraciones

Funciones

Real SedMake(Real eng)
Creates and writes all the seed files (templates) for an art gallery.

Funciones

Real SedMake()

//////////////////////////////////////////////////////////////////////////////
Real SedMake(Real eng)       // If true then english else spanish
//////////////////////////////////////////////////////////////////////////////
{ 
  Text WriteLn(PdbSep+"\nbuilding "+If(eng,"english","spanish")+" seeds...");
  Text inpFil = "agenda/"+PagGal+"db01.txt";
  Set  inpBst = IncludeBST("ctr/img."+PagGal+".bst");
  Set  inpPdb = PdbRead(inpFil, inpBst);

  Set yeaAllTab =
  { 
    Set  selSad = Select(inpPdb, Real(Set picReg)
                  { FileExist("web/"+PagGal+"/image/zoom/"+picReg->jpgFil) });
    PagYearTab(eng, selSad, "sad")
  };

  Text sedPth    = "web/common/seed/";
  Text sedStr    = ReadFile(sedPth+"strseed.htm"); // Structure
  Text sedPub    = ReadFile(sedPth+"pubseed.htm"); // Publicity

  Text sedButStr = Replace(
                     ReadFile(sedPth+"butstrseed.htm"), // Buttons structure
                     "URL.HOM", "http://www.inkwatercolor.com/"+
                                If(eng, "index.html",
                                        "indice.html"));
  Text sedButOt  = ReadFile(sedPth+"butzotseed.htm");   // Button zoom out
  Text sedButIn  = ReadFile(sedPth+"butzinseed.htm");   // Button zoom in
  Text sedButLs  = ReadFile(sedPth+"butlstseed.htm");   // Button list

  Text sedButZNo = Replace(sedButStr, "ZOM.COD", "");       // Buttoms no zoom
  Text sedButZOt = Replace(sedButStr, "ZOM.COD", sedButOt); // Buttoms zoom out
  Text sedButZIn = Replace(sedButStr, "ZOM.COD", sedButIn); // Buttoms zoom in
  Text sedButLst = Replace(sedButStr, "ZOM.COD", sedButLs); // Buttoms list

  Text sedTxtCnt = ReadFile(sedPth+"txtcntseed.htm"); // Text contens
  Text sedTxtLow = ReadFile(sedPth+"txtlowseed.htm"); // Text low

  Text sedLstCnt = ReadFile(sedPth+"lstcntseed.htm"); // List of pictures
  Text sedLstLow = ReadFile(sedPth+"lstlowseed.htm"); // List low

  Text sedPi4Cnt = ReadFile(sedPth+"pi4cntseed.htm"); // Four pictures
  Text sedPi4Low = ReadFile(sedPth+"pi4lowseed.htm"); // Four pictures low area

  Text sedPi1Cnt = ReadFile(sedPth+"pi1cntseed.htm"); // One picture
  Text sedPi1Low = ReadFile(sedPth+"pi1lowseed.htm"); // One picture low area

//Text sedInxCnt = ReadFile(sedPth+"inxcntseed.htm");     // Home page
  Text sedInxCnt = ReadFile(sedPth+"inxcntrandseed.htm"); // Home page Random
  Text sedInxLow = ReadFile(sedPth+"inxlowseed.htm");     // Home page low area

  Text sedMapYea = 
  {
    Text sed = ReadFile(sedPth+"mapyeaseed.htm"); // Years table
    If(eng, sed, ReplaceTable(sed, [[ [["by years",   "por años"     ]],
                                      [[PagPage(TRUE), PagPage(FALSE)]] ]]))
  };
  Text sedMapNot = ReadFile(sedPth+"mapnotseed.htm");


  Set  repTab =
  [[
    [[ "MET.AUT", If(eng, "ink and watercolor painter", // author
                          "pintor con tinta y acuarela") ]],

    [[ "MET.GEN", If(eng, "gallery of paintings builder",  // generator
                          "constructor de la galeria de pinturas") ]],

    [[ "MET.LAN", If(eng, "english", "spanish") ]],        // DC.language

    [[ "PAG.PUB", sedPub                        ]],        // Publicity

    [[ "ALT.HOM", If(eng, "ink and watercolor home page",
                          "página principal de tinta y acuarela") ]],

    [[ "ALT.SEA", If(eng, "search in inkwatercolor.com",
                          "buscar en inkwatercolor.com") ]],

    [[ "URL.MAI", If(eng, "../../chppho/page/inffeebck.htm",
                          "../../chppho/pags/inffeebck.htm") ]],

    [[ "ALT.MAI", If(eng, "send us your questions, suggestions and messages",
                          "envienos sus preguntas, sugerencias y mensajes") ]],

    [[ "URL.HLP", If(eng, "../../chppho/page/infhelp.htm",
                          "../../chppho/pags/infhelp.htm") ]],

    [[ "ALT.HLP", If(eng, "help", "ayuda") ]],

    [[ "PAG.GAL", PagGal ]],
    SetOfText("PIC.MIN", FormatReal(1,           "%.0lf")),
    SetOfText("PIC.MAX", FormatReal(Card(inpPdb),"%.0lf")),

    [[ "MNU.URL.001", If(eng, "../../chppho/page/inffreuse.htm",
                              "../../chppho/pags/inffreuse.htm") ]],
    [[ "MNU.LBL.001", If(eng, "free images", "imágenes gratis") ]],

    [[ "MNU.URL.002", If(eng, "../../chppho/page/inffeebck.htm",
                              "../../chppho/pags/inffeebck.htm") ]],
    [[ "MNU.LBL.002", If(eng, "author contact", "contactar autor") ]],

    [[ "MNU.URL.003", If(eng, "../../chppho/page/infdwnloa.htm",
                              "../../chppho/pags/infdwnloa.htm") ]],
    [[ "MNU.LBL.003", If(eng, "download", "descargas") ]],

    [[ "MNU.URL.004", "http://inkwatercolor.master.com/texis/master/search/?"]],
    [[ "MNU.LBL.004", If(eng, "search this web", "buscar aquí") ]],

    [[ "MNU.URL.005", If(eng, "../../chppho/page/infartlnk.htm",
                              "../../chppho/pags/infartlnk.htm") ]],
    [[ "MNU.LBL.005", If(eng, "art links", "enlaces de arte") ]],

    [[ "MNU.URL.006", If(eng, "../../chppho/page/infstatis.htm",
                              "../../chppho/pags/infstatis.htm") ]],
    [[ "MNU.LBL.006", If(eng, "statistics", "estadísticas") ]],

    [[ "MNU.URL.007", If(eng, "../../chppho/page/infsitmap.htm",
                              "../../chppho/pags/infsitmap.htm") ]],
    [[ "MNU.LBL.007", If(eng, "site map", "mapa del web") ]],

    [[ "MNU.URL.008", If(eng, "../../chppho/page/sadcic0001.htm",
                              "../../chppho/pags/sadcic0001.htm") ]],
    [[ "MNU.LBL.008", If(eng, "ink watercolor", "tinta acuarela")]],

    [[ "MNU.URL.009", If(eng, "../../fleurs/page/sadcic0001.htm",
                              "../../fleurs/pags/sadcic0001.htm") ]],
    [[ "MNU.LBL.009", If(eng, "flowers of evil", "flores del mal")]],

    [[ "MNU.URL.010", If(eng, "../../inarmy/page/sadcic0001.htm",
                              "../../inarmy/pags/sadcic0001.htm") ]],
    [[ "MNU.LBL.010", If(eng, "ink in the army", "tinta en la mili")]],

    [[ "MNU.URL.011", If(eng, "../../"+PagGal+"/page/updcic0001.htm",
                              "../../"+PagGal+"/pags/updcic0001.htm") ]],
    [[ "MNU.LBL.011", If(eng, "new paintings", "nuevos cuadros")]],

    // Delete empty menus entries
    [[ "<li><a href="+Char(34)+"MNU.URL.012"+Char(34)+
                              ">MNU.LBL.012</a></li>", "" ]], 
    [[ "<li><a href="+Char(34)+"MNU.URL.013"+Char(34)+
                              ">MNU.LBL.013</a></li>", "" ]], 
    [[ "<li><a href="+Char(34)+"MNU.URL.014"+Char(34)
                             +">MNU.LBL.014</a></li>", "" ]],

    [[ "<a href="+Char(34)+Char(34)+"></a>", "" ]] 

  ]];


  Text pagInf = ReplaceTable(sedStr, repTab <<
  [[
    [["WIN.TIT", "_TIT_"]],
    [["MET.DES", "_TIT_"]],
    [["PAG.TIT", "_TIT_"]],
    [["PAG.BUT", If(eng, "<h2>ink and watercolor</h2>",
                         "<h2>tinta y acuarela</h2>")]],
    [["PAG.CNT", sedTxtCnt]],
    [["PAG.LOW", sedTxtLow]],
    [["PAG.MAP", sedMapYea]] // Page map
  ]]<<PagGalleryLabel(eng, "inf"));
  Text WriteFile(PagSee(eng)+"/"+PagSeeInf(eng), pagInf);

//  [["PAG.MAP", If(PagGal=="chppho", sedMapYea, sedMapNot) ]] If no map is wanted

  Text pagLst = ReplaceTable(sedStr, repTab <<
  [[
    [["PAG.BUT", sedButZIn]],
    [["PAG.CNT", sedLstCnt]],
    [["PAG.LOW", sedLstLow]],
    [["PAG.MAP", sedMapYea ]] // Page map
  ]]);
  Text WriteFile(PagSee(eng)+"/"+PagSeeLst(eng), pagLst);

  Text pagPi4 = ReplaceTable(sedStr, repTab <<
  [[
    [["PAG.BUT", sedButLst]],
    [["PAG.CNT", sedPi4Cnt]],
    [["PAG.LOW", sedPi4Low]],
    [["PAG.MAP", sedMapYea ]] // Page map
  ]]);
  Text WriteFile(PagSee(eng)+"/"+PagSeePi4(eng), pagPi4);

  Text pagPi1 = ReplaceTable(sedStr, repTab <<
  [[
    [["PAG.BUT", sedButZOt]],
    [["PAG.CNT", sedPi1Cnt]],
    [["PAG.LOW", sedPi1Low]],
    [["PAG.MAP", sedMapYea ]] // Page map
  ]]);
  Text WriteFile(PagSee(eng)+"/"+PagSeePi1(eng), pagPi1);

  Text pagInx = ReplaceTable(sedStr, repTab << yeaAllTab <<
  [[
    [["WIN.TIT", If(eng, "ink watercolor: free art gallery",
                         "tinta acuarela: galería de arte libre")]],
    [["PAG.TIT", If(eng, "a free art gallery showcasing ink and watercolor paintings",
                         "una galería de arte libre con pinturas de tinta y acuarela")]],
    [["MET.DES", If(eng, "a free art gallery showcasing ink and watercolor paintings",
                         "una galería de arte libre con pinturas de tinta y acuarela")]],
    [["MET.KEY", If(eng, "ink, inks, watercolor, watercolors, watercolour, watercolours",
                         "tinta, tintas, acuarela, acuarelas")]],
    [["PAG.BUT", "<h2>inkwatercolor.com</h2>"]],
    [["PAG.CNT", sedInxCnt]],
    [["PAG.LOW", sedInxLow]],
    [["LOW.PRO", If(eng, "the ink watercolor project is a free art gallery showcasing ink and "+
                         "watercolor paintings, for private and non commercial use only,",
                         "el proyecto Ink Watercolor es una galería de arte libre con obras en "+
                         "tinta y acuarela disponeble y abierta a todo el mundo,")]],
    [["LOW.FRE", If(eng, "feel free to use any of the drawings on the site if you are a "+
                         "private individual and your use is not commercial.",
                         "siéntete libre para utilizar todas la obras de este sitio siempre "+
                         "que sea para tu uso privado y no para uso comercial.")]],
    [["LOW.INK", If(eng, "ink watercolor gallery listing",
                         "galería de tintas y acuarelas")]],
    [["LOW.FLE", If(eng, "flowers of evil gallery listing",
                         "galería de las flores del mal")]],

    [["PAG.MAP", sedMapYea]] // Page map

  ]]<<PagGalleryLabel(eng, "inx"));
  Text WriteFile(PagSee(eng)+"/index.htm", pagInx);

// Seed for feedback forms
  Text sedFrm = ReadFile(sedPth+"feefrm.htm"); // Common feedback forms
  Text htmFrm = ReplaceTable(sedFrm, repTab);
  Text WriteFile(PagSee(eng)+"/feefrm.htm", htmFrm);

  TRUE
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Creates and writes all the seed files (templates) for an art gallery.",
SedMake);
//////////////////////////////////////////////////////////////////////////////

Time oriented language

//////////////////////////////////////////////////////////////////////////////
// FILE    : sed.tol
// AUTHOR  : http://www.asolver.com
// PURPOSE : Funcion para realizar semillas.
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
// FUNCTIONS
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
Real SedMake(Real eng)       // If true then english else spanish
//////////////////////////////////////////////////////////////////////////////
{ 
  Text WriteLn(PdbSep+"\nbuilding "+If(eng,"english","spanish")+" seeds...");
  Text inpFil = "agenda/"+PagGal+"db01.txt";
  Set  inpBst = IncludeBST("ctr/img."+PagGal+".bst");
  Set  inpPdb = PdbRead(inpFil, inpBst);

  Set yeaAllTab =
  { 
    Set  selSad = Select(inpPdb, Real(Set picReg)
                  { FileExist("web/"+PagGal+"/image/zoom/"+picReg->jpgFil) });
    PagYearTab(eng, selSad, "sad")
  };

  Text sedPth    = "web/common/seed/";
  Text sedStr    = ReadFile(sedPth+"strseed.htm"); // Structure
  Text sedPub    = ReadFile(sedPth+"pubseed.htm"); // Publicity

  Text sedButStr = Replace(
                     ReadFile(sedPth+"butstrseed.htm"), // Buttons structure
                     "URL.HOM", "http://www.inkwatercolor.com/"+
                                If(eng, "index.html",
                                        "indice.html"));
  Text sedButOt  = ReadFile(sedPth+"butzotseed.htm");   // Button zoom out
  Text sedButIn  = ReadFile(sedPth+"butzinseed.htm");   // Button zoom in
  Text sedButLs  = ReadFile(sedPth+"butlstseed.htm");   // Button list

  Text sedButZNo = Replace(sedButStr, "ZOM.COD", "");       // Buttoms no zoom
  Text sedButZOt = Replace(sedButStr, "ZOM.COD", sedButOt); // Buttoms zoom out
  Text sedButZIn = Replace(sedButStr, "ZOM.COD", sedButIn); // Buttoms zoom in
  Text sedButLst = Replace(sedButStr, "ZOM.COD", sedButLs); // Buttoms list

  Text sedTxtCnt = ReadFile(sedPth+"txtcntseed.htm"); // Text contens
  Text sedTxtLow = ReadFile(sedPth+"txtlowseed.htm"); // Text low

  Text sedLstCnt = ReadFile(sedPth+"lstcntseed.htm"); // List of pictures
  Text sedLstLow = ReadFile(sedPth+"lstlowseed.htm"); // List low

  Text sedPi4Cnt = ReadFile(sedPth+"pi4cntseed.htm"); // Four pictures
  Text sedPi4Low = ReadFile(sedPth+"pi4lowseed.htm"); // Four pictures low area

  Text sedPi1Cnt = ReadFile(sedPth+"pi1cntseed.htm"); // One picture
  Text sedPi1Low = ReadFile(sedPth+"pi1lowseed.htm"); // One picture low area

//Text sedInxCnt = ReadFile(sedPth+"inxcntseed.htm");     // Home page
  Text sedInxCnt = ReadFile(sedPth+"inxcntrandseed.htm"); // Home page Random
  Text sedInxLow = ReadFile(sedPth+"inxlowseed.htm");     // Home page low area

  Text sedMapYea = 
  {
    Text sed = ReadFile(sedPth+"mapyeaseed.htm"); // Years table
    If(eng, sed, ReplaceTable(sed, [[ [["by years",   "por años"     ]],
                                      [[PagPage(TRUE), PagPage(FALSE)]] ]]))
  };
  Text sedMapNot = ReadFile(sedPth+"mapnotseed.htm");


  Set  repTab =
  [[
    [[ "MET.AUT", If(eng, "ink and watercolor painter", // author
                          "pintor con tinta y acuarela") ]],

    [[ "MET.GEN", If(eng, "gallery of paintings builder",  // generator
                          "constructor de la galeria de pinturas") ]],

    [[ "MET.LAN", If(eng, "english", "spanish") ]],        // DC.language

    [[ "PAG.PUB", sedPub                        ]],        // Publicity

    [[ "ALT.HOM", If(eng, "ink and watercolor home page",
                          "página principal de tinta y acuarela") ]],

    [[ "ALT.SEA", If(eng, "search in inkwatercolor.com",
                          "buscar en inkwatercolor.com") ]],

    [[ "URL.MAI", If(eng, "../../chppho/page/inffeebck.htm",
                          "../../chppho/pags/inffeebck.htm") ]],

    [[ "ALT.MAI", If(eng, "send us your questions, suggestions and messages",
                          "envienos sus preguntas, sugerencias y mensajes") ]],

    [[ "URL.HLP", If(eng, "../../chppho/page/infhelp.htm",
                          "../../chppho/pags/infhelp.htm") ]],

    [[ "ALT.HLP", If(eng, "help", "ayuda") ]],

    [[ "PAG.GAL", PagGal ]],
    SetOfText("PIC.MIN", FormatReal(1,           "%.0lf")),
    SetOfText("PIC.MAX", FormatReal(Card(inpPdb),"%.0lf")),

    [[ "MNU.URL.001", If(eng, "../../chppho/page/inffreuse.htm",
                              "../../chppho/pags/inffreuse.htm") ]],
    [[ "MNU.LBL.001", If(eng, "free images", "imágenes gratis") ]],

    [[ "MNU.URL.002", If(eng, "../../chppho/page/inffeebck.htm",
                              "../../chppho/pags/inffeebck.htm") ]],
    [[ "MNU.LBL.002", If(eng, "author contact", "contactar autor") ]],

    [[ "MNU.URL.003", If(eng, "../../chppho/page/infdwnloa.htm",
                              "../../chppho/pags/infdwnloa.htm") ]],
    [[ "MNU.LBL.003", If(eng, "download", "descargas") ]],

    [[ "MNU.URL.004", "http://inkwatercolor.master.com/texis/master/search/?"]],
    [[ "MNU.LBL.004", If(eng, "search this web", "buscar aquí") ]],

    [[ "MNU.URL.005", If(eng, "../../chppho/page/infartlnk.htm",
                              "../../chppho/pags/infartlnk.htm") ]],
    [[ "MNU.LBL.005", If(eng, "art links", "enlaces de arte") ]],

    [[ "MNU.URL.006", If(eng, "../../chppho/page/infstatis.htm",
                              "../../chppho/pags/infstatis.htm") ]],
    [[ "MNU.LBL.006", If(eng, "statistics", "estadísticas") ]],

    [[ "MNU.URL.007", If(eng, "../../chppho/page/infsitmap.htm",
                              "../../chppho/pags/infsitmap.htm") ]],
    [[ "MNU.LBL.007", If(eng, "site map", "mapa del web") ]],

    [[ "MNU.URL.008", If(eng, "../../chppho/page/sadcic0001.htm",
                              "../../chppho/pags/sadcic0001.htm") ]],
    [[ "MNU.LBL.008", If(eng, "ink watercolor", "tinta acuarela")]],

    [[ "MNU.URL.009", If(eng, "../../fleurs/page/sadcic0001.htm",
                              "../../fleurs/pags/sadcic0001.htm") ]],
    [[ "MNU.LBL.009", If(eng, "flowers of evil", "flores del mal")]],

    [[ "MNU.URL.010", If(eng, "../../inarmy/page/sadcic0001.htm",
                              "../../inarmy/pags/sadcic0001.htm") ]],
    [[ "MNU.LBL.010", If(eng, "ink in the army", "tinta en la mili")]],

    [[ "MNU.URL.011", If(eng, "../../"+PagGal+"/page/updcic0001.htm",
                              "../../"+PagGal+"/pags/updcic0001.htm") ]],
    [[ "MNU.LBL.011", If(eng, "new paintings", "nuevos cuadros")]],

    // Delete empty menus entries
    [[ "<li><a href="+Char(34)+"MNU.URL.012"+Char(34)+
                              ">MNU.LBL.012</a></li>", "" ]], 
    [[ "<li><a href="+Char(34)+"MNU.URL.013"+Char(34)+
                              ">MNU.LBL.013</a></li>", "" ]], 
    [[ "<li><a href="+Char(34)+"MNU.URL.014"+Char(34)
                             +">MNU.LBL.014</a></li>", "" ]],

    [[ "<a href="+Char(34)+Char(34)+"></a>", "" ]] 

  ]];


  Text pagInf = ReplaceTable(sedStr, repTab <<
  [[
    [["WIN.TIT", "_TIT_"]],
    [["MET.DES", "_TIT_"]],
    [["PAG.TIT", "_TIT_"]],
    [["PAG.BUT", If(eng, "<h2>ink and watercolor</h2>",
                         "<h2>tinta y acuarela</h2>")]],
    [["PAG.CNT", sedTxtCnt]],
    [["PAG.LOW", sedTxtLow]],
    [["PAG.MAP", sedMapYea]] // Page map
  ]]<<PagGalleryLabel(eng, "inf"));
  Text WriteFile(PagSee(eng)+"/"+PagSeeInf(eng), pagInf);

//  [["PAG.MAP", If(PagGal=="chppho", sedMapYea, sedMapNot) ]] If no map is wanted

  Text pagLst = ReplaceTable(sedStr, repTab <<
  [[
    [["PAG.BUT", sedButZIn]],
    [["PAG.CNT", sedLstCnt]],
    [["PAG.LOW", sedLstLow]],
    [["PAG.MAP", sedMapYea ]] // Page map
  ]]);
  Text WriteFile(PagSee(eng)+"/"+PagSeeLst(eng), pagLst);

  Text pagPi4 = ReplaceTable(sedStr, repTab <<
  [[
    [["PAG.BUT", sedButLst]],
    [["PAG.CNT", sedPi4Cnt]],
    [["PAG.LOW", sedPi4Low]],
    [["PAG.MAP", sedMapYea ]] // Page map
  ]]);
  Text WriteFile(PagSee(eng)+"/"+PagSeePi4(eng), pagPi4);

  Text pagPi1 = ReplaceTable(sedStr, repTab <<
  [[
    [["PAG.BUT", sedButZOt]],
    [["PAG.CNT", sedPi1Cnt]],
    [["PAG.LOW", sedPi1Low]],
    [["PAG.MAP", sedMapYea ]] // Page map
  ]]);
  Text WriteFile(PagSee(eng)+"/"+PagSeePi1(eng), pagPi1);

  Text pagInx = ReplaceTable(sedStr, repTab << yeaAllTab <<
  [[
    [["WIN.TIT", If(eng, "ink watercolor: free art gallery",
                         "tinta acuarela: galería de arte libre")]],
    [["PAG.TIT", If(eng, "a free art gallery showcasing ink and watercolor paintings",
                         "una galería de arte libre con pinturas de tinta y acuarela")]],
    [["MET.DES", If(eng, "a free art gallery showcasing ink and watercolor paintings",
                         "una galería de arte libre con pinturas de tinta y acuarela")]],
    [["MET.KEY", If(eng, "ink, inks, watercolor, watercolors, watercolour, watercolours",
                         "tinta, tintas, acuarela, acuarelas")]],
    [["PAG.BUT", "<h2>inkwatercolor.com</h2>"]],
    [["PAG.CNT", sedInxCnt]],
    [["PAG.LOW", sedInxLow]],
    [["LOW.PRO", If(eng, "the ink watercolor project is a free art gallery showcasing ink and "+
                         "watercolor paintings, for private and non commercial use only,",
                         "el proyecto Ink Watercolor es una galería de arte libre con obras en "+
                         "tinta y acuarela disponeble y abierta a todo el mundo,")]],
    [["LOW.FRE", If(eng, "feel free to use any of the drawings on the site if you are a "+
                         "private individual and your use is not commercial.",
                         "siéntete libre para utilizar todas la obras de este sitio siempre "+
                         "que sea para tu uso privado y no para uso comercial.")]],
    [["LOW.INK", If(eng, "ink watercolor gallery listing",
                         "galería de tintas y acuarelas")]],
    [["LOW.FLE", If(eng, "flowers of evil gallery listing",
                         "galería de las flores del mal")]],

    [["PAG.MAP", sedMapYea]] // Page map

  ]]<<PagGalleryLabel(eng, "inx"));
  Text WriteFile(PagSee(eng)+"/index.htm", pagInx);

// Seed for feedback forms
  Text sedFrm = ReadFile(sedPth+"feefrm.htm"); // Common feedback forms
  Text htmFrm = ReplaceTable(sedFrm, repTab);
  Text WriteFile(PagSee(eng)+"/feefrm.htm", htmFrm);

  TRUE
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Creates and writes all the seed files (templates) for an art gallery.",
SedMake);
//////////////////////////////////////////////////////////////////////////////

Árbol de ficheros

Ink.Watercolor construye las páginas del sitio web inkwatercolor.com

←make.tol proceso principal de generación de contenidos del sitio web
tol directorios de código fuente en lenguaje de programación Tol
- cmm funciones comunes de textos, fechas, conjuntos, ficheros, etc.
  - ←txt.tol funciones de manejo de textos
  - ←set.tol funciones de manejo de conjuntos
  - ←tab.tol funciones de tablas como set of sets
  - ←ser.tol funciones de series temporales
  - ←fil.tol funciones de gestión de ficheros
  - ←zip.tol compresor de ficheros en línea de mandatos
  - ←apa.tol proceso de ficheros de log de Apache
  - ←dir.tol funciones de gestión de directorios
- app funciones especificas de Ink.Watercolor
  - ←pdb.tol funciones de la base de datos de pinturas
  - ←pag.tol funciones para generar páginas web Html
  - ←sed.tol semillas, templates, de páginas web Html
  - ←ftp.tol funciones para generar mandatos para hacer Ftp
  - ←xml.tol funciones históricas para sitemaps en Xml
  - ←alc.tol alchemy para la transformación de imágenes
  - ←ink.tol funciones auxiliares de InkWatercolor
- ←inc.tol inclusión de los ficheros Tol básicos y de aplicación
agenda directorio destinado a albergar los ficheros de agendas de posts
- ←chpphodb01.txt ejemplo con las 4 primeras obras artísticas que se incluyeron
web directorio destinado a las paginas web generadas automáticamente
- common directorio de recursos comunes a todas las galerías
  - css directorio para ficheros de estilo
    - ←common.css fichero de estilo para las paginas Html del sitio web
  - seed trozos de código Html para construir templates
    - ←strseed.htm estructura básica de página Html de inkwatercolor.com
    - ←pi1lowseed.htm estructura para albergar información sobre una obra
    - ←pi4cntseed.htm estructura para albergar 4 pinturas en una página
  - src directorio para ficheros javascript
    - ←fleursdtspanish.js código Javascript generado automáticamente por TOL
    - ←inarmydtspanish.js código Javascript generado automáticamente por TOL
- chppho directorio para la galería principal de Inkwatercolor
  - →index.html ejemplo de página Html generada automáticamente
- download directorio para material extra para descargas
  - →chppho0129.jpg ejemplo de imagen de obra artística para descargar
  - →chppho0143.jpg ejemplo de imagen de obra artística para descargar
- →sitemap.xml mapa del sitio web generado en Xml de forma automática
history archivo de registro histórico del programa Ink.Watercolor
- →20151202.inkwatercolor.picture1.jpg ejemplo de página generada automáticamente para 1 pintura
- →20151202.inkwatercolor.picture4.jpg ejemplo de página generada automáticamente para 4 pinturas
- →20151202.fleurs.picture1.jpg ejemplo de página web de las flores del mal con 1 pintura
- →20151202.fleurs.picture4.jpg ejemplo de página web de las flores del mal con 4 pinturas
→ink_watercolor.pdf documento resumen de funciones del programa de generación Html

Secciones de la página

sed. tol

Declaraciones

Funciones

Time oriented language

Árbol de ficheros

Funciones

Real SedMake()

Artículos del sitio

Presentación de Tol

Todos los programas

Simuladores visuales

Sitios que me gustan

Por categorías

Algoritmia

Búsqueda y ordenación

Computación fisiológica

Editorial y edición

Gráficos de datos

Herramientas y utilidades

Hipertexto

Informática forense

Lectura óptica de datos

Metaprogramación

No determinista

Ofimática

Recursión e iteración

Reglas y restricciones

Series y estadística

sed.tol de Ink.Watercolor

Declaraciones

Funciones

Real SedMake()

Time oriented language

Árbol de ficheros