d5884

#include <stdio.h>
#include <stdlib.h>

#define INPUT_BUFSIZE 4096
#define HEAP_SIZE 65535

#define SYM_INC_PTR '>'
#define SYM_DEC_PTR '<'
#define SYM_ADD_CUR '+'
#define SYM_SUB_CUR '-'

d5884

#include <stdio.h>

int main()
{
  int i, five, three;
  
  for (i = 1; i <= 100; i++) {
    three = i % 3;
    five = i % 5;

d5884

  (defadvice comint-interrupt-subjob (around ad-comint-interrupt-subjob activate)
    (process-send-string nil "\C-c"))
  (defadvice comint-stop-subjob (around ad-comint-interrupt-subjob activate)
    (process-send-string nil "\C-z"))
  (defadvice comint-send-eof (around ad-comint-send-eof activate)
    (process-send-string nil "\C-d"))

d5884

(require 'cl nil t)
(setq byte-compile-warnings '(not cl-functions))
;; to use cl-lib

d5884

(require 'inf-ruby)

;; from http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-core/20892
(define-key inferior-ruby-mode-map (kbd "TAB") 'inferior-ruby-complete-or-tab)

(defun inferior-ruby-completions (seed)
  "Return a list of completions for the line of ruby code starting with SEED."
  (let* ((proc (get-buffer-process ruby-buffer))
	 (comint-filt (process-filter proc))
	 (kept "") completions)

d5884

;; google-map / git clone http://git.naquadah.org/git/google-maps.git
(when (locate-library "google-maps")
  (autoload 'google-maps "google-maps" nil t)

  (eval-after-load "google-maps"
    '(progn
       (when (require 'popwin nil t)
	 (add-to-list 'popwin:special-display-config '("*Google Maps*")))

       (defadvice google-maps-static-show (before ini:ad-google-maps-set-lang

d5884

;; 明るさ変更
(labels ((rgb-to-ycrcb (r g b)
		       (mapcar (lambda (v)
				 (round v 1000))
			       (list (+ (* 299 r) (* 587 g) (* 114 b))
				     (+ (* 500 r) (* -418.69 g) (* -81.31 b))
				     (+ (* -168.74 r) (* -331.26 g) (* 500 b)))))
	 (ycrcb-to-rgb (y cr cb)
		       (let ((y (* y 1000)))
			 (mapcar (lambda (v)

d5884

(defmacro in:set-function-coding-system (function decoding encoding)
  "関数使用時のコーディングシステムを設定する.
関数 FUNCTION に対し、実行時に DECODING を `coding-system-for-read' に、
ENCODING を `coding-system-for-write' に設定する advice を作成、活性化する."
  `(defadvice ,function (around
			 ,(intern (format "in:ad-%s-coding-setup" function))
			 activate compile)
     ,(format "関数実行時のコーディングシステムを以下に置き換える.
`coding-system-for-read': %s
`coding-system-for-write': %s" (eval decoding) (eval encoding))

d5884

;;; locate-file-cache.el --- Support cache for locate-file.

;; Copyright (C) 2013  Daisuke Kobayashi

;; Author: Daisuke Kobayashi <d5884jp@gmail.com>
;; Keywords: extensions

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or

d5884

;; helm のサスペンドステータス更新系
(with-eval-after-load "helm"
  (defun ini:helm-set-suspend-update-flag (status)
    (when (and status (not helm-suspend-update-flag))
      (helm-kill-async-processes)
      (setq helm-pattern ""))
    (setq helm-suspend-update-flag status))

  (defadvice mozc-mode (after ini:mozc-helm-suspender-init activate)
    (when (helm-alive-p)