additional Int53 api using Number purescript-node#37

Author: Juergen Gmeiner

src/Node/FS.purs

@@ -9,6 +9,7 @@ module Node.FS
   , BufferOffset(..)
   , ByteCount(..)
   , FilePosition(..)
+  , FilePositionInt53(..)
   , fileFlagsToNode
   ) where
 
@@ -64,6 +65,8 @@ type BufferLength = Int
 type BufferOffset = Int
 type ByteCount = Int
 
+type FilePositionInt53 = Number
+
 -- | Symlink varieties.
 data SymlinkType = FileLink | DirLink | JunctionLink
 

src/Node/FS/Async.purs

@@ -25,8 +25,10 @@ module Node.FS.Async
   , exists
   , fdOpen
   , fdRead
+  , fdReadInt53
   , fdNext
   , fdWrite
+  , fdWriteInt53
   , fdAppend
   , fdClose
   ) where
@@ -46,8 +48,8 @@ import Data.Nullable (Nullable, toNullable)
 import Node.Buffer (Buffer(), BUFFER(), size)
 import Data.Int (round)
 import Node.Encoding (Encoding)
-import Node.FS (FS, FileDescriptor, ByteCount, FilePosition, BufferLength,
-                BufferOffset, FileMode, FileFlags, SymlinkType,
+import Node.FS (FS, FileDescriptor, ByteCount, FilePosition, FilePositionInt53,
+                BufferLength, BufferOffset, FileMode, FileFlags, SymlinkType,
                 fileFlagsToNode, symlinkTypeToNode)
 import Node.FS.Stats (StatsObj, Stats(..))
 import Node.Path (FilePath())
@@ -91,6 +93,13 @@ fs ::
   }
 fs = unsafeRequireFS
 
+fsInt53 ::
+  { read :: Fn6 FileDescriptor Buffer BufferOffset BufferLength (Nullable FilePositionInt53) (JSCallback ByteCount) Unit
+  , write :: Fn6 FileDescriptor Buffer BufferOffset BufferLength (Nullable FilePositionInt53) (JSCallback ByteCount) Unit
+  }
+fsInt53 = unsafeRequireFS
+
+
 -- | Type synonym for callback functions.
 type Callback eff a = Either Error a -> Eff (fs :: FS | eff) Unit
 
@@ -324,6 +333,18 @@ fdRead :: forall eff.
        -> Eff (buffer :: BUFFER, fs :: FS | eff) Unit
 fdRead fd buff off len pos cb =  mkEff $ \_ -> runFn6 fs.read fd buff off len (toNullable pos) (handleCallback cb)
 
+-- | Read from a file asynchronously. See the [Node Documentation](https://nodejs.org/api/fs.html#fs_fs_read_fd_buffer_offset_length_position_callback)
+-- | for details.
+fdReadInt53 :: forall eff.
+          FileDescriptor
+       -> Buffer
+       -> BufferOffset
+       -> BufferLength
+       -> Maybe FilePositionInt53
+       -> Callback (buffer :: BUFFER | eff) ByteCount
+       -> Eff (buffer :: BUFFER, fs :: FS | eff) Unit
+fdReadInt53 fd buff off len pos cb =  mkEff $ \_ -> runFn6 fsInt53.read fd buff off len (toNullable pos) (handleCallback cb)
+
 -- | Convenience function to fill the whole buffer from the current
 -- | file position.
 fdNext :: forall eff.
@@ -347,6 +368,19 @@ fdWrite :: forall eff.
         -> Eff (buffer :: BUFFER, fs :: FS | eff) Unit
 fdWrite fd buff off len pos cb = mkEff $ \_ -> runFn6 fs.write fd buff off len (toNullable pos) (handleCallback cb)
 
+-- | Write to a file asynchronously. See the [Node Documentation](https://nodejs.org/api/fs.html#fs_fs_write_fd_buffer_offset_length_position_callback)
+-- | for details.
+fdWriteInt53 :: forall eff.
+           FileDescriptor
+        -> Buffer
+        -> BufferOffset
+        -> BufferLength
+        -> Maybe FilePositionInt53
+        -> Callback (buffer :: BUFFER | eff) ByteCount
+        -> Eff (buffer :: BUFFER, fs :: FS | eff) Unit
+fdWriteInt53 fd buff off len pos cb = mkEff $ \_ -> runFn6 fsInt53.write fd buff off len (toNullable pos) (handleCallback cb)
+
+
 -- | Convenience function to append the whole buffer to the current
 -- | file position.
 fdAppend :: forall eff.

src/Node/FS/Sync.purs

@@ -24,8 +24,10 @@ module Node.FS.Sync
   , exists
   , fdOpen
   , fdRead
+  , fdReadInt53
   , fdNext
   , fdWrite
+  , fdWriteInt53
   , fdAppend
   , fdFlush
   , fdClose
@@ -45,8 +47,8 @@ import Data.Maybe (Maybe(..))
 import Node.Buffer (Buffer(), BUFFER(), size)
 import Node.Encoding (Encoding)
 
-import Node.FS (FS, FileDescriptor, ByteCount, FilePosition, BufferLength,
-                BufferOffset, FileMode, FileFlags, SymlinkType,
+import Node.FS (FS, FileDescriptor, ByteCount, FilePosition, FilePositionInt53,
+                BufferLength, BufferOffset, FileMode, FileFlags, SymlinkType,
                 fileFlagsToNode, symlinkTypeToNode)
 import Node.FS.Stats (StatsObj, Stats(..))
 import Node.Path (FilePath())
@@ -80,6 +82,12 @@ fs ::
   }
 fs = unsafeRequireFS
 
+fsInt53 ::
+  { readSync :: Fn5 FileDescriptor Buffer BufferOffset BufferLength (Nullable FilePositionInt53) ByteCount
+  , writeSync :: Fn5 FileDescriptor Buffer BufferOffset BufferLength (Nullable FilePositionInt53) ByteCount
+  }
+fsInt53 = unsafeRequireFS
+
 -- | Renames a file.
 rename :: forall eff. FilePath
                    -> FilePath
@@ -286,6 +294,20 @@ fdRead :: forall eff.
 fdRead fd buff off len pos =
   mkEff $ \_ -> runFn5 fs.readSync fd buff off len (toNullable pos)
 
+-- | Read from a file synchronously. See the [Node documentation](http://nodejs.org/api/fs.html#fs_fs_readsync_fd_buffer_offset_length_position)
+-- | for details.
+-- |
+-- | This version takes a position argument that is not restricted to 2GB
+fdReadInt53 :: forall eff.
+          FileDescriptor
+       -> Buffer
+       -> BufferOffset
+       -> BufferLength
+       -> Maybe FilePositionInt53
+       -> Eff (buffer :: BUFFER, exception :: EXCEPTION, fs :: FS | eff) ByteCount
+fdReadInt53 fd buff off len pos =
+  mkEff $ \_ -> runFn5 fsInt53.readSync fd buff off len (toNullable pos)
+
 -- | Convenience function to fill the whole buffer from the current
 -- | file position.
 fdNext :: forall eff.
@@ -308,6 +330,20 @@ fdWrite :: forall eff.
 fdWrite fd buff off len pos =
   mkEff $ \_ -> runFn5 fs.writeSync fd buff off len (toNullable pos)
 
+-- | Write to a file synchronously. See the [Node documentation](http://nodejs.org/api/fs.html#fs_fs_writesync_fd_buffer_offset_length_position)
+-- | for details.
+-- |
+-- | This version takes a position argument that is not restricted to 2GB
+fdWriteInt53 :: forall eff.
+           FileDescriptor
+        -> Buffer
+        -> BufferOffset
+        -> BufferLength
+        -> Maybe FilePositionInt53
+        -> Eff (buffer :: BUFFER, exception :: EXCEPTION, fs :: FS | eff) ByteCount
+fdWriteInt53 fd buff off len pos =
+  mkEff $ \_ -> runFn5 fsInt53.writeSync fd buff off len (toNullable pos)
+
 -- | Convenience function to append the whole buffer to the current
 -- | file position.
 fdAppend :: forall eff.