2001年7月のn日記

case obj
when String
  '文字列'
when Integer
  '整数'
when Float
  '実数'
when Numeric
  '数値'
end

f = open('/dev/zero')
Thread.new {
  begin
    loop {
      f.read 1
    }
  rescue
    STDERR.puts $!.inspect
  ensure
    STDERR.puts 'ensure'
  end
}
Thread.critical = true
f.close
#sleep 1

Thread.new {
  begin
    sleep
  rescue
    STDERR.puts $!.inspect
  ensure
    STDERR.puts 'ensure'
  end
}
Thread.critical = true
exec '/bin/echo', 'ok'

    tc = Thread.critical
    Thread.critical = true
    @child_pid = Process.fork {
if true
      [TCPSocket, File].each {|c|
        ObjectSpace.each_object(c) {|io|
          begin
            io.close
          rescue SystemCallError,IOError => e
            STDERR.puts e.inspect
          end
        }
      }
end
      exec([RUBY_EXE, __FILE__], *@arg)
    }
    Thread.critical = tc

class Foo;end
class Bar < Foo
  @@cv = 'bar'
  CONST = ['bar']
end
class Foo
  @@cv = 'foo'
  CONST = ['foo']
end

--- rw.cgi      2001/07/09 06:23:34     1.3
+++ rw.cgi      2001/07/09 06:38:12     1.4
@@ -352,7 +352,9 @@
       raise RWInvalidRequest unless req.name
       raise RWInvalidRequest unless req.src
       page = @rwiki.page( req.name )
-      page.set_src( req.src, req.rev )
+      page.set_src( req.src, req.rev,
+          "#{ @cgi.remote_user || 'anonymous' } at #{
+           @cgi.remote_host || @cgi.remote_addr || 'unknown' }")
       header = Response::Header.new()
       res = page.submit_html( getEnv ) { |key| @query[key] }
       Response.new( header, Response::Body.new( res ))
--- rwiki.rb.orig   Sun Jun 24 11:55:47 2001
+++ rwiki.rb    Mon Jul  9 15:47:22 2001
@@ -31,7 +31,8 @@
       v = arg.pop
       rev = arg.shift
       check_revision(k, rev)
-      set(k, store(v))
+      commit_log = arg.shift
+      set(k, store(v), rev, commit_log)
     end
 
     def [](k)
@@ -69,15 +70,24 @@
     end
 
     private
-    def set(k,v,rev=nil)
+    def set(k,v,rev=nil, commit_log=nil)
       synchronize do
    return if v.nil?
+        filename = fname(k)
+        already_exist = FileTest.exist? filename
    begin
-     fp = File.open(fname(k), 'w')
+     fp = File.open(filename, 'w')
      fp.write(v)
    ensure
      fp.close if fp
    end
+        if FileTest.exist? filename
+          system('/usr/bin/cvs', '-fQd', File.expand_path('~/cvsrepo'),
+                 'add', filename) unless already_exist
+          system('/usr/bin/cvs', '-fQd', File.expand_path('~/cvsrepo'),
+                 'commit', '-m', commit_log, filename)
+          nil
+        end
       end
     end
 
@@ -341,10 +351,10 @@
       set_src(v, nil)
     end
 
-    def set_src(v, rev)
+    def set_src(v, rev, commit_log)
       FW_MUTEX.synchronize do
    @@dirty = true
-   @@db[@name, rev] = v
+   @@db[@name, rev, commit_log] = v
    @modified = Time.now
    update_src(v)
       end

a='1' || a*=2
p a #=> "1"

irb(main):001:0> require 'matrix'
true
irb(main):002:0> Matrix[[2.0,5.0],[1.0,3.0]].inverse
Matrix[[3.0, -5.0], [-1.0, 2.0]]
irb(main):003:0>

# p1.rb
require 'drb/drb'
require 'mutexm'
 
class P1
  include MutexM
 
  def a(p2)
    p2.b(self)
  end
 
  def c
    p :c
  end
 
  synchronized :a
  synchronized :c
end
 
uri = ARGV.shift
DRb.start_service
P1.new.a(DRbObject.new(nil,uri))

# p2.rb
require 'drb/drb'
 
class P2
  def b(p1)
    p1.c
  end
end
 
uri = ARGV.shift
DRb.start_service uri, P2.new
puts DRb.uri
puts '[return] to exit'
gets

% perl -v
This is perl, version 5.005_03 built for i386-linux
(略)
% perl
print ++$i," $` [ $& ] $' \n" while 'abc' =~ /.??/g
1  [  ] abc
2  [ a ] bc
3 a [  ] bc
4 a [ b ] c
5 ab [  ] c
6 ab [ c ]
7 abc [  ]
% ruby -v
ruby 1.6.4 (2001-07-16) [i386-linux]
% irb
irb(main):001:0> 'abc'.scan(/.??/){p [$`,$&,$']}
["", "", "abc"]
["a", "", "bc"]
["ab", "", "c"]
["abc", "", ""]
"abc"
irb(main):002:0>
 
C:\>perl -v
This is perl, v5.6.1 built for cygwin
(略)
C:\>perl -e "print ++$i,qq{ $` [ $& ] $' \n} while 'abc' =~ /.??/g"
1  [  ] abc
2  [ a ] bc
3 a [  ] bc
4 a [ b ] c
5 ab [  ] c
6 ab [ c ]
7 abc [  ]

% perl -v
This is perl, version 5.005_03 built for i386-linux
(略)
% perl
print ++$i," $` [ $& ] $' \n" for 'abc' =~ /.??/g
1 abc [  ]
2 abc [  ]
3 abc [  ]
4 abc [  ]
% perl -we "@a= 'abc'=~/.??/g;print scalar @a"
4
C:\>perl -v
This is perl, v5.6.1 built for cygwin
(略)
C:\>perl -e "print ++$i,qq{ $` [ $& ] $' \n} for 'abc' =~ /.??/g"
1 abc [  ]
2 abc [  ]
3 abc [  ]
4 abc [  ]
5 abc [  ]
6 abc [  ]
7 abc [  ]
C:\>perl -we "@a= 'abc'=~/.??/g;print scalar @a"
7

setopt PROMPT_SUBST
PROMPTCOLOR=31
ESC=$(print -Pn '\e')
DEFAULTCODE=$(print -Pn '\e(B')
BELL=$(print -Pn '\a')
case $TERM in
  vt100|[Exk]term*|rxvt)
    XTITLE=$ESC']0;<%n@%m:%~>'$BELL
    ;;
  screen)
    XTITLE=$ESC'k<%n@%m:%~>'$ESC\\
    ;;
esac
PROMPT='%B%{'$DEFAULTCODE$XTITLE$ESC'[$[PROMPTCOLOR=31+($PROMPTCOLOR-30)%6]m%}%#%{'$ESC'[m%} %b'
RPROMPT='%B%{'$ESC'[${PROMPTCOLOR}m%}<%U%? %l %D %* %n@%m:%35<...<%d%u%{'$ESC'[${PROMPTCOLOR}m%}>%{'$ESC'[m%}%b'
#RPROMPT='<%U%n@%m:%~%u>'
unset XTITLE
unset ESC
unset BELL

if type jless >&/dev/null; then
  export PAGER=jless
  export LESS=-M
  export JLESSCHARSET=japanese
  function more () {
    jless -E "$@"
  }
  READNULLCMD=more
elif type less >&/dev/null; then
  export PAGER=less
  export LESS=-M
  export JLESSCHARSET=japanese
  function more () {
    less -E "$@"
  }
  READNULLCMD=more
elif type more >&/dev/null; then
  export PAGER=more
  READNULLCMD=more
else
  echo NO PAGER
fi