Packages

lutil

0.14.3
0.16.3 0.16.2 0.16.1 0.15.0 0.14.3 0.14.2 0.14.1 0.14.0 0.13.5 0.13.4 0.13.3 0.13.2 0.13.1 0.13.0 0.12.2 0.12.1 0.12.0 0.10.0-rc6 0.10.0-rc5 0.10.0-rc4 0.10.0-rc3 0.10.0-rc2 0.10.0-rc1

LFE Utility Functions and Macros

HexDocs

Current section

Files

Jump to
Readme
23 Versions
1 Dependency
6 Dependants
Files
Activity
lutil src lutil-bin.lfe
Raw

src/lutil-bin.lfe 

(defmodule lutil-bin

  (export

   (trim-trailing 1) (trim-trailing 2)

   (trim-trailing-ws 1)))



(defun trim-trailing-ws (bitstr)

  (clj:-> bitstr          

          (trim-trailing #" ")

          (trim-trailing #"\n")

          (trim-trailing #"\r")

          (trim-trailing #"\r\n")))



(defun trim-trailing (bitstr)

  (trim-trailing bitstr #"\n"))



(defun trim-trailing (bitstr pattern)

  (let* ((pattern-size (byte_size pattern))

         (starting-index (- (byte_size bitstr) pattern-size)))

    (trim-trailing bitstr pattern pattern-size starting-index)))



(defun trim-trailing

  ((bitstr _ _ _) (when (== bitstr #""))

   #"")

  ((bitstr pattern _ _) (when (== bitstr pattern))

   #"")

  ((bitstr _ pattern-size index) (when (or (=< index 0) (< (byte_size bitstr) (+ pattern-size index))))

   bitstr)

  ((bitstr pattern pattern-size index)

   (let ((head (binary:part bitstr 0 index))

         (tail (binary:part bitstr index pattern-size)))

     (if (!= pattern tail)

       bitstr

       (trim-trailing head pattern pattern-size (- (byte_size head) pattern-size))))))