Bob Dionne bdionne
bdionne
/ calling.scm
Created
December 19, 2012 16:22
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (define (delegating-getter-and-setter-syntax vars get-delegate set-delegate) | |
| (let ((args-name (gensym "args")) | |
| (an-arg-name (gensym "an-arg")) | |
| (new-val-name (gensym "new-value")) | |
| (loop-name (gensym "loop")) | |
| (kws (map symbol->keyword vars))) | |
| (list `(lambda ,args-name | |
| (let ,loop-name ((,args-name ,args-name)) | |
| (if (null? ,args-name) | |
| (append! |
bdionne
/ huffman.scm
Created
December 19, 2012 16:54
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (define-syntax generate-huffman-encoder | |
| (lambda (x) | |
| (syntax-case x () | |
| ((_ token-file) | |
| (let* ((frequencies (read-literal | |
| (find-in-path (syntax->datum #'token-file)))) | |
| (code-tree (token-frequencies->tree frequencies)) | |
| (encoded-tree (encode-tree code-tree)) | |
| (oddball-code (assoc-ref encoded-tree '*oddball*)) | |
| (eof-code (assoc-ref encoded-tree '*eof*))) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| autoreconf: Entering directory `.' | |
| autoreconf: configure.ac: not using Gettext | |
| autoreconf: running: aclocal --force -I m4 | |
| configure.ac:871: warning: macro 'AM_GNU_GETTEXT' not found in library | |
| autoreconf: configure.ac: tracing | |
| autoreconf: running: libtoolize --copy --force | |
| libtoolize: putting auxiliary files in AC_CONFIG_AUX_DIR, `build-aux'. | |
| libtoolize: copying file `build-aux/ltmain.sh' | |
| libtoolize: putting macros in AC_CONFIG_MACRO_DIR, `m4'. | |
| libtoolize: copying file `m4/libtool.m4' |
bdionne
/ *shell*<2>.txt
Created
January 9, 2013 16:20
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ([email protected])1> <150>1 2013-01-09T16:15:53.374097Z erlang.local twig <0.3218.11> 91c509b3 - 127.0.0.1 undefined 127.0.0.1:15984 POST /adam/_bulk_docs 500 ok 28593 | |
| ([email protected])1> <149>1 2013-01-09T16:15:53.375484Z erlang.local twig <0.1437.11> -------- - Retrying POST request to http://127.0.0.1:15984/adam/_bulk_docs in 0.5 seconds due to error {code,500} | |
| ([email protected])1> <147>1 2013-01-09T16:15:53.376343Z erlang.local twig <0.28303.11> -------- - rexi_server error:{badmatch,{'EXIT',noproc}} [{couch_file,pread_binary,2, | |
| [{file,"src/couch_file.erl"},{line,118}]}, | |
| {couch_file,pread_term,2, | |
| [{file,"src/couch_file.erl"},{line,106}]}, | |
| {couch_btree,get_node,2, | |
| [{file,"src/couch_btree.erl"},{line,343}]}, | |
| {couch_btree,stream_node,8, | |
bdionne
/ *shell*<2>.txt
Created
January 11, 2013 18:29
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ** Reason for termination == | |
| ** {function_clause, | |
| [{ibrowse_http_client,to_ascii,"r", | |
| [{file,"src/ibrowse_http_client.erl"},{line,1716}]}, | |
| {ibrowse_http_client,hexlist_to_integer,3, | |
| [{file,"src/ibrowse_http_client.erl"},{line,1712}]}, | |
| {ibrowse_http_client,parse_11_response,2, | |
| [{file,"src/ibrowse_http_client.erl"},{line,1175}]}, | |
| {ibrowse_http_client,handle_sock_data,2, | |
| [{file,"src/ibrowse_http_client.erl"},{line,323}]}, |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| replication = { | |
| 'source': { | |
| 'url': source_uri + db, | |
| 'headers': { | |
| 'authorization': auth, | |
| 'x-cloudant-user': username, | |
| 'x-cloudant-io-priority': 'low' | |
| } | |
| }, | |
| 'target': { |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| replication = { | |
| 'source': { | |
| 'url': source_uri + db, | |
| 'headers': { | |
| 'authorization': auth, | |
| 'x-cloudant-user': username, | |
| 'x-cloudant-io-priority': 'low' | |
| } | |
| }, | |
| 'target': { |
bdionne
/ couch_replicator_manager.erl
Created
February 11, 2013 20:45
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| update_rep_doc(RepDbName, RepDocId, KVs) when is_binary(RepDocId) -> | |
| {Pid, Ref} = | |
| spawn_monitor(fun() -> | |
| try | |
| case fabric:open_doc(mem3:dbname(RepDbName), RepDocId, []) of | |
| {ok, LatestRepDoc} -> | |
| update_rep_doc(RepDbName, LatestRepDoc, KVs); | |
| _ -> | |
| ok | |
| end |
bdionne
/ couch_replicator_manager.erl
Created
February 11, 2013 21:24
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| update_rep_doc(RepDbName, RepDocId, KVs) when is_binary(RepDocId) -> | |
| {Pid, Ref} = | |
| spawn_monitor(fun() -> | |
| try | |
| case fabric:open_doc(mem3:dbname(RepDbName), RepDocId, []) of | |
| {ok, LatestRepDoc} -> | |
| update_rep_doc(RepDbName, LatestRepDoc, KVs); | |
| _ -> | |
| ok | |
| end |
bdionne
/ couch_replicator_manager.erl
Created
February 12, 2013 13:27
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| update_rep_doc(RepDbName, RepDocId, KVs) when is_binary(RepDocId) -> | |
| {Pid, Ref} = | |
| spawn_monitor(fun() -> | |
| try | |
| case fabric:open_doc(mem3:dbname(RepDbName), RepDocId, []) of | |
| {ok, LatestRepDoc} -> | |
| update_rep_doc(RepDbName, LatestRepDoc, KVs); | |
| _ -> | |
| ok | |
| end |