interp: 얇은 typed IR과 트리 워킹 인터프리터 — coolc run

문서에만 있던 실행 의미가 코드가 된다.

- ir.ml: AST를 얇은 IR로 낮춘다. `?`는 Result에 대한 match로 펼쳐지고,
  타입 인자는 사라지며(단형화 없음), 한정 이름은 하나의 이름으로 접힌다.
  이름은 낮추기 시점에 분류된다 — 실행 중에 "지역인가 전역인가"를 다시
  묻지 않는다.
- interp.ml: 검사하지 않는 인터프리터. 여기 도달한 프로그램은 이미 타입,
  effect, capability, ownership 검사를 통과했고, 같은 질문을 두 번 묻는
  것은 두 번째 진실을 만드는 일이다.

권한의 유일한 출처는 런타임이다. 소스에는 capability를 만드는 문법이 없고,
main은 자기가 선언한 것만 받는다. 파라미터에서 Console을 지우면 출력할
방법이 프로그램 안에 없다 — 보안 정리 (i)의 실행 시점 대응물. TaskScope의
뿌리도 같은 이유로 런타임이 준다.

scope의 v0 실행 의미는 순차다. 구조가 먼저고 병렬성은 그 위의 최적화다.

samples/run/은 이제 "검사를 통과한다"가 아니라 "이 값을 낸다"까지 말하고,
test/가 같은 것을 검사한다.

Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_019ZVDeU6KLuUVL3gs18Hm3E

lib/session.ml

@@ -179,3 +179,47 @@ let errors st =
       compare (a.file, a.line, a.col) (b.file, b.line, b.col))
 
 let find st path = Hashtbl.find_opt st.modules path
+
+(* ------------------------------------------------------------------ *)
+(* 실행                                                                *)
+(* ------------------------------------------------------------------ *)
+
+(* main이 선언한 파라미터의 타입 이름을 뽑는다. 런타임은 이 목록만 보고
+   권한을 만든다 — 선언하지 않은 capability는 프로그램에 존재하지 않는다. *)
+let main_params (m : Ast.modul) =
+  let rec ty_name (t : Ast.ty) =
+    match t with
+    | Ast.T_named { modl; name; _ } -> (
+        match modl with Some a -> a ^ "." ^ name | None -> name)
+    | Ast.T_fn _ -> "<fn>"
+  in
+  List.concat_map
+    (function
+      | Ast.I_fn { decl; _ } when decl.fn_name = "main" ->
+          List.map
+            (fun (p : Ast.param) -> (p.p_name, ty_name p.p_ty))
+            decl.fn_params
+      | _ -> [])
+    m.items
+
+let run st path : (string, error) result =
+  load st path;
+  let errs = errors st in
+  if errs <> [] then Error (List.hd errs)
+  else
+    match find st path with
+    | None ->
+        Error { file = path; line = 0; col = 0; message = "모듈을 찾을 수 없습니다" }
+    | Some e -> (
+        let dep_surface =
+          List.concat_map
+            (fun (alias, p) ->
+              match Hashtbl.find_opt st.modules p with
+              | Some d -> Iface.qualify alias d.iface.Iface.items
+              | None -> [])
+            e.imports
+        in
+        let prog = Ir.of_module ~imports:dep_surface e.ast in
+        match Interp.run prog (main_params e.ast) with
+        | Ok out -> Ok out
+        | Error (pos, msg) -> Error (err_of path pos msg))