チェンジセット 1965

差分発生行の前後
無視リスト:
コミット日時:
2008/12/05 10:37:43 (3 年前)
コミッタ:
mzp
ログメッセージ:

表示方法を改善

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動

  • ocaml/abc2xml/trunk/classdump/main.ml

    r1964 r1965  
    2626 
    2727let multiname cpool i = 
    28   match List.nth cpool#multiname @@ Int32.to_int i - 1 with 
    29       `QName obj -> 
    30         Printf.sprintf "%s.%s" (namespace cpool obj#ns) (string cpool obj#name) 
    31     | `Multiname obj -> 
    32         Printf.sprintf "%s.%s" (namespace_set cpool obj#ns_set) (string cpool obj#name) 
    33     | _ -> 
    34         failwith "not yet" 
     28  let ns,name =  
     29    match List.nth cpool#multiname @@ Int32.to_int i - 1 with 
     30        `QName obj -> 
     31          (namespace cpool obj#ns),(string cpool obj#name) 
     32      | `Multiname obj -> 
     33          (namespace_set cpool obj#ns_set),(string cpool obj#name) 
     34      | _ -> 
     35          failwith "not yet" in 
     36    if ns = "" then 
     37      name 
     38    else 
     39      ns ^ "." ^name 
    3540 
    3641let method_info abc i = 
    …… 
    6772      _::xs -> 
    6873        List.iter (List.iter (fun (klass,methods)-> 
    69                                 Printf.printf "(%s (%s))\n" klass @@ String.concat " " methods) $ dump) xs 
     74                                Printf.printf "(external-class %s (%s))\n" klass @@ String.concat " " methods) $ dump) xs 
    7075      | [] -> 
    7176          failwith "must not happen"