Différences

Ci-dessous, les différences entre deux révisions de la page.

--- td_histoire_numerique:exercice_3 [2015/11/25 08:27] – [Requêtes SQL / XPath] fberetta
+++ td_histoire_numerique:exercice_3 [2016/01/04 22:04] (Version actuelle) – fberetta
@@ Ligne 1: / Ligne 1: @@
-Revenir à la [[td_histoire_numerique:accueil|page d'accueil]].
+Revenir à la [[td_histoire_numerique:accueil#troisieme_exercice|page d'accueil]].
@@ Ligne 51: / Ligne 51: @@
 ===== Production des données =====
+Pour des exemples de production de données, voir les exercices 4 et 5.
 \\
-==== Transformation des textes encodés en XML ====
+===== Transformation des textes encodés en XML =====
-  * Créer dans la base de données un objet digital qui correspond au texte qu'on est en train d'encoder.
+  * Créer dans la base de données un objet de type "objet digital" qui correspond au texte qu'on est en train d'encoder.
-  * Lui donner un nom et ajouter un descriptif du texte encodé
+  * Lui donner un nom et ajouter un descriptif du texte encodé. On peut aussi décrire l'état d'avancement du codage.
   * Copier le texte encodé en entier et le coller dans le champs 'texte' de l'objet en question
   * Sauvegarder
@@ Ligne 67: / Ligne 67: @@
   * Sinon, apparaît un message d'erreur qui indique, dans les premières lignes du message, l'élément qui pose problème et qu'il faudra corriger dans le texte encodé d'origine.
   * La suite du message contient la suite des erreurs provoquées par cette première erreur: celle-ci corrigée, tout rentre dans l'ordre
+  * Si plusieurs erreurs se présentent, il faudra les corriger l'une après l'autre jusqu'à l'obtention du message: "Effectué".
 ===== Requêtes SQL / XPath =====
@@ Ligne 92: / Ligne 93: @@
   * le résultat apparaîtra immédiatement dans votre navigateur web
-Provisoire:
+Un exemple de requête:
 <code sql>
-SELECT ???
+WITH tw1 AS
-FROM ???
+(
+  SELECT UNNEST(xpath ('//in',texte_xml)) texte_xml
+  FROM objets.objet
+  WHERE pk_objet = 3
+)
+SELECT tw1.texte_xml,
+       (((xpath ('/in/@ana',tw1.texte_xml))[1])::text)::integer cle_type_information,
+       t1.nom type_information,
+       ((xpath('/in/dat/@when',tw1.texte_xml))[1])::text date,
+       ((xpath('/in/en/@ref',tw1.texte_xml))[1])::text acteur,
+       t2.nom nom_acteur
+FROM tw1
+  JOIN vues.vm_objet_vue_de_base t1 ON t1.pk_objet = ( ( (xpath ('/in/@ana',tw1.texte_xml))[1])::text)::integer
+  LEFT JOIN vues.vm_objet_vue_de_base t2 ON t2.pk_objet = ( ((xpath('/in/en/@ref',tw1.texte_xml))[1])::text)::integer
 </code>
+Pour des exemples d'application, voir les **[[td_histoire_numerique:accueil&#quatrieme_exercice|exercices 4 et 5]]**.
+\\
+====== Documentation ======
+===== Code SQL =====
+Dans cette section on trouvera le code des principales fonctions SQL/PLpgSQL utilisées dans la base de données.
+==== Fonction vues.transformation_xml(integer) ====
+Cette fonction transforme le texte codé avec le système des accolades en un document XML. En argument de la fonction, il faut mettre l'identifiant (la clé primaire) de la ligne dans laquelle se trouve le texte à transformer. Le texte à transformer est stocké dans le champs "texte" et sera retranscrit et enregistré automatiquement par la fonction dans le champs "texte_xml".
+En cas d'incohérence du codage au niveau des accolades dans le texte de départ, un message d'erreur est produit par le serveur PostgreSQL qui perment en régle général, en cherchant le texte en question, de retrouver les passages du texte de départ qui posent problème.
+<code sql>
+-- Function: vues.transformation_xml(integer)
+-- DROP FUNCTION vues.transformation_xml(integer);
+CREATE OR REPLACE FUNCTION vues.transformation_xml(integer)
+  RETURNS character varying AS
+$BODY$
+WITH tw0 AS
+(
+  -- transforme les entités XML
+  SELECT REPLACE(REPLACE(REPLACE(texte,'&','&amp;'),'<','&lt;'),'>','&gt;') txt
+  FROM objets.objet
+  WHERE pk_objet = $1
+),
+tw1 AS
+(
+  -- transforme les accolades en chevrons
+  SELECT REPLACE(REPLACE(REPLACE(txt,'{/','</'),'{','<'),'}','>') txt
+  FROM tw0
+),
+tw2 AS
+(
+  -- traite le cas de balises à deux caractères qui contiennent le type après l'id de l'objet: ajoute l'attribut "type"
+  SELECT REGEXP_REPLACE(txt,'(<\w{2})([\d\|]+)([a-z]{2})(_?)([\d|\|]*)(>)','\1\2\4\5 type="\3"\6','g') AS txt
+  FROM tw1
+),
+tw3 AS
+(
+  -- traite le cas de balises à deux caractères suivies d'un 0: élimine l'attribut "ref" tout en gardant l'attribut @type
+  SELECT REGEXP_REPLACE(txt,'(<\w{2})(0)(_?)([\d|\|]*)([\s"=\w]*)(>)','\1\3\4\5\6','g') AS txt
+  FROM tw2
+),
+tw4 AS
+(
+  -- traite le cas de balises à deux caractères suivies ou non d'un id possédant un '_': ajoute l'attribut @ana
+  SELECT REGEXP_REPLACE(txt,'(<\w{2})([\d|\|]*)(_)([\d\|]*)([\s"=\w]*)(>)','\1\2\5 ana="\4"\6','g') AS txt
+  FROM tw3
+),
+tw5 AS
+(
+  -- traite le cas de balises à deux caractères suivies d'un id : ajoute l'attribut @ref
+  SELECT REGEXP_REPLACE(txt,'(<\w{2})([\d\|]+)([\s"=\w|]*)(>)','\1 ref="\2" \3\4','g') AS txt
+  FROM tw4
+),
+tw6 AS
+(
+  -- traite le cas de balises seg et eud possédant un '_': ajoute l'attribut @ana
+  SELECT REGEXP_REPLACE(txt,'(<)(seg|eud)(_)([\d|\|]*)(>)','\1\2 ana="\4"\5','g') AS txt
+  FROM tw5
+),
+tw7 AS
+(
+  -- traite le cas des dates avec un paramètre d'incertitude en ajoutant l'attribut @cert
+  SELECT REGEXP_REPLACE(txt,'(<)(dat)([0-9]+)(r|p)(_?)([a-z]{2})(>)','\1\2\3\5\6 cert="\4"\7','g') AS txt
+  FROM tw6
+),
+tw8 AS
+(
+  -- traite le cas des dates avec un type en ajoutant l'attribut @type
+  SELECT REGEXP_REPLACE(txt,'(<)(dat)([0-9]+)(_)([a-z]{2})','\1\2\3 type="\5"','g') AS txt
+  FROM tw7
+),
+tw9 AS
+(
+  -- traite le cas des dates en ajoutant l'attribut @when
+  SELECT REGEXP_REPLACE(txt,'(<)(dat)([0-9]+)','\1\2 when="\3"','g') AS txt
+  FROM tw8
+)
+ UPDATE objets.objet
+   SET texte_xml = (concat('<root>',REGEXP_REPLACE(txt, '\|', ' ' , 'g'),'</root>'))::xml
+FROM tw9
+WHERE pk_objet = $1;
+SELECT 'Effectué'::varchar AS resultat;
+$BODY$
+  LANGUAGE sql VOLATILE
+  COST 100;
+ALTER FUNCTION vues.transformation_xml(integer)
+  OWNER TO postgres;
+</code>