move files around

Author: bobzhang

jscomp/core/typemod_hide.ml renamed to jscomp/syntax/typemod_hide.ml

@@ -28,4 +28,19 @@ let  should_hide ( x : Typedtree.module_binding) =
     | [] -> false
     | ({txt = "internal.local";_},_) :: rest -> true
     | _ :: rest -> 
-      Ext_list.exists rest (fun (x,_) -> x.txt = "internal.local")
+      Ext_list.exists rest (fun (x,_) -> x.txt = "internal.local")
+
+let attrs : Parsetree.attributes = 
+  [{txt = "internal.local";loc = Location.none}, PStr []]
+
+let check (x : Parsetree.structure_item) =
+   match x.pstr_desc with 
+   | Pstr_eval _
+   | Pstr_value _
+   | Pstr_primitive _
+   | Pstr_typext _
+   | Pstr_exception _
+     -> ()
+   |  _ -> 
+    Location.raise_errorf ~loc:x.pstr_loc 
+      "the structure is not supported in local extension"