#! /usr/local/bin/ruby # cal.rb (bsd compatible version): Written by Tadayoshi Funaba 1998 # $Id: bsdcal.rb,v 1.2 1998/12/01 13:47:40 tadf Exp $ require 'date2' $tab = { 'cn' => true, # China 'de' => 2342032, # Germany (protestant states) 'dk' => 2342032, # Denmark 'es' => 2299161, # Spain 'fi' => 2361390, # Finland 'fr' => 2299227, # France 'gb' => 2361222, # United Kingdom 'gr' => 2423868, # Greece 'hu' => 2301004, # Hungary 'it' => 2299161, # Italy 'jp' => true, # Japan 'no' => 2342032, # Norway 'pl' => 2299161, # Poland 'pt' => 2299161, # Portugal 'ru' => 2421639, # Russia 'se' => 2361390, # Sweden 'us' => 2361222, # United States 'os' => false, # (old style) 'ns' => true # (new style) } $cc = 'gb' def usage $stderr.puts 'usage: cal [-c iso3166] [-jy] [[month] year]' exit 1 end def cal(m, y, gs) for d in 1..31 break if jd = Date.exist?(y, m, d, gs) end fst = cur = Date.new(jd, gs) ti = Date::MONTHNAMES[m] ti << ' ' << y.to_s unless $yr mo = ti.center((($w + 1) * 7) - 1) << "\n" mo << ['S', 'M', 'Tu', 'W', 'Th', 'F', 'S']. collect{|x| x.rjust($w)}.join(' ') << "\n" mo << ' ' * (($w + 1) * fst.wday) while cur.mon == fst.mon mo << (if $jd then cur.yday else cur.mday end).to_s.rjust($w) mo << (if (cur += 1).wday != 0 then "\s" else "\n" end) end mo << "\n" * (6 - ((fst.wday + (cur - fst)) / 7)) mo end def zip(xs) yr = '' until xs.empty? ln = (if $jd then l, r, *xs = xs; [l, r] else l, c, r, *xs = xs; [l, c, r] end). collect{|x| x.split(/\n/no, -1)} 8.times do yr << ln.collect{|x| x.shift.ljust((($w + 1) * 7) - 1)}.join(' ') << "\n" end end yr end while /^-(.*)$/no =~ $*[0] a = $1 if /^c(.+)?$/no =~ a then if $1 then $cc = $1.downcase elsif $*.length >= 2 then $cc = $*[1].downcase $*.shift else usage end else a.scan(/./no) do |c| case c when 'j'; $jd = true when 'y'; $yr = true else usage end end end $*.shift end usage if (gs = $tab[$cc]).nil? case $*.length when 0 td = Date.today m = td.mon y = td.year when 1 y = $*[0].to_i $yr = true when 2 m = $*[0].to_i y = $*[1].to_i else usage end usage unless m.nil? or (1..12) === m usage unless y >= -4712 $w = if $jd then 3 else 2 end unless $yr then print cal(m, y, gs) else print y.to_s.center(((($w + 1) * 7) - 1) * (if $jd then 2 else 3 end) + (if $jd then 2 else 4 end)), "\n\n", zip((1..12).collect{|m| cal(m, y, gs)}), "\n" end 7498d32a2b280342b9f'>diff

path: root/bootstraptest/test_insns.rb

Age	Commit message (Expand)	Author
2021-11-09	Add one more test example for swap instruction	Nikita Vasilevsky
2021-06-29	Prefer qualified names under Thread	Nobuyoshi Nakada
2020-12-07	Removed deprecated Time#succ	Nobuyoshi Nakada
2020-09-24	Remove test for putiseq insn	Michael Lindley
2020-09-15	Interpolated strings are no longer frozen with frozen-string-literal: true	Benoit Daloze
2020-06-17	Remove obsoleted opt_call_c_function insn (#3232)	Takashi Kokubun
2020-04-15	Added test for `debug_level:` option of `RubyVM::InstructionSequence.compile`	Nobuyoshi Nakada
2020-04-10	Turn class variable warnings into exceptions	Jeremy Evans
2019-10-10	fix memory corruption in old GCC	卜部昌平
2019-09-05	add tests	卜部昌平
2019-09-03	Add insn tests for newarraykwsplat	Takashi Kokubun
2019-09-02	Fix opt_regexpmatch1 references	Takashi Kokubun
2019-08-30	Fix remaining warning issues in the tests due to keyword argument separation	Jeremy Evans
2019-08-01	bootstraptest/test_insns.rb: test opt_nil_p	Kazuhiro NISHIYAMA
2019-02-01	on-smash canary detection	shyouhei
2019-01-19	Indented here document (<<~) is Ruby 2.3 feature	naruse
2019-01-18	support older BASERUBY for btest.	ko1
2018-10-27	bootstraptest/test_insns.rb: test newhashfromarray	kazu
2018-06-29	improve C0 coverage of insns.def	shyouhei
2017-05-27	bootstraptest/test_insns.rb: Fix typo	k0kubun
2017-04-06	Rename RbConfig::Limits as RbConfig::LIMITS	nobu
2017-03-28	fix a typo [ci skip]	kazu
2017-03-28	Update assertion message [ci skip]	kazu
2017-03-10	compile.c: apply opt_str_freeze to String#-@ (uminus)	normal
2017-01-30	make FIXNUM_MAX visible from Ruby	shyouhei
2017-01-23	improve C0 coverage of insns.def from 65.9% to 96.1%	shyouhei