|
|
|
@ -109,9 +109,11 @@ module Java = struct
|
|
|
|
|
supertype_exists tenv is_interface (Typ.Name.Java.from_string typename)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
let implements_lang class_name = implements ("java.lang." ^ class_name)
|
|
|
|
|
|
|
|
|
|
let implements_arrays = implements "java.util.Arrays"
|
|
|
|
|
|
|
|
|
|
let implements_iterable = implements "java.lang.Iterable"
|
|
|
|
|
let implements_iterable = implements_lang "Iterable"
|
|
|
|
|
|
|
|
|
|
let implements_iterator = implements "java.util.Iterator"
|
|
|
|
|
|
|
|
|
@ -121,7 +123,11 @@ module Java = struct
|
|
|
|
|
|
|
|
|
|
let implements_list = implements "java.util.List"
|
|
|
|
|
|
|
|
|
|
let implements_math = implements "java.lang.Math"
|
|
|
|
|
let implements_math = implements_lang "Math"
|
|
|
|
|
|
|
|
|
|
let implements_number = implements_lang "Number"
|
|
|
|
|
|
|
|
|
|
let implements_system = implements_lang "System"
|
|
|
|
|
|
|
|
|
|
let implements_xmob_utils class_name = implements ("com.moblica.common.xmob.utils." ^ class_name)
|
|
|
|
|
|
|
|
|
@ -162,8 +168,6 @@ module Java = struct
|
|
|
|
|
|
|
|
|
|
let implements_queue = implements "java.util.Queue"
|
|
|
|
|
|
|
|
|
|
let implements_lang class_name = implements ("java.lang." ^ class_name)
|
|
|
|
|
|
|
|
|
|
let implements_google class_name = implements ("com.google." ^ class_name)
|
|
|
|
|
|
|
|
|
|
let implements_android class_name = implements ("android." ^ class_name)
|
|
|
|
|