ruby-list

>   ruby サイン本プレゼント係御中

もう遅いかな。
ひさしぶりに rubyでtoolを作ったので、ノミネートしておこう。
とりあえず結果が欲しくて作ったので、ぜんぜん ruby らしくないのだが。

YAMAHA の ルータ(rtシリーズ)マニュアルが、PS とか PDF なんで
検索性がわるい。でもYAMAHAの内規上半端なのは公開できにくい。
ということで、
TeX ---> dvi ----> PS で作った PSから文字列を抜き出して html にするもの。
  dvi2ps2html.rb
および コマンドリファレンスに限って、その html の 目次、索引から該当ページ
へのリンクをつくるもの。  cmdindx.rb です。

審査だと落ちるけど、抽選なら当たるかもしれない。

#!/usr/local/bin/ruby
#
# dvi2ps でできた ps を html に変換する。
#

@yNow=0
@fontNow="R3" # R#, B#, I#, #=[1-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  ( font=~/f4[01]|f6[23]|f7[07]|f92|f91|RL/ )
	src.gsub!(/\\(.)/,'\1')
	dst=src.unpack("c*")
	rt=""
	dst.each{|s| s |= 0200; rt += s.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]==nil)
    print "</font>" if ( @fontNow != "R3" )
    @fontNow = @fontType[@font]
    if ( @fontNow != "R3" )
      t ,size=@fontNow.split(//); 
	if (t != "R");t = "<"+t+">" ;else t="" ;end
      print "<font size=",size,">",t
    end
end
def  outSpecial()
  while( $_ !~ /^%%BeginDocument: / ) ; gets ; end
  chop!
  fname = $_.sub!(/^%%BeginDocument: /,"")
  out = open(fname,"w")
  gets;while( $_ !~ /@endspecial/ ) ; out.print ; gets ; end
  out.close
  
  return  File.basename(fname,".eps")+".tif"
end
	
##################
fname=File.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 = outSpecial()
	printf "<img src=\"./%s\">",fname
  end
  if(/%%Page:/);    print "\n<HR>\n" ;	@yNow=0 ; end
  if( /(^f\d\d) SF/ );          @font=$1  
  elsif(/\d+\s+TR\s+/)  ;	@siz,@font,dmy=split  # Times Roman
  elsif(/\d+\s+RL\s+/)  ;       @siz,@font,dmy=split  # Ryumin-Light
  end

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



#!/usr/local/bin/ruby
#
# dvi2ps2html で出来た html に ポインタを張る。
#

@refs=Array[""]
@index=Array[""]

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
regRefs=@refs.join("|") 
regIndex=@index.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

Thread

Prev Next

In This Thread

Prev Next

[#6858] monitor.rb and ftplib.rb — shugo@... (Shugo Maeda)

[#6859] register calc (call for scripts) — TEI meiki <tei@...>

[#6860] inspect (mb string) — 青山 和光 <PXN11625@...>

[#6861] Re: http_get.rb — 青山 和光 <PXN11625@...>

[#6862] Re: http_get.rb — 青山 和光 <PXN11625@...>

[#6863] Re: http_get.rb — 青山 和光 <PXN11625@...>

[#6889] lib/date.rb — Tadayoshi Funaba <tadf@...>

[#6890] date class — Tadayoshi Funaba <tadf@...>

[#6893] Re: http_get.rb — 青山 和光 <PXN11625@...>

[#6905] Email your AD to 57 MILLION People ONLY $99 — 29818412@...

[#6906] ruby's Icon ? — 藤本尚邦 / FUJIMOTO Hisakuni <hisa@...>

[#6915] Re: inspect (mb string) — 青山 和光 <PXN11625@...>

[#6916] Re: http_get.rb — 青山 和光 <PXN11625@...>

[#6917] Re: inspect (mb string) — 青山 和光 <PXN11625@...>

[#6918] manual 1.18b index — WATANABE Tetsuya <tetsu@...>

[#6920] Re: call for scripts — sakamoto@... (Sadayuki Sakamoto)

[#6929] Expect lib for ruby — nosuzuki@... (Norio Suzuki)

[#6938] Re: ruby's Icon ? — 助田 雅紀 <masaki.suketa@...>

[#6954] Re: ruby's Icon ? — nosuzuki@... (Norio Suzuki)

[#6956] Re: ruby's Icon ? — takehiro.kubo@... (KUBO Takehiro)

[#6958] Re: inspect (mb string) — 青山 和光 <PXN11625@...>

[#6968] Re: ruby's Icon ? — 助田 雅紀 <masaki.suketa@...>

[#6975] Re: coerce — toyofuku@...

[#6978] win32 版 ruby の getc について — ARIMA Yasuhiro <fit0298@...>

[#6983] ext POSIX.setsid — WATANABE Tetsuya <tetsu@...>

[#6999] RE: [ruby-list:6994] Re: Curses and Slang Module (was Re: win32版ruby の getc について) — 助田 雅紀 <masaki.suketa@...>

[#7003] Ruby for MacOS, BeOS — 藤本尚邦 / FUJIMOTO Hisakuni <hisa@...>

[#7004] gtk 0.99.4 and gtk module — Noritsugu Nakamura <nnakamur@...>

[#7008] builtin class inherit — TEI meiki <tei@...>

[#7009] netscape remote script — Noritsugu Nakamura <nnakamur@...>

[#7013] modulo — toyofuku@...

[#7021] unary +/- — Tadayoshi Funaba <tadf@...>

[#7022] スレッドの終了待ち — densuke@...2.so-net.or.jp

[#7023] infinity — Tadayoshi Funaba <tadf@...>

[#7035] Re: modulo — toyofuku@...

[#7067] rfc822.rb — akira yamada / やまだあきら <akira@...>

[#7083] about rbc — Kazuhisa YANAGAWA <katze@...>

[#7094] Re: ruby-beginners — matz@... (Yukihiro Matsumoto)

[#7097] bltlib module — Noritsugu Nakamura <nnakamur@...>

[#7098] rbc and readline — keiju@... (Keiju ISHITSUKA)

[#7105] postgres-6.3 and postgres-module — Eiji-usagi-MATSUmoto <ematsu@...>

[#7107] calender-html.rb (Re: call for scripts) — Shin-ichiro HARA <sinara@...>

[#7111] How to simulate Perl's DATA file handle — OZAWA Sakuro <crouton@...>

[#7118] Re: rfc822.rb — 青山 和光 <PXN11625@...>

[#7119] Re: inspect (mb string) — 青山 和光 <PXN11625@...>

[#7120] Re: Ruby for MacOS, BeOS — 青山 和光 <PXN11625@...>

[#7121] simple_chat_server.rb — 青山 和光 <PXN11625@...>

[#7125] Re: CGI#include? — 青山 和光 <PXN11625@...>

[#7126] do end or {} — Eiji-usagi-MATSUmoto <ematsu@...>

[#7128] fixed man pages — Kazuhisa YANAGAWA <katze@...>

[#7145] gsub — WATANABE Tetsuya <tetsu@...>

[#7147] each_char — TEI meiki <tei@...>

[#7153] please apply me — SHUDOH Kazuyuki <shudoh@...>

[#7155] undefined class switch — keiju@... (Keiju ISHITSUKA)

[#7160] [Bug] 10e0.9 — keiju@... (Keiju ISHITSUKA)

[#7166] bit — matz@... (Yukihiro Matsumoto)

[#7173] ASCII 98/4 — WATANABE Tetsuya <tetsu@...>

[#7174] join in — takas-su@... (Takashi Sugimura)

[#7175] Re: CGI#include? — 青山 和光 <PXN11625@...>

[#7177] Re: [ruby-dev:1845] [ANNOUNCE] grepsvr.rb — Shin-ichiro HARA <sinara@...>

[#7180] chomp! — Kazunori NISHI <kazunori@...>

[#7183] Numeric — toyofuku@...

[#7186] Re: Numeric — toyofuku@...

[#7192] I hope join. — Takashi Shimizu <simtak@...>

[#7200] delegation of TCPsocket — TAKEUCHI Kahori (竹内かほり) <take-k@...>

[#7208] for in bsh — matz@... (Yukihiro Matsumoto)

[#7221] test — matz@... (Yukihiro Matsumoto)

[#7222] jcode.rb — NAGAI Hidetoshi <nagai@...>

[#7229] Re: call for scripts — Yasunari Momoi <conan@...>

[#7232] final.rb error? — tateishi@...

[#7234] final.rb error? 2 — tateishi@...

[#7238] Forward: 自己再生プログラム — matz@... (Yukihiro Matsumoto)

[#7244] [Q] test file1 -nt file2 — matz@... (Yukihiro Matsumoto)

[#7253] tk version — gotoken@... (GOTO Kentaro)

[#7257] TkScale.new(parent){to -0.1} — gotoken@... (GOTO Kentaro)

[#7259] Socket#shutdown — keiju@... (Keiju ISHITSUKA)

[#7261] — Sinichiro Dezawa <dezawa@...>

[#7282] ruby ftp mirror to my disk — Noritsugu Nakamura <nnakamur@...>

[#7284] base64.rb — jkuro@... (Kuroda Jun)

[#7285] Re: modulo — Toyofuku <toyofuku@...>

[#6860] inspect (mb string) — 青山　和光 <PXN11625@...>

[#6861] Re: http_get.rb — 青山　和光 <PXN11625@...>

[#6862] Re: http_get.rb — 青山　和光 <PXN11625@...>

[#6863] Re: http_get.rb — 青山　和光 <PXN11625@...>

[#6893] Re: http_get.rb — 青山　和光 <PXN11625@...>

[#6915] Re: inspect (mb string) — 青山　和光 <PXN11625@...>

[#6916] Re: http_get.rb — 青山　和光 <PXN11625@...>

[#6917] Re: inspect (mb string) — 青山　和光 <PXN11625@...>

[#6938] Re: ruby's Icon ? — 助田　雅紀 <masaki.suketa@...>

[#6958] Re: inspect (mb string) — 青山　和光 <PXN11625@...>

[#6968] Re: ruby's Icon ? — 助田　雅紀 <masaki.suketa@...>

[#6999] RE: [ruby-list:6994] Re: Curses and Slang Module (was Re: win32版ruby の getc について) — 助田　雅紀 <masaki.suketa@...>

[#7118] Re: rfc822.rb — 青山　和光 <PXN11625@...>

[#7119] Re: inspect (mb string) — 青山　和光 <PXN11625@...>

[#7120] Re: Ruby for MacOS, BeOS — 青山　和光 <PXN11625@...>

[#7121] simple_chat_server.rb — 青山　和光 <PXN11625@...>

[#7125] Re: CGI#include? — 青山　和光 <PXN11625@...>

[#7175] Re: CGI#include? — 青山　和光 <PXN11625@...>