Skip to content

Instantly share code, notes, and snippets.

Tatsuya BIZENN bizenn

Block or report user

Report or block bizenn

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@bizenn
bizenn / embulk_timestamp_format.md
Last active Oct 6, 2016
embulk-filter-timestamp_formatでは、EPOCHより前の日付は正しく扱えない、という話
View embulk_timestamp_format.md

data/data.txt

1,Alice,Cooper,1947-02-04 11:30:15,0
2,Bob,Brown,1947-12-27 22:01:24.123,0
3,Chris,Squire,1948-03-04 01:02:03.456,0

data.yml

View gist:6235bab71ebd3bb86b3f
--- apache-maven-3.2.1.ORIG/bin/mvn 2014-02-15 02:40:05.000000000 +0900
+++ apache-maven-3.2.1/bin/mvn 2014-06-13 16:37:15.000000000 +0900
@@ -133,16 +133,21 @@
fi
if [ -z "$JAVA_HOME" ]; then
- javaExecutable="`which javac`"
- if [ -n "$javaExecutable" -a ! "`expr \"$javaExecutable\" : '\([^ ]*\)'`" = "no" ]; then
- # readlink(1) is not available as standard on Solaris 10.
- readLink=`which readlink`
@bizenn
bizenn / gist:6986763
Created Oct 15, 2013
Gauche HEAD build error.
View gist:6986763
gcc -DHAVE_CONFIG_H -I. -I. -I./../gc/include -I../gc/include -I./../gc/libatomic_ops/src -I../gc/libatomic_ops/src -I/usr/pkg/include -I/usr/local/include -I/usr/pkg/include -I/usr/local/include -no-cpp-precomp -g -O2 -no-cpp-precomp -fPIC -fno-common -fomit-frame-pointer -c vm.c
In file included from vm.c:35:
In file included from ./gauche.h:1183:
./gauche/writer.h:39:35: warning: redefinition of typedef 'ScmWriteContext' is a
C11 feature [-Wtypedef-redefinition]
typedef struct ScmWriteContextRec ScmWriteContext; /* opaque */
^
./gauche.h:508:35: note: previous definition is here
typedef struct ScmWriteContextRec ScmWriteContext;
^
@bizenn
bizenn / corelib-texi.diff
Created Oct 1, 2013
Add some Japanese text to Gauche's info.
View corelib-texi.diff
diff --git a/doc/corelib.texi b/doc/corelib.texi
index ae84764..da3885c 100644
--- a/doc/corelib.texi
+++ b/doc/corelib.texi
@@ -10327,26 +10327,49 @@ Common Lisp.
@subsection Folding generated values
@c NODE 生成された値の畳み込み
+@c EN
Sometimes a procedure is used as a @emph{generator} of a series
@bizenn
bizenn / srfi-19+.scm
Last active Jun 29, 2018
Formatter/parser maker compatible with SRFI-19 date->string/string->date
View srfi-19+.scm
;;; -*- mode: scheme; coding: utf-8 -*-
(define-module srfi-19+
(extend srfi-19)
(use srfi-1)
(use srfi-13)
(use gauche.sequence)
(use gauche.threads)
(export make-date-formatter
make-date-initializer
@bizenn
bizenn / ltsv-pure.scm
Last active Dec 12, 2015
Parser for Labeled TSV in Pure Scheme(R5RS).
View ltsv-pure.scm
(define (ltsv-reader in)
(define (rlist->string cl)
(list->string (reverse cl)))
(define (accum-elem cl elem)
(reverse (cons (rlist->string cl) elem)))
(define (make-record rec elem cl)
(reverse (cons (accum-elem cl elem) rec)))
(define (terminate rec elem cl c)
(if (and (null? rec) (null? elem) (null? cl))
c ;; eof
@bizenn
bizenn / ltsv.scm
Last active Dec 12, 2015
Labeled TSV reader/writer casual implementation.
View ltsv.scm
;;; -*- mode: scheme; coding: utf-8 -*-
(define-module text.ltsv
(use srfi-13)
(use text.csv)
(export-all))
(select-module text.ltsv)
(define ltsv-reader
@bizenn
bizenn / string-split-with-limit.diff
Created Jan 23, 2013
Patch to add limit optional parameter to string-split on Gauche. Sorry but not including document updates.
View string-split-with-limit.diff
diff --git a/lib/gauche/stringutil.scm b/lib/gauche/stringutil.scm
index d252322..388eb88 100644
--- a/lib/gauche/stringutil.scm
+++ b/lib/gauche/stringutil.scm
@@ -44,12 +44,20 @@
;; Generic string-split
;; splitter can be a character, a char-set, a string, or a regexp.
-(define (string-split string splitter)
- (cond ((char? splitter) (%string-split-by-char string splitter))
@bizenn
bizenn / modutil.texi.diff
Created Oct 12, 2012
control.job の info 和訳追加
View modutil.texi.diff
diff --git a/doc/modutil.texi b/doc/modutil.texi
index 8b27c05..2383234 100644
--- a/doc/modutil.texi
+++ b/doc/modutil.texi
@@ -1030,66 +1030,141 @@ gosh> #i1/3
@c ----------------------------------------------------------------------
@node A common job descriptor for control modules, Thread pools, Rational-less arithmetic, Library modules - Utilities
@section @code{control.job} - A common job descriptor for control modules
+@c NODE 制御モジュールのための汎用ジョブ記述子, @code{control.job} - 制御モジュールのための汎用ジョブ記述子
@bizenn
bizenn / echo.scm
Created Oct 11, 2012
echo server (prefork)
View echo.scm
#!/usr/bin/env gosh
;;; -*- mode: scheme; coding: utf-8 -*-
(use srfi-1)
(use gauche.net)
(use gauche.uvector)
;; gosh echo.scm <num>
(define (main args)
(let* ((server (make-server-socket 'inet 9999 :reuse-addr? #t :backlog SOMAXCONN))
(procs (list-tabulate (x->integer (cadr args))
You can’t perform that action at this time.