OpenE2K
/
rust
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

use,import,export parse fixes 

* use,import,export must come before all other items.
* disallow use,import in "native" declarations.
This commit is contained in:
Adam Bozanich 2010-07-10 12:11:07 +08:00 committed by Graydon Hoare
parent b096b0e308
commit 7a13a61e02
1 changed files with 87 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

160
src/boot/fe/item.ml
View File

@ -774,7 +774,6 @@ and parse_type_item
let item = Ast.MOD_ITEM_type (effect, ty) in
(ident, span ps apos bpos (decl params item))
and parse_mod_item (ps:pstate) : (Ast.ident * Ast.mod_item) =
let apos = lexpos ps in
let parse_lib_name ident =
@ -848,64 +847,35 @@ and parse_mod_item (ps:pstate) : (Ast.ident * Ast.mod_item) =
note_required_mod ps {lo=apos; hi=bpos} conv rlib item;
(ident, item)
end
| USE ->
begin
bump ps;
let ident = ctxt "use mod: ident" Pexp.parse_ident ps in
let meta =
ctxt "use mod: meta" parse_optional_meta_pat ps ident
in
let bpos = lexpos ps in
let id = (span ps apos bpos ()).id in
let (path, items) =
ps.pstate_get_mod meta id ps.pstate_node_id ps.pstate_opaque_id
in
let bpos = lexpos ps in
expect ps SEMI;
let rlib =
REQUIRED_LIB_rust { required_libname = path;
required_prefix = ps.pstate_depth }
in
iflog ps
begin
fun _ ->
log ps "extracted mod from %s (binding to %s)"
path ident;
log ps "%a" Ast.sprintf_mod_items items;
end;
let item = decl [||] (Ast.MOD_ITEM_mod (empty_view, items)) in
let item = span ps apos bpos item in
note_required_mod ps {lo=apos; hi=bpos} CONV_rust rlib item;
(ident, item)
end
| _ -> raise (unexpected ps)
and parse_mod_items_header_from_signature (ps:pstate) : Ast.mod_view =
let exports = Hashtbl.create 0 in
while (peek ps = EXPORT)
do
bump ps;
parse_export ps exports;
expect ps SEMI;
done;
if (Hashtbl.length exports) = 0
then htab_put exports Ast.EXPORT_all_decls ();
{empty_view with Ast.view_exports = exports}
and parse_mod_items_from_signature
(ps:pstate)
: (Ast.mod_view * Ast.mod_items) =
let exports = Hashtbl.create 0 in
let mis = Hashtbl.create 0 in
expect ps LBRACE;
expect ps LBRACE;
let view = parse_mod_items_header_from_signature ps in
let items = Hashtbl.create 0 in
while not (peek ps = RBRACE)
do
match peek ps with
EXPORT ->
bump ps;
parse_export ps exports;
expect ps SEMI;
| _ ->
let (ident, mti) = ctxt "mod items from sig: mod item"
let (ident,item) = ctxt "mod items from sig: mod item"
parse_mod_item_from_signature ps
in
Hashtbl.add mis ident mti;
in
htab_put items ident item;
done;
if (Hashtbl.length exports) = 0
then Hashtbl.add exports Ast.EXPORT_all_decls ();
expect ps RBRACE;
({empty_view with Ast.view_exports = exports}, mis)
(view,items)
and parse_mod_item_from_signature (ps:pstate)
: (Ast.ident * Ast.mod_item) =
@ -1023,7 +993,6 @@ and expand_tags_to_stmts
(Ast.DECL_mod_item (ident, tag_item))))
id_items
and expand_tags_to_items
(ps:pstate)
(item:Ast.mod_item)
@ -1034,7 +1003,6 @@ and expand_tags_to_items
(fun (ident, item) -> htab_put items ident item)
id_items
and note_required_mod
(ps:pstate)
(sp:span)
@ -1114,43 +1082,89 @@ and parse_export
in
Hashtbl.add exports e ()
and parse_use
(ps:pstate)
: (Ast.ident * Ast.mod_item) =
bump ps;
let ident = ctxt "use mod: ident" Pexp.parse_ident ps in
let meta =
ctxt "use mod: meta" parse_optional_meta_pat ps ident
in
let apos = lexpos ps in
let bpos = lexpos ps in
let id = (span ps apos bpos ()).id in
let (path, items) =
ps.pstate_get_mod meta id ps.pstate_node_id ps.pstate_opaque_id
in
let bpos = lexpos ps in
expect ps SEMI;
let rlib =
REQUIRED_LIB_rust { required_libname = path;
required_prefix = ps.pstate_depth }
in
iflog ps
begin
fun _ ->
log ps "extracted mod from %s (binding to %s)"
path ident;
log ps "%a" Ast.sprintf_mod_items items;
end;
let item = decl [||] (Ast.MOD_ITEM_mod (empty_view, items)) in
let item = span ps apos bpos item in
note_required_mod ps {lo=apos; hi=bpos} CONV_rust rlib item;
(ident, item)
and parse_item_decl ps items fn =
let (ident, item) = fn ps in
htab_put items ident item;
expand_tags_to_items ps item items
and parse_mod_header (ps:pstate)
: (Ast.mod_view * Ast.mod_items) =
let imports = Hashtbl.create 0 in
let exports = Hashtbl.create 0 in
let items = Hashtbl.create 4 in
let rec loop () =
match peek ps with
IMPORT ->
bump ps;
parse_import ps imports;
expect ps SEMI;
loop ()
| EXPORT ->
bump ps;
parse_export ps exports;
expect ps SEMI;
loop ()
| USE ->
parse_item_decl ps items parse_use;
loop ()
| _ -> ()
in
loop ();
if (Hashtbl.length exports) = 0
then Hashtbl.add exports Ast.EXPORT_all_decls ();
let view = { Ast.view_imports = imports;
Ast.view_exports = exports }
in
(view, items)
and parse_mod_items
(ps:pstate)
(terminal:token)
: (Ast.mod_view * Ast.mod_items) =
ps.pstate_depth <- ps.pstate_depth + 1;
let imports = Hashtbl.create 0 in
let exports = Hashtbl.create 0 in
let items = Hashtbl.create 4 in
let (view, items) = parse_mod_header ps in
while (not (peek ps = terminal))
do
match peek ps with
IMPORT ->
bump ps;
parse_import ps imports;
expect ps SEMI;
| EXPORT ->
bump ps;
parse_export ps exports;
expect ps SEMI;
| _ ->
let (ident, item) = parse_mod_item ps in
htab_put items ident item;
expand_tags_to_items ps item items;
parse_item_decl ps items parse_mod_item;
done;
if (Hashtbl.length exports) = 0
then Hashtbl.add exports Ast.EXPORT_all_decls ();
expect ps terminal;
ps.pstate_depth <- ps.pstate_depth - 1;
let view = { Ast.view_imports = imports;
Ast.view_exports = exports }
in
(view, items)
(view, items)
;;
(*
* Local Variables:
* fill-column: 78;