[ruby-list:6331] IF ELSE

  豊福＠パパイヤです。

あ伊藤さん
> こういう中間的なデータ構造を作る方法は，C++ ではよく使う手なんですが
> (マニピュレータとか)

  C++ ではどんな風にやるのですか。（IF ELSE 以外でも）

原さん
> class Object
>   def IF cond; if cond then yield else Object end; end
>   def ELSE; self; end
>   def Object.ELSE; yield; end
> end

  「def Object.ELSE; yield; end」は ELSE を
定義するオブジェクトが不自然のような気がして
理由を考えたのですが、本質は

def IF(cond)
  if (cond) then
    yield
    return ELSEメソッドのとき何もしないオブジェクト
  else
    return ELSEメソッドのとき yield だけするオブジェクト
  end
end

ですよね。ということは

「あらゆるメソッドを受けつけて各メソッドでは
何もしないオブジェクト」と

「あらゆるメソッドを受けつけて各メソッドでは
yield だけするオブジェクト」が

標準にあれば

def IF(cond)
  if (cond) then
    yield
    return 「何もしないオブジェクト」
  else
    return 「yield だけするオブジェクト」
  end
end

と書けて面白いかなと思ったのですが、これら
のオブジェクトは他に使い道がないですかね。


  .ELSE ではなく ELSE で書く方法も考えて
みました。
  IF {} と ELSE {} の間に文を書けるのは
いいのか悪いのかわかりませんが。

class CondStack
	def initialize
		@condstack = Array.new
		@depth = 0
	end
	def push(cond)
		@condstack[@depth] = cond
		@depth = @depth + 1
	end
	def cond
		return @condstack[@depth]
	end
	def pop
		@depth = @depth - 1
	end
end

$condStack = CondStack.new

def IF (cond)
	$condStack.push(cond)
	if (cond)
		yield
	end
	$condStack.pop
end

def ELSE
	unless ($condStack.cond)
		yield
	end
end

# sample

x = ARGV[0].to_i

  print "IF\n"

IF (x & 2 == 0) {
	IF (x & 1 == 0) {
		print "0 (mode 4)\n"
	}
	ELSE {
		print "1 (mode 4)\n"
	}
}

  print "ELSE\n"

ELSE {
	IF (x & 1 == 0) {
		print "2 (mode 4)\n"
	}
	ELSE {
		print "3 (mode 4)\n"
	}
}
---
			豊福＠パパイヤ
			[e-mail]
			[e-mail]