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