[ruby-list:13031] Re: Tiny eRuby

< ^ > P N |<>|^_>< --- | ~ ...Help
----Next_Part(Sat_Mar_20_02:10:50_1999_893)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit


陰匹允﹝友廿仃化引允﹝


> > ruby-dev 及杅匹域凜渝狪鎖卞卅勻化中凶 eRuby 毛撢隸仄化心引仄凶﹝
> > ...(峎)...
> > HTML及妐鞂篞褡舅庥轃恕吨氻侕媏齯匹允﹝
> > 云杴條仄卞升丹冗﹝

> 欠中欠銀尹匹允方友﹝LaTeX 及妐迉①憧皏諝野犍韞氻聸蛻恕馱阬 秝禊 
旦弁伉皿玄毛呥戶慇氏分曰午井﹝

匹允方友﹝中欠中欠殺迕互丐曰匹允﹝
ePerl 及杅反升丹中丹殺迕互丐月氏分欠丹﹝


蘿渭今氏﹜由永民丐曰互午丹仍介中引仄凶﹝
幻廿引引丐化引仄凶﹝

勾中匹卞憤坌匹葦勾仃凶田弘(result互⑹井卅中)及竣阬
井友化 $SAFE 毛隙爛仄化旦弁伉皿玄毛撢墊匹五月方丹卞仄引仄凶﹝

  ERb.new(妐儂昫, [幫醒]) 

匹ERb毛戲嶽允月午鎔き婁醒毛 $SAFE 卞澀爛仄化撢墊仄引允﹝
CGI卅升匹銀丹凜卞兜艘匹五引允﹝

ERb互 $SAFE 卞覆殺匹五凶及匹﹜shttpsrv-1.04 毛荼瞻仄化 
eRuby 白央奶伙覆殺卞仄化心引仄凶﹝
嗤中丹切卞由永民毛楔牏飽阬

樠礱白央奶伙及傀艦閡反卅氏午允木壬恌中及匹仄斤丹? .rhtml??


>     * `<% 襖] %>' 正弘反 `print [襖]' 卞譆晶今木引允互﹜仇木分午
	snip
>       襖毛喟裡匹匹喟勻化 `<% 襖] %>' 互 `print ([襖])' 卞譆晶今木
>       月方丹卞庍凳仄引仄凶﹝

允心引六氏﹝
田弘匹仄凶﹝


>     * 喂葆 湘セ今氏及 getoptlong 仿奶皮仿伉
>       (http://www.sra.co.jp/people/m-kasahr/ruby/getoptlong/)
>       毛銀勻化中仁勾井左皿扑亦件毛馨笛仄化心引仄凶﹝
>           -d, --debug    犯田永弘乒□玉
>           -r             仿奶皮仿伉及伕□玉
>           -v, --version  田□斥亦件及
>           -w             暸贏乒□玉
>       仇木日反歹凶仄互丐勻凶日中中卅午閤勻凶左皿扑亦件匹允﹝


getoptlong勻化伓ォ丰韞馴龰憧諵竣鴗④諵韝舅膉吨咫瓣縣韝エ馱矷阬
域阬 谾鐐贄卞俸黎馱室漱韝壑峇エ馱洶引引卞仄引仄凶﹝

  -S 幫醒	$SAFE 及隙爛

毛馨笛仄引仄凶﹝


-- 
陰



----Next_Part(Sat_Mar_20_02:10:50_1999_893)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename=erb.rb

#!/usr/local/bin/ruby
# $Id: erb.rb,v 1.19 1999/03/19 16:45:48 mas Exp $
# $Author: mas $
# Copyright (c) 1999 Masatoshi SEKI

require 'enumre.rb'	# http://www2a.biglobe.ne.jp/%7Eseki/ruby/enumre.rb

class ERb
  Revision  $Date: 1999/03/19 16:45:48 $'

  def version
    "erb.rb [#{ERb::Revision.split[1]}]"
  end
  module_function :version

  class StringIO
    def initialize(str)
      @str  tr.to_s
    end
    attr :str
    def print (*arg)
      if $, 
	sep  ,
      else
	sep  '
      end
      write(arg.join(sep))
    end
    def write(str)
      @str.concat(str)
    end
    def as_stdout(&proc)
      begin
	writer  elf.new
	save  >
	$>  riter
	proc.call
	writer.str
      ensure
	$>  ave if save
      end
    end
    module_function :as_stdout
    def as_stdout_safe(safe, &proc)
      begin
	writer  elf.new
	save  >
	$>  riter
	th  hread.start {
	  $SAFE  afe
	  proc.call
	  writer.str
	}
	Thread.join th
	th.value
      ensure
	$>  ave if save
      end
    end
    module_function :as_stdout_safe
  end

  def pre_compile(s)
    list  ]
    s.each_line do |line|
      line.gsub!(/(<%#)|(<%(<% )|( %>)/) do |m|
      "\n#{m}\n"
      end
      list + ine.split("\n")
      list.push("\n")
    end
    # list 井日戊丟件玄毛潸曰阬
    擩黀  蜧臇槴纁踠礱到澞籇 鍣    貗濎卞譆晶
    list  print.gsub(list) {
      v  print.matching_data[1].join
      ['<% ', "print (#{v})", ' %>']
    }
  end
  module_function :pre_compile
  private :pre_compile

  def compile(s)
    cmdlist  ]
    str_table  ]
    list  re_compile(s)
    # 燮⑵井日stag引匹毛譆晶
    list  head.sub(list) {
      match  head.matching_data
      match[1].join.each do |line|
	cmdlist.push("print #{line.dump}")
      end
      nil
    }
    list  compile.gsub(list) {
      match  compile.matching_data
      cmdlist.push(match[1].join)
      match[3].join.each do |line|
	cmdlist.push("print #{line.dump}")
      end
      nil
    }
    list.join.each do |line|
      cmdlist.push("print #{line.dump}")
    end
    cmdlist.join("\n")
  end
  module_function :compile
  private :compile

  def setup_compiler
    first  RegexpFirst.new
    stag  RegexpEq.new('<% ')
    etag  RegexpEq.new(' %>')
    commenttag  RegexpEq.new('<%#')
    printtag  RegexpEq.new('<%
    any  RegexpAny.new.repeat(0, nil).greedy(false)
    notstag  RegexpEq.new('<% ').negate.repeat(0, nil).greedy(true)
    @head  Regexp.new([first, notstag]);
    @comment  Regexp.new([commenttag, any, etag])
    @print  Regexp.new([printtag, any, etag])
    @compile  Regexp.new([stag, any, etag, notstag])
  end
  module_function :setup_compiler
  private :setup_compiler

  def initialize(str, safe_levell)
    @src  Rb.compile(str)
    @safe_level  afe_level
  end
  attr :src

  setup_compiler

  # 撢墊仄﹜瑛絆毛執儂允月
  def run(bPLEVEL_BINDING)
    if @safe_level
      print self.result(b)
    else
      eval(@src, b)
    end
  end

  # 撢墊仄﹜瑛絆毛妐儂昫匹忒允
  def result(bPLEVEL_BINDING)
    if @safe_level
      StringIO.as_stdout_safe(@safe_level) { eval(@src, b) }
    else
      StringIO.as_stdout { eval(@src, b) }
    end
  end
end


if __FILE__ $0
  require "getoptlong"
  opt_parser  etoptLong.new([ "-x", GetoptLong::NO_ARGUMENT ],
			      [ "-n", GetoptLong::NO_ARGUMENT ],
			      [ "-d", "--debug", GetoptLong::NO_ARGUMENT ],
			      [ "-S", GetoptLong::REQUIRED_ARGUMENT ],
			      [ "-r", GetoptLong::REQUIRED_ARGUMENT ],
			      [ "-v", "--version", GetoptLong::NO_ARGUMENT ],
			      [ "-w", GetoptLong::NO_ARGUMENT ])
  opt_parser.each_option do |name, arg|
    case name
    when "-x"			# ruby source
      $output  rue
    when "-n"			# line number
      $number  rue
    when "-w"			# verbose
      $VERBOSE  rue
    when "-v"			# version
      STDERR.puts ERb.version
      exit
    when "-d"			# debug
      $DEBUG  rue
    when "-r"			# require
      require arg
    when "-S"			# safe level
      $safe_level  rg.to_i
    end
  end
  src  <.read
  exit 1 unless src
  erb  Rb.new(src, $safe_level)
  if $output
    if $number
      l  
      for line in erb.src
	puts "%3d %s"%[l, line]
	l + 
      end
    else
      puts erb.src
    end
  else
    erb.run
  end
end

----Next_Part(Sat_Mar_20_02:10:50_1999_893)----