qwikdoc 0.0.1

data/vendor/qwik/act-calc.rb

@@ -0,0 +1,371 @@
+# 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/wabisabi-table'
+
+module Qwik
+  class Action
+    D_PluginCalc = {
+      :dt => 'Spreadsheet plugin',
+      :dd => 'You can caliculate sum by a simple table.',
+      :dc => '* Example
+ {{calc
+ ,$100	,CPU
+ ,$100	,Memory
+ ,$20.5	,Cable
+ ,$250	,Graphic Card
+ ,$250	,HDD
+ ,$400	,Mother Board
+ }}
+{{calc
+,$100	,CPU
+,$100	,Memory
+,$20.5	,Cable
+,$250	,Graphic Card
+,$250	,HDD
+,$400	,Mother Board
+}}
+* Tab Caliculator Plugin
+You can use a table splited by tabs.
+ {{tab_calc
+ 6000	Book
+ 3000	Mouse
+ }}
+{{tab_calc
+6000	Book
+3000	Mouse
+}}
+'
+    }
+
+    D_PluginCalc_ja = {
+      :dt => '�\�v�Z�v���O�C��',
+      :dd => '�ȒP�ȕ\�v�Z���s�����Ƃ��ł��܂��B',
+      :dc => '* ��
+ {{calc
+ ,$100	,CPU
+ ,$100	,Memory
+ ,$20.5	,Cable
+ ,$250	,Graphic Card
+ ,$250	,HDD
+ ,$400	,Mother Board
+ }}
+{{calc
+,$100	,CPU
+,$100	,Memory
+,$20.5	,Cable
+,$250	,Graphic Card
+,$250	,HDD
+,$400	,Mother Board
+}}
+* �^�u��؂�\�v�Z�v���O�C��
+�^�u��؂�ɂ��\���v�Z�ł��܂��B
+ {{tab_calc
+ 6000	����
+ 3000	�}�E�X
+ }}
+{{tab_calc
+6000	����
+3000	�}�E�X
+}}
+'
+    }
+
+    def plg_tab_calc
+      str = yield
+      table = Action.tab_to_table(str)
+      WabisabiTable.fill_empty_td(table)
+      Action.table_calc(table)
+      return table
+    end
+
+    def self.tab_to_table(str)
+      table = [:table]
+      str.each {|line|
+	ff = line.chomp.split(/\t/)
+	next if ff.empty?
+	tr = [:tr]
+	ff.each {|f|
+	  tr << [:td, f]
+	}
+	table << tr
+      }
+      return nil if table.length == 1
+      return table
+    end
+
+    def self.table_calc(table)
+      sum = Array.new(0)
+      #pp table
+      WabisabiTable.each_td(table) {|td, col, row|
+	t = td[1]
+	prefix, n, suffix = Action.parse_num(t)
+	if n
+	  #qp col, n
+	  sum[col] ||= 0
+	  sum[col] += n
+	end
+      }
+
+      max_col = WabisabiTable.max_col(table)
+      
+      tr = [:tr, {:class=>'sum'}]
+      max_col.times {|n|
+	s = sum[n]
+	ss = ''
+	ss = s.to_s if s
+	tr << [:td, ss]
+      }
+
+      table << tr
+
+      return table
+    end
+
+    def plg_calc
+      str = yield
+
+      tokens = TextTokenizer.tokenize(str)
+
+      table = []
+      sum = []
+
+      used_prefix = []
+      used_suffix = []
+
+      tokens.each {|token|
+	case token[0]
+	when :table
+	  col = []
+	  token[1..-1].each_with_index {|t, i|
+	    prefix, n, suffix = Action.parse_num(t)
+	    col << t
+	    if n
+	      sum[i] ||= 0
+	      if sum[i] != :NaN
+		sum[i] += n
+	      end
+
+	      if prefix
+		if used_prefix[i].nil?
+		  used_prefix[i] = prefix
+		end
+	      end
+
+	      if suffix
+		if used_suffix[i].nil?
+		  used_suffix[i] = suffix
+		end
+	      end
+
+	    else
+	      sum[i] = :NaN
+	    end
+	  }
+	  table << col
+	else
+	  return 'you can use only tables in calc plugin'
+	end
+      }
+
+      if 0 < sum.length
+	sum_str = []
+	sum.each_with_index {|s, i|
+	  if s == :NaN
+	    sum_str << ''
+	  else
+	    sum_str << [used_prefix[i], s.to_s, used_suffix[i]].join
+	  end
+	}
+	tokens << [:table, *sum_str]
+      end
+
+      tree = TextParser.make_tree(tokens)
+
+      table = tree[0]
+      last_tr = table.last
+      last_tr.insert(1, {:class=>'sum'})
+
+      return tree
+    end
+
+    CALC_INT_RE   = /\A[0-9,]+\z/
+    CALC_FLOAT_RE = /\A[0-9,.]+\z/
+
+    def self.parse_num(str)
+      return [nil, 0, nil] if str.empty?
+      return [nil, nil, nil] if /\A[^0-9]+\z/ =~ str	# no number
+
+      prefix = suffix = nil
+
+      if /\A([^-0-9]+)[0-9]/ =~ str
+	prefix = $1
+	str = str.sub($1, '')
+      end
+
+      if /[0-9]([^0-9]+)\z/ =~ str
+	suffix = $1
+	str = str.sub($1, '')
+      end
+
+      if /[^-.,0-9]/ =~ str 
+	return [nil, nil, nil]
+      end
+
+      i = str.to_i
+      f = str.to_f
+      n = (f-i) == 0 ? i : f
+      return [prefix, n, suffix]
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActCalc < Test::Unit::TestCase
+    include TestSession
+
+    def test_class_method
+      c = Qwik::Action
+
+      # test_tab_to_table
+      eq nil, c.tab_to_table("")
+      eq [:table, [:tr, [:td, "a"]]], c.tab_to_table("a")
+      eq [:table, [:tr, [:td, "a"], [:td, "b"]]], c.tab_to_table("a\tb")
+      eq [:table, [:tr, [:td, "a"], [:td, "b"]], [:tr, [:td, "c"]]],
+	c.tab_to_table("a\tb\nc")
+      eq [:table, [:tr, [:td, "a"], [:td, "b"]], [:tr, [:td, "c"], [:td, "d"]]],
+	c.tab_to_table("a\tb\nc\td")
+
+      # test_parse_num
+      ok_eq([nil, 0,   nil], c.parse_num(''))
+      ok_eq([nil, nil, nil], c.parse_num('a'))
+      ok_eq([nil, 1,   nil], c.parse_num('1'))
+      ok_eq([nil, 1.5, nil], c.parse_num('1.5'))
+      ok_eq([nil, 1,  'MB'], c.parse_num('1MB'))
+      ok_eq([nil, 1.5,'MB'], c.parse_num('1.5MB'))
+      ok_eq(['$', 1,   nil], c.parse_num('$1'))
+      ok_eq(['$', 1.5, nil], c.parse_num('$1.5'))
+      eq [nil, nil, nil], c.parse_num('1/2')
+    end
+
+    def test_tab_calc
+      res = session
+
+      ok_wi [:table, [:tr, [:td, '1']], [:tr, [:td, '2']],
+	      [:tr, {:class=>'sum'}, [:td, '3']]],
+	    '{{tab_calc
+1
+2
+}}'
+
+      ok_wi [:table,
+	[:tr, [:td, "6/7"], [:td, "100"], [:td, "Item A"]],
+	[:tr, [:td, "6/8"], [:td, "200"], [:td, "Item B"]],
+	[:tr, {:class=>"sum"}, [:td, ""], [:td, "300"], [:td, ""]]],
+	    '{{tab_calc
+6/7	100	Item A
+6/8	200	Item B
+}}'
+    end
+
+    def test_all
+      res = session
+
+      # test plg_calc
+      ok_wi([:table, [:tr, [:td, '0']], [:tr, {:class=>'sum'}, [:td, '0']]],
+	    '{{calc
+,0
+}}')
+      ok_wi([:table, [:tr, [:td, '1']], [:tr, [:td, '2']],
+	      [:tr, {:class=>'sum'}, [:td, '3']]], '{{calc
+,1
+,2
+}}')
+      ok_wi([:table,
+	      [:tr, [:td, '1'], [:td, '3.4']],
+	      [:tr, [:td, '2'], [:td, '5.6']],
+	      [:tr, {:class=>'sum'}, [:td, '3'], [:td, '9.0']]],
+	    '{{calc
+,1,3.4
+,2,5.6
+}}')
+      ok_wi([:table, [:tr, [:td, 'a'], [:td, '0']],
+	      [:tr, {:class=>'sum'}, [:td, ''], [:td, '0']]],
+	    '{{calc
+,a,0
+}}')
+      ok_wi([:table, [:tr, [:td, '1MB']], [:tr, {:class=>'sum'}, [:td, '1MB']]],
+	    '{{calc
+,1MB
+}}')
+      ok_wi([:table, [:tr, [:td, '$1']], [:tr, {:class=>'sum'}, [:td, '$1']]],
+	    '{{calc
+,$1
+}}')
+      ok_wi([:table, [:tr, [:td, '$1']], [:tr, {:class=>'sum'}, [:td, '$1']]],
+	    '{{calc
+,$1,
+}}' )
+      ok_wi([:table,
+	      [:tr, [:td, "$100\t"], [:td, 'CPU']],
+	      [:tr, [:td, "$100\t"], [:td, 'Memory']],
+	      [:tr, [:td, "$20.5\t"], [:td, 'Cable']],
+	      [:tr, [:td, "$250\t"], [:td, 'Graphic Card']],
+	      [:tr, [:td, "$250\t"], [:td, 'HDD']],
+	      [:tr, [:td, "$400\t"], [:td, 'Mother Board']],
+	      [:tr, {:class=>'sum'}, [:td, "$1120.5\t"], [:td, '']]],
+	    '{{calc
+,$100	,CPU
+,$100	,Memory
+,$20.5	,Cable
+,$250	,Graphic Card
+,$250	,HDD
+,$400	,Mother Board
+}}')
+      ok_wi([:table,
+	      [:tr, [:td, '1��'], [:td, "\tCPU"]],
+	      [:tr, [:td, '1��'], [:td, "\tMemory"]],
+	      [:tr, [:td, '0.2��'], [:td, "\tAdapter"]],
+	      [:tr, [:td, '2.5��'], [:td, "\tnVidia"]],
+	      [:tr, [:td, '2.5��'], [:td, "\tHDD 250GB"]],
+	      [:tr, [:td, '4��'], [:td, "\tNAS"]],
+	      [:tr, [:td, '22��'], [:td, "\tThinkPad X40"]],
+	      [:tr, {:class=>'sum'}, [:td, '33.2��'], [:td, '']]],
+	 '{{calc
+,1��,	CPU
+,1��,	Memory
+,0.2��,	Adapter
+,2.5��,	nVidia
+,2.5��,	HDD 250GB
+,4��,	NAS
+,22��,	ThinkPad X40
+}}')
+      ok_wi([:table,
+	      [:tr, [:td, "a\t"], [:td, '10,000']],
+	      [:tr, [:td, "b\t"], [:td, '20,000']],
+	      [:tr, {:class=>'sum'}, [:td, ''], [:td, '30']]],
+	    '{{calc
+|a	|10,000
+|b	|20,000
+}}')
+      # Don't work.
+      ok_wi([:table,
+	      [:tr, [:td, "���i\t"], [:td, '�l�i']],
+	      [:tr, [:td, "a\t"], [:td, "\\10,000"]],
+	      [:tr, [:td, "b\t"], [:td, "\\20,000"]],
+	      [:tr, {:class=>'sum'}, [:td, ''], [:td, '']]],
+	    '{{calc
+|���i	|�l�i
+|a	|\\10,000
+|b	|\\20,000
+}}')
+    end
+  end
+end

data/vendor/qwik/act-charset.rb

@@ -0,0 +1,251 @@
+# 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.
+
+CHISE_DIR = File.expand_path(File.dirname(__FILE__)+'/../../../chise/ruby/lib')
+$use_charset = CHISE_DIR.path.exist?
+
+if defined?($use_charset) && $use_charset
+$LOAD_PATH << CHISE_DIR unless $LOAD_PATH.include? CHISE_DIR
+require 'chise'
+require 'chise/ids'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module Qwik
+  class Action
+    def plg_define_char
+      str = yield
+      mode = nil
+      i = nil
+
+      h = {}
+      tokens = c_tokenize(str)
+      tokens.each {|t|
+	e = t[0]
+	case e
+	when :dt
+	  # not yet.
+	when :dd
+	  # not yet.
+	when :definition_term_close, :definition_desc_close
+	  mode = nil
+	when :normal_text
+	  s = t[:s]
+	  if mode == :definition_term_open
+	    i = s
+	  elsif mode == :definition_desc_open
+	    h[i] = s
+	  end
+	end
+      }
+
+      if h['my']
+	c = "&my-#{h['my']};".de_er.char
+	h.each {|k, v|
+	  c[k] = v
+	}
+      end
+
+      return
+    end
+
+    def my_char_ids(arg)
+      return unless /\A[0-9]+\z/ =~ arg.to_s
+      return "&my-#{arg};".de_er.char.ids.to_s
+    end
+
+    def my_char_kage_url
+      return 'http://127.0.0.1:5100/'
+    end
+
+    def plg_my_char(arg)
+      ids = my_char_ids(arg).to_utf8
+      return if ids.empty?
+      ids = ids.de_er
+
+      n = ids.gsub(/#0/, CHISE::IDC_LR).
+	gsub(/#1/, CHISE::IDC_AB).
+	gsub(/#2/, CHISE::IDC_LM).
+	gsub(/#3/, CHISE::IDC_AM).
+	gsub(/#4/, CHISE::IDC_FS).
+	gsub(/#5/, CHISE::IDC_FA).
+	gsub(/#6/, CHISE::IDC_FB).
+	gsub(/#7/, CHISE::IDC_FL).
+	gsub(/#8/, CHISE::IDC_UL).
+	gsub(/#9/, CHISE::IDC_UR).
+	gsub(/#a/i, CHISE::IDC_LL).
+	gsub(/#b/i, CHISE::IDC_OV)
+
+      ids = n
+      
+      base = ids.to_a.map {|ch|
+	sprintf('u%04x',ch.ucs)
+      }.join
+      pngfile = "#{base}.gothic.png"
+      return [:img, {:src=>"#{my_char_kage_url}#{pngfile}",
+	  :style=>"width:1em;", :alt=>pngfile}]
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+# $use_charset = false
+ #class TestActCharset < Test::Unit::TestCase
+  class TestActCharset
+    include TestSession
+
+    def test_charset
+      n = 'CharTest'
+      page = @site.create(n)
+      page.store('test')
+      ok_eq(true, @site.exist?(n))
+      ok_wi('test', 'test')
+      ok_eq('test', page.load)
+      ok_eq('test', @site[n].load)
+      ok_wi('test', page.load)
+
+      str = "{{define_char
+:my:1
+:ids:#0�ؐX
+}}
+
+{{define_char
+:my:2
+:ids:#0�X�X
+}}
+"
+      page.store(str)
+
+      ok_wi('', page.load)
+      ok_eq("#0�ؐX", "&my-1;".de_er.char.ids)
+      ok_eq("#0�X�X", "&my-2;".de_er.char.ids)
+
+      url = @action.my_char_kage_url
+      page.store("{{my_char(1)}}")
+      ok_wi("<img src='#{url}u2ff0u6728u68ee.gothic.png' style='width:1em;'/>",
+	    page.load)
+      page.store("&my-1;")
+      ok_wi("<img src='#{url}u2ff0u6728u68ee.gothic.png' style='width:1em;'/>",
+	    page.load)
+      page.store("{{my_char(2)}}")
+      ok_wi("<img src='#{url}u2ff0u68eeu68ee.gothic.png' style='width:1em;'/>",
+	    page.load)
+
+      page.store("{{my_char(a)}}")
+      ok_wi('', page.load)
+
+      #page.store("&my-3;")		# does not exist.
+      #ok_wi("<p></p>\n", page.load)	# It's empty.
+
+      page.store("{{my_char_ids(1)}}")
+      ok_wi("<p>#0�ؐX</p>\n", page.load)
+      page.store("{{my_char_ids(2)}}")
+      ok_wi("<p>#0�X�X</p>\n", page.load)
+
+      @site.delete(n)
+      ok_eq(false, @site.exist?(n))
+    end
+
+    def test_charset2
+      n = 'CharTest'
+      page = @site.create(n)
+      str = "{{define_char
+:my:1
+:ids:#0�ؐX
+}}
+
+{{define_char
+:my:2
+:ids:#0�X�X
+}}
+
+{{define_char
+:my:3
+:ids:#1&U-6728;�X
+}}
+"
+      page.store(str)
+
+      ok_wi('', page.load)	# Eval the _chartest here.
+      ok_eq("#0�ؐX", "&my-1;".de_er.char.ids)
+      ok_eq("#0�X�X", "&my-2;".de_er.char.ids)
+      ok_eq("��", "&U-6728;".de_er)
+     #ok_eq("#1�ؐX", "&my-3;".de_er.char.ids)
+     #ok_eq("OV�s�d", "&my-2;".de_er.char.ids)
+      page.store("&my-1;")
+      url = @action.my_char_kage_url
+      ok_wi("<img src='#{url}u2ff0u6728u68ee.gothic.png' style='width:1em;'/>",
+	    page.load)
+
+      @site.delete(n)
+      ok_eq(false, @site.exist?(n))
+    end
+  end
+
+ #class TestChiseBasic < Test::Unit::TestCase
+  class TestChiseBasic
+    include TestSession
+
+    def test_utf8
+      @char = "��".su.char
+      assert_equal "\273\372", "��".se
+      assert_equal "\345\255\227", "��".su
+      assert_equal "\273\372", "��".su.ue
+      assert_equal "\216\232", "��"
+      assert_equal "\273\372", "��".se
+      assert_equal "\345\255\227", "��".su
+      assert_equal "\216\232", "��".su.us
+    end
+
+    def test_er
+      @char = "��".su.char
+      assert_equal 23383, "��".su.ucs
+      assert_equal @char, CHISE::Character.get("&J90-3B7A;")
+      assert_equal @char, CHISE::Character.get("&MCS-00005B57;")
+      assert_equal @char, CHISE::Character.get("&M-06942;")
+      assert_equal "��", "&J90-3B7A;".de_er.us
+      assert_equal "��", "&U5B57;".de_er.us
+      assert_equal "��", "&U-5B57;".de_er.us
+      assert_equal "��", "&U+5B57;".de_er.us
+      assert_equal "��", "&#x5B57;".de_er.us
+      assert_equal "��", "&#23383;".de_er.us
+    end
+
+    def test_my
+      @char = "��".su.char
+      # private use area: 0xe000�`0xf8ff
+      k = CHISE::Character.get(0xe001)
+      assert_equal 0xe001, k.ucs
+      assert_equal "<\356\200\201,\#xe001>", k.inspect
+
+      k = "&#xe001;".de_er.char
+      assert_equal 0xe001, k.ucs
+
+      k = "&my-0001;".de_er.char
+      assert_equal 0xe001, k.ucs
+      k.ids = CHISE::IDC_LR+"�ؐX"
+      assert_equal CHISE::IDC_LR+"�ؐX", k.ids
+      assert_equal CHISE::IDC_LR+"�ؐX", "&my-0001;".de_er.ids
+      u = 'http://home.fonts.jp:5100/'
+      k.kage_url = u
+      assert_equal u, "&my-0001;".de_er.kage_url
+
+      k = "&my-0002;".de_er.char
+      assert_equal 0xe002, k.ucs
+      k.ids = CHISE::IDC_LR+"�X�X"
+      assert_equal CHISE::IDC_LR+"�X�X", k.ids
+      assert_equal CHISE::IDC_LR+"�X�X", "&my-0002;".de_er.ids
+
+      "��".eu.mydepth = 1
+      assert_equal 1, "��".eu.mydepth
+    end
+  end
+end
+
+end