]> gerrit.simantics Code Review - simantics/platform.git/blob - bundles/org.simantics.scl.rest/scl/HTTP/MultiPart.scl
Pass model instead of null
[simantics/platform.git] / bundles / org.simantics.scl.rest / scl / HTTP / MultiPart.scl
1 import "File"
2 import "Stream"
3 import "HTTP/MediaType"
4 import "JavaBuiltin" as Java
5
6 importJava "org.glassfish.jersey.media.multipart.MultiPart" where
7     data MultiPart
8     
9     @JavaName "<init>"
10     multiPart :: MediaType -> <Proc> MultiPart
11     
12     @JavaName bodyPart
13     addBodyPart :: MultiPart -> BodyPart -> <Proc> MultiPart
14
15 importJava "org.glassfish.jersey.media.multipart.BodyPart" where
16     data BodyPart
17     
18     @JavaName "<init>"
19     bodyPart :: a -> MediaType -> <Proc> BodyPart 
20
21 importJava "org.glassfish.jersey.media.multipart.FormDataBodyPart" where
22     data FormDataBodyPart
23     
24     @JavaName "<init>"
25     formDataBodyPart :: String -> a -> MediaType -> <Proc> BodyPart
26
27 importJava "org.glassfish.jersey.media.multipart.file.FileDataBodyPart" where
28     data FileDataBodyPart
29     
30     @JavaName "<init>"
31     fileDataBodyPart :: String -> File -> MediaType -> <Proc> BodyPart
32
33 importJava "org.glassfish.jersey.media.multipart.file.StreamDataBodyPart" where
34     data StreamDataBodyPart
35     
36     @JavaName "<init>"
37     streamDataBodyPart :: String -> InputStream -> String -> MediaType -> <Proc> BodyPart
38
39 multiPartAsBodyPart :: MultiPart -> BodyPart
40 multiPartAsBodyPart mp = Java.unsafeCoerce mp
41
42 formDataMultiPart :: <Proc> MultiPart
43 formDataMultiPart = multiPart MULTIPART_FORM_DATA_TYPE