NetBSD 絹の日記

2004年02月15日(日) 旧暦 [n年日記]

#1 [Emacs] wl/elmo/elmo.el を見ている

1392 (luna-define-method elmo-folder-synchronize ((folder elmo-folder)
1393                                              &optional
1394                                              disable-killed
1395                                              ignore-msgdb
1396                                              no-check)
1397   (let ((killed-list (elmo-folder-killed-list-internal folder))
1398         (before-append t)
1399         old-msgdb diff diff-2 delete-list new-list new-msgdb flag
1400         flag-table crossed after-append)
1401     (setq old-msgdb (elmo-folder-msgdb folder))
1402     (setq flag-table (elmo-flag-table-load (elmo-folder-msgdb-path folder)))
1403     (when ignore-msgdb
1404       (elmo-msgdb-flag-table (elmo-folder-msgdb folder) flag-table)
1405       (elmo-folder-clear folder (not disable-killed)))
1406     (unless no-check (elmo-folder-check folder))
1407     (condition-case nil

(condition-case エラー変数非トラップ本体エラーハンドラ..)

非トラップ本体。まず msgdb に入っているものとの差分 (diff) を設定する。

1408 (progn
1409   (message "Checking folder diff...")
1410   (setq diff (elmo-list-diff (elmo-folder-list-messages
1411                               folder
1412                               (not disable-killed))
1413                              (elmo-folder-list-messages
1414                               folder
1415                               (not disable-killed)
1416                               'in-msgdb)))
1417   (message "Checking folder diff...done")

elmo-folder-confirm-appends は、

1418   (setq new-list (elmo-folder-confirm-appends (car diff)))
1419   ;; Set killed list as ((1 . MAX-OF-DISAPPEARED))

diff と newlist の長さが同じでない時には、それらの差を diff-2 に入れて

1420   (when (and (not (eq (length (car diff))
1421                       (length new-list)))
1422              (setq diff-2 (elmo-list-diff (car diff) new-list)))

folder のうち必要でない部分を kill ↓

1423     (elmo-folder-kill-messages-range
1424      folder
1425      (car (car diff-2))
1426      (nth (- (length (car diff-2)) 1) (car diff-2))))
1427   (setq delete-list (cadr diff))

cadr ↑は二つ目の最初

＠ ↓更新がない時:

1428   (if (or (equal diff '(nil nil))
1429           (equal diff '(nil))
1430           (and (eq (length (car diff)) 0)
1431                (eq (length (cadr diff)) 0)))
1432       (progn
1433         (elmo-folder-update-number folder)
1434         (elmo-folder-process-crosspost folder)
1435         0 ; no updates.
1436         )

＠ ↓更新がある時、まず消す方:

1437     (when delete-list
1438       (elmo-folder-detach-messages folder delete-list))

＠ ↓更新がある時、追加する方:

1439     (when new-list
1440       (elmo-msgdb-out-of-date-messages (elmo-folder-msgdb folder))
1441       (setq new-msgdb (elmo-folder-msgdb-create
1442                folder new-list flag-table))
1443       ;; Clear flag-table
1444       (if (elmo-folder-persistent-p folder)
1445           (elmo-flag-table-save (elmo-folder-msgdb-path folder)
1446                                 nil))
1447       (setq before-append nil)
1448       (setq crossed (elmo-folder-append-msgdb folder new-msgdb))
1449       ;; process crosspost.
1450       ;; Return a cons cell of (NUMBER-CROSSPOSTS . NEW-FLAG-ALIST).
1451       (elmo-folder-process-crosspost folder))
1452     ;; return value.
1453     (or crossed 0)))

( つっこみ )

#2 [URL] 6809 Emulution Page

何とはなくなつかしい情報。元の 6809 は random logic で 6309 は micro code. 6309 に secret opcode があったなんて記事が OH FM に載ったことがあったらしいが、知らなかったなぁ。

( つっこみ )

localhost: No address associated with nodename と言われるのが /etc/services の問題とは ... 有名なのかなぁ。
いま良く見たら、canna は他の機械を見ていたので、自分を見るように直したら、
辞書ファイル user がありません。作りますか ? (y or n) ?
で y を入れても先に行かない ? もしかして動いている user の問題 ?

( つっこみ )

#4 [MacOSX] bashrc

bashrc を見てくれていないのでは ? という話があったので ktrace して見た。見に行っている気配はある。

[d176:/tmp] makoto% ktrace -t n bash
d176:/tmp makoto$ exit
exit
[d176:/tmp] makoto% kdump ktrace.out 
usage: kdump [-dnlRT] [-f trfile] [-m maxdata] [-t [cnisuw]]
[d176:/tmp] makoto% kdump -f ktrace.out
  4821 ktrace   NAMI  "/usr/X11R6/bin/bash"
  4821 ktrace   NAMI  "/usr/local/bin/bash"
  4821 ktrace   NAMI  "/bin/bash"
  4821 ktrace   NAMI  "/usr/lib/dyld"
  4821 bash     NAMI  "/usr/lib/libncurses.5.dylib"
  4821 bash     NAMI  "/usr/lib/libncurses.5.dylib"
  4821 bash     NAMI  "/usr/lib/libSystem.B.dylib"
  4821 bash     NAMI  "/usr/lib/libSystem.B.dylib"
  4821 bash     NAMI  "/usr/lib/system/libmathCommon.A.dylib"
  4821 bash     NAMI  "/usr/lib/system/libmathCommon.A.dylib"
  4821 bash     NAMI  "/dev/tty"
  4821 bash     NAMI  "/tmp"
  4821 bash     NAMI  "."
  4821 bash     NAMI  "."
  4821 bash     NAMI  "/usr/X11R6/bin/bash"
  4821 bash     NAMI  "/usr/local/bin/bash"
  4821 bash     NAMI  "/bin/bash"
  4821 bash     NAMI  "/bin/bash"
  4821 bash     NAMI  "/etc/bashrc"
  4821 bash     NAMI  "/Users/makoto/.bashrc"
  4821 bash     NAMI  "/var/mail/makoto"
  4821 bash     NAMI  "/Users/makoto/.bash_history"
  4821 bash     NAMI  "/Users/makoto/.bash_history"
  4821 bash     NAMI  "/Users/makoto/.bash_history"
  4821 bash     NAMI  "/Users/makoto/.terminfo/78/xterm"
  4821 bash     NAMI  "/usr/share/terminfo/78/xterm"
  4821 bash     NAMI  "/usr/share/terminfo/78/xterm"
  4821 bash     NAMI  "/Users/makoto/.inputrc"
  4821 bash     NAMI  "/Users/makoto/.bash_history"
  4821 bash     NAMI  "/Users/makoto/.bash_history"
  4821 bash     NAMI  "/Users/makoto/.bash_history"
[d176:/tmp] makoto%

( つっこみ )

#5 [MacOSX] cannaserver も ktrace してしまった。

  4854 ktrace   NAMI  "/usr/local/canna/bin/cannaserver"
  4854 ktrace   NAMI  "/usr/lib/dyld"
  4854 cannaserver NAMI  "/usr/lib/libSystem.B.dylib"
  4854 cannaserver NAMI  "/usr/lib/libSystem.B.dylib"
  4854 cannaserver NAMI  "/usr/lib/system/libmathCommon.A.dylib"
  4854 cannaserver NAMI  "/usr/lib/system/libmathCommon.A.dylib"
  4854 cannaserver NAMI  "/usr/local/canna/lib/dic/canna/fuzokugo.cbd"
  4854 cannaserver NAMI  "/usr/local/canna/lib/dic/user"
  4854 cannaserver NAMI  "/usr/local/canna/lib/dic/group"
  4854 cannaserver NAMI  "/usr/local/canna/lib/dic/canna/dics.dir"
  4854 cannaserver NAMI  "/usr/local/canna/lib/dic/canna/dics.dir"
  4854 cannaserver NAMI  "/etc/hosts.canna"
  4854 cannaserver NAMI  "/tmp/.iroha_unix"
  4854 cannaserver NAMI  "/tmp/.iroha_unix/IROHA"

( つっこみ )

最近の日記
2024年03月10日
・停電 (瞬電)
2024年03月03日
・the second try on bare-metal
・useradd
2024年02月29日
・opendkim and senmail
2024年01月24日
・chat/iam 0.0.8
2024年01月21日
・uselocale vs setlocale (textproc/R-readxl)

2004年02月15日(日) 旧暦 [n年日記]

#1 [Emacs] wl/elmo/elmo.el を見ている

＠ ↓更新がない時:

＠ ↓更新がある時、まず消す方:

＠ ↓更新がある時、追加する方:

#2 [URL] 6809 Emulution Page

#3 [MacOSX][Emacs] canna を動かす

#4 [MacOSX] bashrc

#5 [MacOSX] cannaserver も ktrace してしまった。