mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-02 22:43:14 +03:00
2938e86421
...for consistency with Idris 1 (probably to be revisited later). So, when working via the scheme primitives, we need to read/write 32 bits.
56 lines
1.6 KiB
Idris
56 lines
1.6 KiB
Idris
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
|
|
|