Merge pull request #38 from zudov/file-api

Add some Blob, File, FileList functions

Author: garyb

bower.json

@@ -24,6 +24,8 @@
     "purescript-enums": "^0.7.0",
     "purescript-foreign": "^0.7.0",
     "purescript-exceptions": "~0.3.0",
-    "purescript-nullable": "~0.2.1"
+    "purescript-nullable": "~0.2.1",
+    "purescript-datetime": "~0.9.1",
+    "purescript-media-types": "~0.1.1"
   }
 }

src/DOM/File/Blob.js

@@ -0,0 +1,5 @@
+// module DOM.File.Blob
+
+exports.typeImpl = function(blob) { return blob.type };
+
+exports.size = function(blob) { return blob.size };

src/DOM/File/Blob.purs

@@ -0,0 +1,23 @@
+module DOM.File.Blob
+  ( type_
+  , size
+  ) where
+
+import Prelude ((==))
+import Data.Maybe (Maybe(..))
+import Data.MediaType (MediaType(..))
+
+import DOM.File.Types (Blob())
+
+foreign import typeImpl :: Blob -> String
+
+-- | `MediaType` of the data contained in the `Blob`.
+-- | Returns `Nothing` if the `MediaType` is unknown.
+type_ :: Blob -> Maybe MediaType
+type_ blob = let blobType = typeImpl blob
+             in if blobType == ""
+                then Nothing
+                else Just (MediaType blobType)
+
+-- | The size (in bytes) of the data contained in the `Blob`.
+foreign import size :: Blob -> Number

src/DOM/File/File.js

@@ -0,0 +1,5 @@
+// module DOM.File.File
+
+exports.name = function(file) { return file.name };
+exports.lastModifiedDate = function(file) { return file.lastModifiedDate }
+exports.lastModified = function(file) { return file.lastModified }

src/DOM/File/File.purs

@@ -0,0 +1,13 @@
+module DOM.File.File
+  ( name
+  , lastModified
+  , lastModifiedDate
+  ) where
+
+import DOM.File.Types (File())
+
+import Data.Date (JSDate())
+
+foreign import name :: File -> String
+foreign import lastModifiedDate :: File -> JSDate
+foreign import lastModified :: File -> Number

src/DOM/File/FileList.js

@@ -0,0 +1,9 @@
+// module DOM.File.FileList
+
+exports.length = function(fileList) { return fileList.length; };
+
+exports.item = function(index) {
+  return function(fileList) {
+    return fileList.item(index);
+  }
+};

src/DOM/File/FileList.purs

@@ -0,0 +1,13 @@
+module DOM.File.FileList
+  ( item
+  , length
+  ) where
+
+import Data.Nullable (Nullable())
+import DOM.File.Types (FileList(), File())
+
+-- | Number of files in the `FileList` object.
+foreign import length :: FileList -> Int
+
+-- | Get `File` at the certain position
+foreign import item :: Int -> FileList -> Nullable File

src/DOM/File/Types.purs

@@ -1,8 +1,13 @@
 module DOM.File.Types where
 
+import Unsafe.Coerce (unsafeCoerce)
+
 foreign import data Blob :: *
 foreign import data BlobURL :: *
 foreign import data File :: *
 foreign import data FileList :: *
 foreign import data FileReader :: *
 foreign import data FileReaderSync :: *
+
+fileToBlob :: File -> Blob
+fileToBlob = unsafeCoerce