git.annexia.org
/
cocanwiki.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Allow <s>, <strike>, <big>, <small> and <tt>.
[cocanwiki.git]
/
scripts
/
cocanwiki.ml
diff --git
a/scripts/cocanwiki.ml
b/scripts/cocanwiki.ml
index
981379f
..
5664582
100644
(file)
--- a/
scripts/cocanwiki.ml
+++ b/
scripts/cocanwiki.ml
@@
-1,7
+1,7
@@
(* COCANWIKI - a wiki written in Objective CAML.
* Written by Richard W.M. Jones <rich@merjis.com>.
* Copyright (C) 2004 Merjis Ltd.
(* COCANWIKI - a wiki written in Objective CAML.
* Written by Richard W.M. Jones <rich@merjis.com>.
* Copyright (C) 2004 Merjis Ltd.
- * $Id: cocanwiki.ml,v 1.1
4 2004/10/04 15:19:56
rich Exp $
+ * $Id: cocanwiki.ml,v 1.1
5 2004/10/07 16:54:24
rich Exp $
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@
-218,3
+218,7
@@
let linkname_of_sectionname str =
if not (isalnum str.[i]) then str.[i] <- '_'
done;
str
if not (isalnum str.[i]) then str.[i] <- '_'
done;
str
+
+(* List of extensions currently registered. *)
+type extension_t = Dbi.connection -> int -> string -> string
+let extensions = ref ([] : (string * extension_t) list)