modif de corpus.xqm pour qu'il créé un fichier en sortie

c6738751 · VAN-KOTE ELSA · b5283b9c · c6738751 · b5283b9c
Commit c6738751 authored 11 months ago by VAN-KOTE ELSA
--- a/cisame/corpus.xqm
+++ b/cisame/corpus.xqm
@@ -7,4 +7,10 @@ declare function local:create_body(){
    return $body};

 let $corpus := local:create_body()
-return <TEI xmlns="http://www.tei-c.org/ns/1.0"><teiHeader><fileDesc><titleStmt><title>Ysagoge_in_theologiam_corpus</title></titleStmt></fileDesc></teiHeader><text><front/><body>{$corpus}</body></text></TEI>
\ No newline at end of file
+let $file := <TEI xmlns="http://www.tei-c.org/ns/1.0"><teiHeader><fileDesc><titleStmt><title>Ysagoge_in_theologiam_corpus</title></titleStmt></fileDesc></teiHeader><text><front/><body>{$corpus}</body></text></TEI>
+
+return
+
+file:write(
+  '//home/evk/Documents/Estrades/experimentation/cisame/output_max/corpus_test.xml',
+  $file)
--- a/cisame/corpus_test.xml
+++ b/cisame/corpus_test.xml