Slide 31
Slide 31 text
変換
define(`token', `changequote({,})ifelse(
{$1}, {>}, {`'ip},
{$1}, {<}, {`'dp},
{$1}, {+}, {`'ic},
{$1}, {-}, {`'dc},
{$1}, {.}, {`'pr},
{$1}, {[}, {`'bn(`},
{$1}, {]}, {')`'ed}){}changequote')
define(`parse', `ifelse(
eval(len(`$*')>0), 1,
`token(substr(`$*',0,1))`'parse(substr(`$*',1))')')
define(`internal', parse(include(`/dev/stdin')))