Idris2-boot/tests/chez/chez004/Buffer.idr

import Data.Buffer
import System.File

main : IO ()
main
    = do Just buf <- newBuffer 100
              | Nothing => putStrLn "Buffer creation failed"
         s <- rawSize buf
         printLn s

         setInt buf 1 94
         setString buf 5 "AAAA"
         val <- getInt buf 1
         printLn val

         setDouble buf 10 94.42
         val <- getDouble buf 10
         printLn val

         setString buf 20 "Hello there!"
         val <- getString buf 20 5
         printLn val

         val <- getString buf 26 6
         printLn val

         ds <- bufferData buf
         printLn ds

         Right f <- openBinaryFile "test.buf" WriteTruncate
             | Left err => putStrLn "File error on write"
         Right _ <- writeBufferToFile f buf 100
             | Left err => do putStrLn "Buffer write fail"
                              closeFile f
         closeFile f

         Right f <- openBinaryFile "test.buf" Read
             | Left err => putStrLn "File error on read"
         Right buf2 <- createBufferFromFile f
             | Left err => do putStrLn "Buffer read fail"
                              closeFile f
         closeFile f

         ds <- bufferData buf2
         printLn ds

         Right f <- openBinaryFile "test.buf" Read
             | Left err => putStrLn "File error on read"
         Just buf3 <- newBuffer 99
              | Nothing => putStrLn "Buffer creation failed"
         Right _ <- readBufferFromFile f buf3 100
             | Left err => do putStrLn "Buffer read fail"
                              closeFile f
         closeFile f