2009 年 8 月のよしだむメモ


[最近] [トップ]

2009 年 8 月の事

<< < 2009/08 > >>
Sun Mon Tue Wed Thu Fri Sat
1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31

2009-08-01 (Sat)

Ruby

_ なんか Windows で String の文字コード変換したとき, length がおかしくなるみたいだ。 Linux だと問題ないんだけど。


C:\Users\yoshidam>type enctest.rb
# -*- coding: Windows-31J -*-
  
a = "012345"
p [a.length, a.encoding]
b = a.encode(Encoding::UTF_8)
p [b.length, b.encoding]
b.force_encoding(Encoding::UTF_8)
p [b.length, b.encoding]
  
C:\Users\yoshidam>ruby19 -v enctest.rb
ruby 1.9.1p243 (2009-07-16 revision 24175) [x64-mswin64_80]
[6, #<Encoding:Windows-31J>]
[10, #<Encoding:UTF-8>]
[6, #<Encoding:UTF-8>]

2009-08-02 (Sun)

Ruby

_ 昨日の問題,Ruby を 32 ビットでビルドし直したらちゃんと動いた。 64 ビット版の問題か。

_ というわけでまだ動かない環境もあるけど, ymxml と ymhtml の Ruby 1.9 対応がとりあえず完了。


2009-08-03 (Mon)

無為な一日

_ 散歩とか。


2009-08-04 (Tue)

無為な一日

_ 散歩とか。


2009-08-05 (Wed)

帰省

_ 帰省した。


2009-08-06 (Thu)

ymXML, ymHTML

_ invalid_encoding? を使って文字符号化のチェックをしたり, 若干の修正を行った。


2009-08-07 (Fri)

無為な一日

_ 読書,昼寝とか。


2009-08-08 (Sat)

無為な一日

_ ドライブとか。


2009-08-09 (Sun)

無為な一日

_ 散歩とか。


2009-08-10 (Mon)

無為な一日

_ ドライブ,車庫入れの練習とか。


2009-08-11 (Tue)

無為な一日

_ 久しぶりに天気が良かったので散歩とか。


2009-08-12 (Wed)

無為な一日

_ 散歩,車で買い物とか。


2009-08-13 (Thu)

Emacs

_ Fedora の update で Emacs 23.1 がインストールされてしまった。 YC が文字化けしたり動かない lisp パッケージがあったりかなり困ったことになってしまった。


2009-08-14 (Fri)

Emacs

_ 不便すぎるので,とりあえず YC で日本語入力できるようにした。 minibuffer で候補選択や単語登録がまともに動かないけど。


--- yc-5.0.0.el.org 2009-08-14 10:42:22.000000000 +0900
+++ yc-5.0.0.el 2009-08-15 00:18:37.000000000 +0900
@@ -383,7 +383,7 @@
             (make-network-process
              :name "canna"
              :buffer yc-debug
-             :remote "/tmp/.iroha_unix/IROHA")
+             :remote "/var/run/.iroha_unix/IROHA")
           (let ((process-connection-type nil))
             (start-process "canna" yc-debug yc-icanna-path))))
        (t (with-timeout (1 nil)
@@ -554,15 +554,15 @@
  
  
 (defun yc-l2n (int)
-  (concat (list (logand (ash int -24) 255)
+  (string-make-unibyte (concat (list (logand (ash int -24) 255)
        (logand (ash int -16) 255)
        (logand (ash int  -8) 255)
-       (logand      int      255))))
+       (logand      int      255)))))
 (defun yc-s2n (int)
-  (concat (list (logand (ash int -8) 255)
-       (logand      int     255))))
+  (string-make-unibyte (concat (list (logand (ash int -8) 255)
+       (logand      int     255)))))
 (defun yc-c2n (int)
-  (concat (list (logand int 255))))
+  (string-make-unibyte (concat (list (logand int 255)))))
 (defun yc-a2n (str)
   (concat str (yc-c2n 0)))
 (defun yc-w2n (str)
@@ -597,8 +597,8 @@
       (setq dst (concat
         dst
         (decode-coding-string 
-         (concat (and (/= (car src) 0) (char-to-string (car src)))
-             (char-to-string (cadr src)))
+         (string-make-unibyte (concat (and (/= (car src) 0) (char-to-string (car src)))
+             (char-to-string (cadr src))))
          yc-coding))
        src (cddr src)))
     dst))
@@ -2478,7 +2478,7 @@
       (setq col (cdr (yc-wclist-liner-to-code tmp)))
       (setq lst (cons
         (decode-coding-string
-         (concat (char-to-string row) (char-to-string col)) 'euc-jp)
+         (string-make-unibyte (concat (char-to-string row) (char-to-string col))) 'euc-jp)
         lst))
       (setq idx (1+ idx)))
     (reverse lst)))

2009-08-15 (Sat)

Emacs

_ なんとか YC で minibuffer 選択ができるようになった。 アクティブなウィンドウで set-window-buffer したときの挙動が違うような気がする。 Emacs 23.1 だとカレントバッファが変わらないみたいだ。


--- yc-5.0.0.el.org 2009-08-14 10:42:22.000000000 +0900
+++ yc-5.0.0.el 2009-08-15 17:12:28.000000000 +0900
@@ -383,7 +383,7 @@
             (make-network-process
              :name "canna"
              :buffer yc-debug
-             :remote "/tmp/.iroha_unix/IROHA")
+             :remote "/var/run/.iroha_unix/IROHA")
           (let ((process-connection-type nil))
             (start-process "canna" yc-debug yc-icanna-path))))
        (t (with-timeout (1 nil)
@@ -554,15 +554,15 @@
  
  
 (defun yc-l2n (int)
-  (concat (list (logand (ash int -24) 255)
+  (string-make-unibyte (concat (list (logand (ash int -24) 255)
        (logand (ash int -16) 255)
        (logand (ash int  -8) 255)
-       (logand      int      255))))
+       (logand      int      255)))))
 (defun yc-s2n (int)
-  (concat (list (logand (ash int -8) 255)
-       (logand      int     255))))
+  (string-make-unibyte (concat (list (logand (ash int -8) 255)
+       (logand      int     255)))))
 (defun yc-c2n (int)
-  (concat (list (logand int 255))))
+  (string-make-unibyte (concat (list (logand int 255)))))
 (defun yc-a2n (str)
   (concat str (yc-c2n 0)))
 (defun yc-w2n (str)
@@ -597,8 +597,8 @@
       (setq dst (concat
         dst
         (decode-coding-string 
-         (concat (and (/= (car src) 0) (char-to-string (car src)))
-             (char-to-string (cadr src)))
+         (string-make-unibyte (concat (and (/= (car src) 0) (char-to-string (car src)))
+             (char-to-string (cadr src))))
          yc-coding))
        src (cddr src)))
     dst))
@@ -2365,11 +2365,11 @@
   (setq yc-selected-window (cons (selected-window) yc-selected-window))
   (unless (featurep 'xemacs)
     (set-minibuffer-window (minibuffer-window)))
+  (set-window-buffer (minibuffer-window) (get-buffer-create yc-select-buffer))
   (yc-redirect-frame-focus
    (window-frame (car yc-selected-window))
    (window-frame (select-window (minibuffer-window))))
   (raise-frame (window-frame (select-window (minibuffer-window))))
-  (set-window-buffer (minibuffer-window) (get-buffer-create yc-select-buffer))
   (let ((l lst))
     (while l
       (setq yc-select-markers (cons (point-marker) yc-select-markers))
@@ -2449,12 +2449,12 @@
    (setq yc-selected-window (cons (selected-window) yc-selected-window))
    (unless (featurep 'xemacs)
      (set-minibuffer-window (minibuffer-window)))
+   (set-window-buffer (minibuffer-window)
+              (get-buffer-create yc-wclist-buf))
    (yc-redirect-frame-focus
     (window-frame (car yc-selected-window))
     (window-frame (select-window (minibuffer-window))))
    (raise-frame (window-frame (select-window (minibuffer-window))))
-   (set-window-buffer (minibuffer-window)
-              (get-buffer-create yc-wclist-buf))
    (add-hook 'pre-command-hook 'yc-wclist-pre-command-function)
    (setq yc-wclist-orow -1)
    (yc-wclist-display))
@@ -2478,7 +2478,7 @@
       (setq col (cdr (yc-wclist-liner-to-code tmp)))
       (setq lst (cons
         (decode-coding-string
-         (concat (char-to-string row) (char-to-string col)) 'euc-jp)
+         (string-make-unibyte (concat (char-to-string row) (char-to-string col))) 'euc-jp)
         lst))
       (setq idx (1+ idx)))
     (reverse lst)))

2009-08-16 (Sun)

無為な一日

_ 散歩とか。


2009-08-17 (Mon)

無為な一日

_ 車で買い物とか。


2009-08-18 (Tue)

無為な一日

_ ドライブとか。


2009-08-19 (Wed)

無為な一日

_ 車で買い物とか。

U ターン

_ 新幹線は空いていた。


2009-08-20 (Thu)

Windows Server 2008 R2

_ Windows Server 2008 R2 をインストールしてみた。

_ 最初に Server 2008 からのアップデートでインストールしてみたが, ビデオドライバをアンインストールしたら OS が破損,修復不能になってしまったので, しかたなく新規でインストールし直した。 Catalyst のアンインストールは要注意みたいだな。 まあ,Windows Server 2008 には正式対応ではないので, Vista, Windows 7 x64 用ドライバを使ったせいかもしれないけど。

_ Hyper-V チャイルドパーティションの R2 への移行も行った。 仮想ハードディスクだけ移行して仮想マシンは作りなおした。 こちらはすんなりと完了。


2009-08-21 (Fri)

Windows 7

_ Windows 7 をインストールしてみた。

_ Pentium M のノートパソコンに新規インストール。 ビデオ (GeForce Go 6600),無線 LAN (Intel), 音源 (Realtek HD Audio)など認識できなかった。

_ ビデオ,無線 LAN ドライバは Windows Update からインストール可能だった。 SD/MS リーダは正常に動かなかった。

_ パフォーマンス的には Windows XP よりはもっさりしているが, まあまあ実用的な感じ。

_ Hyper-V の仮想マシンにもインストールしてみた。 たまにハングアップしたりしてちょっと不安定な感じ。 VHD ブートを試してみたが,ブート中にリブートがかかってしまい動かなかった。


2009-08-22 (Sat)

Windows 7

_ Hyper-V でインストールした Windows 7 の VHD ブートに失敗したので, Windows 7 セットアップ時に diskpart コマンドで 新規 VHD ファイルをアタッチしてインストールしてみた。

_ 特に問題なくインストールできて VHD ブートできた。 パーティションを分割せずにマルチブート環境を作れるのは便利だ。 エクスペリエンスインデックスを測定できないのがちょっと残念。


2009-08-23 (Sun)

無為な一日

_ ガンダムを見に行ったり。


2009-08-24 (Mon)

Windows 7

_ Windows Virtual PC の RC 版と Windows XP Mode の RC 版を使ってみた。

_ 描画速度が遅いし,色数も 16 ビットなので実用性は微妙かも。 機能も性能も VMware のほうがいいような気がする。


2009-08-25 (Tue)

無為な一日

_ 散歩,ビデオの消化とか。


2009-08-26 (Wed)

荷物

2009-08-27 (Thu)

無為な一日

_ 体調が悪かったので寝ていた。


2009-08-28 (Fri)

Solaris 10

_ Solaris 10 に Java 6 をインストールしてから smpatch analyze しても一つもパッチが見付からなくなったのでおかしいと思っていたのだが, Update Manager で確認してみたらやっぱりたくさんあった。

_ patchset の設定がおかしいのかと思って確認してみたがちゃんと current2 になっていた。念のためもう一度,


smpatch set patchpro.patchset=current2

_ とかやったら smpatch analyze でも出てくるようになった。 何だったんだろう。


2009-08-29 (Sat)

無為な一日

_ 昼寝とか。


2009-08-30 (Sun)

無為な一日

_ 選挙,昼寝とか。


2009-08-31 (Mon)

無為な一日

_ 昼寝とか。


Ganerated by nDiary version 0.9.4
Yoshida Masato (yoshidam@yoshidam.net)