過去の記事 - 氾濫原

2007年 10月 23日

zsh で blosxom クローン

subtech

13:46

http://coderepos.org/share/browser/lang/shellscript/blosxom.zsh/

entries[$i]="foo 1 bar 2"
typeset -A entry
: ${(AA)entry::=${(z)entries[$i]}}

とかやると、entry に { foo => 1, bar => 2 } みたいな連想配列が入る (実際には Perl みたいには書けない) 連想配列のキーをとりだすには ${(k)aarray} する。

typeset -A は連想配列の宣言 typeset -a だと配列の宣言になる。基本的に宣言なしで変数は使えるけど、連想配列は絶対に宣言しないといけない。

(AA) は連想配列をつくるやつ。(A) だと配列になる。(z) はコマンドラインにそれが書かれたかのようにアンエスケープしながら分割する。: は何もしないコマンド。引数評価だけされる。

エスケープは (q) でできる

foo="aaa  (aa)  "

echo ${(q)foo}    #=> aaa\ \(aa\)\ \
echo ${(qq)foo}   #=> 'aaa (aa)  '
echo ${(qqq)foo}  #=> "aaa (aa)  "
echo ${(qqqq)foo} #=> $'aaa (aa)  '

foo が空のとき (q) だとなんもなくなるのでまずい。(qq) のほうが安全

man zshall /Parameter Expansion Flags

❤️ 投げ銭する

2007年 10月 22日

Vim で blosxom クローン書いてみた

subtech

02:41

なんかいくつかの意味にとれますね。でもちゃんとうごくまでいくまえにめんどくなった (トップページだけなんとなく動く、っていう微妙な感じ)。

http://coderepos.org/share/browser/lang/vim/blosxom.vim.cgi/blosxom.vim.cgi

#!/bin/sh
""exec /usr/local/vim7/bin/vim -u NONE -i NONE --noplugin -e --cmd ":so $0"
" vim:ft=vim:
" -e で ex モードにすることで、エスケープシーケンスを排除してる。
"  完全じゃないっぽい?

で起動して、ダブルクオートは vim script ではコメントなので、vim に処理がうつったあとは exec が無視され、あとにつづくスクリプトが実行される。

開いた Vim 上で出力を生成して、

" Output
silent exe "w " . tempname()
silent exe "!cat %"
q!

最後に保存して cat で出力してみた (cat は反則な気がするけど、echo だとエスケープシーケンスがでてしまう)。もっと簡単な方法あるのかなぁ……

もうちょいアグレッシブに、

テンプレートをよみこむ
ヘッダ部分を s/// で置換する
エントリ部分を /entry-start^MV/entry-endYp でコピーしながら置換する

とかやったほうがおもしろいかも

❤️ 投げ銭する

Emacs で CGI 書く

subtech

14:22

#!/bin/sh
#@56
exec /usr/bin/emacs -Q --batch --no-unibyte --kill -l $0
; #@count は count 文文字をよみとばす elisp の機能
; vim:ft=scheme:expandtab:
; ↑ vim で elisp かよぷぷぷ scheme モードのほうがインデントがいい

(require 'cl)

(defun list-files (dir)
  (let ((ret '()))
    (loop for f in (directory-files dir t) do
          (let* ((attr (file-attributes f))
                 (dir?  (eq (car attr) t))
                 (file? (null (car attr)))
                 (mtime (nth 5 attr)))
            ;(print (list f dir? file?))
            (if (null (string-match "\\(\\.\\|\\.\\.\\)$" f))
              (progn
                (if dir?  (setf ret (append ret (list-files f))))
                (if file? (setf ret (append ret (list f)))))
              )
            )
          )
    ret)
  )

(princ "Content-Type: text/html; charset=utf-8\n\n")

(princ "<h1>aaaa</h1>")
(princ "<pre>")

(princ "Hello\n\n")

(print (pwd))
(print (list-files "data"))

(print system-configuration)
(print system-name)
(print (emacs-version))

(print (format-time-string "%Y-%m-%d %H:%M:%S" (current-time)))

(print (getenv "PATH_INFO"))
(print invocation-name)
(print process-environment)

(princ "</pre>")

Scheme と同じノリで書けるかと思ったら全然違う。Blosxom クローンつくろうとおもったけど途中までしか書いてない。続き書くかわからない。

❤️ 投げ銭する

2007年 10月 21日

Io で ERB みたいなの

subtech

07:51

EIo := Object clone do (
	string := ""
	compiledString := ""

	setString := method(string,
		self string = string asMutable
		self compiledString = self compileString(self string)
		self
	)

	doInObject := method(obj,
		# 汚さないように clone
		obj clone do (
			h := method(v,
				v asString asMutable replaceSeq("&", "&amp;") ¥
				                     replaceSeq("<", "&lt;") ¥
				                     replaceSeq(">", "&gt;")
			)
		) doString(self compiledString)
	)

	compileString := method(string,
		ret := "_eio_string := ¥"¥" asMutable¥n" asMutable
		n   := 0
		p   := 0
		while (n = string findSeq("<%", p),
			s   := string slice(p, n) replaceSeq("¥"", "¥¥¥"")
			n = n + 2
			c   := string findSeq("%>", n)
			mes := string slice(n, c)
			ret appendSeq("_eio_string appendSeq(¥"#{s}¥")¥n" interpolate)
			if (mes beginsWithSeq("="),
				if (mes beginsWithSeq("=="),
					ret appendSeq("_eio_string appendSeq(#{mes slice(2)})¥n" interpolate)
				,
					ret appendSeq("_eio_string appendSeq(h(#{mes slice(1)}))¥n" interpolate)
				)
			,
				ret appendSeq("#{mes}¥n" interpolate)
			)


			p = c + 2
		)
		s   := string slice(p) replaceSeq("¥"", "¥¥¥"")
		ret appendSeq("_eio_string appendSeq(¥"#{s}¥")¥n_eio_string" interpolate)
		ret
	)
)

# data := File openForReading("test.eio") contents
data := """
<p><%=hoge%></p>
<ol>
<% list("aaa", "bbbb", "ccccc", "ddddddd") foreach(i, v, %>
	<li><%=i+1%>. <%=v%></li>
<% ) %>
</ol>
"""

eio := EIo clone setString(data)
# eio compiledString print

context := Object clone do (
	hoge := "hogeog&e<>"
)
eio doInObject(context) print

出力

<p>hogeog&amp;e&lt;&gt;</p>
<ol>

        <li>1. aaa</li>

        <li>2. bbbb</li>

        <li>3. ccccc</li>

        <li>4. ddddddd</li>

</ol>

ヒアドキュメント書けた。トリプルクオートだった。ので修正

❤️ 投げ銭する

Io の解釈

subtech

08:15

Message fromString(code) code print

すると、Io がその文字列をどうやって解釈しているかわかる。

Message fromString("<p class='hoge'>aaaaa</p>") code print
#=> <(p class =' hoge '> aaaaa </ p) >

ol や p とかっていう呼びだしを method_missing みたいのでキャッチできれば E4X もユーザレベルで実装できそう。だけど method_missing 相当のことをどうやってやるのかわからない。

❤️ 投げ銭する

Io における演算子拡張

subtech iolanguage

09:26

Io は演算子の Map を内部に持っていて、パース時にそれを参照する。

例えば =~ は定義されていないので

Message fromString("\"abc\" =~ \"a.\"") code print
#=> "abc" =~ "a."

となり、これだと =~ というメッセージを定義しても、後ろの文字列 (Sequence) は =~ メッセージの引数とは解釈されない。"abc" =~ と "a." は別の文になるわけです。

しかしながらこれは拡張することができて

OperatorTable addOperator("=~", 7)
Message fromString("\"abc\" =~ \"a.\"") code print
#=> "abc" =~("a.")

ということができる。7 は演算子の優先順で、OperatorTable print すれば登録済みの演算子とその優先順位がわかる。

Operators
  0   ' ( ) . ? @ @@
  1   **
  2   ++ --
  3   % * /
  4   + -
  5   << >>
  6   < <= > >=
  7   != ==
  8   &
  9   ^
  10  |
  11  && and
  12  or ||
  13  ..
  14  %= &= *= += -= -> /= <- <-> <<= >>= ^= |=
  15  return
  16  ,

Assign Operators
  ::= newSlot
  :=  setSlot
  =   updateSlot

To add a new operator: OperatorTable addOperator("+", 4) and implement the + message.
To add a new assign operator: OperatorTable addAssignOperator("=", "updateSlot") and implement the updateSlot message.

ところで若干のハマりどころなのは、

Object =~ := method(s,
	call message print
)
OperatorTable addOperator("=~", 7)

"abc" =~ "a."

とやっても、"abc" =~ "a." をパースする時点では addOperator はまだ評価されていないので、演算子にはならない。doString とかでこのあとにパースされるようにしないといけない。実際つかうとするとファイルをわけて doFile みたいになると思う。

Io かっけー

❤️ 投げ銭する

Io における method と block の違い

subtech

10:38

一番大きいのは doc に書いてあるとおりスコープの違い (というか、ローカルオブジェクト (=変数オブジェクト) がどこからクローンされるか) だけれど、それだけじゃなくて、call が必要かどうかもあるみたいだ。

a := Object clone do (
	aBlock  := block("called block")
	aMethod := method("called method")
)

a aBlock print
#=>
# # test.io:3
# method(
#     "called block"
# )
a aBlock call print  #=> called block
a aMethod print      #=> called method
a getSlot("aMethod") print
#=>
# # test.io:4
# method(
#     "called method"
# )

block の場合は自動的に呼ばれない。

❤️ 投げ銭する

Io × Vim

subtech

10:41

対応言語いっぱいの Vim でも io は色付けしてくれない。はてグに書くときは ruby としてシンタクスハイライト (意味的にどうよ)

ちなみに Io の do は Ruby でいうところの instance_eval で、レシーバをローカルオブジェクトにしてメッセージを評価する Object のメソッド

構文っぽくなる do, if, while とかはメソッド名のあとにスペース入れるようにしてる。

❤️ 投げ銭する