wcwidth 0.0.0 → 0.0.1

raw patch · 2 files changed

+87/−2 lines, 2 files

Files

• CompileRanges.hs +84/−0
• wcwidth.cabal +3/−2

@@ -0,0 +1,84 @@+#!/usr/bin/env runhaskell+++module CompileRanges where++import Prelude hiding (lines, unlines)+import Data.List (foldl')+import Data.Char+import Data.Maybe+import Data.Either+import Control.Applicative hiding (empty)+import System.IO (stdin, stdout, stderr)+import Data.ByteString.Lazy.Char8 hiding (count, foldl', reverse)++import Data.ParserCombinators.Attoparsec.Char8+++++main                         =  compile_ranges stdin stdout+++compile_ranges i o           =  do+  ranges                    <-  rights . parse' . lines <$> hGetContents i+  --sequence_ . (hPut o . display <$>) $ collate ranges+  hPut o preamble+  (sequence_ . (hPut o . compile <$>) . collate) ranges+  hPut o postamble+ where+  parse'                     =  (snd . parse range <$>)+  display ((a,z),w)          =  a `append` pack ".." `append` z `snoc` '\n'+  compile ((a,z),w)          =  guard `append` eq `append` w `snoc` '\n'+   where+    guard                    =  pack "  | i <= " `append` z+    eq                       =  pack "              =  "+  preamble                   =  (unlines . fmap pack) [warning, mod, sig, f]+   where+    warning                  =  "\n\n--  This file was autogenerated.\n"+    mod                      =  "\nmodule Data.Char.Cols.Generated where\n\n"+    sig                      =  "cols                        ::  Char -> Int\n"+    f                        =  "cols c\n"+  postamble                  =  otherwise_clause `append` where_clause+   where+    otherwise_clause         =  pack "  | otherwise                =  -1\n"+    where_clause             =  pack " where\n" `append` pack i `snoc` '\n'+     where+      i                      =  "  i                          =  fromEnum c\n"+++++range                        =  do+  start                     <-  short_hex+  string ".."+  end                       <-  short_hex+  some (char ' ')+  columns                   <-  little_int+  return ((start, end), columns)++short_hex                   ::  Parser ByteString+short_hex                    =  do+  ox                        <-  match (string "0x")+  count 4 (char '0')+  append ox <$> match (count 4 (satisfy isHexDigit))++little_int                  ::  Parser ByteString+little_int                   =  do+  sign                      <-  maybe empty id <$> optional minus+  digits                    <-  match (satisfy isDigit)+  return (append sign digits)+ where+  minus                      =  match (char '-')+++++collate                      =  reverse . foldl' collate' []+ where+  collate' [] range          =  [range]+  collate' (((a,z),w):t) ((a',z'),w')+    | w == w'                =  ((a,z'),w) : t+    | otherwise              =  ((a',z'),w') : ((a,z),w) : t++

@@ -1,11 +1,11 @@ name                          : wcwidth-version                       : 0.0.0+version                       : 0.0.1 category                      : Text license                       : BSD3 license-file                  : LICENSE author                        : Jason Dusek maintainer                    : wcwidth@solidsnack.be -homepage                      : http://github.com/solidsnack/width/+homepage                      : http://github.com/solidsnack/wcwidth/ synopsis                      : Native wcwidth. description                   :   Bindings for your system's native wcwidth and a command line tool to examine@@ -15,6 +15,7 @@  cabal-version                 : >= 1.6.0 build-type                    : Simple+extra-source-files            : CompileRanges.hs   library