『コンパイラ・スクリプトエンジン』　相談室 2

『コンパイラ・スクリ ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

253:デフォルトの名無しさん
 02/11/07 04:33
今ちょっと色々調べてたんですけど、色々とヒント有り難うございます。 
一週間前にはかけらすらないような事趣味でやり始めて分かったんですが構造を持つ 
ファイルフォーマットってコンパイラ作成のような視点が必要なんですね。 
さすがにインデントでは無理だってすぐ分かりましたが、xmlに近いことは 
気づきませんでした。そう言えばxmlと似てますね。 
 
内部データ構造を持つファイルフォーマットのパーサーの解説の一般的なドキュメント 
希望>250

254:デフォルトの名無しさん
 02/11/07 07:52
schemeで書くとこんな感じなんだが 
 
(define (hoge-read s) 
　(let loop ((x s) (stack '())) 
　　(if (pair? x) 
　　　(case (car x) 
　　　　((object) 
　　　　　(loop (cddr x) (cons (list (cadr x) (car x)) stack))) 
　　　　((end) 
　　　　　(if (null? stack) 
　　　　　　(error "Syntax-error - Corresponding 'object' is required :" 
　　　　　　　s)) 
　　　　　(if (pair? (cdr stack)) 
　　　　　　(loop (cdr x) 
　　　　　　　(cons 
　　　　　　　　(cons (reverse (car stack)) (cadr stack)) 
　　　　　　　　(cddr stack))) 
　　　　　　(loop (cdr x) (reverse (car stack))))) 
　　　　(else 
　　　　　(loop (cdddr x) 
　　　　　　(cons 
　　　　　　　(cons (list (car x) (caddr x)) (car stack)) 
　　　　　　　(cdr stack))))) 
　　　(if (and (pair? stack) (pair? (car stack))) 
　　　　(error "Syntax-error - 'end' is required :" s) 
　　　　stack))))

次ページ