déplacer les librairies dans lib/
This commit is contained in:
Jephte CLAIN
424
lib/ulib/tiddlywiki
Normal file
424
lib/ulib/tiddlywiki
Normal file
@@ -0,0 +1,424 @@
|
||||
##@cooked comments # -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8
|
||||
## Gestion de tiddlywiki
|
||||
##@cooked nocomments
|
||||
##@require base
|
||||
uprovide tiddlywiki
|
||||
urequire base
|
||||
|
||||
function twget_version() {
|
||||
# lire le numéro de version dans le fichier $1
|
||||
awk '/var[ \t]*version/ {
|
||||
match($0, /major: [0-9]*,/)
|
||||
major = substr($0, RSTART + 7, RLENGTH - 8)
|
||||
match($0, /minor: [0-9]*,/)
|
||||
minor = substr($0, RSTART + 7, RLENGTH - 8)
|
||||
match($0, /revision: [0-9]*,/)
|
||||
revision = substr($0, RSTART + 10, RLENGTH - 11)
|
||||
print major "." minor "." revision
|
||||
exit
|
||||
}' "$1"
|
||||
}
|
||||
|
||||
function twdump_header() {
|
||||
# lire et afficher le contenu avant-storeArea du tiddlywiki $1
|
||||
awk '
|
||||
BEGIN { found = 0 }
|
||||
/<div id="storeArea"/ { found = 1 }
|
||||
! found { print }
|
||||
' "$1"
|
||||
}
|
||||
|
||||
function twdump_footer() {
|
||||
# lire et afficher le contenu après-storeArea du tiddlywiki $1
|
||||
awk '
|
||||
BEGIN {
|
||||
found = 0
|
||||
}
|
||||
/<!--POST-STOREAREA-->/ { found = 1; }
|
||||
found { print }
|
||||
' "$1"
|
||||
}
|
||||
|
||||
function twdump_storeArea() {
|
||||
# lire et afficher le storeArea dans le tiddlywiki $1
|
||||
awk '
|
||||
BEGIN { found = 0 }
|
||||
/<div id="storeArea"/ { found = 1 }
|
||||
/<!--POST-STOREAREA-->/ { found = 0; next }
|
||||
found { print }
|
||||
' "$1"
|
||||
}
|
||||
|
||||
function twreplace_storeArea() {
|
||||
# dans le tiddlywiki $1, remplacer le storeArea par le fichier $2 (par défaut, lu sur stdin)
|
||||
(
|
||||
twdump_header "$1"
|
||||
if [ -z "$2" -o "$2" == "-" ]; then
|
||||
cat
|
||||
else
|
||||
cat "$2"
|
||||
fi
|
||||
twdump_footer "$1"
|
||||
) >"$1.$$"
|
||||
/bin/mv "$1.$$" "$1"
|
||||
}
|
||||
|
||||
function twupgrade() {
|
||||
# mettre à jour le tiddlywiki $1 sur la base du tiddlywiki plus récent $2
|
||||
(
|
||||
twdump_header "$2"
|
||||
twdump_storeArea "$1"
|
||||
twdump_footer "$2"
|
||||
) >"$1.$$"
|
||||
/bin/mv "$1.$$" "$1"
|
||||
}
|
||||
|
||||
TW_AWK_FUNCS='
|
||||
function twdate_tid2time(tiddate, vs, y, m, d, H, M, time) {
|
||||
if (match(tiddate, /([0-9][0-9][0-9][0-9])([0-9][0-9])([0-9][0-9])([0-9][0-9])([0-9][0-9])$/, vs)) {
|
||||
y = vs[1] + 0; m = vs[2] + 0; d = vs[3] + 0
|
||||
H = vs[4] + 0; M = vs[5] + 0
|
||||
time = mktime(sprintf("%04i %02i %02i %02i %02i 00", y, m, d, H, M))
|
||||
time = time + 4 * 60 * 60 # UTC --> GMT+4
|
||||
return time
|
||||
}
|
||||
}
|
||||
function twdate_twp2time(twpdate, vs, y, m, d, H, M, time) {
|
||||
if (match(twpdate, /([0-9]+)\/([0-9]+)\/([0-9][0-9][0-9][0-9]) ([0-9]+)[:.]([0-9]+)$/, vs)) {
|
||||
y = vs[3] + 0; m = vs[2] + 0; d = vs[1] + 0
|
||||
H = vs[4] + 0; M = vs[5] + 0
|
||||
time = mktime(sprintf("%04i %02i %02i %02i %02i 00", y, m, d, H, M))
|
||||
return time
|
||||
}
|
||||
}
|
||||
function twdate_curtwp(time, r) {
|
||||
if (!time) time = systime()
|
||||
# arrondir à la minute supérieur si nécessaire, pour éviter les problèmes de
|
||||
# mise à jour pour un fichier modifié plusieurs fois dans une même minute.
|
||||
r = time % 60
|
||||
if (r != 0) time = time + 60 - r
|
||||
return strftime("%d/%m/%Y %H:%M", time)
|
||||
}
|
||||
function twdate_tid2twp(tiddate, vs, y, m, d, H, M, time) {
|
||||
time = twdate_tid2time(tiddate)
|
||||
if (time) return strftime("%d/%m/%Y %H:%M", time);
|
||||
}
|
||||
function twdate_curtid(time) {
|
||||
if (!time) time = systime()
|
||||
time = time - 4 * 60 * 60 # GMT+4 --> UTC
|
||||
return strftime("%Y%m%d%H%M", time)
|
||||
}
|
||||
function twdate_twp2tid(twpdate, vs, y, m, d, H, M, time) {
|
||||
time = twdate_twp2time(twpdate)
|
||||
if (time) {
|
||||
time = time - 4 * 60 * 60 # GMT+4 --> UTC
|
||||
return strftime("%Y%m%d%H%M", time)
|
||||
}
|
||||
}
|
||||
'
|
||||
|
||||
function twdate_curtwp() {
|
||||
# obtenir la date courante dans le format "dd/mm/YYYY HH:MM" exprimée dans
|
||||
# l'heure locale
|
||||
# $1 est éventuellement la date exprimée en nombre de secondes depuis
|
||||
# l'epoch, exprimée dans l'heure locale
|
||||
awkrun time="$1" "$TW_AWK_FUNCS"'BEGIN { print twdate_curtwp(time); }'
|
||||
}
|
||||
|
||||
function twdate_tid2twp() {
|
||||
# Transformer $1, une date de la forme "YYYYmmddHHMM" exprimée dans le
|
||||
# timezone UTC en une chaine "dd/mm/YYYY HH:MM" exprimée dans l'heure locale
|
||||
# Si $1 n'est pas dans le bon format, ne rien afficher
|
||||
awkrun "$TW_AWK_FUNCS"'{ twdate = twdate_tid2twp($0); if (twdate) print twdate; }' <<<"$1"
|
||||
}
|
||||
|
||||
function twdate_curtid() {
|
||||
# obtenir la date courante dans le format "YYYYmmddHHMM" exprimée dans le
|
||||
# timezone UTC
|
||||
# $1 est éventuellement la date exprimée en nombre de secondes depuis
|
||||
# l'epoch, exprimée dans l'heure locale
|
||||
awkrun time="$1" "$TW_AWK_FUNCS"'BEGIN { print twdate_curtid(time); }'
|
||||
}
|
||||
|
||||
function twdate_twp2tid() {
|
||||
# Transformer $1, une date de la forme "dd/mm/YYYY HH:MM" exprimée en heure
|
||||
# locale en une chaine "YYYYmmddHHMM" exprimée dans le timezone UTC
|
||||
# Si $1 n'est pas dans le bon format, ne rien afficher
|
||||
awkrun "$TW_AWK_FUNCS"'{ tiddate = twdate_twp2tid($0); if (tiddate) print tiddate; }' <<<"$1"
|
||||
}
|
||||
|
||||
function twdump_tiddlers() {
|
||||
# dumper les tiddlers du fichier $1 généré avec twdump_storeArea() sous
|
||||
# forme d'une liste d'appel de fonction '__tiddler_data title creator
|
||||
# modifier created modified tags changecount content'
|
||||
# Les arguments de la fonction sont les valeurs brutes du tiddler, qui ont
|
||||
# simplement été corrigées avec unquote_html()
|
||||
awkrun -f "$TW_AWK_FUNCS"'
|
||||
function parse_attrs() {
|
||||
title = ""
|
||||
creator = ""
|
||||
modifier = ""
|
||||
created = ""
|
||||
modified = ""
|
||||
tags = ""
|
||||
changecount = ""
|
||||
if (match($0, /title="([^"]*)"/, vs)) title = unquote_html(vs[1])
|
||||
if (match($0, /creator="([^"]*)"/, vs)) creator = unquote_html(vs[1])
|
||||
if (match($0, /modifier="([^"]*)"/, vs)) modifier = unquote_html(vs[1])
|
||||
if (match($0, /created="([^"]*)"/, vs)) created = unquote_html(vs[1])
|
||||
if (match($0, /modified="([^"]*)"/, vs)) modified = unquote_html(vs[1])
|
||||
if (match($0, /tags="([^"]*)"/, vs)) tags = unquote_html(vs[1])
|
||||
if (match($0, /changecount="([^"]*)"/, vs)) changecount = unquote_html(vs[1])
|
||||
}
|
||||
function parse_content( found_pre, vs) {
|
||||
content = ""
|
||||
found_pre = 0
|
||||
# Parser <pre> et éventuellement </pre>
|
||||
while (getline > 0) {
|
||||
if (match($0, /<pre>(.*)<\/pre>$/, vs)) {
|
||||
content = unquote_html(vs[1])
|
||||
break
|
||||
} else if (match($0, /<pre>(.*)$/, vs)) {
|
||||
found_pre = 1
|
||||
content = unquote_html(vs[1])
|
||||
break
|
||||
}
|
||||
}
|
||||
# Puis lire jusqu"à </pre>, le cas échéant
|
||||
if (found_pre) {
|
||||
found_pre = 0
|
||||
while (getline > 0) {
|
||||
if (match($0, /^(.*)<\/pre>/, vs)) {
|
||||
found_pre = 1
|
||||
content = content "\n" unquote_html(vs[1])
|
||||
break
|
||||
} else {
|
||||
content = content "\n" unquote_html($0)
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
function dump_tiddler() {
|
||||
print "__tiddler_data " quote_value(title) " " quote_value(creator) " " quote_value(modifier) " " quote_value(created) " " quote_value(modified) " " quote_value(tags) " " quote_value(changecount) " " quote_value(content)
|
||||
}
|
||||
BEGIN { parse = 0 }
|
||||
!parse && /<div id="storeArea"/ { parse = 1; next; }
|
||||
parse && $0 ~ /<div / {
|
||||
parse_attrs()
|
||||
parse_content()
|
||||
dump_tiddler()
|
||||
}
|
||||
' <"$1"
|
||||
}
|
||||
|
||||
function twdump_twpage() {
|
||||
# Dumper le contenu de la twpage $1 sous forme d'un appel à une function
|
||||
# '__twpage_data title creator modifier created modified tags changecount
|
||||
# content'
|
||||
# Les arguments de la fonction sont les valeurs brutes de la twpage, sauf
|
||||
# que le champ modified contient toujours la date de dernière modification
|
||||
# du fichier.
|
||||
local modifiedtime="$(stat -L -c %Y "$1")"
|
||||
awkrun -f user="$USER" modifiedtime="$modifiedtime" "$TW_AWK_FUNCS"'
|
||||
function parse_attr(line) {
|
||||
if (match(line, /^##@([^:]+): (.*)$/, vs)) {
|
||||
if (vs[1] == "title") title = vs[2]
|
||||
else if (vs[1] == "creator") creator = vs[2]
|
||||
else if (vs[1] == "modifier") modifier = vs[2]
|
||||
else if (vs[1] == "created") created = vs[2]
|
||||
else if (vs[1] == "modified") modified = vs[2]
|
||||
else if (vs[1] == "tags") tags = vs[2]
|
||||
else if (vs[1] == "changecount") changecount = vs[2]
|
||||
if (!creator) creator = user
|
||||
if (!modifier) modifier = user
|
||||
if (!created) created = twdate_curtwp()
|
||||
modified = twdate_curtwp(modifiedtime)
|
||||
}
|
||||
}
|
||||
{
|
||||
title = ""
|
||||
creator = ""
|
||||
modifier = ""
|
||||
created = ""
|
||||
modified = ""
|
||||
tags = ""
|
||||
changecount = ""
|
||||
content = ""
|
||||
eof = 0
|
||||
while ($0 ~ /^#/) {
|
||||
parse_attr($0)
|
||||
if (getline <= 0) {
|
||||
eof = 1
|
||||
break
|
||||
}
|
||||
}
|
||||
if (!eof) { while (getline > 0) {
|
||||
content = content "\n" $0
|
||||
}}
|
||||
gsub(/^[ \t\n]*/, "", content);
|
||||
gsub(/[ \t\n]*$/, "", content);
|
||||
|
||||
print "__twpage_data " quote_value(title) " " quote_value(creator) " " quote_value(modifier) " " quote_value(created) " " quote_value(modified) " " quote_value(tags) " " quote_value(changecount) " " quote_value(content)
|
||||
}' <"$1"
|
||||
}
|
||||
|
||||
function twwrite_tiddler() {
|
||||
# Ecrire sur STDOUT le tiddler correspondant aux paramètres sont spécifiés
|
||||
# sur la ligne de commande. Les arguments sont les valeurs brutes prises de
|
||||
# la twpage, telles qu'elles sont générées par twdump_twpage()
|
||||
awkrun -f title="$1" creator="$2" modifier="$3" created="$4" modified="$5" tags="$6" changecount="$7" content="$8" "$TW_AWK_FUNCS"'BEGIN {
|
||||
title = quote_html(title)
|
||||
creator = quote_html(creator)
|
||||
modifier = quote_html(modifier)
|
||||
created = quote_html(twdate_twp2tid(created))
|
||||
modified = quote_html(twdate_twp2tid(modified))
|
||||
tags = quote_html(tags)
|
||||
changecount = quote_html(changecount)
|
||||
content = quote_html(content)
|
||||
|
||||
print "<div title=\"" title "\" creator=\"" creator "\" modifier=\"" modifier "\" created=\"" created "\" modified=\"" modified "\" tags=\"" tags "\" changecount=\"" changecount "\">"
|
||||
print "<pre>" content "</pre>"
|
||||
print "</div>"
|
||||
}'
|
||||
}
|
||||
|
||||
function twcheck_twpage_modified() {
|
||||
# Vérifier si la twpage $1 peut être écrasée par un tiddler dont la date de
|
||||
# modification est $2, de format "YYYYmmddHHMM" exprimée dans le timezone
|
||||
# UTC
|
||||
# C'est le cas si le fichier $1 n'existe pas, ou a une date de modification
|
||||
# antérieure à $2
|
||||
[ -f "$1" ] || return 0
|
||||
local twpage="$1" othermodified="$2"
|
||||
(
|
||||
function __twpage_data() { thismodified="$(twdate_twp2tid "$5")"; }
|
||||
eval "$(twdump_twpage "$twpage")"
|
||||
[ "$thismodified" -le "$othermodified" ]
|
||||
)
|
||||
}
|
||||
|
||||
function twcheck_twpage_newtwpage() {
|
||||
# Vérifier si la twpage $1 peut être écrasée par la twpage $2
|
||||
# C'est le cas si le fichier $1 n'existe pas, ou a une date de modification
|
||||
# antérieure à $2
|
||||
[ -f "$1" ] || return 0
|
||||
local twpage="$1" othertwpage="$2"
|
||||
(
|
||||
function __twpage_data() { thismodified="$(twdate_twp2tid "$5")"; }
|
||||
eval "$(twdump_twpage "$twpage")"
|
||||
function __twpage_data() { othermodified="$(twdate_twp2tid "$5")"; }
|
||||
eval "$(twdump_twpage "$othertwpage")"
|
||||
[ "$thismodified" -le "$othermodified" ]
|
||||
)
|
||||
}
|
||||
|
||||
TW_VERBOSE=1
|
||||
function twwrite_twpage() {
|
||||
# Ecrire dans le répertoire courant le fichier correspondant au tiddler dont
|
||||
# les paramètres sont spécifiés sur la ligne de commande. Les arguments sont
|
||||
# les valeurs brutes prises du tiddler, telles qu'elles sont générées par
|
||||
# twdump_tiddlers()
|
||||
# Retourner 0 si le fichier a été écrasé, 1 s'il n'a pas été écrasé parce
|
||||
# qu'il n'a pas été modifié, 2 s'il n'a pas été écrasé parce qu'il est plus
|
||||
# récent.
|
||||
# Si TW_VERBOSE=1, afficher un message informatif lors de l'export
|
||||
local title="$1" creator="$2" modifier="$3" created="$4" modified="$5" tags="$6" changecount="$7" content="$8"
|
||||
|
||||
# enlever les caractères problématiques dans le titre pour générer le nom de
|
||||
# fichier
|
||||
local twpage="$title.twp"
|
||||
twpage="${twpage//\//_}"
|
||||
twpage="${twpage//:/_}"
|
||||
|
||||
local tmppage
|
||||
ac_set_tmpfile tmppage
|
||||
echo "# -*- coding: utf-8 mode: markdown -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8
|
||||
# Pense-bête:
|
||||
# ''bold'' ==striked== __underline__ //italic// ^^super^^ ~~sub~~
|
||||
# @@highlight@@ @@color:red;background-color:white; rouge sur noir@@
|
||||
# ~NotAWikiWord [[force wikiword]] [[friendly name|WikiWord]]
|
||||
# [[external|http://site.com]] ---- {{monospace}}
|
||||
# !h1 !!h2 !!!h3 !!!!h4 !!!!!h5
|
||||
# * dotlist ** sublist # numlist ## sublist
|
||||
# {{{ |caption|c [img[title|filename]]
|
||||
# pre text |!header|!header|h [img[filename]]
|
||||
# }}} |cell|cell| [img[title|filename][link]]
|
||||
# <<< |>|colspan| [img[filename][link]]
|
||||
# blockquote |rowspan|one| [<img[filename]]
|
||||
# <<< |~|two| [>img[filename]]
|
||||
# >quote1 |left| right|
|
||||
# >>quote2 |>| center |
|
||||
# >>>quote3
|
||||
##@creator: $creator
|
||||
##@created: $(twdate_tid2twp "$created")
|
||||
##@modifier: $modifier
|
||||
##@changecount: $changecount
|
||||
##@tags: $tags
|
||||
##@title: $title
|
||||
|
||||
$content" >"$tmppage"
|
||||
|
||||
local status
|
||||
if [ ! -f "$twpage" ] || testdiff "$tmppage" "$twpage"; then
|
||||
if twcheck_twpage_modified "$twpage" "$modified"; then
|
||||
if [ -n "$TW_VERBOSE" ]; then
|
||||
if [ -f "$twpage" ]; then
|
||||
estepw "$twpage: fichier écrasé, parce qu'il est plus ancien"
|
||||
else
|
||||
estepi "$title: export"
|
||||
fi
|
||||
fi
|
||||
cat "$tmppage" >"$twpage"
|
||||
status=0
|
||||
else
|
||||
if [ -n "$TW_VERBOSE" ]; then
|
||||
estepw "$twpage: fichier non écrasé car il est plus récent (utiliser -u)"
|
||||
fi
|
||||
status=2
|
||||
fi
|
||||
else
|
||||
status=1
|
||||
fi
|
||||
ac_clean "$tmppage"
|
||||
return $status
|
||||
}
|
||||
|
||||
function export_to_twpages() {
|
||||
# Exporter tous les tiddlers du tiddlywiki $1 dans le répertoire $2
|
||||
local wikifile="${1:-wiki.html}" wikidir="${2:-.}"
|
||||
local storeArea
|
||||
ac_set_tmpfile storeArea
|
||||
twdump_storeArea "$wikifile" >"$storeArea"
|
||||
|
||||
function __tiddler_data() { twwrite_twpage "$@"; }
|
||||
local CWD="$(pwd)"
|
||||
cd "$wikidir"
|
||||
eval "$(twdump_tiddlers "$storeArea")"
|
||||
cd "$CWD"
|
||||
ac_clean "$storeArea"
|
||||
}
|
||||
|
||||
function import_from_twpages() {
|
||||
# Remplacer les tiddlers du tiddlywiki $1 par les twpages du répertoire $2
|
||||
local wikifile="${1:-wiki.html}" wikidir="${2:-.}"
|
||||
|
||||
local storeArea
|
||||
ac_set_tmpfile storeArea
|
||||
echo "<div id=\"storeArea\">" >"$storeArea"
|
||||
|
||||
function __twpage_data() {
|
||||
twwrite_tiddler "$@" >>"$storeArea"
|
||||
}
|
||||
local -a twpages
|
||||
local twpage
|
||||
array_from_lines twpages "$(list_files "$wikidir" "*.twp" | csort)"
|
||||
for twpage in "${twpages[@]}"; do
|
||||
[ -n "$TW_VERBOSE" ] && estep "$twpage"
|
||||
eval "$(twdump_twpage "$wikidir/$twpage")"
|
||||
done
|
||||
|
||||
echo "</div>" >>"$storeArea"
|
||||
twreplace_storeArea "$wikifile" "$storeArea"
|
||||
|
||||
ac_clean "$storeArea"
|
||||
}
|
||||
Reference in New Issue
Block a user