----Next_Part(Sun_Mar_29_14:29:19_1998_30)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

>   ruby ¥µ¥¤¥óËܥץ쥼¥ó¥È·¸¸æÃæ

¤â¤¦ÃÙ¤¤¤«¤Ê¡£
¤Ò¤µ¤·¤Ö¤ê¤Ë ruby¤Çtool¤òºî¤Ã¤¿¤Î¤Ç¡¢¥Î¥ß¥Í¡¼¥È¤·¤Æ¤ª¤³¤¦¡£
¤È¤ê¤¢¤¨¤º·ë²Ì¤¬Íߤ·¤¯¤Æºî¤Ã¤¿¤Î¤Ç¡¢¤¼¤ó¤¼¤ó ruby ¤é¤·¤¯¤Ê¤¤¤Î¤À¤¬¡£

YAMAHA ¤Î ¥ë¡¼¥¿(rt¥·¥ê¡¼¥º)¥Þ¥Ë¥å¥¢¥ë¤¬¡¢PS ¤È¤« PDF ¤Ê¤ó¤Ç
¸¡º÷À­¤¬¤ï¤ë¤¤¡£¤Ç¤âYAMAHA¤ÎÆ⵬¾åȾü¤Ê¤Î¤Ï¸ø³«¤Ç¤­¤Ë¤¯¤¤¡£
¤È¤¤¤¦¤³¤È¤Ç¡¢
TeX ---> dvi ----> PS ¤Çºî¤Ã¤¿ PS¤«¤éʸ»úÎó¤òÈ´¤­·¤¨Â èôíì ¤Ë¤¹¤ë¤â¤Î¡£
  dvi2ps2html.rb
¤ª¤è¤Ó ¥³¥Þ¥ó¥É¥ê¥Õ¥¡¥ì¥ó¥¹¤Ë¸Â¤Ã¤Æ¡¢ html ¤Î Ìܼ¡¡¢º÷°ú¤«¤é³ºÅö¥Ú¡¼¥¸
¤Ø¤Î¥ê¥ó¥¯¤ò¤Ä¤¯¤ë¤â¤Î¡£  cmdindx.rb ¤Ç¤¹¡£

¿³ºº¤À¤ÈÍî¤Á¤ë¤±¤É¡¢ÃêÁª¤Ê¤éÅö¤¿¤ë¤«¤â¤·¤ì¤Ê¤¤¡£


----Next_Part(Sun_Mar_29_14:29:19_1998_30)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Content-Description: dvi2ps2html.rb

#!/usr/local/bin/ruby
#
# dvi2ps ¤Ç¤Ç¤­¤¿ ps ¤ò html ¤ËÊÑ´¹¤¹¤ë¡£
#

@yNow@fontNow3" # R#, B#, I#, #-4]
@fontType	"f31"R3",  "f32"R3",  "f33"R3",  "f34"I3",
	"f36"R3",  "f37"R3",
	"f40"R3",  "f41"R3",
	"f53"R3",  "f55"R3",  "f58"R4",
	"f62"R3",  "f63"R4",  "f67"R4",
	"f70"R4",  "f77"R3",
	"f92"R3",  "f91"R3",
	"RL"R3" ,  "TR"R3"
}
def conv(font,src)
   if  ( fontf4[01]|f6[23]|f7[07]|f92|f91|RL/ )
	src.gsub!(/\\(.)/,'\1')
	dstc.unpack("c*")
	rt
	dst.each{|s| s | 200; rt + .chr }
	return  rt

   elsif ( font "f33" )
	src.gsub!(/\\017/,"¡ü")
	src.gsub!(/\\016/,"¡û")
	src.gsub!(/\\(.)/,'\1')
	return  src

   elsif ( font "f31" )
	src.gsub!(/\{/,"-")
	src.gsub!(/\\013/,"ff")
	src.gsub!(/\\014/,"fi")
	src.gsub!(/\\(.)/,'\1')
	return  src

   elsif ( font /f3[2467]|f5[358]|f67|TR/)
	src.gsub!(/\\013/,"ff")
	src.gsub!(/\\014/,"fi")
	src.gsub!(/\\(.)/,'\1')
	return src

   else
	return ""
   end
end
def setfont()
    return if ( @fontNow @fontType[@font] || @fontType[@font]il)
    print "</font>" if ( @fontNow ! R3" )
    @fontNow  fontType[@font]
    if ( @fontNow ! R3" )
      t ,sizeontNow.split(//); 
	if (t ! R");t  <"+t+">" ;else t ;end
      print "<font sizesize,">",t
    end
end
def  outSpecial()
  while( $_ !~ /^%%BeginDocument: / ) ; gets ; end
  chop!
  fname  _.sub!(/^%%BeginDocument: /,"")
  out  pen(fname,"w")
  gets;while( $_ !~ /@endspecial/ ) ; out.print ; gets ; end
  out.close
  
  return  File.basename(fname,".eps")+".tif"
end
	
##################
fnameðìe.basename(ARGV[0]).sub(/\..*/,"")

print "<HTML>\n<HEAD>\n<TITLE>"+fname+"</TITLE>\n</HEAD>\n<BODY>\n"
print "<pre>\n"

while(gets)
  if( /@beginspecial/)
	fname  utSpecial()
	printf "<img src./%s\">",fname
  end
  if(/%%Page:/);    print "\n<HR>\n" ;	@yNow; end
  if( /(^f\d\d) SF/ );          @font  
  elsif(/\d+\s+TR\s+/)  ;	@siz,@font,dmylit  # Times Roman
  elsif(/\d+\s+RL\s+/)  ;       @siz,@font,dmylit  # Ryumin-Light
  end

  if( /^\d+ r / )       ;	print " "  ;end
  if( /\d+\s+(\d+)\s+[pm]\s/ )  ;	@y.to_i ;  end
  if ( /\((.*)\)s/ )
	str  onv(@font,$1)
#print $_,str,"\n" if ( /\\\)/ )
	if ( @y ! yNow ) ;    print "\n" ;    @yNow ;	end
	setfont() if str
	print str if str
  end
end




----Next_Part(Sun_Mar_29_14:29:19_1998_30)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Content-Description: cmd2html.rb

#!/usr/local/bin/ruby
#
# dvi2ps2html ¤Ç褨 èôíì ¤Ë ¥Ý¥¤¥ó¥¿¤òÄ¥¤ë¡£
#

@refs ¨ÂáùÛ¢¢Ý
@index ¨ÂáùÛ¢¢Ý

gets; while( $_ !~ /Ìܼ¡/ );  print ; gets ; end
while(  $_ !~ /º÷°ú/ )
  if ( /^([\d.]+)\s*([^:]*)([:\s]*)(\d+)$/ )
	$3.chop!
	@refs << $2
	printf "%s <A HREF#%s\">%s</A>%s%s\n",$1,$2,$2,$3,$4
  else
	print
  end
  gets
end
while( $_ !~ /^YAMAHA Remote Routers ¥³¥Þ¥ó¥É¥ê¥Õ¥¡¥ì¥ó¥¹¤Î¸«Êý1/)
  if ( /^([^,]+)\s*,(\s*\d+)/ )
	$2.chop!
	@index << $1
	printf "<A HREF#%s\">%s</A>,%s\n",$1,$1,$2
  else
	print
  end
	
  gets
end

@refs.shift ; @index.shift
regRefsefs.join("|") 
regIndexndex.join("|")
print

while(gets)
  if ( /(#{regRefs})/o )
	$'.chop!
	printf "%s<A NAME%s\">%s</A>%s\n",$`,$&,$&,$'
  elsif ( /¡ÎÆþÎÏ·Á¼°¡Ï/ )
	print ;  gets
	if ( /(#{regIndex})/o )
	    $'.chop!
	    printf "%s<A NAME%s\">%s</A>%s\n",$`,$&,$&,$'
	end
  elsif ( /(#{regIndex})/o )
	$'.chop!
	printf "%s<A HREF#%s\">%s</A>%s\n",$`,$&,$&,$'
  else
  	print
  end
end


----Next_Part(Sun_Mar_29_14:29:19_1998_30)----