2003年07月のローテンション日記

 
=begin
color_code_waka.rb
スタイルシートでスクリプトを色分けする
ちはやさん(http://sein.pobox.ne.jp/nowhere/diary/200306a.html#d06_t1)作のをちょっと改良
定数、メソッド、インスタンス変数、グローバル変数、=begin～=endに対応
=end
class Filter
  def color_code_waka(str, type)
	#予約語 色分け時はsyntaxクラスになる。
	syntax = %w{
		BEGIN END alias and begin break case def defined? do else elsif end ensure for if in module next not or redo rescue retry return super then undef unless until when while yield
	}
	#擬似変数 色分け時はvarクラスになる
	variable = %w{
         self true false nil __FILE__ __LINE__
      }
	#強調語 色分け時はemphasisクラスになる
	emphasis = %w{
		require private public include attr_reader attr_writer attr_accessor initialize protected each times
	}
	case type
	when :CODE
	  str.gsub!(/&/, "&")
	  str.gsub!(/</, "&lt;")
	  str.gsub!(/>/, "&gt;")
	  str.gsub!(/(".*?")/, %q{<em class="value">\1</em>})
	  str.gsub!(/('.*?')/, %q{<em class="value">\1</em>})
	  str.gsub!(/(%q{.*?})/i, %q{<em class="value">\1</em>})
	  str.gsub!(/(%w{.*?})/i, %q{<em class="value">\1</em>})
	  # add by waka
	  str.gsub!(/(def +)([\w\d_]+)(\(.*\))?$/){ #メソッド
		head = $1
		key = $2
		arg = $3
		a = "#{head}<em class=\"function\">#{key}</em>#{arg}"
		a
	  }
	  str.gsub!(/(@[^[. ]+)([. ])/, %q{<em class="var">\1</em>\2}) #インスタンス変数
	  str.gsub!(/(class[ \t]+)([A-Z][^. =]+)$/,'\1<em class="constant">\2</em>') #定数、クラス名
	  str.gsub!(/([A-Z][\w\d]+)([. =])/){  #定数、クラス名
		key = $1
		tail = $2
		unless key =~ /__$/ then
		  tail = tail unless tail.empty?
		  a = "<em class=\"constant\">#{key}</em>#{tail}"
		else
		  a = "#{key} "
		end
		a
	  }
	  str.gsub!(/(\$[\w\d]+)[ =]?$?/){  #グローバル変数
		key = $1
		a = "<em class=\"var\">#{key}</em>"
		a
	  }
	  str.gsub!(/(^=begin.*=end$)/mi){ # =begin ～ =end 用
		key = $1.gsub(/^=begin/,"=b_egin").gsub(/=end$/,"=e_nd")
		a = "<em class=\"comment\">#{key}</em>"
		a
	  }
	  syntax.each do |word|
		str.gsub!(/((\b)#{word}(\b))/i, %q{<em class="syntax">\1</em>})
	  end
	  #classはhtml中で使われるため別扱いで
	  str.gsub!(/((\b)class(\s))/i, %q{<em class="syntax">\1</em>})
	  variable.each do |word|
		str.gsub!(/((\b)#{word}(\b))/i, %q{<em class="var">\1</em>})
	  end
	  emphasis.each do |word|
		str.gsub!(/((\b)#{word}(\b))/i, %q{<em class="emphasis">\1</em>})
	  end
	  str.gsub!(/(#[^{].*)/, %q{<em class="comment">\1</em>})
	when :AFTER_CODE
	  str.gsub!(/<em class=\"syntax\"><em class=\"syntax\">end<\/em><\/em>/, "<em class=\"syntax\">end</em>")
	  str.gsub!(/=b_egin$/,"=begin")
	  str.gsub!(/=e_nd<\/em>$/,"=end<\/em>")
	end
  end
end

/*定数*/
pre em.constant{
    color: #00aa22;
    font-style: normal;
}
/*関数・メソッド*/
pre em.function{
    color: #00bb22;
    font-style: normal;
}

 
=begin
	comment
=end
$zzz = $0
class Hoge
	def foo
		@foo = "unyu"
	end
end
p Hoge.new.foo
p $zzz.to_s

 RubyCode:
 ソースコード
 CodeRuby:

 
# $Id: topic.rb,v 1.11 2003/01/22 12:53:11 not Exp $
 
# トピック一覧作成クラス
class Topics
  include DiaryModule
 
  @@topic = nil
 
  attr_accessor :showVersion
  attr_reader   :regexp
  attr_accessor :pattern
  attr_accessor :replace
  attr_reader   :diary
 
  def initialize
    @topicMonthFormat = '%Y年%0m月'
    @topicDateFormat  = '%0d日(%e)'
    @regexp   = ''
    @pattern  = ''
    @replace  = ''
    @filename = ''
    @diary    = nil
    @topic    = nil
    @years    = []
    
  end
 
  def skelton=(filename)
    @skelton = @filename = filename
  end
  
  def topicMonthFormat=(str)
    @topicMonthFormat = str unless str.nil?
  end
 
  def topicDateFormat=(str)
    @topicDateFormat = str unless str.nil?
  end
 
  def regexp=(regexp)
    @regexp = regexp
    @topic = nil
  end
 
  def diary=(d)
    @lastestFilename = d.latestFilename
    @monthlyFilename = d.monthlyFilename
    @outputKcode     = d.outputKcode
    @monthPartNames  = d.monthPartNames
    @months          = d.months
    @allDiaries      = d.allDiaries
    @diaries         = d.diaries
    @outputDirectory = d.outputDirectory
    @logDirectory    = d.logDirectory
    @config          = d.config
  end
 
  def loadtopics
    return @@topic unless @@topic.nil?
    topic = {}
    Dir[@logDirectory + '[0-9]' * 6 + '.topic'].each{ |filename|
      open(filename){ |file|
        file.each{ |line|
          t = line.chomp.split(/\t/)
          date = t.shift
          topic[date[0..5]] = {} unless topic.key?(date[0..5])
          topic[date[0..5]][date[6..7]] = t
          for i in 0...t.size
            t[i].gsub!(/<.+?>/, '')
            t[i] = ["_t#{i+1}", t[i].chomp]
          end
        }
      }
    }
    @@topic = Marshal::dump(topic)
  end
 
  def filter_topics(diaries)
    return @topic unless @topic.nil?
    loadtopics
    regexp  = Regexp::compile(@regexp)
    topic   = Marshal::load(@@topic)
 
    topic.delete_if{ |month, days|
      days.delete_if{ |date, topics|
        topics.delete_if{ |line| regexp !~ line[1] }
        topics.size.zero? or !diaries.include?(month + date)
      }
      days.size.zero?
    }
 
    years = []
    topic.keys.each { |month|
      years << month[0..3].to_s
    }
    @years = years.sort.uniq
 
    @topic = Marshal::dump(topic)
  end
 
  def enumerate_years(diaries)
    filter_topics(diaries)
    @years
  end
  
  def tohtml(diaries, putmonth = true, year = '')
    body = ''
    @diaries = diaries
    topic = Marshal::load(filter_topics(diaries))
 
    pattern = Regexp::compile(@pattern)
 
    topic.keys.sort.reverse_each{ |month|
      next unless month[0..3].index(year)
      monthlink = []
      monthhtml = ''
      
      topic[month].keys.sort.each{ |date|
        d = Time::local(month[0..3], month[4..5], date)
        monthhtml << "\t\t<li>#{d.strftime2(@topicDateFormat)} : "
        monthhtml << topic[month][date].collect!{ |t|
          monthlink << "<a href=\"#{date2monthlyfilelink(month+date)}\">#{@monthPartNames[date.to_i]}</a>"
          "<a href=\"#{date2monthlyfilelink(month+date, true)}#{t[0]}\">#{t[1].gsub(pattern, @replace)}</a>"
        }.join(' / ')
        monthhtml << "</li>\n"
      }
 
      if putmonth then
        m = Time::local(month[0..3], month[4..5])
 
        if @monthPartNames.uniq.size == 1 then
          body << "\t<dt><a #{isXHTML ? 'id' : 'name'}=\"t#{month}\" href=\"#{date2monthlyfilelink(month+'01')}\">"
          body << "#{m.strftime2(@topicMonthFormat)}</a></dt>\n\t<dd><ul>\n"
        else
          monthlink.uniq!
          body << "\t<dt><a #{isXHTML ? 'id' : 'name'}=\"t#{month}\">#{m.strftime2(@topicMonthFormat)}</a> ( "
          body << monthlink.join(' / ')
          body << " )</dt>\n\t<dd><ul>\n"
        end
      end
      body << monthhtml
      body << "\t</ul></dd>\n" if putmonth
    }
    if putmonth then
      return "<dl>\n" + body + "</dl>\n"
    else
      return "<ul>\n" + body + "</ul>\n"
    end
  end
 
  def writeHTML(diaries, putmonth = true, year = nil)
 
    @outputKcode = 1 if (@outputKcode < 1 or @outputKcode > 3)
 
    if /.html?$/i !~ @skelton then
      part_diaries = diaries.dup
      if year.nil? then
        enumerate_years(diaries).each{ |y|
          part_diaries.delete_if{ |date| date[0..3] != year }
          puthtml(@outputDirectory + @skelton + y + '.html',
                  @logDirectory + @skelton + '.html', part_diaries, putmonth, y)
        }
      else
        part_diaries.delete_if{ |date| date[0..3] != year }
        puthtml(@outputDirectory + @skelton + year + '.html',
                @logDirectory + @skelton + '.html', part_diaries, putmonth, year)
      end
    else
      puthtml(@outputDirectory + @skelton, @logDirectory + @skelton, diaries, putmonth)
    end
 
  end
 
  def puthtml(filename, skelton, diaries, putmonth, year = '')
    out = open(filename, "w")
    begin
      infile = open(skelton)
      infile.each { |line|
        loadplugin(line)
        if line.gsub!(/<!--body-->/i, "") then
          out.print tohtml(diaries, putmonth, year).kconv(@outputKcode)
        end
        out.print line.kconv(@outputKcode)
      }
      infile.close
 
      out.close
    rescue Errno::ENOENT
      $stderr.puts "\n** error: topics skelton file: '#{skelton}' not found.\n"
      return
    end
    print "make '#{filename}'\n"
  end
end

 
SupportLang = "Ruby|Shell|Python"

 
if /strings hoge foo/i =~ str

 ShellCode:
 シェルスクリプト
 CodeShell:

 
# /etc/profile.d/lang.sh - set i18n stuff
 
sourced=0
for langfile in /etc/sysconfig/i18n $HOME/.i18n ; do
    [ -f $langfile ] && . $langfile && sourced=1
done
 
if [ -n "$GDM_LANG" ]; then
    sourced=1
    LANG="$GDM_LANG"
fi
 
if [ "$sourced" = 1 ]; then
    [ -n "$LANG" ] && export LANG || unset LANG
    [ -n "$LC_CTYPE" ] && export LC_CTYPE || unset LC_CTYPE
    [ -n "$LC_COLLATE" ] && export LC_COLLATE || unset LC_COLLATE
    [ -n "$LC_MESSAGES" ] && export LC_MESSAGES || unset LC_MESSAGES
    [ -n "$LC_NUMERIC" ] && export LC_NUMERIC || unset LC_NUMERIC
    [ -n "$LC_MONETARY" ] && export LC_MONETARY || unset LC_MONETARY
    [ -n "$LC_TIME" ] && export LC_TIME || unset LC_TIME
    if [ -n "$LC_ALL" ]; then
       if [ "$LC_ALL" != "$LANG" ]; then
         export LC_ALL
       else
         unset LC_ALL
       fi
    else
       unset LC_ALL
    fi
    [ -n "$LANGUAGE" ] && export LANGUAGE || unset LANGUAGE
    if [ -n "$LINGUAS" ]; then
       if [ "$LINGUAS" != "$LANG" ]; then
          export LINGUAS
       else
          unset LINGUAS
       fi
    else
       unset LINGUAS
    fi
    [ -n "$_XKB_CHARSET" ] && export _XKB_CHARSET || unset _XKB_CHARSET
 
    if [ -n "$CHARSET" ]; then
	case $CHARSET in
	    8859-1|8859-2|8859-15|koi*)
                if [ "$TERM" = "linux" -a "`/sbin/consoletype`" = "vt" ]; then
                       echo -n -e '\033(K' 2>/dev/null > /proc/$$/fd/0
                fi
                ;;
        esac
    elif [ -n "$SYSFONTACM" ]; then
	case $SYSFONTACM in
	    iso01*|iso02*|iso15*|koi*|latin2-ucw*)
		if [ "$TERM" = "linux" -a "`/sbin/consoletype`" = "vt" ]; then
			echo -n -e '\033(K' 2>/dev/null > /proc/$$/fd/0
		fi
		;;
	esac
    fi
 
    unset SYSFONTACM SYSFONT
fi

$ ./configure --enable-all-plugins --enable-all-static
$ make
# make install

# cd /usr/X11R6/lib/X11/fonts/TrueType
# mktcapdir `pwd` *.ttfconf

sudo mount -o iocharset=euc-jp,codepage=932 /dev/cdrom /mnt/cdrom