@6> <@local(ps,y,yc,yyyymm,name)> <$name = argv#0> <$ps = v.load_plgset(name)> <@> <@>--------------------------------------------------------------------- <@>月別記事数リスト <@>--------------------------------------------------------------------- <$yc=new> <@>年別の計算 <$forexec(t, argv#1, begin)> <$yc.(t.year) += t.count> <$end> <$y=0> <@ifexec(ps.select_box, begin, begin)> <@>--------------------------------------------------------------------- <@>--------------------------------------------------------------------- <$else> <@>---------------------------------------------------------------------