X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgetter%2Fhttp_getter_const.ml;h=00fff4f378f815e8a2668c0d4f11b131e488dbf2;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=4e68f95d9a7a526ed061af80f529bf617377fb27;hpb=dbba2a9addd1244a9b62f61b36dfc5338fbe850f;p=helm.git diff --git a/helm/ocaml/getter/http_getter_const.ml b/helm/ocaml/getter/http_getter_const.ml index 4e68f95d9..00fff4f37 100644 --- a/helm/ocaml/getter/http_getter_const.ml +++ b/helm/ocaml/getter/http_getter_const.ml @@ -28,14 +28,17 @@ open Printf;; -let version = "0.3.0" +let version = "0.4.0" let conffile = "http_getter.conf.xml" +let xhtml_ns = "http://www.w3.org/1999/xhtml" +let helm_ns = "http://www.cs.unibo.it/helm" + (* TODO provide a better usage string *) let usage_string configuration = sprintf -" - +" + HTTP Getter's help message @@ -49,57 +52,43 @@ let usage_string configuration = Available commands:

- help
+ help
display this help message

- getxml?uri=URI[&format=(normal|gz)][&patch_dtd=(yes|no)]
-

-

- register?uri=URI&url=URL
+ getxml?uri=URI[&format=(normal|gz)][&patch_dtd=(yes|no)]

resolve?uri=URI

- getdtd?uri=URI[&patch_dtd=(yes|no)]
-

-

- getxslt?uri=URI[&patch_dtd=(yes|no)]
-

-

- list_servers
-

-

- add_server?url=URL&position=POSITION
-

-

- remove_server?position=POSITION
+ getdtd?uri=URI[&patch_dtd=(yes|no)]

- update
+ getxslt?uri=URI[&patch_dtd=(yes|no)]

- clean_cache
+ update

- getalluris?format=(txt|xml)
+ clean_cache

- getallrdfuris
+ ls?baseuri=regexp&format=(txt|xml)

- ls?baseuri=URI&format=(txt|xml)
+ getalluris?format=(txt|xml)

- getempty
+ getempty

Current configuration

%s
" - version configuration + xhtml_ns helm_ns + version configuration let empty_xml = "