From 1e0d7be4f4322836093d744c916fe02bfbcf9418 Mon Sep 17 00:00:00 2001 From: krasimir Date: Mon, 11 May 2015 13:01:39 +0000 Subject: added all orthographic primitives --- src/runtime/haskell/PGF/Binary.hs | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'src/runtime/haskell/PGF/Binary.hs') diff --git a/src/runtime/haskell/PGF/Binary.hs b/src/runtime/haskell/PGF/Binary.hs index b2695acbb..e1054447e 100644 --- a/src/runtime/haskell/PGF/Binary.hs +++ b/src/runtime/haskell/PGF/Binary.hs @@ -213,8 +213,10 @@ instance Binary Symbol where put (SymKP d vs) = putWord8 4 >> put (d,vs) put SymBIND = putWord8 5 put SymSOFT_BIND = putWord8 6 - put SymCAPIT = putWord8 7 - put SymNE = putWord8 8 + put SymSOFT_SPACE = putWord8 7 + put SymCAPIT = putWord8 8 + put SymALL_CAPIT = putWord8 9 + put SymNE = putWord8 10 get = do tag <- getWord8 case tag of 0 -> liftM2 SymCat get get @@ -224,8 +226,10 @@ instance Binary Symbol where 4 -> liftM2 (\d vs -> SymKP d vs) get get 5 -> return SymBIND 6 -> return SymSOFT_BIND - 7 -> return SymCAPIT - 8 -> return SymNE + 7 -> return SymSOFT_SPACE + 8 -> return SymCAPIT + 9 -> return SymALL_CAPIT + 10-> return SymNE _ -> decodingError instance Binary PArg where -- cgit v1.2.3