派遣制度って、差別制度かな？　パート26

何とも不思議ですね。　私は下のようなのを書いて間違いなく動いてしまうんですけどねw
私めはこんなのが旨く動いてくれなくては、全然、面白くないのですよ。 あなた手に負えますか？
これは篤志が作ってくれた言語リファレンスブログラムを自分の環境で便利に使えるようにしたものです。(一部抜粋、エンジン部分は別途記述)

============= hrefwin.def (v0.01) ===============
for href.exe
カーソル位置の Haskell.Prelude関数のリファレンスを
href.exe で検索し結果をウィンドウ表示する
(エラーなら href: no such function のメッセージ表示)

* M
80 ^J@ "hrefwin"
&s t=wn, &01
h="href",　hh="no such function",　f="c:\mem\hrefhis.mem",
？M(1) #f #a #G
#E &?("%s $"%s$"",h,ps ) #m #[
&Sc(pu,ps)　#79 #_ #F &?("%s",h) #m #r
#F &?("%s",hh) #m #c
(r)?? {#b #> #G &m("href: %s!",hh) >Q}}
#y #b #_ #e #e #> #k　&10
&Sc(k,pu) &z("_hrefwin") &*
:Q ？T(t) ？U(1) &d

1: k="$[50]",
10: #R &?(f) #m
#_ #> #m
&d #F &?(".%s",ps) #m #r
(r)?? {#C .}
&?(".%s",pu) #m
#_ #> #m #S #m #C (s)? 'Y
*
============= End of hrefwin.def =============