[Pkg-ocaml-maint-commits] r6293 - in /trunk/tools/ocaml_transition_monitor: ocaml-status.css ocaml_transition_monitor.css ocaml_transition_monitor.mll
glondu-guest at users.alioth.debian.org
glondu-guest at users.alioth.debian.org
Sat Feb 28 23:05:26 UTC 2009
Author: glondu-guest
Date: Sat Feb 28 23:05:26 2009
New Revision: 6293
URL: http://svn.debian.org/wsvn/?sc=1&rev=6293
Log:
Rename ocaml-status.css to ocaml_transition_monitor.css (+cosmetic)
Added:
trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.css (props changed)
- copied unchanged from r6292, trunk/tools/ocaml_transition_monitor/ocaml-status.css
Removed:
trunk/tools/ocaml_transition_monitor/ocaml-status.css
Modified:
trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll
Propchange: trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.css
------------------------------------------------------------------------------
svn:mergeinfo =
Modified: trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll
URL: http://svn.debian.org/wsvn/trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll?rev=6293&op=diff
==============================================================================
--- trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll (original)
+++ trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll Sat Feb 28 23:05:26 2009
@@ -15,6 +15,11 @@
let mirror = "http://ftp.fr.debian.org/debian"
let suite = "unstable"
let section = "main"
+
+ (** Basename of all files handled by this script *)
+ let basename = "ocaml_transition_monitor"
+
+ let src_webbrowse_url = "http://svn.debian.org/wsvn/pkg-ocaml-maint/trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll?op=file&rev=0&sc=0"
let architectures =
[ "alpha"; "amd64"; "armel"; "hppa"; "i386"; "ia64"; "mips"; "mipsel"; "powerpc"; "s390"; "sparc" ]
@@ -300,14 +305,14 @@
let main () =
let (sources_map, binaries) =
+ let cache = basename^".cache" in
if !use_cache then begin
progress "Loading cache...%!";
- let r = with_in_file "ocaml_transition_monitor.cache" Marshal.from_channel in
+ let r = with_in_file cache Marshal.from_channel in
progress "\n%!"; r
end else begin
let x = (get_sources (), List.map get_binaries architectures) in
- with_out_file "ocaml_transition_monitor.cache"
- (fun chan -> Marshal.to_channel chan x []);
+ with_out_file cache (fun chan -> Marshal.to_channel chan x []);
x
end
in
@@ -327,18 +332,18 @@
let format_section_body section = List.map
(fun (pkg, status) -> tr
(td ~a:[a_class [(class_of_status (source_status status))^" src"]; a_id pkg]
- [a ~a:[a_href (uri_of_string ("http://packages.qa.debian.org/"^pkg))] [pcdata pkg];
- small [pcdata " [ ";
- a ~a:[a_href (uri_of_string ("http://buildd.debian.org/~luk/status/package.php?p="^pkg))]
- [pcdata "buildd"];
+ [a_link ("http://packages.qa.debian.org/"^pkg) pkg;
+ small [pcdata " [ ";
+ a_link ("http://buildd.debian.org/~luk/status/package.php?p="^pkg) "buildd";
pcdata " ] "
];
- small [
- pcdata " ( ";
- a ~a:[a_href (uri_of_string ("http://packages.debian.org/changelogs/pool/main/"^(String.sub pkg 0 1)^"/"^pkg^"/current/changelog"))]
- [pcdata (sprintf "%s" ((M.find pkg sources_map).sversion))];
- pcdata " ) ";
- ];
+ small [
+ pcdata " ( ";
+ a_link
+ (sprintf "http://packages.debian.org/changelogs/pool/main/%c/%s/current/changelog" pkg.[0] pkg)
+ (M.find pkg sources_map).sversion;
+ pcdata " ) ";
+ ];
])
(List.map (fun x ->
let x = class_of_status x and xx = string_of_status x
@@ -365,11 +370,9 @@
pcdata "Contact: ";
a_link "mailto:steph at glondu.net" "Stéphane Glondu";
pcdata "; the code that generates this page ";
- a_link
- "http://svn.debian.org/wsvn/pkg-ocaml-maint/trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll?op=file&rev=0&sc=0"
- "is available";
+ a_link src_webbrowse_url "is available";
pcdata "."; br ();
- pcdata "This page has been type-check by OCaml using ";
+ pcdata "This page has been type-checked by OCaml using ";
a_link "http://ocsigen.org/docu/1.1.0/XHTML.M.html" "XHTML.M";
pcdata " and should be ";
a_link "http://validator.w3.org/check?uri=referer" "XHTML Valid";
@@ -380,9 +383,9 @@
]] in
let html = html ~a:[a_xmlns `W3_org_1999_xhtml]
(head (title (pcdata page_title))
- [link ~a:[a_rel [`Stylesheet]; a_href (uri_of_string "ocaml-status.css")] ();
+ [link ~a:[a_rel [`Stylesheet]; a_href (uri_of_string (basename^".css"))] ();
script ~contenttype:"text/javascript" ~a:[a_src (uri_of_string "http://code.jquery.com/jquery-latest.js")] (pcdata "");
- script ~contenttype:"text/javascript" ~a:[a_src (uri_of_string "ocaml_transition_monitor.js")] (pcdata "");
+ script ~contenttype:"text/javascript" ~a:[a_src (uri_of_string (basename^".js"))] (pcdata "");
meta ~content:"text/html;charset=utf-8" ~a:[a_http_equiv "Content-Type"] ();
])
(body [h1 [pcdata page_title];
@@ -408,7 +411,7 @@
div ~a:[a_class ["status"]] [summary];
div ~a:[a_class ["footer"]] footer])
in
- with_out_file "ocaml_transition_monitor.html"
+ with_out_file (basename^".html")
(fun chan -> pretty_print (fun s -> fprintf chan "%s%!" s) html)
let _ =
More information about the Pkg-ocaml-maint-commits
mailing list