#!/usr/bin/env ruby
# -*- Ruby -*-
#
# SL Zaurus用 コミケットカタROMブラウザ（サンプルコード状態)
#
# 材料:
# - Ruby と Ruby/Qte 
#     http://takahr.dhis.portside.net/cgi-bin/rwiki.cgi?cmd=view;name=Ruby%2FQte
# - SQLite
#     http://sourceforge.net/projects/pysqlite/
# - データーベースファイル
#     c:\Program Files\コミケット\カタログブラウザ\CCATALOG.DB
# - サークルカット画像
#     CDROMのPDATAディレクトリ
#
# 状態:
#   まともに機能実装されていません。あと、遅すぎてだめぽ。
#
require 'qte'
require 'qpe'

include Qte;
include Qpe;

# 設定
CCATALOG='/mnt/cf/ccatalog.db'
PDATA='/mnt/cf/pdata/'
SQLITE='/usr/bin/sqlite'


SJISCODEC=QTextCodec .codecForName("SJIS")

def t(str)
  SJISCODEC .toUnicode(str)
end

def query(sql, &block)
  open("| #{SQLITE} #{CCATALOG} '#{sql}'", "r") do |f|
    f .each do |line|
      line .chomp!
      # エスケープ見てないので内容によっては項目ずれます。
      ary = line .split('|', -1)
      ary .collect! {|v| t(v)}
      block .call(*ary) 
    end
  end
end

class PageView < QVBox
  def initialize(parent = nil, name = '')
    super(parent, name)
    @pages = []
    
    Dir .glob(PDATA + "*.png") .sort .each do |file|
      @pages .push(file)
    end

    @scrollview = QScrollView.new(self)
    @page = QWidget .new(@scrollview .viewport)
    @scrollview .addChild(@page);

    @scrollbar = QScrollBar .new(0, @pages.size,
                                 1, 10, 0, 
                                 Horizontal, self)
    @scrollbar .setTracking(false)
    connect(@scrollbar, QSIGNAL('valueChanged(int)'), 'valueChanged')
    @scrollbar .setValue(0)
  end

  def valueChanged(value)
    # QPEのQPixmapは拡大縮小不可＝□○＿
    # あとRubyからだとQDirectPainter使えないので似非ぺたのを持ってくるのも�_。
    @pixmap = QPixmap .new(@pages[value])
    @page .setBackgroundPixmap(@pixmap)
    @page .setFixedSize(@pixmap.size())
  end
end

class CheckListView < QListView
  def initialize(parent = nil, name = '')
    super(parent, name)
    
    # 横長すぎ。
    addColumn(t('参加日'))
    addColumn(t('スペース'))
    addColumn(t('サークル名'))
    addColumn(t('読みがな'))
    addColumn(t('執筆者'))
    addColumn(t('発行誌'))
    addColumn(t('URL'))
    addColumn(t('Mail'))
    addColumn(t('補足'))
    addColumn(t('メモ'))

    # クエリー遅い......
    query(<<END) \
  select d.weekday, a.name, b.name, c.spaceNoSub, 
         c.circleName, c.circleKana, c.penName, c.bookName, 
         c.url, c.mailAddr, c.description, c.memo
    from ComiketCircle c, ComiketArea a, 
         ComiketBlock b, ComiketDate d
    where c.blockId = b.id 
      and c.day = d.id
      and b.areaId = a.id
      and c.blockId=3
END
    do |weekday, area, block, spaceNoSub, 
	circleName, circleKana, penName, bookName,
	url, mailAddr, description, memo|
      # QStringの+演算子がRubyからだと使えないっぽ。
      space = block
      
      # コンストラクタで全項目指定したかったけど一個多い。
      item = QListViewItem .new(self)
      item .setText(0, weekday)
      item .setText(1, space)
      item .setText(2, circleName)
      item .setText(3, circleKana)
      item .setText(4, penName)
      item .setText(5, bookName)
      item .setText(6, url)
      item .setText(7, mailAddr)
      item .setText(8, description)
      item .setText(9, memo)
    end
  end
end


# 以下のViewは未作成。
class CircleInfoView < QVBox
  def initialize(parent = nil, name = '')
    super(parent, name)
    QLabel .new("CircleInfoView", self)
  end
end

class MapView < QVBox
  def initialize(parent = nil, name = '')
    super(parent, name)
    QLabel .new("MapView", self)
  end
end

class CircleListView < QVBox
  def initialize(parent = nil, name = '')
    super(parent, name)
    QLabel .new("CircleListView", self)
  end
end

# QTabBar.newが動かんのでラジオボタンで代用。
class TabBar < QButtonGroup
  def initialize(parent = nil, name = '')
    super(parent, name)
    @layout = QHBoxLayout.new(self)
    @layout .setAutoAdd(true)
    @selected = RSignal .new("int")
    connect(self, QSIGNAL('clicked(int)'),
            "changed")
  end

  def add(tablabel)
    QRadioButton .new(tablabel, self)
  end

  def changed(id)
    selected .sendWith(id)
  end

  attr_reader :selected
end

class MainWindow < QMainWindow
  def initialize(parent = nil, name = '')
    super(parent, name)

    setToolBarsMovable( false )
    setCaption('foobar')
    catchEvent

    @vbox = QVBox .new(self)
    @widgetstack = QWidgetStack .new(@vbox)
    @tabbar = TabBar .new(@vbox)
    @vbox .setStretchFactor(@widgetstack, 1)
    connect(@tabbar .selected, "tabchanged")
    setCentralWidget(@vbox)

    @views = []
    
    @tabbar .add("circlecat")
    @views .push(PageView .new(@widgetstack))

    @tabbar .add("checklist")
    @views .push(CheckListView .new(@widgetstack))

    @tabbar .add("circleinfo")
    @views .push(CircleInfoView .new(@widgetstack))

    @tabbar .add("map")
    @views .push(MapView .new(@widgetstack))

    @tabbar .add("circlelist")
    @views .push(CircleListView .new(@widgetstack))

    @widgetstack .raiseWidget(@views[0])
  end

  def tabchanged(id)
    @widgetstack .raiseWidget(@views[id])
  end
end

# お約束なのでツッコミは無しで。
if $0 == __FILE__ then
   a = QPEApplication.new([$0] + ARGV)
   mw = MainWindow .new()
   a.showMainDocumentWidget(mw)
   a.exec
end