1 arch <- c("alpha", "amd64", "arm", "armel", "hppa", "i386", "ia64", "mips",
2 "mipsel", "powerpc", "s390", "sparc")
3 palette(c("black", "turquoise", "red", "OrangeRed", "green3", "cyan", "magenta",
4 "violetred2","thistle4", "steelblue2", "springgreen4",
7 readdata <- function (file,start) {
8 t <- read.table(file,row.names=1,header=FALSE,
9 sep=",",col.names=c("date","alpha","at","hppa","ht","hurd-i386",
10 "hit","i386","it","ia64","i6t","m68k","mt","mips","mit","mipsel","mipt",
11 "powerpc","pt","s390","st","amd64","amdt","sparc","spt","armel","aret"))
12 ts(as.matrix(data.frame(t[1]/t[2]*100,t[23]/t[24]*100,
13 t[27]/t[28]*100,t[5]/t[6]*100,t[9]/t[10]*100,t[11]/t[12]*100,
14 t[15]/t[16]*100,t[17]/t[18]*100,t[19]/t[20]*100,
15 t[21]/t[22]*100,t[25]/t[26]*100)),c(2001,start),frequency=365.25)
18 plotwb <- function (file,title,p,linept=85,height=7.5,width=10,pch=1:14) {
19 bitmap(file=file,type="png16m",width=width,height=height,res=64)
20 layout(matrix(c(1,1,2,2),2,2),widths=c(0.85,0.15))
21 par(mar=c(5,4,4,2)+0.1)
23 plot(p,type="o",plot.type="single",col=1:14,pch=pch,xlab="date",
24 ylab="percentage of packages",main=title,cex=2)
25 abline(h=90,lty=2,col=3)
26 abline(h=linept,lty=2,col=3)
30 legend(-1.2,1, arch, col=1:14, pch=pch, lwd=2, bg='gray90', cex=1.5)
32 v <- readdata("/org/wanna-build/etc/graph-data",164)
33 plotwb("/org/buildd.debian.org/web/stats/graph.png","What percent is built for each architecture",v,85,7.5,10,".")
34 plotwb("/org/buildd.debian.org/web/stats/graph-big.png","What percent is built for each architecture",v,85,15,20,".")
35 plotwb("/org/buildd.debian.org/web/stats/graph-week.png","What percent is built for each architecture (past two weeks)",window(v,start=time(v)[length(time(v))-14]),85)
36 plotwb("/org/buildd.debian.org/web/stats/graph-week-big.png","What percent is built for each architecture (past two weeks)",window(v,start=time(v)[length(time(v))-14]),85,15,20)
37 plotwb("/org/buildd.debian.org/web/stats/graph-quarter.png","What percent is built for each architecture (past quarter)",window(v,start=time(v)[length(time(v))-90]),85)
38 plotwb("/org/buildd.debian.org/web/stats/graph-quarter-big.png","What percent is built for each architecture (past quarter)",window(v,start=time(v)[length(time(v))-90]),85,15,20)
39 v <- readdata("/org/wanna-build/etc/graph2-data",279)
40 plotwb("/org/buildd.debian.org/web/stats/graph2.png","How architectures are keeping up",v,95,7.5,10,".")
41 plotwb("/org/buildd.debian.org/web/stats/graph2-big.png","How architectures are keeping up",v,95,15,20,".")
42 plotwb("/org/buildd.debian.org/web/stats/graph2-week.png","How architectures are keeping up (past two weeks)",window(v,start=time(v)[length(time(v))-14]),95)
43 plotwb("/org/buildd.debian.org/web/stats/graph2-week-big.png","How architectures are keeping up (past two weeks)",window(v,start=time(v)[length(time(v))-14]),95,15,20)
44 plotwb("/org/buildd.debian.org/web/stats/graph2-quarter.png","How architectures are keeping up (past quarter)",window(v,start=time(v)[length(time(v))-90]),95)
45 plotwb("/org/buildd.debian.org/web/stats/graph2-quarter-big.png","How architectures are keeping up (past quarter)",window(v,start=time(v)[length(time(v))-90]),95,15,20)