トップ «前の日記(2003-02-19 (Wed)) 最新 次の日記(2003-02-21 (Fri))» 編集

猫熊は燃えつきた?!日記

最近なんにもやっていませんが、なにかやったらこちらに置くようにしています。
2002|12|
2003|01|02|03|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|
2011|09|
2012|02|


2003-02-20 (Thu) 取っても取っても残るバグ ;_; [長年日記]

Meadow 1.99 Alpha 5 (TSUCHIKURE) is now available.

です。三好さん、小関さんお疲れ様。(なーんにもできない私)

Mew 寄生虫

二つほど公の場(?)に出した。[mew-dist: 23093], [mew-dist: 23094]

ps と kill (mhc2palm, palm2mhc その3)

当然 Meadow から動かすように mhc2palm(), palm2mhc() を作ったが、Palm の HotSync が動いていると com1 をつかんじゃっているので mhc2palm/palm2mhc(などの pilot-link 関係)が動かない。UNIX か cygwin な Program なら ps/kill で簡単なのになぁ、と探してみると、そのものずばりがあったので、とっととインストール。
ここまでくればあとは簡単で以下の関数をつくって mhc2palm(), palm2mhc() の最初と最後で kill と exec をするようにして、HotSync と簡単に両立することができた。(幸せ)
なお、(ぼくの環境では) kill.exe に argument-editing が必要だった。
(define-process-argument-editing "/kill\.exe$"
  (lambda (x) (general-process-argument-editing-function x nil t)))
 
(defun get-windows-pid (prog)
  (let ((ps "c:/Program Files/Support Tools/tlist.exe")
	(case-fold-search t))
    (with-temp-buffer
      (call-process ps nil (current-buffer) nil)
      (goto-char (point-min))
      (when (re-search-forward (format "^ *\\([0-9]+\\) +%s " prog) nil t)
	(match-string 1)))))
	
(defun hotsync-kill (&optional nomsg)
  "HotSync を殺す"
  (interactive)
  (let ((kill "c:/Program Files/Support Tools/kill.exe")
	(pid (get-windows-pid "hotsync.exe")))
    (if (null pid)
	(or nomsg (message "HotSync は動いていません"))
      (call-process kill nil nil nil pid)
      (or nomsg (message "HotSync を抹殺しました"))
      (sit-for 1))))
 
(defun hotsync-enable (&optional nomsg)
  "HotSync を起動する"
  (interactive)
  (let ((hotsync "c:/usr/palm/Hotsync.exe")
	(pid (get-windows-pid "hotsync.exe"))
	(buf " *HotSync*")
	(process-connection-type nil)
	proc)
    (if pid
	(or nomsg (message "HotSync はすでに動いています"))
      (save-excursion
	(get-buffer-create buf)
	(set-buffer buf)
	(setq proc (start-process "*HotSync*" (current-buffer) hotsync))
	(process-kill-without-query proc)
	(or nomsg (message "HotSync を起動しました"))))))
 

書いている人: 白井秀行 (mailto:shirai@meadowy。org)
訪問して下さった人: 今日: 人, 昨日: , 過去: 人 (2007年5月10日から)
RDF Feed