yujiorama

$ diff bak/gtalk-090225/config/config.sub gtalk-090225/config/config.sub 
165c165
< 	i[34567]86)
---
> 	i*86 | x86_64)
184a185
> | x86_64-* \
$ diff baak/gtalk-090225/config/config.guess gtalk-090225/config/config.guess
546a547,549
>     x86_64:Linux:*:*)

yujiorama

(define-syntax poor-delay
  (syntax-rules ()
    ((poor-delay exp ...)
     (lambda () exp ...))))
(define (force delayed-object)
  (delayed-object))

(define-syntax cons-stream
  (syntax-rules ()
    ((_ hd tl) (cons hd (poor-delay tl)))))

yujiorama

(define (memo-proc proc)
  (let ((already-run? #f) (result #f))
    (lambda ()
      (if (not already-run?)
          (begin (set! result (proc))
                 (set! already-run? #t)
                 result)
          result))))

(define-syntax poor-delay

yujiorama

// ==UserScript==
// @name          Amazon add cart link to search result
// @namespace     http://d.hatena.ne.jp/yujiorama
// @description	  Amazon add cart link to search result
// @include       http://www.amazon.co.jp/s/*
// @include       https://www.amazon.co.jp/s/*
// ==/UserScript==

var subscription_id = 'XXXXXXXXXXXXXXX';
var associate_id = 'XXXXXXXX-22';

yujiorama

#!/usr/bin/env gosh
;; -*- mode: scheme; coding: utf-8 -*-
;; seq [OPTION]... FIRST INCREMENT LAST

(use gauche.parseopt)

(define (usage)
  (progn
   (map
    (lambda (x) (display x) (newline))

yujiorama

--- src/gauche/float.h.org      2009-11-15 22:41:26.000000000 +0900
+++ src/gauche/float.h  2009-11-15 22:41:38.000000000 +0900
@@ -84,7 +84,7 @@
 #if SIZEOF_LONG >= 8
         unsigned int sign:1;
         unsigned int exp:11;
-        unsigned long mant:52;
+        unsigned long long mant:52;
 #else  /*SIZEOF_LONG < 8*/
         unsigned int sign:1;

yujiorama

--- src/gauche/arith.h.org      2009-11-15 22:41:48.000000000 +0900
+++ src/gauche/arith.h  2009-11-15 22:41:55.000000000 +0900
@@ -64,9 +64,11 @@
 #define HI(word)           (((word) >> HALF_BITS)&LOMASK)
 
 /* Include processor-specific macros */
+#ifndef SCM_TARGET_X86_64
 #if defined(SCM_TARGET_I386)
 #include "arith_i386.h"
 #endif

yujiorama

#ifdef __cplusplus
extern "C" {
#endif
#include <sys/types.h>
#include <sys/event.h>
#include <sys/time.h>
#include <fcntl.h>
#include <stdio.h>
#include <string.h>
#include <time.h>

yujiorama

(defun explorer (&optional args)
  (interactive)
  (let ((dir (expand-file-name args)))
    (cond ((not (file-directory-p dir))
           (message "%s can't open." dir))
          (t
           (w32-shell-execute "explore" dir)))))
(defun dired-exec-explorer ()
  ""
  (interactive)

yujiorama

;; shell-mode では cygwin の bash
(setq explicit-shell-file-name "bash")
(setq shell-file-name "sh.exe")
(setq shell-command-switch "-c")
(add-hook 'shell-mode-hook 'pcomplete-shell-setup)
(modify-coding-system-alist 'process ".*sh\\.exe" 'utf-8-dos)

;; grep するときはモード限定して cmdproxy 
(add-hook 'grep-mode-hook
          (lambda ()