mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-20 18:21:47 +03:00
70ef197cf6
* [ base ] Deprecate setByte in favour of setBits8
Deprecate getByte; fix Core.Binary.Prims
Along with `setByte`, the `getByte` function should similarly be
deprecated since it also assumes the value will have the given size,
rather than guaranteeing it in the type.
CI highlighted some required changes in `Core.Binary.Prims` thanks to
`-Werror`. The fix was to add some `cast` calls where the old `getByte`
and `setByte` used to be.
The RefC buffer test will need updating once we remove the functions
completely. Added a note for future peeps.
68 lines
2.0 KiB
Idris
68 lines
2.0 KiB
Idris
import Data.Buffer
|
|
import System.File
|
|
import Debug.Buffer
|
|
|
|
main : IO ()
|
|
main
|
|
= do Just buf <- newBuffer 100
|
|
| Nothing => putStrLn "Buffer creation failed"
|
|
s <- rawSize buf
|
|
printLn s
|
|
|
|
setInt32 buf 1 94
|
|
setString buf 5 "AAAA"
|
|
val <- getInt32 buf 1
|
|
printLn val
|
|
|
|
setDouble buf 10 94.42
|
|
val <- getDouble buf 10
|
|
printLn val
|
|
|
|
let stringWithNULs = "string\NUL\NUL\NUL\NULcontaining 4 NULs"
|
|
-- since the string contains only ASCII characters, `stringByteLength`
|
|
-- should equal `length`
|
|
putStrLn $ "bytes: " ++ show (stringByteLength stringWithNULs)
|
|
putStrLn $ "characters: " ++ show (length stringWithNULs)
|
|
|
|
setString buf 20 "Hello there!"
|
|
val <- getString buf 20 5
|
|
printLn val
|
|
|
|
val <- getString buf 26 6
|
|
printLn val
|
|
|
|
setBits16 buf 32 65535
|
|
val <- getBits16 buf 32
|
|
printLn val
|
|
|
|
ds <- bufferData buf
|
|
printLn ds
|
|
|
|
Right _ <- writeBufferToFile "test.buf" buf 100
|
|
| Left err => putStrLn "Buffer write fail"
|
|
Right buf2 <- createBufferFromFile "test.buf"
|
|
| Left err => putStrLn "Buffer read fail"
|
|
|
|
ds <- bufferData buf2
|
|
printLn ds
|
|
|
|
setBits8 buf2 0 1
|
|
Just ccBuf <- concatBuffers [buf, buf2]
|
|
| Nothing => putStrLn "Buffer concat failed"
|
|
printLn !(bufferData ccBuf)
|
|
|
|
Just (a, b) <- splitBuffer buf 20
|
|
| Nothing => putStrLn "Buffer split failed"
|
|
printBuffer a
|
|
printBuffer b
|
|
|
|
-- Put back when the File API is moved to C and these can work again
|
|
-- 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
|