Skip to content

Instantly share code, notes, and snippets.

View ryo1kato's full-sized avatar

ryo1kato ryo1kato

14 followers · 14 following
View GitHub Profile
@ryo1kato
ryo1kato / hmlgrep-fgrep.hs
Created September 2, 2014 23:17
fgrep with regex support for --rs
--
-- hmlgrep - Haskell Multi-Line Grep
--
{-
TODOs:
* FIX: '-' and '--' handling in optparse-applicative
* https://github.com/pcapriotti/optparse-applicative/pull/99
* Use Cabal for build?
* Use Boyer-Moore for non-regex patterns using stringsearch library:
@ryo1kato
ryo1kato / gist:2ee21d3eec571f059780
Created September 2, 2014 16:50
dropLast n bstr = BS.take (BS.length bstr - n) bstr
takeLast n bstr = BS.drop (BS.length bstr - n) bstr
reComp pat = makeRegexOpts compBlank execBlank pat
breakNextRegex re bstr =
if pos >= 0
then BS.splitAt pos bstr
else (bstr, BS.empty)
where (pos, len) = bstr =~ re :: (MatchOffset,MatchLength)
@ryo1kato
ryo1kato / gist:6b6387ab345855544f25
Created September 1, 2014 14:24
afterLastRegexOf :: ByteStr -> ByteStr -> ByteStr
afterLastRegexOf pat bstr = revSearchRE 0 bstr
where
re = makeRegexOpts compBlank execBlank pat
revSearchRE n s
| BS.null s = bstr
|_
| otherwise = revSearchRE (n+lastlinelen) ()
where
lastline = afterLastRegexOf (pack "\n") s
@ryo1kato
ryo1kato / regex-to-plain-string
Created August 28, 2014 14:12
import Control.Monad
import Data.Maybe
regexChars = "^$(|)[]{}.*"
regexCharsLast = "$)]}.*"
toPlainString' :: String -> String -> Maybe String
toPlainString' s [] = Just s
toPlainString' s (r:[]) = if r `elem` regexCharsLast
then Nothing
@ryo1kato
ryo1kato / test.html
Last active August 29, 2015 14:05
<html>
<script TYPE="text/javascript" LANGUAGE="javascript">
window.resizeTo(100,200);
</script>
</html>
@ryo1kato
ryo1kato / gist:ef95223112506606ed26
Created August 16, 2014 15:07
--
-- hmlgrep - Haskell Multi-Line Grep
--
{-
TODOs:
* Show filenames with --count option for multiple file input
* Implement match highlight
* FIX: '-' and '--' handling in optparse-applicative
* https://github.com/pcapriotti/optparse-applicative/pull/99
* Use Boyer-Moore for non-regex patterns using stringsearch library:
@ryo1kato
ryo1kato / highlightRange.hs
Created August 15, 2014 15:32
highlightRange
import System.Console.ANSI
import qualified Data.ByteString.Lazy.Char8 as BS
import Text.Regex.PCRE
import Text.Regex.PCRE.ByteString
import Data.Int
hlCode = setSGRCode [SetColor Foreground Vivid Red]
hlReset = setSGRCode [Reset]
d = map BS.pack [
@ryo1kato
ryo1kato / gist:a36190e9ce25ab89067a
Created August 2, 2014 07:39
cat result | while read t p; do t1=${t%-*}; t2=${t#*-}; p1=${p%-*}; p2=${t#*-}; t+=(t1 $t2); if (( p1 > p2 )); then echo ${t1} win; echo ${t2} lose; else echo ${t2} win; echo ${t1} lose; fi; done | sort | uniq -c
@ryo1kato
ryo1kato / gist:0af89dcd75b643c27ead
Created August 2, 2014 07:09
#!/bin/bash
n=$(<"$1")
nums=($n)
i=$(sort -nr $1|head -1)
while ((i--))
do
for num in "${nums[@]}"
do
if [ $i -gt $num ]; then
echo -n " "
@ryo1kato
ryo1kato / gist:dd09ab8fa60d138e9a63
Created August 2, 2014 05:57
curl http://ekikara.jp/newdata/line/1301351.htm | nkf -u | grep '<span class="l"><a href="../station/[0-9]*.htm">' | sed -e 's/<[^>]*>//g' | tr -d ' ' | cut -d '(' -f 1