.
"1" log:outputString """
W3C Schedule of Working Group Deliverables
W3C
W3C Schedule of Working Group Deliverables
DRAFT in progress, Apr 2001
@@generated by code by DanC based on data from /Member/Mail, /TR/, etc. see Makefile for details.
Note: publications older than 18 months are elided.
Note: WG start dates are not shown.
| |
2001 |
2002 |
2003 |
| Group | | Title |
01 |
02 |
03 |
04 |
05 |
06 |
07 |
08 |
09 |
10 |
11 |
12 |
01 |
02 |
03 |
04 |
05 |
06 |
07 |
08 |
09 |
10 |
11 |
12 |
01 |
02 |
03 |
04 |
05 |
06 |
07 |
08 |
09 |
10 |
11 |
12 |
|---|
""".
"z" log:outputString """
""".
@prefix : .
this log:forAll
:pgAddr, :pg, :work, :tr, :docT, :stat,
:mbox, :gN, :when, :yyyy, :mm, :grp,
:k, :k2, :txt, :span, :cellClass,
:s, :p, :o,
:x, :y, :z.
# colors moved to wg-sched-style.css
tr:NOTE a :Status; :label "N".
tr:WD a :Status; :label "WD".
tr:CR a :Status; :label "CR".
tr:PR a :Status; :label "PR".
tr:REC a :Status; :label "REC".
{
log:semantics [ log:includes {
:grp a org:WorkingGroup; org:name :gN;
con:mailbox :mbox;
con:homePageAddress :pgAddr
.
}
].
:pg log:uri :pgAddr.
log:semantics [ log:includes {
:pg is con:homePage of [
org:charter :work ].
:work doc:expires :when.
} ].
(:when "(\\d\\d\\d\\d)-") str:scrape :yyyy.
(:when "\\d\\d\\d\\d-(\\d\\d)") str:scrape :mm.
:span is math:sum of (
[ is math:product of ([ is math:difference of (:yyyy "2001") ] "12")]
:mm).
:mbox log:uri :x.
(:x "mailto:([^@]+)@w3.org") str:scrape :y.
("1." :when :y) str:concatenation :k.
("| " :gN " | "
" | " # skip past TR title stuff
"charter thru "
:when " | "
"
\n")
str:concatenation :txt.
}
log:implies {
:k log:outputString :txt.
:grp a org:WorkingGroup; org:name :gN;
con:mailbox :mbox;
con:homePage :pg;
:_reportKey :k.
}.
# published TRs
{
:grp con:mailbox :mbox; :_reportKey :k.
log:semantics [ log:includes {
[ con:mailbox :mbox;
org:deliverable :work
]
} ].
:stat a :Status.
log:semantics [ log:includes {
:tr a :stat; doc:versionOf :work; dc:date :when; dc:title :docT.
}].
(:k :when) str:concatenation :k2.
(:when "(\\d\\d\\d\\d)-") str:scrape :yyyy.
(:when "\\d\\d\\d\\d-(\\d\\d)") str:scrape :mm.
:span is math:sum of (
[ is math:product of ([ is math:difference of (:yyyy "2001") ] "12")]
:mm
"-1").
("| | "
"" :docT " | "
" | "
""
""
[ is :label of :stat ] " | " :when " | "
"
\n")
str:concatenation :txt.
}
log:implies {
:k2 log:outputString :txt.
}.
# scheduled TRs
@prefix apr: .
{
:grp con:mailbox :mbox; :_reportKey :k.
log:semantics [ log:includes {
[ con:mailbox :mbox;
org:deliverable :work
]
} ].
:stat a :Status.
log:semantics [ log:includes {
:tr a :stat; doc:versionOf :work; apr:schedDate :when.
}].
log:semantics [ log:includes {
[ doc:versionOf :work; dc:title :docT].
}].
(:k :when "sched") str:concatenation :k2.
(:when "(\\d\\d\\d\\d)-") str:scrape :yyyy.
(:when "\\d\\d\\d\\d-(\\d\\d)") str:scrape :mm.
:span is math:sum of (
[ is math:product of ([ is math:difference of (:yyyy "2001") ] "12")]
:mm
"-1").
( "sched" [ is :label of :stat ]) str:concatenation :cellClass.
("| | "
"" :docT " | "
" | "
""
""
[ is :label of :stat ] " | " :when " | "
"
\n")
str:concatenation :txt.
}
log:implies {
:k2 log:outputString :txt.
}.