coolguyandClaude Opus 5
1bd88fc4d7
grammar.ebnf의 프로덕션 하나에 함수 하나로 대응한다. LL(1)이므로 선읽기는
항상 한 토큰이고 backtracking이 없다. 모든 노드가 위치를 들고 다닌다.
문법과 얽히는 두 자리를 원칙대로 처리했다:
- NEWLINE 흡수는 문법에 { NEWLINE }으로 적힌 자리에서만 한다. 파서가
"여기선 줄바꿈 무시" 식으로 임의 판단하면 어디서 무시되는지 아무도 모르게
된다.
- struct 리터럴은 if/match/scope 머리에서 금지하고(no_struct), 괄호·인자
목록·블록에 들어가면 다시 허용한다.
문법에 새긴 제한이 실제로 파서에서 죽는 것을 확인했다. 파라미터 위치의
effect 합집합과 match 가드는 검사기가 아니라 파서가 거부하며, 진단이
원인을 직접 말한다. 후행 콤마 누락도 일반적인 "닫는 괄호 필요" 대신
"다중 줄 목록에는 후행 콤마가 필요합니다"로 보고한다.
샘플을 실제로 파싱해 두 가지를 잡았다:
- 02와 05가 own을 타입 위치에 쓰고 있었다. 확정한 규칙은 바인딩 수식어가
이름 앞이므로 샘플이 틀렸다. 수정.
- 05에 구문 오류와 검사기 오류가 섞여 있었다. 파서가 첫 오류에서 멈추면
검사기 케이스에 영영 도달하지 못하므로 08_syntax_errors.cool로 분리.
grammar.ebnf를 구현과 맞췄다: 제네릭 인자에 effect 집합 허용, 마지막 문의
구분자는 "}" 앞에서 생략, 중괄호 목록 안의 NEWLINE 흡수 위치 명시.
cool ast 추가. cool check는 이제 파서까지 돌리되 여전히 통과했다고 말하지
않는다.
Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_019ZVDeU6KLuUVL3gs18Hm3E
53 lines
1.5 KiB
OCaml
53 lines
1.5 KiB
OCaml
let usage =
|
|
{|coollang toolchain
|
|
|
|
사용법:
|
|
cool check <file.cool>... 타입/effect/capability 검사 (fast path)
|
|
cool run <file.cool> typed IR 인터프리터로 실행
|
|
cool tokens <file.cool> 토큰 덤프 (렉서 디버깅)
|
|
cool ast <file.cool> 구문 트리 덤프 (파서 디버깅)
|
|
cool version 버전 출력
|
|
|}
|
|
|
|
let report_errors errors =
|
|
List.iter (fun e -> prerr_endline (Coollang.Driver.string_of_error e)) errors;
|
|
1
|
|
|
|
let report = function Ok () -> 0 | Error errors -> report_errors errors
|
|
|
|
let dump_tokens file =
|
|
match Coollang.Driver.tokens file with
|
|
| Error errors -> report_errors errors
|
|
| Ok tokens ->
|
|
List.iter (fun t -> print_endline (Coollang.Token.show t)) tokens;
|
|
0
|
|
|
|
let dump_ast file =
|
|
match Coollang.Driver.ast file with
|
|
| Error errors -> report_errors errors
|
|
| Ok m ->
|
|
List.iter
|
|
(fun it -> print_endline (Coollang.Ast.show_item it))
|
|
m.Coollang.Ast.items;
|
|
0
|
|
|
|
let () =
|
|
let argv = Array.to_list Sys.argv in
|
|
let code =
|
|
match List.tl argv with
|
|
| "check" :: files -> report (Coollang.Driver.check files)
|
|
| [ "run"; file ] -> report (Coollang.Driver.run file)
|
|
| [ "tokens"; file ] -> dump_tokens file
|
|
| [ "ast"; file ] -> dump_ast file
|
|
| [ "version" ] ->
|
|
print_endline Coollang.Version.string;
|
|
0
|
|
| [] | [ "help" ] | [ "--help" ] | [ "-h" ] ->
|
|
print_string usage;
|
|
0
|
|
| cmd :: _ ->
|
|
Printf.eprintf "알 수 없는 명령: %s\n\n%s" cmd usage;
|
|
2
|
|
in
|
|
exit code
|