Skip to content

Instantly share code, notes, and snippets.

View ryanfb's full-sized avatar

Ryan Baumann ryanfb

View GitHub Profile
@ryanfb
ryanfb / twitch2mp4.sh
Created August 26, 2014 15:44
Script to convert and join a directory of youtube-dl flv files from Twitch to mp4 for upload/archiving to YouTube
#!/bin/bash
function join { local IFS="$1"; shift; echo "$*"; }
outfile="$(basename "$(ls -1 *.flv|head -1)" .flv).mp4"
if [ ! -f outfile ]; then
i=0
lnfiles=()
for j in *.flv; do
echo $j
$ g++ -o untrunc file.cpp main.cpp track.cpp atom.cpp mp4.cpp -L/usr/local/lib -lavformat -lavcodec -lavutil
track.cpp:106:26: warning: 'avcodec_alloc_frame' is deprecated [-Wdeprecated-declarations]
AVFrame *frame = avcodec_alloc_frame();
^
/usr/local/include/libavcodec/avcodec.h:3513:10: note: 'avcodec_alloc_frame' declared here
AVFrame *avcodec_alloc_frame(void);
^
track.cpp:217:8: error: use of undeclared identifier 'avcodec_open'
if(avcodec_open(codec.context, codec.codec)<0)
^
ryan@Lib-PAPRM02:~/mess/current!$ md5sum /usr/local/Cellar/tesseract/HEAD/share/tessdata/grc.traineddata [15:36:50]
dd42e79d6ae3a476171646e949325a35 /usr/local/Cellar/tesseract/HEAD/share/tessdata/grc.traineddata
ryan@Lib-PAPRM02:~/mess/current!$ md5sum /Users/ryan/mess/2014/48/grc/**/grc.traineddata [15:37:18]
e43ebd781c394114b8d87b881c6b8cda /Users/ryan/mess/2014/48/grc/1.0/grc.traineddata
7ee3b8a9dc8e5d8fd084c8fae888e3a7 /Users/ryan/mess/2014/48/grc/1.1/grc.traineddata
216245ccf5b1f0465c4e8a3e64dbd763 /Users/ryan/mess/2014/48/grc/1.2/grc.traineddata
b4697b098b66f3ca2fbe32efd79763d1 /Users/ryan/mess/2014/48/grc/1.3/grc.traineddata
dd42e79d6ae3a476171646e949325a35 /Users/ryan/mess/2014/48/grc/1.4/grc.traineddata
a98b1956aecf5746f4b2a54759c012d3 /Users/ryan/mess/2014/48/grc/2.0/grc.traineddata
Flat profile:
Each sample counts as 0.01 seconds.
% cumulative self self total
time seconds seconds calls us/call us/call name
93.47 6.91 6.91 GenericVector<int>::operator+=(GenericVector<int> const&)
1.96 7.05 0.15 2871 50.52 50.52 GenericVector<int>::clear()
1.49 7.16 0.11 200302 0.55 0.55 frame_dummy
0.88 7.23 0.07 641 101.44 101.44 GenericVector<int>::init(int)
0.61 7.27 0.05 17608 2.56 2.56 Emalloc(int)
diff --git classify/trainingsampleset.cpp classify/trainingsampleset.cpp
index afbf3f4..6121395 100644
--- classify/trainingsampleset.cpp
+++ classify/trainingsampleset.cpp
@@ -693,6 +693,8 @@ void TrainingSampleSet::ComputeCanonicalSamples(const IntFeatureMap& map,
fcinfo.canonical_sample = fcinfo.samples[0];
fcinfo.canonical_dist = 0.0f;
for (int i = 0; i < fcinfo.samples.size(); ++i) {
+ #pragma omp parallel
+ {
Generated for member (Columbia University) on 2014-10-01 23207 GMT l nttpzllndlhandle.nets2027lmdp.39015058604177
Public Domain,G009le-di9itized s httpzllwww.hathitrust.orqlaccess-usedtpd-qooqle
Pugna porcorum per P. Porcium [pseud] poetam.
Placentius, Jonannes, 15002-15502
Brunsviqae [typis Orpnanotropnii] 1831.
nttp = sshdl . handle . nets2027smdp . 39015058604177
@ryanfb
ryanfb / gist:13898
Created September 30, 2008 18:07 — forked from bkerley/gist:13858
proc stockgetchr html {
if {[llength [regexp -all -inline {<link rel="stylesheet".*mutualfund_styles.css">} $html]] > 0} {
set chrt [regexp -all -line -inline {<span class.?=.?"ch[rg]">\n(.*?)\n(.*?)\n} $html]
lset chrt 1 [regsub -all {&nbsp;} [lindex $chrt 1] ""]
lappend chr [lindex $chrt 1] [lindex $chrt 2]
} else {
set chrt [regexp -all -inline {<span class="ch[rg]".*?>(.*?)<} $html]
lappend chr [lindex $chrt 1] [lindex $chrt 3]
}
return $chr
#!/bin/sh
# Shell script to install your identity.pub on a remote machine
# Takes the remote machine name as an argument.
# Obviously, the remote machine must accept password authentication,
# or one of the other keys in your ssh-agent, for this to work.
ID_FILE="${HOME}/.ssh/identity.pub"
if [ "-i" = "$1" ]; then
proc uajoin args { set b [lindex $args 0]; set args [lrange $args 1 [llength $args]]; set o ""; set nlines [maxlines $args]; set newline ""; set nl ""; foreach j $args { lappend nl [uaddspaces $nlines $j]; }; for {set i 0} { $i < $nlines } { incr i } { append o $newline; set d ""; foreach k $nl { append o "$d[lindex [split $k "\n"] $i]"; set d $b; }; set newline "\n"; }; return $o; }
proc uaddspaces {x y} { set a " "; set lines [split $y "\n"]; set n [llength $lines]; set d [expr "$x - $n"]; set m [umaxstringlength $lines]; set e [string repeat $a $m]; set nlines [upadlinesto $m $lines]; set y [join $nlines "\n"]; for {set i 0} {$i < $d} {incr i} { set y "$y\n$e"; }; return $y; }
proc umaxstringlength a {set m 0; foreach j $a { set sl [ulength [strip_all $j]]; if {$m < $sl} {set m $sl}}; return $m}
proc upadlinesto {m lines} {set nlines "";set a " "; foreach j $lines { set sl [ulength [strip_all $j]]; if {$sl < $m} { set j "$j[string repeat $a [expr {$m - $sl}]]"; }; lappend nlines $j; }; return $nl
proc aapl {} {set aapl [stock aapl]; if {[regexp {\+\d} $aapl dummy]} {. [uchar f8ff 20 2708] $aapl} else {. [uchar 2708 20 f8ff] $aapl}}