2011年10月30日日曜日

FacebookのQuestionを取得

Geaph APIでQuestionが取得できるようになったそうです。 https://developers.facebook.com/docs/reference/api/question/ 
自分があまりQuestionを利用しないのでこのAPIの需要が分かっていないんですが…

  • Questionsの取得には「user_questions」又は「friends_questions」のpermissionが必要
  • /USER_ID/questionsでUSER_IDのQuestion一覧を取得
  • /QUESTION_ID/optionsで選擇肢を取得(この情報は/USER_ID/questionsに含まれているけど。。。) 
  • /QUESTION_OPTION_ID/votesで投票したユーザの一覧を取得 


試してみました、
require 'haml'
require 'koala'
require 'omniauth'
require 'rubygems'
require 'sinatra'

APP_ID = "212005055538084"
APP_SECRET = "hogehoge"

enable :sessions

use OmniAuth::Strategies::Facebook, APP_ID, APP_SECRET, :scope => 'user_questions' 

get '/auth/facebook/callback' do
  auth_hash = request.env["omniauth.auth"]
  uid = auth_hash["uid"]
  token = auth_hash["credentials"]["token"]
  graph = Koala::Facebook::API.new token

  result = graph.batch do |api|
    # 毎回:batch_args => ...て書くの気持ち悪いので特異メソッド定義
    def api.get_connects(id, conn, name="")
      self.get_connections(
        id, conn, {}, 
        :batch_args => { :name => name, :omit_response_on_success => false})
    end

    api.get_connects uid, "questions", "get-qs"
    api.get_connects "{result=get-qs:$.data[0].id}", "options", "get-ops"
    api.get_connects "{result=get-ops:$.data[0].id}", "votes"
    api.get_connects "{result=get-ops:$.data[1].id}", "votes"
    api.get_connects "{result=get-ops:$.data[2].id}", "votes"
  end

  haml '%div= result.to_s', :locals => { :result => result }

end
こんなjson返ってきました。
[
  [
    {
      "id": "170514669705292",
      "from": {
        "name": "Sinjin Ra",
        "id": "100002402797320"
      },
      "question": "今年の流行語は?",
      "created_time": "2011-10-30T12:25:51+0000",
      "updated_time": "2011-10-30T12:25:51+0000",
      "options": {
        "data": [
          {
            "id": "267486769961495",
            "from": {
              "name": "Sinjin Ra",
              "id": "100002402797320"
            },
            "name": "トゥットゥルー",
            "votes": 3,
            "created_time": "2011-10-30T12:25:50+0000"
          },
          {
            "id": "234349516624548",
            "from": {
              "name": "Sinjin Ra",
              "id": "100002402797320"
            },
            "name": "ドラマチックこそ、 人生です。",
            "votes": 2,
            "created_time": "2011-10-30T12:25:48+0000"
          },
          {
            "id": "309092772438842",
            "from": {
              "name": "Sinjin Ra",
              "id": "100002402797320"
            },
            "name": "ほびろん",
            "votes": 2,
            "created_time": "2011-10-30T12:25:49+0000"
          }
        ],
        "paging": { ...
..]

Herokuで試してみました、初Herokuです、
デプロイ(git push)したらアプリが動いているって画期的です、
…久々にClojure触りたくなってきました(HerokuはClojureもサポート)

2011年10月23日日曜日

OS XにGaucheをインストール


Shibuya.lispテクニカルトーク第7回行ってきました、
Shibuya.lisp、初参加です、

なにはともあれインパクト強すぎました、
Lispマシンを作ってみた(Youtube動画)
結局Lisp系って、「ないから」ではなく「あるけど」
「作りたいから作った」人が多いですね、

なので、久しぶりにScheme処理系作りたいと思いました。
事始めにGaucheのソースを追う環境を構築したのでその備忘録:

■Gaucheのインストール
・SLIB
$ cd ~/Downloads
$ curl -O http://groups.csail.mit.edu/mac/ftpdir/scm/slib-3b3.zip
$ unzip slib-3b3.zip 
$ cp -r slib ~/opt/slib
・Gauche
ダウンロード後、
$ tar zxvf Gauche-0.9.2.tgz
$ cd Gauche-0.9.2/
$ ./configure --prefix=/Users/tajima_junpei/opt/Gauche-0.9.2 --with-slib=/Users/tajima_junpei/opt/slib
$ make
$ make install
$ echo "export PATH=\$PATH:/Users/tajima_junpei/opt/Gauche-0.9.2/bin" >> ~/.bashrc
$ source ~/.bashrc
・確認
$ gosh
gosh> (define (fact n) (if (> n 1) (* n (fact (- n 1))) 1))
fact
gosh> (fact 10)
3628800
gosh> (use slib)
#
gosh> (require 'trace)
#t
gosh> (trace fact)
#
gosh> (fact 5)
CALL fact 5
  CALL fact 4
    CALL fact 3
      CALL fact 2
        CALL fact 1
        RETN fact 1
      RETN fact 2
    RETN fact 6
  RETN fact 24
RETN fact 120
120
gosh> 

■ソースを追うための準備
・GLOBALのインストール
$ cd ~/Downloads
$ curl -O http://tamacom.com/global/global-6.1.tar.gz
$ tar zxvf global-6.1.tar.gz
$ cd global-6.1/
$ ./configure --prefix=/Users/tajima_junpei/opt/global-6.1
$ make
$ make install
~/.emacs.d/.init.elに追記
;; gtags
(autoload 'gtags-mode "gtags" "" t)
(setq gtags-mode-hook
      '(lambda ()
         (local-set-key "\M-t" 'gtags-find-tag)
         (local-set-key "\M-r" 'gtags-find-rtag)
         (local-set-key "\M-s" 'gtags-find-symbol)
         (local-set-key "\C-t" 'gtags-pop-stack)
         ))

(autoload 'gtags-mode "gtags" "" t)
(setq gtags-mode-hook
      '(lambda ()
         (local-set-key "\M-t" 'gtags-find-tag)
         (local-set-key "\M-r" 'gtags-find-rtag)
         (local-set-key "\M-s" 'gtags-find-symbol)
         (local-set-key "\C-t" 'gtags-pop-stack)
         ))
ソースの関数上でM-tでタグジャンプ

■ソースの追い方
Emacs上にて
M-x gdb
gdb --annotate=3 gosh
(gdb) break repl_read_cc
Breakpoint 1 at 0x20c49ba5d77dd1: file repl.c, line 103.
(gdb) r
Starting program: /Users/tajima_junpei/opt/Gauche-0.9.2/bin/gosh 
Reading symbols for shared libraries ++. done
gosh> (+ 1 1)

関数repl_read_cc上にて実行が止まる、
「s」でステップ実行、「p」で変数のインスペクト