qwik2md 0.1.0

data/vendor/qwik/lib/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/lib/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

data/vendor/qwik/lib/qwik/dev-replace.rb

@@ -0,0 +1,353 @@
+# 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 'pp'
+
+$LOAD_PATH << '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-pathname'
+
+def dummy_replace_line(line)	# dummy
+  return line
+end
+
+def replace_line(line)
+  return line.gsub(/\$LOAD_PATH \<\< \'\.\.\'/) {
+    "$LOAD_PATH.unshift '..'"
+  }
+end
+
+def replace_content_by_line(content, dryrun)
+  replace = false
+  newcontent = ''
+  content.each {|line|
+    newline = replace_line(line)
+    if newline != line
+      yield
+      puts "-#{line}"
+      puts "+#{newline}"
+      replace = true
+    end
+    newline = line if dryrun		# for debug
+    newcontent << newline
+  }
+  return replace, newcontent, dryrun
+end
+
+def main
+  #dryrun = false
+  dryrun = true
+
+  #Dir.glob('test-sub-*.rb') {|fname|
+
+  last_fname = ''
+
+  Dir.glob('*.rb') {|fname|
+    next if fname == 'dev-replace.rb'
+    content = open(fname, 'rb') {|f| f.read }
+
+    replace, newcontent, dryrun = replace_content_by_line(content, dryrun) {
+      if last_fname != fname
+	puts "■#{fname}"
+	last_fname = fname
+      end
+    }
+
+    if replace
+      open("#{fname}.bak", 'wb') {|f|
+	f.print content			# make backup
+      }
+      open(fname, 'wb') {|f|
+	f.print newcontent		# make new content
+      }
+    end
+  }
+end
+main
+
+=begin
+
+OLD_BANNER = <<"EOS"
+#
+# 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.
+#
+EOS
+
+NEW_BANNER = <<"EOS"
+# 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.
+EOS
+
+def replace_line(line)
+  return line.gsub(OLD_BANNER) {
+    NEW_BANNER
+  }
+end
+
+def nureplace_line(line)
+  return line.gsub(%r|2003-2005|) {
+    "2003-2006"
+  }
+end
+
+def nu2replace_line(line)
+  return line.gsub(%r|c_relative_to_absolute|) {
+    "c_relative_to_root"
+  }
+end
+
+def nu3replace_line(line)
+  return line.gsub(%r|c_relative_to_full|) {
+    "c_relative_to_absolute"
+  }
+end
+
+def replace_line(line)
+  return line.gsub(%r|\$LOAD_PATH \<\< '\.\.' unless \$LOAD_PATH\.include\?\('\.\.'\)|) {
+    "$LOAD_PATH << '..' unless $LOAD_PATH.include? '..'"
+  }
+end
+
+def replace_line(line)
+  return line.gsub(%r|\$LOAD_PATH\.unshift 'compat' unless \$LOAD_PATH\.include\? 'compat'|) {
+    "$LOAD_PATH << 'compat' unless $LOAD_PATH.include? 'compat'"
+  }
+end
+
+def nu3_replace_line(line)
+  return line.gsub(%r|\$LOAD_PATH\.unshift\('\.\.\/\.\.\/compat'\) unless \$LOAD_PATH\.include\?\('\.\.\/\.\.\/compat'\)|) {
+    "$LOAD_PATH.unshift 'compat' unless $LOAD_PATH.include? 'compat'"
+  }
+end
+
+def nu2_replace_line(line)
+  str = "\$LOAD_PATH << '..' unless \$LOAD_PATH.include?('..')"
+  restr = Regexp.escape(str)
+  #puts restr
+  # \$LOAD_PATH\ <<\ '\.\.'\ unless\ \$LOAD_PATH\.include\?\('\.\.'\)
+  re = Regexp.compile(restr)
+  out = "\$LOAD_PATH << '..' unless \$LOAD_PATH.include? '..'"
+  return line.gsub(re) {
+    out
+  }
+end
+
+def nu_replace_line(line)
+  return line.gsub(%r|\$LOAD_PATH << \'\.\./\.\./lib\' unless \$LOAD_PATH\.include\?\('\.\./\.\./lib'|) {
+    "\$LOAD_PATH << '..' unless \$LOAD_PATH.include?('..'"
+  }
+end
+
+
+# ============================== souko
+def nu_replace_line(line)
+  return line.gsub(/require \"t\/test\"/) {
+    "require \"qwik\/test-common\""
+  }
+end
+
+def nu2replace_line(line)
+  return line.gsub(/class TC\_/) {
+    'class Test'
+  }
+end
+
+def nu3replace_line(line)
+  return line.gsub(/if \$debug/) {
+    'if defined?($debug) && $debug'
+  }
+end
+
+def nu4replace_line(line)
+  return line.gsub(/assert_wiki/) {
+    'ok_wi'
+  }
+end
+
+def nu5replace_line(line)
+  return line.gsub(/assert_in\(/) {
+    'ok_in('
+  }
+end
+
+def nu6replace_line(line)
+  return line.gsub(/assert_xpath/) {
+    'ok_xp'
+  }
+end
+
+def nu7replace_line(line)
+  return line.gsub(/assert_equal/) {
+    'ok_eq'
+  }
+end
+
+def nu8replace_line(line)
+  return line.gsub(/require \"test\/unit\"/) {
+    "require \"qwik\/testunit\""
+  }
+end
+
+def nu9replace_line(line)
+  return line.gsub(/assert_xml/) {
+    'ok_in'
+  }
+end
+
+def nu10replace_line(line)
+  return line.gsub(/require \"qwik\/memory\"/) {
+    "require \"qwik\/server-memory\""
+  }
+end
+
+def nu11replace_line(line)
+  return line.gsub(/include TestQuickMLModule/) {
+    'include TestModuleML'
+  }
+end
+
+def nu12replace_line(line)
+  return line.gsub(/include TestMLSessionModule/) {
+    'include TestModuleML'
+  }
+end
+
+def nu13replace_line(line)
+  return line.gsub(/require \"qwik\/test-module-ms\"/) {
+    "require \"qwik/test-module-ml\""
+  }
+end
+
+def nu14replace_line(line)
+  return line.gsub(/user@e.com/) {
+    'bob@example.net'
+  }
+end
+
+def nu15replace_line(line)
+  return line.gsub(/Mail\.send_mail/) {
+    'Sendmail.send_mail'
+  }
+end
+
+def nu16replace_line(line)
+  return line.gsub(/class QuickML$/) {
+    'class Group'
+  }
+end
+
+def nu17replace_line(line)
+  return line.gsub(/QuickML::QuickML/) {
+    'QuickML::Group'
+  }
+end
+
+def nu18replace_line(line)
+  return line.gsub(/QuickML\./) {
+    "Group\."
+  }
+end
+
+def nu19replace_line(line)
+  return line.gsub(/require "qwik\/util-path"/) {
+    'require "qwik/util-pathname'
+  }
+end
+
+def nu20replace_line(line)
+  return line.gsub(/require "qwik\/util-pathname$/) {
+    'require "qwik\/util-pathname"'
+  }
+end
+
+def nu21replace_line(line)
+  return line.gsub(/require "qwik\\\/util-pathname"/) {
+    'require "qwik/util-pathname"'
+  }
+end
+
+def nu22replace_line(line)
+  return line.gsub(/Qwik::Config.new\(true\)/) {
+    'Qwik::Config.new(:debug=>true)'
+  }
+end
+
+def nu23replace_line(line)
+  if /\$debug/ =~ line
+    pp line
+  end
+  return line
+end
+
+def nu24replace_line(line)
+  return line.gsub(/\$debug/) {
+    '$test'
+  }
+end
+
+def nu25replace_line(line)
+# return line.gsub(/charset='([\w]+)'/) {
+#  return line.gsub(/charset='([\w-]+)'/) {
+  #a = 'charset'
+  #a = 'filename'
+  #a = 'boundary'
+  #return line.gsub(/#{a}='([\w\.-]+)'/) {
+
+  return line.gsub(/; ([A-Za-z]+)='([\w \.-]+)'/) {
+    k = $1
+    v = $2
+    "; #{k}=\"#{v}\""
+  }
+end
+
+def nu27replace_line(line)
+  return line.gsub(%r|"../../lib"|) {
+    "'../../lib'"
+  }
+end
+
+def nu28replace_line(line)
+  return line if line.include?("\\")
+  return line.gsub(%r|""|) {
+    "''"
+  }
+end
+
+def nu29replace_line(line)
+  return line if line.include?("\\")
+  return line if line.include?('<')
+  return line if line.include?('>')
+
+  line =  line.gsub(/\"(.*?)\"/) {
+    str = $1
+    ignore = %w(ascii section EOT)
+    if ignore.include?(str)
+      "\"#{str}\""
+#   elsif /\A[A-Za-z0-9\:\.\/_ |-]+\z/ =~ str
+#   elsif /\A[A-Za-z0-9\:\._ |-]+\z/ =~ str
+#   elsif /\A[A-Za-z0-9\@\:\._ |-]+\z/ =~ str
+#   elsif /\A[A-Za-z0-9\%\*\/\@\:\._ |-]+\z/ =~ str
+#   elsif /\A[A-Za-z0-9\%\*\/\@\:\._ |-]+\z/ =~ str
+    elsif /\A[A-Za-z0-9\,\%\*\/\@\:\._ \|-]+\z/ =~ str
+      "'#{str}'"
+    else
+      "\"#{str}\""
+    end
+  }
+
+  return line
+end
+
+def replace_line(line)
+  return line.gsub(%r|assert_text\(\'(.+)\', \'title\'\)|) {
+    "ok_title('#{$1}')"
+  }
+end
+
+=end

data/vendor/qwik/lib/qwik/dev-sendmail.rb

@@ -0,0 +1,25 @@
+# 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.
+
+# You can send a mail using SMTP for checking the status.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/config'
+require 'qwik/util-sendmail'
+require 'qwik/qwik-mail'
+
+def main
+  config = Qwik::Config.new
+  config.update(:smtp_host => '127.0.0.1', :smtp_port => '25')
+  mail = {
+    :from    => 'etocom@gmail.com',
+    :to      => 'etoeto@qwik.jp',
+    :subject => 'test',
+    :content => 'test desu.',
+  }
+  sendmail = Qwik::Sendmail.new('127.0.0.1', '25')
+  sendmail.send(mail)
+end
+
+main