img.tol de iForense

Image functions.

Declaraciones

Constantes

Text ImgTag
Tag inicial para imagenes.

Funciones

Set ImgGetSet(Text htmCod)
Retorna el conjunto de imagenes de una pieza de codigo Html.
Text ImgNormalize(Text imgCod)
Retorna el codigo Html de una imagen normalizado.
Text ImgGetSrc(Text imgCod)
Retorna de un codigo Html de una imagen la url de la imagen.
Text ImgGetAlt(Text imgCod)
Retorna de un codigo Html de una imagen el texto alt de la imagen.
Text ImgGetTit(Text imgCod)
Retorna de un codigo Html de una imagen el texto title de la imagen.
Text Img2Htm(Text imgSrc, Text imgAlt, Text imgTit, Text imgCla, Text imgDef)
Retorna el codigo Html de una imagen con sus atributos completos rellenando aquellos que faltan.
Text Img2Div(Text imgSrc, Text imgAlt, Text imgTit, Text imgLnk, Text imgLst, Text imgCla, Text imgDef)
Retorna el codigo Html de una imagen con sus atributos completos rellenando aquellos que faltan y todo dentro de una estructura Html div.

Constantes

Text ImgTag

//////////////////////////////////////////////////////////////////////////////
Text ImgTag = "<img ";
//////////////////////////////////////////////////////////////////////////////
PutDescription("Tag inicial para imagenes.", ImgTag);
//////////////////////////////////////////////////////////////////////////////

Funciones

Set ImgGetSet()

//////////////////////////////////////////////////////////////////////////////
Set ImgGetSet(Text htmCod)
//////////////////////////////////////////////////////////////////////////////
{
  Text imgTxt = Compact(TxtInside2TagPlus(htmCod, ImgTag, ">"));
  If(imgTxt == "", Empty,
  {
    Text imgRep = Replace(imgTxt, "><", ">"+Char(7)+"<");
    Tokenizer(imgRep, Char(7))
  })
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna el conjunto de imagenes de una pieza de codigo Html.",
ImgGetSet);
//////////////////////////////////////////////////////////////////////////////

Text ImgNormalize()

//////////////////////////////////////////////////////////////////////////////
Text ImgNormalize(Text imgCod)
//////////////////////////////////////////////////////////////////////////////
{
  Text imgCmp = Compact(imgCod);
  ReplaceTable(imgCmp,
  [[
    [["= ",     "="]],
    [[" =",     "="]],
    [[".'",     "'"]], // Elimina los puntos finales
    [[Char(34), "'"]]
  ]])
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna el codigo Html de una imagen normalizado.",
ImgNormalize);
//////////////////////////////////////////////////////////////////////////////

Text ImgGetSrc()

//////////////////////////////////////////////////////////////////////////////
Text ImgGetSrc(Text imgCod)
//////////////////////////////////////////////////////////////////////////////
{ TxtBetween2Tag(ImgNormalize(imgCod), "src='", "'", TRUE) };
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna de un codigo Html de una imagen la url de la imagen.",
ImgGetSrc);
//////////////////////////////////////////////////////////////////////////////

Text ImgGetAlt()

//////////////////////////////////////////////////////////////////////////////
Text ImgGetAlt(Text imgCod)
//////////////////////////////////////////////////////////////////////////////
{ TxtBetween2Tag(ImgNormalize(imgCod), "alt='", "'", TRUE) };
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna de un codigo Html de una imagen el texto alt de la imagen.",
ImgGetAlt);
//////////////////////////////////////////////////////////////////////////////

Text ImgGetTit()

//////////////////////////////////////////////////////////////////////////////
Text ImgGetTit(Text imgCod)
//////////////////////////////////////////////////////////////////////////////
{ TxtBetween2Tag(ImgNormalize(imgCod), "title='", "'", TRUE) };
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna de un codigo Html de una imagen el texto title de la imagen.",
ImgGetTit);
//////////////////////////////////////////////////////////////////////////////

Text Img2Htm()

//////////////////////////////////////////////////////////////////////////////
Text Img2Htm(Text imgSrc, // Image path
             Text imgAlt, // Alternate text, mandatory
             Text imgTit, // Image title
             Text imgCla, // Image class
             Text imgDef) // Para cuando no hay textos
//////////////////////////////////////////////////////////////////////////////
{
  Text htmSrc =   " src="+Q(imgSrc);

  Text htmCla = " class="+Q(imgCla);

  Text htmAlt = If(imgAlt!="", " alt="+Q(imgAlt),     // Hay alt
                If(imgTit!="", " alt="+Q(imgTit),     // Sin alt pero si title
                               " alt="+Q(imgDef)));   // Sin nada

  Text htmTit = If(imgTit!="", " title="+Q(imgTit),   // Hay title
                If(imgAlt!="", " title="+Q(imgAlt),   // Sin title pero si alt
                               " title="+Q(imgDef))); // Sin nada

  Text htmImg = "\n  <img" + htmSrc + 
                "\n    "   + htmCla +
                "\n      " + htmAlt + 
                "\n    "   + htmTit + " />";

  htmImg
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna el codigo Html de una imagen con sus atributos completos rellenando
aquellos que faltan.",
Img2Htm);
//////////////////////////////////////////////////////////////////////////////

Text Img2Div()

//////////////////////////////////////////////////////////////////////////////
Text Img2Div(Text imgSrc, // Image path
             Text imgAlt, // Alternate text, mandatory
             Text imgTit, // Image title
             Text imgLnk, // Main link
             Text imgLst, // List of links
             Text imgCla, // Image class
             Text imgDef) // Para cuando no hay textos
//////////////////////////////////////////////////////////////////////////////
{
  Text htmImg = Img2Htm(imgSrc, imgAlt, imgTit, imgCla, imgDef);
  
  Text htmTxt = Case
  (
    And(imgAlt != "", imgTit == ""),             imgAlt,
    And(imgAlt == "", imgTit != ""),             imgTit,
    And(imgAlt == "", imgTit == ""),             imgDef,
        imgAlt == imgTit,                        imgAlt,
        TRUE,                        imgTit+": "+imgAlt
  )+". ";
             
  Text htmDes = "<p>"+htmTxt+imgLst+"</p>";

  "\n<div class="+Q(imgCla)+">" +
  "\n  "    + imgLnk + htmImg + "</a>" +
  "\n  "    + htmDes +
  "\n</div><div style="+Q("clear:both")+"></div>\n"
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna el codigo Html de una imagen con sus atributos completos rellenando
aquellos que faltan y todo dentro de una estructura Html div.",
Img2Div);
//////////////////////////////////////////////////////////////////////////////

Time oriented language

//////////////////////////////////////////////////////////////////////////////
// FILE    : img.tol
// AUTHOR  : http://www.asolver.com
// PURPOSE : Image functions.
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
// CONSTANTS
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Text ImgTag = "<img ";
//////////////////////////////////////////////////////////////////////////////
PutDescription("Tag inicial para imagenes.", ImgTag);
//////////////////////////////////////////////////////////////////////////////


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


//////////////////////////////////////////////////////////////////////////////
Set ImgGetSet(Text htmCod)
//////////////////////////////////////////////////////////////////////////////
{
  Text imgTxt = Compact(TxtInside2TagPlus(htmCod, ImgTag, ">"));
  If(imgTxt == "", Empty,
  {
    Text imgRep = Replace(imgTxt, "><", ">"+Char(7)+"<");
    Tokenizer(imgRep, Char(7))
  })
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna el conjunto de imagenes de una pieza de codigo Html.",
ImgGetSet);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Text ImgNormalize(Text imgCod)
//////////////////////////////////////////////////////////////////////////////
{
  Text imgCmp = Compact(imgCod);
  ReplaceTable(imgCmp,
  [[
    [["= ",     "="]],
    [[" =",     "="]],
    [[".'",     "'"]], // Elimina los puntos finales
    [[Char(34), "'"]]
  ]])
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna el codigo Html de una imagen normalizado.",
ImgNormalize);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Text ImgGetSrc(Text imgCod)
//////////////////////////////////////////////////////////////////////////////
{ TxtBetween2Tag(ImgNormalize(imgCod), "src='", "'", TRUE) };
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna de un codigo Html de una imagen la url de la imagen.",
ImgGetSrc);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Text ImgGetAlt(Text imgCod)
//////////////////////////////////////////////////////////////////////////////
{ TxtBetween2Tag(ImgNormalize(imgCod), "alt='", "'", TRUE) };
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna de un codigo Html de una imagen el texto alt de la imagen.",
ImgGetAlt);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Text ImgGetTit(Text imgCod)
//////////////////////////////////////////////////////////////////////////////
{ TxtBetween2Tag(ImgNormalize(imgCod), "title='", "'", TRUE) };
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna de un codigo Html de una imagen el texto title de la imagen.",
ImgGetTit);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Text Img2Htm(Text imgSrc, // Image path
             Text imgAlt, // Alternate text, mandatory
             Text imgTit, // Image title
             Text imgCla, // Image class
             Text imgDef) // Para cuando no hay textos
//////////////////////////////////////////////////////////////////////////////
{
  Text htmSrc =   " src="+Q(imgSrc);

  Text htmCla = " class="+Q(imgCla);

  Text htmAlt = If(imgAlt!="", " alt="+Q(imgAlt),     // Hay alt
                If(imgTit!="", " alt="+Q(imgTit),     // Sin alt pero si title
                               " alt="+Q(imgDef)));   // Sin nada

  Text htmTit = If(imgTit!="", " title="+Q(imgTit),   // Hay title
                If(imgAlt!="", " title="+Q(imgAlt),   // Sin title pero si alt
                               " title="+Q(imgDef))); // Sin nada

  Text htmImg = "\n  <img" + htmSrc + 
                "\n    "   + htmCla +
                "\n      " + htmAlt + 
                "\n    "   + htmTit + " />";

  htmImg
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna el codigo Html de una imagen con sus atributos completos rellenando
aquellos que faltan.",
Img2Htm);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Text Img2Div(Text imgSrc, // Image path
             Text imgAlt, // Alternate text, mandatory
             Text imgTit, // Image title
             Text imgLnk, // Main link
             Text imgLst, // List of links
             Text imgCla, // Image class
             Text imgDef) // Para cuando no hay textos
//////////////////////////////////////////////////////////////////////////////
{
  Text htmImg = Img2Htm(imgSrc, imgAlt, imgTit, imgCla, imgDef);
  
  Text htmTxt = Case
  (
    And(imgAlt != "", imgTit == ""),             imgAlt,
    And(imgAlt == "", imgTit != ""),             imgTit,
    And(imgAlt == "", imgTit == ""),             imgDef,
        imgAlt == imgTit,                        imgAlt,
        TRUE,                        imgTit+": "+imgAlt
  )+". ";
             
  Text htmDes = "<p>"+htmTxt+imgLst+"</p>";

  "\n<div class="+Q(imgCla)+">" +
  "\n  "    + imgLnk + htmImg + "</a>" +
  "\n  "    + htmDes +
  "\n</div><div style="+Q("clear:both")+"></div>\n"
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna el codigo Html de una imagen con sus atributos completos rellenando
aquellos que faltan y todo dentro de una estructura Html div.",
Img2Div);
//////////////////////////////////////////////////////////////////////////////

Árbol de ficheros

iForense construye las paginas del sitio sobre informática forense Forense.Info

←make.tol proceso principal de generacion del sitio web y todas su páginas
tol directorios de código en lenguaje Tol
- cmm funciones comunes
  - ←txt.tol código de funciones de textos
  - ←dte.tol código de funciones de fechas
  - ←set.tol código de funciones de conjuntos
  - ←fil.tol código de funciones de ficheros
  - ←dir.tol código de funciones de directorios
  - ←tme.tol funciones del macro-expansor doble de Tol en Html
  - ←img.tol funciones para imagenes declaradas en Html
  - ←ftp.tol para generar mandatos para hacer Ftp
  - ←xsm.tol para construir sitemaps en Xml
- app funciones específicas de aplicación
  - ←glo.tol de términos del glosario forense e informatico
  - ←pdb.tol de manejo de los posts de una agenda
  - ←pht.tol funciones auxiliares para el Html de los post
- ←inc.tol para la inclusión de ficheros en lenguaje Tol
agenda directorio destinado a la agenda de post
- ←01.presentacion.age ejemplo de los primeros posts del sitio Forense.Info
- ←20.glosario.txt glosario de ejemplo con algunos términos de informática forense
web directorio destinado a las páginas web generadas y a contenido
- css directorio para ficheros de estilo de tipo Css
  - ←common.css fichero Cascading Style Sheets para las paginas Html
- seed directorio para ficheros semilla
  - ←seed.htm semilla de página Html, template, con Tol embebido
- src directorio para ficheros con código Javascript
  - ←common.js funciones Javascript de redes sociales y multimedia
- imagenes directorio de ilustraciones del sitio web
  - ←Perito.cpb.CrackingPasswordsFuerzaBruta.png ejemplo de imagen ilustrativa de Forense.Info
  - ←Perito.pmm.MapaModulo.png ejemplo de esquema ilustrativo de Forense.Info
- articulos directorio para las páginas de artículos de informática forense
  - →peritojudicial.html ejemplo de página Html de artículo generada
- categorias directorio para paginas de categorias de informática forense
  - →presentacion.html ejemplo de página Html de categoría generada
- →sitemap.xml mapa del sitio web generado automáticamente en Xml
→resultado.html muestra del web de informática forense del dominio Forense.Info
→iforense.pdf documento resumen de funciones del programa creador del web

Secciones de la página

Funciones

Artículos del sitio

Por categorías

img.tol de iForense

Declaraciones

Constantes

Text ImgTag

Funciones

Set ImgGetSet()

Text ImgNormalize()

Text ImgGetSrc()

Text ImgGetAlt()

Text ImgGetTit()

Text Img2Htm()

Text Img2Div()

Time oriented language

Árbol de ficheros