HORIZON HASKELLDocslts/ghc-9.14.x45dd5372026-10-11Search names, modules, packages, or :: a typeCtrl K

GHC 9.14.1 · lts/ghc-9.14.x · 45dd537 · 2026-10-11

Modulehosc-0.21.1Haskell2010

Sound.Osc.Coding.Encode.Base

Base-level encode function for Osc packets (slow). For ordinary use see Sound.Osc.Coding.Encode.Builder.

  • 6 values
  • Packagehosc-0.21.1
  • Exports6
  • LanguageHaskell2010
  • LicenceGPL-3.0-only
  • SourceBase.hs
valueencode_datum :: Datum -> ByteString
#

Encode Osc Datum.

MidiData: Bytes from MSB to LSB are: port id, status byte, data1, data2.

Example1 expression
encode_datum (blob [1, 2, 3, 4]) == B.pack [0, 0, 0, 4, 1, 2, 3, 4]True
Example1 expression
encode_datum (Float 1) == B.pack [63, 128, 0, 0]True
Example1 expression
encode_datum (Float 2) == B.pack [64, 0, 0, 0]True
Example1 expression
encode_datum (Float 3) == B.pack [64, 64, 0, 0]True
Example1 expression
encode_datum (Float 4) == B.pack [64, 128, 0, 0]True
Example1 expression
encode_datum (Float 5) == B.pack [64, 160, 0, 0]True
Example1 expression
encode_datum (Int32 65536) == B.pack [0, 1, 0, 0]True
Example1 expression
encode_datum (Int32 (-65536)) == B.pack [255, 255, 0, 0]True
valueencodeMessage :: Message -> ByteString
#

Encode Osc Message.

Example1 expression
blob_unpack (encodeMessage (Message "/x" []))[47,120,0,0,44,0,0,0]
Example1 expression
blob_unpack (encodeMessage (Message "/y" [float 3.141]))[47,121,0,0,44,102,0,0,64,73,6,37]
Example3 expressions
let m = Message "/n_set" [int32 (-1), string "freq", float 440, string "amp", float 0.1]let e = blob_unpack (encodeMessage m)length e40
Example1 expression
take 20 e[47,110,95,115,101,116,0,0,44,105,115,102,115,102,0,0,255,255,255,255]
valueencodeBundle :: BundleOf Message -> ByteString
#

Encode Osc Bundle.

Example1 expression
blob_unpack (encodeBundle (Bundle immediately [Message "/x" []]))[35,98,117,110,100,108,101,0,0,0,0,0,0,0,0,1,0,0,0,8,47,120,0,0,44,0,0,0]
Example4 expressions
let m = Message "/n_set" [int32 (-1), string "freq", float 440, string "amp", float 0.1]let b = Bundle 0.0 [m]let e = blob_unpack (encodeBundle b)length e60
> take 20 e
35,98,117,110,100,108,101,0,0,0,0,0,0,0,0,0,0,0,0,40