diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-02 13:23:07 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-02 13:23:07 -0400 |
| commit | 3417bfbe670bd15796dd0fa8ca97209acfedfffb (patch) | |
| tree | ff50f45f052221ffeee46c29630832c2d29d9161 /src/settings.sig | |
| parent | 471d5a79a82a673ca46d3a4e711f54ae1409c0f3 (diff) | |
Path rewriting
Diffstat (limited to 'src/settings.sig')
| -rw-r--r-- | src/settings.sig | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/settings.sig b/src/settings.sig index 514fb0ee..e5dd20d8 100644 --- a/src/settings.sig +++ b/src/settings.sig @@ -65,4 +65,15 @@ signature SETTINGS = sig val setJsFuncs : (ffi * string) list -> unit val jsFunc : ffi -> string option + datatype pattern_kind = Exact | Prefix + datatype action = Allow | Deny + type rule = { action : action, kind : pattern_kind, pattern : string } + + datatype path_kind = Any | Url | Table | Sequence | View | Relation | Cookie | Style + type rewrite = { pkind : path_kind, kind : pattern_kind, from : string, to : string } + + (* Rules for rewriting URLs from canonical forms *) + val setRewriteRules : rewrite list -> unit + val rewrite : path_kind -> string -> string + end |