Gaucheã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ãƒžãƒ‹ãƒ¥ã‚¢ãƒ«ã‚’ビルド - ã‹ãã«ã£ã
texi2html 1.70 ãŒå…¥ã£ã¦ã„ãŸã®ã ã‘ã©ã†ã¾ãã„ã‹ãªã‹ã£ãŸ(1時間経ã£ã¦ã‚‚終ã‚らãªã‹ã£ãŸ)ã®ã§ texi2html 1.82 をインストール．ソースã®doc下㧠make htmls ã§40秒程ã§ã§ããŸï¼Žmake html ã¨ã™ã‚‹ã¨ã²ã¨ã¾ã¨ã‚ã«ãªã£ãŸhtmlãŒå‡ºæ¥ä¸ŠãŒã‚‹ï¼Žtexi2htmlã®--splitオプションを使ã†ã¨åˆ†å‰²å˜ä½ã‚’調整ã§ãるらã—ã„．
Gaucheã§Atomã‚’èªã¿è¾¼ã‚€ - 自称スーパーãƒãƒƒã‚«ãƒ¼ã®é©å½“ãªãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°é›‘記ç‰
最近Gaucheã§ä½œã‚ã†ã¨æ€ã£ã¦ã„るプãƒã‚°ãƒ©ãƒ ã§ã€XMLã‚’èªã¿è¾¼ã‚€å¿…è¦ãŒã‚ã‚‹ã®ã§ã€ãã®æº–å‚™ã®æ„味も兼ãã¦é©å½“ã«æ›¸ã„ã¦ã¿ã¾ã—ãŸã€‚ http://d.hatena.ne.jp/myomi/20080505/1209995681 ã“ã“ã‚’å‚考ã«ã—ã¦æ›¸ã„ã¦ã¿ã¾ã—ãŸã€‚ ; Atomã‚’èªã‚“ã§ã‚¿ã‚¤ãƒˆãƒ«ã‚’表示ã™ã‚‹ (use sxml.ssax) (use sxml.sxpath) (define atom "<?xml version=\"1.0\" encoding=\"utf-8\"?> <feed xmlns=\"http://www.w3.org/2005/Atom\"> <title>test</title> <link href=\"http://www.example.com/\"/> <updated>2010-02-11T09:00:00Z</updated> <author> <name
Karetta|第2回 Kahuaセミナー資料|sxpathを使ã£ã¦ã¿ã‚‹
パス指定ã«ã‚ˆã‚‹ãƒŽãƒ¼ãƒ‰ã®å–り出㗠一旦Så¼ã«ãªã£ã¦ã—ã¾ãˆã°ã€ãƒªã‚¹ãƒˆãªã®ã§ãƒªã‚¹ãƒˆæ“作ã®æ‰‹ç¶šãを使ã£ã¦ã‚‚〠好ããªãƒŽãƒ¼ãƒ‰ã‚’å–り出ã™ã“ã¨ãŒå¯èƒ½ã ãŒã€ sxml.sxpathライブラリを使ã†ã¨æ¬¡ã®æ§˜ã«ç°¡å˜ã«ãƒŽãƒ¼ãƒ‰ã‚’検索ã§ãる。 (sxpath '(// title)) sxpath自体ã¯ãƒ‘ス指定をリストã§å—ã‘å–り〠「ãã®ãƒ‘ス指定ã«ãƒžãƒƒãƒã™ã‚‹ãƒŽãƒ¼ãƒ‰ã‚’å–り出ã™é–¢æ•°ã€ã‚’è¿”ã™ã€‚ 一ã¤ãšã¤ä¸‹ã®å¼ã‚’評価ã—ã¦ã„ã£ã¦æ…£ã‚Œã¦ã¿ã‚ˆã†ã€‚ ((sxpath '()) sample1) ((sxpath '(// item)) sample1) ((sxpath '(// title)) sample1) ((sxpath '(// (title 1))) sample1) ((sxpath '(// title *any*)) sample1) ((sxpath '(// @ version)) sample1) ((s
http://homepage1.nifty.com/~skz/Entry/scheme.scm
;;標準Scheme処ç†ç³»ã‚’Gaucheã§ä½œã‚‹ã€‚ ;;継続スタイルã§æ›¸ã。出典「Peter Norvig 実用Common Lispã€ç¿”泳社 ;;Norvig先生ã®ï¼£ï¼¬ã§æ›¸ã‹ã‚ŒãŸSchemeインタープリタをGaucheã«æ›¸ãç›´ã—〠;;処ç†ç³»ç†è§£ã®ãŸã‚ã«R5RSæº–æ‹ ã‚’ç›®æŒ‡ã™ã€‚å¦ç¿’目的。 ;;Ver1.57 written by kenichi sasagawa ;;（注æ„） ;;完全ãªæº–æ‹ ã‚’ç›®æŒ‡ã—ã¦ã„ã‚‹ã‚‚ã®ã§ã¯ã‚ã‚Šã¾ã›ã‚“。ã“れを教æã¨ã—ã¦Scheme処ç†ç³»ã®ä»•çµ„ã¿ ;;ã«ã¤ã„ã¦ç†è§£ã‚’æ·±ã‚ã€å‹•ä½œã‚’確èªã™ã‚‹é¡Œæã¨ã—ãŸã„ã¨æ€ã£ã¦ã„ã¾ã™ã€‚R5RSã«å®Œå…¨ã«æº–æ‹ ã™ã‚‹ ;;ã“ã¨ã¯ãªã„ã§ã—ょã†ã‹ã‚‰ã€çµæžœãŒãŠã‹ã—ã„ã¨ã„ã£ã¦ã‚¯ãƒ¬ãƒ¼ãƒ ã‚’ã¤ã‘ãªã„ã§ãã ã•ã„。 ;;Schemeã«ã¤ã„ã¦ãƒ•ãƒ©ãƒ³ã‚¯ã«æ„見交æ›ã‚’ã—ç†è§£ã‚’æ·±ã‚ã‚‹ã“ã¨ã«åˆ©ç”¨ã—ãŸã„ã¨è€ƒãˆã¦ã„ã¾ã™ã€‚ ;;今ã®ä¸–ã®ä¸ã€ä¸ã«ã¯éžå¸¸è˜ãªäººã‚‚ã„ã‚‹ã®ã§å¿µã®ãŸã‚。 ;;局所定
Gauche 㧠OAuth - 主題ã®ãªã„日記
Twitter ㌠OAuth ã¨ã„ã†èªè¨¼æ‰‹ç¶šãを採用ã—ãŸãã†ã 。 ç¾åœ¨ã® Basic èªè¨¼ã¯è¿‘ã廃æ¢äºˆå®šã ãã†ã§ã€ Twitter 関連ソフト㯠OAuth 対応を余儀ãªãã•ã‚Œã¦ã„る。 OAuth ã«ã¤ã„ã¦ã¨ã‚Šã‚ã’ã¦ã„るブãƒã‚°è¨˜äº‹ã‚‚ã¡ã‚‰ã»ã‚‰ã¨è¦‹æŽ›ã‘る。 æµè¡Œã«ä¹—ã‚ã†ã¨ã„ã†ã‚ã‘ã§ã‚‚ãªã„ãŒã€ Gauche 㧠OAuth èªè¨¼ (コンシューマå´) ã®ã‚³ãƒ¼ãƒ‰ã‚’書ã„ã¦ã¿ãŸã€‚ oauth_token ã¨ã‹ã‚’å–å¾—ã™ã‚‹ã‚ãŸã‚Šã¾ã§ã ã‘ã ãŒã€ç½²åã®éƒ¨åˆ†ã ã‘使ã„ã¾ã‚ã›ã°ã‚ã¨ã¯ç‰¹ã«é¢å€’ãªã“ã¨ã‚‚ãªã„ã ã‚ã†ã€‚ コンシューマã‚ーやコンシューマ秘密éµã¯ (当然ã ãŒ) å„自ã§å–å¾—ã—ã¦æ¬²ã—ã„。 (use rfc.http) (use rfc.sha) (use rfc.hmac) (use rfc.base64) (use www.cgi) (use math.mt-random) (use gauche.uvector
Gaucheã§ã®æ–‡å—列ã®ä½œã‚Šæ–¹ã®ãƒ¡ãƒ¢ - å†å¸°ã®å復blog
ã„ã¤ã‚‚æ–‡å—åˆ—ã‚’ä½œã‚‹å ´é¢ã«ãªã£ã¦ã‹ã‚‰ãƒžãƒ‹ãƒ¥ã‚¢ãƒ«ã‚’探ã—始ã‚ã‚‹ã®ã§ã€å°‘ã—ã¾ã¨ã‚ã¦ãŠã。 データã®æ–‡å—åˆ—è¡¨ç¾ formatã€æ–‡å—列ã®è£œé–“ æ–‡å—列ã®é€£çµ æ–‡å—列ã®ç½®æ› ファイルã®å…¨å†…容を文å—列ã«ã™ã‚‹ パスåã€ãƒ•ã‚¡ã‚¤ãƒ«åã®åˆ†è§£ãƒ»æ§‹ç¯‰ パスåを作る パスåã®åˆ†è§£ URI 日付を表ã™æ–‡å—列を作る HTML CSV データã®æ–‡å—列表ç¾: x->stringã€write-to-string データã®æ–‡å—列表ç¾ã‚’å¾—ã‚‹ã¨ãã«ä½¿ã†ã€‚x->stringã¯æ–‡å—列化ã«displayを使ã„ã€write-to-stringã¯æ–‡å—列化ã«writeを使ã†ã€‚ 例: gosh> (x->string "Scheme") "Scheme" gosh> (write-to-string "Scheme") "\"Scheme\"" gosh> (define ls (list 1 #\a "bcd")) ls gosh> ls (1 #
Gauche 㧠arcfour - 主題ã®ãªã„日記
arcfour ã¨ã„ã†æš—å·ãŒã‚る。 実質的ã«ã¯æ“¬ä¼¼ä¹±æ•°ç”Ÿæˆå™¨ã§ã€ç”Ÿæˆã—ãŸæ•°åˆ—を対象データ㨠xor ã™ã‚‹ä»•çµ„ã¿ã 。 乱数ã®ç¨®ãŒéµã¨ãªã‚‹ã‚ã‘ã§ã‚る。 ã“ã®æš—å·ã¯éžå¸¸ã«å˜ç´”ã§ã€çŸã„コードã§å®Ÿè£…å¯èƒ½ã¨ã„ã†ç‰¹å¾´ãŒã‚る。 今回ã¯ã“ã® arcfour ã‚’ Gauche ã§å®Ÿè£…ã—ã¦ã¿ã‚ˆã†ã¨è©¦ã¿ãŸã€‚ ã¾ãšã¯ç´ ç›´ã«æš—å·ã‚¢ãƒ«ã‚´ãƒªã‚ºãƒ を書ã下ã—ãŸã‚‚ã®ãŒã“ã‚Œã 。 (use gauche.uvector) (define-syntax swap! (syntax-rules () ((_ x y) (let1 t x (set! x y) (set! y t))))) (define-class <arcfour> () ((s :init-form (make-u8vector 256)) (x :init-value 0) (y :init-value 0))) (define-method arcfour-k
Gaucheã§OAuthを使ã£ã¦Twitterã«æŠ•ç¨¿ã™ã‚‹ - 自称スーパーãƒãƒƒã‚«ãƒ¼ã®é©å½“ãªãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°é›‘記ç‰
自分ãŒGaucheã§OAuthを使ã†ãŸã‚ã«è©¦è¡ŒéŒ¯èª¤ã—ã¦ã„ãŸã‚‰ã€ id:SaitoAtsushiã•ã‚“ãŒGaucheã§OAuthを使ã†ã‚³ãƒ¼ãƒ‰ã‚’書ã„ã¦ãã‚Œã¦ã„ãŸã‚ˆã†ãªã®ã§(http://d.hatena.ne.jp/SaitoAtsushi/20100429/1272545442)〠ãã®ã‚³ãƒ¼ãƒ‰ã‚’å…ƒã«ã€Twitterã§ã¤ã¶ã‚„ãコードを作ã£ã¦ã¿ã¾ã—ãŸã€‚ ;APIã®URLã‚’api.twitter.comã«ã—ã¦ã¿ãŸ ;uri-encode-stringを日本語ã«å¯¾å¿œã•ã›ã¦ã¿ãŸ (use rfc.http) (use rfc.sha) (use rfc.hmac) (use rfc.base64) (use www.cgi) (use math.mt-random) (use gauche.uvector) (define consumer-key "Consumer Key") (define con
Google SpreadSheets ã®ãƒ‡ãƒ¼ã‚¿ã‚’Twitterã«ãƒ©ãƒ³ãƒ€ãƒ ã«ãƒã‚¹ãƒˆã™ã‚‹
ãªã‚“ã‹æ‰‹è»½ã«ä½¿ãˆã‚‹ãƒ‡ãƒ¼ã‚¿ã‚¹ãƒˆã‚¢ãªã„ã‹ãªãƒ¼ãƒ»ãƒ»ãƒ»ã€ã¨ã„ã†ã“ã¨ã§google spreadsheetsをデータソースã«ã§ãã‚‹ã£ã½ã„ã¨ã„ã†è©±ã€‚ Google SpreadSheets ã‹ã‚‰Twitterã¸ãƒ©ãƒ³ãƒ€ãƒ ã«ãƒã‚¹ãƒˆ - My Snippet インターãƒãƒ«ã«ã¤ã„ã¦ã¯ãƒ»ãƒ»ãƒ»ã€‚ Twitterã«ãƒã‚¹ãƒˆ (use srfi-27) (use rfc.http) (use rfc.uri) (use rfc.base64) (use sxml.ssax) (use sxml.sxpath) (define *ss-server* "spreadsheets.google.com") (define *ss-uri-prefix* "/feeds/list/") (define *ss-uri-sufix* "/od6/public/basic?alt=rss") (define *twitter-p
Gauche:SXMLã¨SXPath
SXPath ã® S å¼è¡¨ç¾ãŒã‚ˆãã‚ã‹ã‚‰ãªã‹ã£ãŸã®ã§ã¾ã¨ã‚ã¦ã¿ã¾ã—ãŸã€‚ -- leque（2007/02/11 01:26:05 PST） sxpath 手続ã sxpath 手続ãã®å®šç¾©ã¯ä»¥ä¸‹ã®ã‚ˆã†ã«ãªã£ã¦ã„る。 ;; $Id: sxpath.scm,v 1.1 2003/07/22 11:22:11 shirok Exp $ ... (define (sxpath path . ns-binding) (let loop (...) (cond ((null? path) ; parsing is finished (lambda (node . root-var-binding) ...)) ...))) 手続ãã®ç›´å‰ã®ã‚³ãƒ¡ãƒ³ãƒˆã«ã¯çœç•¥è¨˜æ³•ã®å±•é–‹ãƒ«ãƒ¼ãƒ«ãŒæ›¸ã„ã¦ã‚る（GaucheRefj:sxpath å‚照）。 ã“ã“㧠path 㯠SXPath ã®ãƒ‘ス表ç¾ã€ns-binding ã¯
yosaka
ç•¥æ´ å¤§å¦æ™‚代ã«C言語をã¯ã˜ã‚ã‚‹ãŒã€ã‚ˆãã‚ã‹ã‚‰ãšæŒ«æŠ˜ã€‚ ãã®å¾Œã€Rubyを知り簡å˜ãªã‚¹ã‚¯ãƒªãƒ—トを書ãよã†ã«ãªã‚‹ã€‚ 関数型言語を勉強ã—ãŸããªã‚ŠHaskellã‚’ã‚„ã£ãŸãŒã€ã‚ˆãã‚ã‹ã‚‰ãšã€‚ ;Haskellも勉強ã—ç›´ã—ä¸ ãã®å¾Œã€ãŸã¾ãŸã¾æœ¬å±‹ã§ã¿ã‚‡ãƒ¼ã«å£ã¨ç›®ãŒå¤§ãã„éšã®è¡¨ç´™ã®ã‚ªãƒ©ã‚¤ãƒªãƒ¼æœ¬ã‚’見ã‹ã‘る。ãã®æœ¬ã¯ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°Gaucheã¨ã„ã†ã‚‰ã—ã„。 自宅ã«å¸°ã£ã¦ã€wikiã§èª¿ã¹ã‚‹ã¨ä½•ã‹å‡„ã„らã—ã„ã¨ã‚ã‹ã‚Šã€å¾Œæ—¥è³¼å…¥ã€‚ ãã®å¾Œã¯ã€ã»ã¨ã‚“ã©Gaucheã§ã‚³ãƒ¼ãƒ‰ã‚’書ãよã†ã«ãªã‚‹ã€‚ コンピュータ関係ã¯æœ¬å½“ã«å‹‰å¼·ã™ã‚‹ã“ã¨ãŒä¸€æ¯ã‚ã‚‹ãªãƒ¼ã€‚ ã“ã‚Œã ã‘ã§ã‚‚一生やã£ã¦ã„ã‘ãã†ã 。 perl perl入門ã—ã¦ã¿ã‚‹ã€‚ cpanãŒæ¥½ã—ã¿ã€‚ C言語 プãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžCã¨ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ä½œæ³•ã‚’èªã¿çµ‚ãˆãŸã€‚ Cã¯è‰¯ã„言語。 ãã†ã„ãˆã°ã€ã©ã£ã‹ã§èªã‚“ã ã‘ã©Cã®ã‚¤ãƒ³ãƒ‡ãƒ³ãƒˆãŒ8ãªã®ã¯ã€ãƒã‚¹ãƒˆã‚’æ·±ãã—ã¦ã¯ã„ã‘ãªã„ã¨ã„ã†æ•™è¨“ã‹ã‚‰æ¥ã¦ã„ã‚‹ã¨æ›¸
firefoxã®ã‚ーワードを用ã„ã¦gaucheマニュアルã®è©²å½“エントリã«ã‚¸ãƒ£ãƒ³ãƒ—ã™ã‚‹tips - 計算機ã¨æˆ¯ã‚Œã‚‹æ—¥ã€…
firefoxã®ã‚ーワードを用ã„ã¦googleã§gaucheã®ãƒžãƒ‹ãƒ¥ã‚¢ãƒ«ã‚’検索ã™ã‚‹tips - 計算機ã¨æˆ¯ã‚Œã‚‹æ—¥ã€…ã«ã¦shiroã•ã‚“ã«æŒ‡æ‘˜ã—ã¦ã„ãŸã ã„ãŸã®ã§åˆ¥ã‚¨ãƒ³ãƒˆãƒªã§ï¼ˆç¬‘ firefoxã®ã‚ーワードを用ã„ã¦gaucheマニュアルã®è©²å½“エントリã«ã‚¸ãƒ£ãƒ³ãƒ—ã™ã‚‹ã«ã¯ ã¾ãšã€ã€Œãƒ–ックマークã€->「ブックマークã®ç®¡ç†ã€ã‚’クリックã™ã‚‹ã¨ä»¥ä¸‹ãŒèµ·å‹•ã™ã‚‹ã€‚ ã“ã“ã§->「新ã—ã„ブックマークã€ã‚’クリックã™ã‚‹ã€‚ ã“ã“ã®URLã«ä»¥ä¸‹ã‚’入力ã—ã€ã‚ーワードを「gaucheã€ã«ã™ã‚‹ã€‚åå‰ã¯é©å½“ã§OK http://practical-scheme.net/gauche/man/?l=jp&p=%s ã™ã‚‹ã¨ã‚¢ãƒ‰ãƒ¬ã‚¹ãƒãƒ¼ã«ã€Œgauche エントリåã€ã§gaucheマニュアルã®è©²å½“ページã¸ã‚¸ãƒ£ãƒ³ãƒ—ã™ã‚‹ã€‚
Karetta|[Gauche] SXPathを使ã£ã¦RSSã‹ã‚‰è¦ç´ ã‚’å–り出ã™
昨日ã®ç¶šã。 (rss->xsml "http://oss.timedia.co.jp/kahua-web/rss.xml") ãªã©ã¨ã™ã‚‹ã¨ã€ (*TOP* (*PI* xml version="1.0" encoding="euc-jp" ) (rss (@ (version 2.0)) (channel (title "Kahua-web") (link "http://oss.timedia.co.jp/show") (description "Kahua-web TEST Site") (lastBuildDate "Tue, 24 Oct 2006 08:09:40 +0900") (item (title "今日ã®ä¸€è¡Œ") (link "http://oss.timedia.co.jp/show/column/%ba%a3%c6%fc%a4%ce%b0%ec%b9%d4") (
Karetta|[Gauche] RSSã‚’èªã¿è¾¼ã‚“ã§SXMLã«å¤‰æ›ã™ã‚‹
他サイトã®RSSã‚’èªã¿è¾¼ã‚“ã§åŠ å·¥ã—ã€è‡ªåˆ†ã®ã‚µã‚¤ãƒˆã«è¡¨ç¤ºã—ã¦ã¿ãŸã„。 (use rfc.uri) (use rfc.http) (use sxml.ssax) (define (rss->sxml uri) (receive (schema user-info hostname port path query fragment) (uri-parse uri) (receive (status header body) (http-get hostname path) (call-with-input-string body (lambda (in) (let ((sxml-data (ssax:xml->sxml in '()))) (values status header sxml-data))))))) ã¨ã‚Šã‚ãˆãšã“ã‚Œã§SXMLã¯å¾—られãŸãŒã€ ã•ã¦å¿…è¦ãªè¦ç´ ã ã‘ã‚’å–り出ã—ã¦åŠ å·¥ã™ã‚‹ã«
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
scheme_baton.scm
http://d.hatena.ne.jp/mtakuya/20100510
http://d.hatena.ne.jp/mtakuya/20100324
http://d.hatena.ne.jp/mtakuya/20100325
http://d.hatena.ne.jp/mtakuya/20100401
Karetta|firefoxã§gaucheマニュアルを使ã†
{{#tags}}- {{label}}
{{/tags}}