Skip to content

Instantly share code, notes, and snippets.

View relrod's full-sized avatar

Rick Elrod relrod

View GitHub Profile
.-(/usr/ports/irc/xchat/work/xchat-2.8.6/plugins/perl)---------------------------------------------------------------------(4:30:52)-
`--> make
make all-am
depbase=`echo perl.lo | sed 's|[^/]*$|.deps/&|;s|\.lo$||'`; /bin/sh ../../libtool --tag=CC --mode=compile cc -DHAVE_CONFIG_H -I. -I../.. -DAPPLLIB_EXP="/usr/local/lib/perl5/5.10.0/BSDPAN" -DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -pipe -I/usr/local/include -I/usr/local/lib/perl5/5.10.0/mach/CORE -I/usr/local/include/glib-2.0 -I/usr/local/lib/glib-2.0/include -D_REENTRANT -I/usr/local/include/dbus-1.0 -I/usr/local/include/dbus-1.0/include -I/usr/local/include/glib-2.0 -I/usr/local/lib/glib-2.0/include -I./.. -I/usr/local/include -I/usr/local/include/tcl8.5 -D_THREAD_SAFE -O2 -fno-strict-aliasing -pipe -Wall -g -Wno-pointer-sign -funsigned-char -I/usr/local/include -I/usr/local/include/tcl8.5 -D_THREAD_SAFE -MT perl.lo -MD -MP -MF $depbase.Tpo -c -o perl.lo perl.c && mv -f $depbase.Tpo $depbase.Plo
cc -DHAVE_CONFIG_H -I. -I../
@relrod
relrod / ysu.sh
Created September 17, 2018 16:19
#!/usr/bin/env bash
for ip in $(echo 150.134.{0..255}.{0..255}); do
echo $ip
ping -W 1 -c 1 $ip
if [[ $? -eq 0 ]]; then
echo $ip >> ips.used
else
echo $ip >> ips.error
fi
done
[rick@x230-01 test-git-repo]$ git diff | grep +++ | hexdump -C
00000000 2b 2b 2b 20 62 2f 6c 6f 6f 6b 20 61 74 20 6d 65 |+++ b/look at me|
00000010 20 49 20 61 6d 20 61 20 70 72 65 74 74 79 20 66 | I am a pretty f|
00000020 69 6c 65 2e 74 78 74 09 0a 2b 2b 2b 20 62 2f 6c |ile.txt..+++ b/l|
00000030 6f 6f 6b 5f 61 74 5f 6d 65 5f 49 5f 61 6d 5f 61 |ook_at_me_I_am_a|
00000040 5f 70 72 65 74 74 79 5f 66 69 6c 65 2e 74 78 74 |_pretty_file.txt|
00000050 0a |.|
00000051
elrod-access-sw01#show vlan brief
VLAN Name Status Ports
---- -------------------------------- --------- -------------------------------
1 default active
600 tennet-primary active Fa0/1, Fa0/2, Fa0/3, Fa0/4
Fa0/5, Fa0/6, Fa0/7, Fa0/8
Fa0/9, Fa0/10, Fa0/11, Fa0/12
Fa0/13, Fa0/14, Fa0/15, Fa0/16
700 cfnet-primary active Fa0/17, Fa0/18, Fa0/19, Fa0/20
module Stuff where
import Control.Monad (void)
import qualified Data.Text as T
import Text.Trifecta
import Text.Parser.Char
import Text.Parser.Expression
import Text.Parser.Combinators
data AnswerLetter = A | B | C | D deriving (Show, Eq, Read)
#!/usr/bin/env runhaskell
module Main where
import Data.Time.Clock.POSIX
import System.IO
avgNum :: Int
avgNum = 4
main :: IO ()
Require Import Coq.Lists.List.
Require Import FunctionalExtensionality.
Import ListNotations.
Inductive DList (a : Set) :=
| DL : (list a -> list a) -> DList a.
Definition fromList {a : Set} (l : list a) : DList a :=
DL a (app l).
@relrod
relrod / repro.hs
Created April 1, 2017 06:10
Simpler(-ish) GHC bug reproducer
module Main where
import Control.Monad
import Data.AffineSpace
import Data.Thyme.Clock
import Data.Thyme.Time
filterTimes
:: [UTCTime]
-> UTCTime
module ASM6809 where
import Data.ByteString.Builder
import Data.Word
import System.IO
data Instruction =
NOP
| ADDA Word8
| LDA Word8
{-# LANGUAGE FlexibleContexts #-}
module SpecializedIO where
import Control.Monad.Free
data OnlyPrintLine a = OnlyPrintLine String a
instance Functor OnlyPrintLine where
fmap f (OnlyPrintLine s a) = OnlyPrintLine s (f a)