qwikdoc 0.0.1

data/vendor/qwik/dev-calctime.rb

@@ -0,0 +1,52 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-path'
+
+def die(msg)
+  puts msg
+  exit 1
+end
+
+def main
+  #log = 'log'.path
+  log = ARGV.shift
+  die('Usage: dev-calctime log') if log.nil?
+  
+  log = log.path
+  die('log not found.') if ! log.exist?
+
+  content = log.open {|f| f.read }
+
+  ar = []
+  content.each_line {|line|
+    line.chomp!
+    if /(\([0-9\.]+\))\z/ =~ line
+      time = $1
+      time = time.sub(/\A\(/, '').sub(/\)\z/, '').to_f
+
+      line = line.sub(/(\([0-9\.]+\))\z/, '')
+      method, klass = line.split(/[\(\)]/)
+      ar << [time, klass, method]
+    end
+  }
+
+  newstr = ''
+  ar.sort.reverse.each {|time, klass, method|
+    if 0.1 < time
+      line = "#{time}\t#{klass}\t#{method}\n"
+      newstr << line
+    end
+  }
+
+  if false
+    'out'.path.open('wb') {|out|
+      out.print newstr
+    }
+  else
+    print newstr
+  end
+end
+main

data/vendor/qwik/dev-css-compressor.rb

@@ -0,0 +1,60 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-pathname'
+
+class CSSCompressor
+  def self.run
+    generate_src
+  end
+
+  def self.generate_src
+    src = <<'EOT'
+/*
+
+Copyright (C) 2003-2006 Kouichirou Eto
+    All rights reserved.
+    This is free software with ABSOLUTELY NO WARRANTY.
+
+You can redistribute it and/or modify it under the terms of 
+the GNU General Public License version 2.
+
+This file is automatically generated.
+PLEASE DO NOT EDIT THIS FILE.
+
+*/
+EOT
+    '.'.path.each_entry {|file|
+      f = file.to_s
+      next unless /\.css\z/ =~ f
+      s = ''
+      file.open {|f|
+	while line = f.gets
+	  line.sub!(/\/\/.+$/, '')
+	  line.sub!(/\A\s+/, '')
+	  line.sub!(/\A([-\w]+:)\s+/) { $1 }
+	  case line
+	  when /\A\/\//, /\A\s*$/
+	    # do nothing
+	  when /\A\/\*.+\*\/$/
+	    # do nothing
+	  else
+	    s << line
+	  end
+	end
+	f.read
+      }
+      src << s
+    }
+
+    '../all.css'.path.open('wb') {|f|
+      f.puts src
+    }
+  end
+end
+
+if $0 == __FILE__
+  CSSCompressor.run
+end

data/vendor/qwik/dev-extract-catalog.rb

@@ -0,0 +1,102 @@
+#! /usr/bin/ruby
+# Copyright (C) 2003-2008 AIST, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+require 'pathname'
+require 'pp'
+require 'stringio'
+$KCODE = 'SJIS'
+
+class String
+  def trim_line!
+    self.chomp!
+    self.gsub!(/\A\s*/, '')
+    self.gsub!(/\s*\z/, '')
+  end
+
+  def strip_metachar!
+    self.gsub!(/\\n/, '')
+    self.gsub!(/\\"/, '"')
+    self.sub!(/\A['"]/, '')
+    self.sub!(/['"]\Z/, '')
+  end
+
+  def del!(regexp)
+    self.gsub!(regexp) { '' }
+  end
+end
+
+class ExtractCatalog
+  def main
+    mypath = Pathname.new(__FILE__)
+
+    catalog_ja = mypath.parent + 'catalog-ja.rb'
+    ar = parse(catalog_ja)
+    outpath = Pathname.new '../../interfaces-web.txt'
+    output(outpath, ar)
+
+    catalog_ml_ja = mypath.parent + 'catalog-ml-ja.rb'
+    ar = parse(catalog_ml_ja)
+    outpath = Pathname.new '../../interfaces-ml.txt'
+    output(outpath, ar)
+  end
+
+  def parse(path)
+    str = path.read
+
+    str2 = ''
+    str.each_line {|line|
+      line.trim_line!
+
+      next if line.empty?
+
+      case line
+      when /^#/, /^module /, /^class /, /^def /, /^\{/, /^\}/, /^end$/,
+	  /^:charset/, /^:codeconv/
+	next
+      end
+
+      str2 << line
+    }
+
+    ar = []
+    lines = str2.split(/['"],['"]/)
+    lines.each {|line|
+      e, j = line.split(/['"]\s*=>\s*['"]/)
+      ar << [e, j]
+    }
+
+    return ar
+  end
+
+  def output(outpath, ar)
+    outpath.open('w') {|out|
+      ar.each {|e, j|
+	next if e.nil?
+	next if j.nil?
+
+	e.del!(/\A'/)
+	j.del!(/['"],\z/)
+	e.del!(/\\n/)
+	j.del!(/\\n/)
+
+	e.gsub!(/\\\"/) { '"' }
+
+	next if e.empty?
+	next if j.empty?
+
+	next if e == '->'
+	next if e == '<-'
+	next if j == '��'
+	next if j == '��'
+
+	out.puts j
+	out.puts e
+	out.puts
+      }
+    }
+  end
+end
+
+ExtractCatalog.new.main

data/vendor/qwik/dev-js-compressor.rb

@@ -0,0 +1,73 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-pathname'
+
+class JavaScriptCompressor
+  def self.run
+    generate_src
+  end
+
+  def self.generate_src
+    src = <<'EOT'
+//
+// Copyright (C) 2003-2006 Kouichirou Eto
+//     All rights reserved.
+//     This is free software with ABSOLUTELY NO WARRANTY.
+//
+// You can redistribute it and/or modify it under the terms of 
+// the GNU General Public License version 2.
+//
+
+// This file is automatically generated.
+// PLEASE DO NOT EDIT THIS FILE.
+EOT
+   #add_all_js(src)
+    add_some_js(src)
+    '../all.js'.path.open('wb') {|f|
+      f.puts src
+    }
+  end
+
+  def self.add_some_js(src)
+    path = '.'.path
+   #ar = %w(base history monitor niftypp wysiwyg)
+    ar = %w(base niftypp)
+    ar.each {|f|
+      pa = path+(f+'.js')
+      src << read_file(pa)
+    }
+  end
+
+  def self.add_all_js(src)
+    path = '.'.path
+    path.each_entry {|file|
+      f = file.to_s
+      next unless /\.js\z/ =~ f
+      src << read_file(file)
+    }
+  end
+
+  def self.read_file(file)
+    s = ''
+    file.open {|f|
+      while line = f.gets
+	line.sub!(/\/\/.+$/, "")
+	case line
+	when /\A\/\//, /\A\s*$/
+	  # do nothing
+	else
+	  s << line
+	end
+      end
+      f.read
+    }
+    s
+  end
+end
+
+if $0 == __FILE__
+  JavaScriptCompressor.run
+end

data/vendor/qwik/dev-release.rb

@@ -0,0 +1,235 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+require 'optparse'
+require 'time'
+require 'fileutils'
+include FileUtils
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/config'
+require 'qwik/util-time'
+require 'qwik/util-pathname'
+
+module Qwik
+  class MakeRelease
+    LIBDIR = File.dirname(__FILE__)
+
+    def self.main(argv)
+      type = MakeRelease.parse_args(argv)
+
+      config = Config.new
+      libdir = LIBDIR
+      date = Time.now.ymd_s
+      version = VERSION
+      ml_version = QuickML::VERSION
+      base = "qwik-#{version}"
+      targz = "#{base}.tar.gz"
+      upload_dest = 'eto.com:/var/www/2004/qwikWeb/'
+
+      case type
+      when :generate_version
+	GenerateVersion.generate(libdir, version, ml_version, date)
+      when :generate_manifest
+	GenerateManifest.generate('.')
+      when :generate_dist
+	GenerateDist.generate(base, targz)
+      when :upload
+	Upload.upload(targz, upload_dest)
+      end
+    end
+
+    def self.parse_args(args)
+      type = nil
+      optionparser = OptionParser.new {|opts|
+	opts.banner = 'Usage: dev-release.rb [options]'
+	opts.separator ''
+	opts.separator 'Specific options:'
+	opts.on('--generate-vesrion', 'Generate version file.') {|a|
+	  type = :generate_version
+	}
+	opts.on('--generate-manifest', 'Generate MANIFEST file.') {|a|
+	  type = :generate_manifest
+	}
+	opts.on('--generate-dist', 'Generate dist archive.') {|a|
+	  type = :generate_dist
+	}
+	opts.on('--upload', 'Upload dist file.') {|a|
+	  type = :upload
+	}
+	opts.separator ''
+	opts.separator 'Common options:'
+	opts.on_tail('-h', '--help', 'Show this message') {
+	  puts opts
+	  exit
+	}
+      }
+      optionparser.parse!(args)
+
+      if type.nil?
+	puts 'To show usage, type like this
+
+  % ruby dev-release.rb -h
+
+'
+	exit
+      end
+      return type
+    end
+  end
+
+  class GenerateVersion
+    def self.generate(libdir, version, ml_version, date)
+      version_str = "# Automatically generated.
+# DO NOT EDIT!
+
+module Qwik
+  VERSION = '#{version}'
+  RELEASE_DATE = '#{date}'
+end
+
+module QuickML
+  VERSION =  '#{ml_version}'
+end
+"
+      "#{libdir}/version.rb".path.write(version_str)
+    end
+  end
+
+  class GenerateManifest
+    def self.generate(cwd)
+      ar = []
+      cwd.path.find {|f|
+	ar << f.to_s if public_file?(f)
+      }
+      ar += %w(etc/ log/)
+
+      open('MANIFEST', 'wb'){|out|
+	ar.sort.each {|f|
+	  out.puts f
+	}
+      }
+    end
+
+    IGNORE_DIR = %w(backup cache data etc grave log work .svn)
+    IGNORE_PATTERN = %w(
+CVS sfcring memo.txt tar.gz .rm .MP4 .cvsignore
+.stackdump
+.o
+.so
+testlog.txt
+.#
+#
+qwik-0.
+charts.swf
+charts_library
+.config
+lib/qwik/dev-
+.bak
+)
+
+#album.swf
+#lib/qwik/mock-
+#lib/qwik/test-
+
+    def self.public_file?(file)
+      return false if file.directory?
+      s = file.to_s
+      IGNORE_DIR.each {|dir|		# ignore dir
+	return false if /^#{dir}/ =~ s
+	return false if /\/#{dir}\// =~ s
+      }
+      IGNORE_PATTERN.each {|pat|	# ignore pattern
+	return false if s.include?(pat)
+      }
+      return false if /~$/ =~ s
+      return true
+    end
+  end
+
+  class GenerateDist
+    def self.generate(base, targz)
+      opt = {}		# dummy
+      files = open('MANIFEST'){|f| f.read }.split
+      rm_rf(base, opt)
+      rm_f(targz, opt)
+      mkdir(base, opt)
+      cp_all(files, base, opt)
+      make_default_siteconfig(base)
+      make_default_password(base)
+      system_p("tar zcf #{targz} #{base}", opt)
+      rm_rf(base, opt)
+    end
+
+    def self.cp_all(src, dest, opt={})
+      src.each {|file|
+	dir = File.dirname(file)
+	dir = file.chop if file =~ /\/$/
+	destdir = dest+'/'+dir
+	mkdir_p(destdir, opt) unless FileTest.directory? destdir
+	cp_p(file, destdir, opt) unless file =~ /\/$/
+      }
+    end
+
+    def self.cp_p(src, dest, options={})
+      opt = options.dup
+      opt[:preserve] = true
+      cp(src, dest, opt)
+    end
+
+    def self.system_p(cmd, options={})
+      print "#{cmd}\n" if options[:verbose]
+      return if options[:noop]
+      system cmd
+    end
+
+    def self.make_default_siteconfig(base)
+      Dir.mkdir(base+'/data') unless File.exist?(base+'/data')
+      Dir.mkdir(base+'/data/www') unless File.exist?(base+'/data/www')
+      open(base+'/data/www/_GroupForward.txt', 'wb'){|out|
+	out.print "\n"
+      }
+      open(base+'/data/www/_SiteMember.txt', 'wb'){|out|
+	out.print ",guest@qwik\n"
+      }
+      open(base+'/share/super/_SiteConfig.txt', 'rb'){|f|
+	open(base+'/data/www/_SiteConfig.txt', 'wb'){|out|
+	  while line = f.gets
+	    line = line.sub(/:open:false/, ':open:true')
+	    out.print line
+	  end
+	}
+      }
+    end
+
+    def self.make_default_password(base)
+      etc_copy_file(base, 'etc/config.txt')
+      etc_copy_file(base, 'etc/config-debug.txt')
+    end
+
+    def self.etc_copy_file(base, file)
+      str = read_file(file)
+      write_file(base+'/'+file, str)
+    end
+
+    def self.read_file(file)
+      open(file){|f| f.read }
+    end
+
+    def self.write_file(file, str)
+      open(file, 'wb'){|f| f.print str }
+    end
+  end
+
+  class Upload
+    def self.upload(targz, upload_dest)
+      opt = {}		# dummy
+      GenerateDist.system_p("scp #{targz} #{upload_dest}", opt)
+    end
+  end
+end
+
+if $0 == __FILE__
+  Qwik::MakeRelease.main(ARGV)
+end