--- /dev/null
+/*
+
+ cduce --compile tiki_of_html.cd
+ cduce --run tiki_of_html.cdo --arg http://digicosme.lri.fr/innovation.html
+
+*/
+
+
+let tiki_of_html (h : [ Any* ]) : [Byte*] =
+/* Applique le pattern a chaque element de la liste.
+ l'expression de droite doit etre une liste, et le tout
+ est reconcaténé:
+ Équivalent de List.concat (List.map f l) où f est la transformation
+ faite par le pattern
+ */
+ transform h with
+
+ /* on ignore le header */
+ <head ..>_ -> []
+
+ /* Le gras */
+ | <b ..>(l&[Any*]) -> "__" @ tiki_of_html l @ "__"
+
+ /* Les liens */
+ | <a href=(url & Latin1) ..>(l&[Any*]) ->
+ "[" @ url @ "|" @ tiki_of_html l @ "]"
+
+ /* Les listes non */
+ | <((`ul|`ol)&tag) ..>(l&[Any*]) ->
+ let sym = if tag = `ol then "# " else "* " in
+ let res =
+ transform "\n" @ l with
+ <li ..>(l&[Any*]) -> sym @ tiki_of_html l @"\n"
+ | x -> tiki_of_html [ x ]
+ in
+ res
+
+ /* Un tag qu'on ne connait pas, on se rapplique récursivement */
+ | <_ ..>(l&[Any*]) -> " "@tiki_of_html l@" "
+
+ /* Un charactère, on le copie dans la sortie */
+ | Byte & c -> [ c ]
+ /* Autre chose ? on l'ignore */
+ | _ -> []
+;;
+
+
+
+let [] =
+ match argv [] with
+ [ (url & Latin1) ] ->
+ print (tiki_of_html (load_html url))
+
+
+ | _ -> print "Nombre d'arguments invalides\n"; exit 1
projects / hacks / tiki_of_html.git / commitdiff