/var/log/freestyler

Links for 2010-02-09 [del.icio.us]

2010-02-10T00:00:00-08:00

Semanchuk.com - Python IPC Modules

Links for 2010-02-08 [del.icio.us]

2010-02-09T00:00:00-08:00

Swordfish - High-level persistent key-value database « code « lamby

Links for 2010-02-03 [del.icio.us]

2010-02-04T00:00:00-08:00

Awk - A Tutorial and Introduction - by Bruce Barnett

Links for 2010-01-24 [del.icio.us]

2010-01-25T00:00:00-08:00

Benlog » Don’t Hash Secrets

Links for 2010-01-21 [del.icio.us]

2010-01-22T00:00:00-08:00

Links for 2010-01-18 [del.icio.us]

2010-01-19T00:00:00-08:00

Re: [PATCH] oom_pardon, aka don't kill my xlock [LWN.net]

Links for 2010-01-17 [del.icio.us]

2010-01-18T00:00:00-08:00

ssh设置不用输入密码

2009-06-25T01:04:00.002+08:00

当scp出现在脚本中时,　需要输入密码比较麻烦.
可以在服务器保存public keys,　这样连接时就不用输入密码了.

$ ssh-keygen
一路回车

~/.ssh$ ls
id_rsa id_rsa.pub
默认在 .ssh目录里产生 id_rsa id_rsa.pub

把 id_rsa.pub 添加到服务器的 ~/.ssh/authorized_keys 中去..
$ scp ~/.ssh/id_rsa.pub remotehost:~/
$ ssh remotehost
$ cat id_rsa.pub >> .ssh/authorized_keys

再一次安装ibus

2009-06-22T15:56:00.000+08:00

fcitx把ctrl-k占用了, 逼我换回ibus。经过了一段时间, ibus应该有进步了吧。
上去看看，果然, 打包的源代码是前几天的。

按照这个http://code.google.com/p/ibus/wiki/Install 安装。
先下载ibus, ibus-pinyin源码(http://code.google.com/p/ibus/downloads/list)或用git获取。

安装ibus:

$ git clone git://github.com/phuang/ibus.git ibus
$ cd ibus
$ ./autogen.sh --prefix='/usr' --sysconfdir='/etc' --libdir='/usr/lib' --enable-gtk-doc
$ make
$ sudo make install

然后再安装ibus-pinyin

$ git clone git://github.com/phuang/ibus-pinyin.git ibus-pinyin
$ cd ibus-pinyin
$ ./autogen.sh --prefix=/usr
$ make
$ sudo make install
$ sudo update-gtk-immodules i386-redhat-linux-gnu

添加下面到.bashrc
export GTK_IM_MODULE=ibus
export XMODIFIERS=@im=ibus
export QT_IM_MODULE=ibus

重新登录,设置: 设不了ctrl+shift做开关快捷键，设成左ctrl了。 (ctrl+space被我用作emacs的set-mark command)
ok！感觉有进步。

ubuntu安装设置tor

2009-06-22T14:49:00.005+08:00

发现gladder用不了, 安装一下大名鼎鼎的tor #fuck gfw

$ sudo apt-get install tor

启动:
$ sudo /etc/init.d/tor start

关闭:
$ sudo /etc/init.d/tor stop
$ 安装firefox扩展foxyProxy
(https://addons.mozilla.org/en-US/firefox/addon/2464)

配置foxyproxy选项
新建代理服务器
- 常规标签: Proxy Name 可任意填写，如“blogspot”
- 代理服务器细节: host or ip: 127.0.0.1 port: 9050
勾上 socks proxy， socks v4/4a
- URL patterns 添加和谐ed网站:
例如:
URL 或 URL 模板内输入：*.blogspot.com/*
勾选白名单，勾选通配符

使用zlib读写gz文件

2009-05-14T10:42:00.002+08:00

zlib is A Massively Spiffy Yet Delicately Unobtrusive Compression Library. The utility functions in zlib are very much like the stdandard I/O funtions in <stdio.h>.

Demo in short:


#include "zlib.h"

/* write buffer to gz file */

gzFile fp = gzopen("file.gz", "wb");
/* Writes the given number of uncompressed bytes into the compressed file.*/
gzwrite(fp, buffer, sizeof(buffer));
gzclose(fp);


/*  read gz file into buffer */

gzFile fp = gzopen("file.gz", "rb");
/* read the given number of uncompressed bytes from the compressed file */
gzread(fp, buffer, sizeof(buffer));
/* or read a line */
gzgets(fp, buffer, sizeof(buffer));
gzclose(fp);

Use option "-lz" to link with zlib library.

Read more:
http://www.zlib.net/manual.html

终端浏览器w3m

2009-05-02T20:57:00.003+08:00

没有x环境下, 只好用w3m来浏览网页了...
把frgg假设在校内, 而自己只有ssh通道连回校内没装x的机器..

想看看运行效果只好用它了.
发现中文(gb2312)基本都能正确显示...Good!

w3m提供了vi, emacs的快捷键. 比如 hjkl, C-b,C-n,C-p,C-f,C-a,C-e等。

H 帮助
U goto URL
B 后退
Enter 输入文字/点击
Tab 下一个链接
Ctrl-u 上一个链接
= 显示页面信息

ssh使用scp远程传输文件

2009-05-01T14:58:00.006+08:00

suppose we have an ssh connection:
ssh -p 22 user@remote-host

copy file from remote host:
scp -P 22 user@remote-host:/path/to/file /localpath/to/save

copy file to remote host:
scp -P 22 /file/to/transfer user@remote-host:/path/to/save

认识BBS

2009-04-25T22:48:00.001+08:00

BBS是英文Bullitin Board System的首字母简写，意译即为公告牌系统。这是在计算机网络发展早期甚至在单主机时代就发展起来的一种网络服务，由于它的发展远早于窗口、桌面等可视化程序，所以一般地它以纯文字的方式出现，工作界面也像最古老的终端，就是一行行的字。如果你打开过Dos命令行，或是看过银行里存款用的电脑屏幕，就会有比较直观的印象。要运行一个BBS系统，一般得有一台服务器，通常运行UNIX或Linux操作系统，装上BBS服务器软件就可以了。网友上BBS的最一般最普遍方式是通常终端模拟程序，像Sterm, Cterm, Fterm等，这些程序在Windows上运行时也是打开一个标准窗口，然后在窗口中模拟标准的电脑终端，来自服务器的文字及控制信息就显示在其中。

BBS一般就称为站，也就是站点的意思，前面的几个字，像水木清华，饮水思源，逸仙时空, 等，就是它们的名字。使用四字成语或类似成语作为站名可能是一种习惯，并非一定要这样。逸仙时空还有个别名叫argo, 这是因为bbs所在的那台服务器名字叫argo.

从使用上讲，BBS和论坛并没有大的区别，但称为BBS的系统一般都保证有终端方式，纯字符界面，显得干净，熟悉操作之后（通常是键盘，像前面提到的几种Term模拟程序也支持鼠标操作，但其实仍然是把鼠标的动作转成了键盘命令再送出）非常方便，速度也快。
因为是纯字符的，BBS一般是不能贴图的，所以网友就发明了许多用字符来拼出各种图案的技术，称之为 ASCII Art，即字符艺术。还有专门制作ASCII Art的软件，有些做得也是非常漂亮的。这种字符图通常用在版的入口，BBS的进站界面，以及网友的签名档中。但近几年来，BBS在系统维护高手的努力之下，多数也开始提供WEB界面，其实就是通过程序把原来的贴子送到浏览器窗口中，并设定它显示的格式。国内多数大学BBS都提供了这种方式，在这种方式下可以比较方便地贴图。有可能BBS和论坛之间的最大差别是BBS通常在公众网上不常见，而几乎中国每所知名大学都有一至数十个官方的，或组织的，或纯由学生设置的BBS在运行。

BBS是有不同的版块组成的, 版也就是讨论区，每个版有不同的主题，比如讨论校园信息，讨论程序设计的，讨论爱情的，讨论读书的，讨论足球的等，都可以申请开办一个单独的版。在这个版上，用户就可以发表自己的贴子，其他人就可以回复这个贴子。这些同一般的WWW论坛是一样的，但论坛上的术语，如版主，RE，灌水，倒，分特等语其实就都是从BBS上发展起来的（顶除外）。在终端窗口中显示出来，就是一个个的菜单，一个菜单就是一个功能或是一个版块的名字。每个版都会有0至数名版主进行日常管理。

一般地，一个BBS会有一个站务或站务委员会，他们负责这个BBS站的管理和维护。他们中
有程序员，有网管，他们保证BBS系统运行正常，防止当机，进行日常备份，添加新功能等；也有热心网友来处理法律问题，网友争议等等常规问题。站务之下，是各版的版主，通常是1名到几名，也有的版暂时无人管理，就得由站务负责，同时会显示"诚征版主中"字样。版主可以在自己管理的版上整理精华区，设定文章进入文摘区，也可删除文章，封禁在本版违规的网友。封禁可以是1至数天，到时会自动解封。封禁期内只能看别人的贴子，而不能发表贴子。站务可以在全站范围内封禁网友，甚至杀掉档案，让这个网友从此在这个站上消失。

通常，一个BBS站会有自己的站规，而一个版会有版规，这些规定有文字的，也有约定俗成的，或者根本没有，版主只以日常社会行为规范进行治理的，比如骂人，挑起严重争端，违反法律，宣扬仇恨等都会被封。BBS的站务和版主一般没有工资（我从未听说有哪里的站务领工资的），他们一般都有自己的学习工作，而从事BBS管理只是在业余进行。版主一般有任期，一个学期或两个学期，他们也是义务的，一任版主下台后，其他网友可以申请成为版主。由于BBS多数建在学校内，也要使用学校的网络，所以许多BBS是要接受学校的领导的。逸仙时空现在是管理员－主管－斑竹分级管理。

一般来说，上BBS的人当中大学生多一些，本校的最多，其次是外校的学生，许多老师也都上BBS；已经毕业参加工作的人也是BBS用户的一大来源。上BBS的人通常学历较高，知识丰富，眼界开阔。在管理较好的成熟BBS上通常可以养成礼貌待人，热情好客，温文而雅，独立思考，不盲从，不盲信等优良品格。

在BBS上干什么，这要看所上的站开了什么功能，开了什么样的版块。在大学里，比较多的版块是技术类，学术类，体育类和日常生活类。像在水木清华上，电脑技术类版块有上百个，包括了电脑的方方面面，从Linux内核到巨型机，从Office使用到汇编语言，从Tex排版到电脑市场，总之使用电脑的各种问题都可以在这里找到答案。其他的如电子技术，机械设计，数学计算以及学校里的各个专业都有自己的版块。社会及人文学科也是一样，基本上每个专业都有自己的版块。可以说，BBS在大学里就是第二课堂，就是答疑教室。各个版上积累起来的精华内容就是百科全书。更重要的是，BBS以网络为基地，其内容都是最新，最前沿的。BBS上最普遍的一项活动，就是讨论问题，问问题或解答别人的问题。其他的如到哪里买衣服便宜，什么地方的饭馆好吃，周末到郊外旅游，家居生活，婆媳纠纷，足球围棋，更是无所不包。水木的足球版曾经创下单版在线超过10000人的记录。但可以保证的是，这里没有黄色内容，没有赌博信息，没有耸人听闻的标题，也就是说，它比国内所有的大型门户网站都更正统，更有教育意义。 BBS讨论还有个匿名的特性，匿名时讨论的是事，对事不对人；如果用实名，讨论时就会针对人，对人不对事，这是争斗，引起尖锐矛盾的起因。所以，匿名可以讨论问题，而不会引起争斗。如果都是实名在讨论，BBS就和开班会的情况一样了。众所周知，大家都不喜欢开班会，毛主席也说：谁让你们周日晚上开会！

BBS在学校里非常受欢迎。一个水木网友的签名档是这样写的：如果我不在水木上，那我就在去水木的路上。BBS几乎是大学生活里必不可少的一部分，同学们在这里既学习知识，也探讨问题，也了解社会，获取信息。BBS是学校里最有用的服务之一.

emacs浏览代码工具etags,gtags

2009-03-19T00:52:00.003+08:00

global:
http://www.gnu.org/software/global/

装好后, 去到代码目录:
$ cd src
$ gtags

.emacs
;;global
(autoload 'gtags-mode "gtags" "" t)
(gtags-mode 1)
(global-set-key (kbd "C-]") 'gtags-find-tag-from-here)

C-] 跳到定义
M-* 跳回

global现在不支持python，浏览python代码用etags也足够了:
$ etags *.py

在emacs里,
M-. 第一次会提示你指定TAGS路径..然后会跳转到定义处.
M-* 跳回.

emacs ido

2009-02-26T21:04:00.003+08:00

在emacs中打开和新建文件使用的是M-x find-file(即C-x C-f)，如果文件不存在就创建一个新文件。默认的提示输入文件名的方式类似shell中的补全。
Emacs提供一个很好的补全方式──ido-mode

The ido.el is now a default elisp package in Emacs 23.
You can get the newest version from CVS.

Use following elisp to enable ido-mode:
(require 'ido)
(ido-mode t)

一些命令:
C-f to return to normal find-file
C-d to enter dired.
C-l to run ido-reread-directory to refresh the current work directory.
C-j to stop automatically completing file names. For example, you have "test.01" and "test.02" in your work directory, but you want to create a new file "test" instead of finding "test.01" or "test.02". Then you should type C-j after inputting "test", to run ido-select-text.
Tab or ? to show completion help.

二进制diff工具xdelta

2009-02-26T20:24:00.004+08:00

diff和patch是针对文本文件的一对工具.
如果要处理的是二进制文件，可以使用一个专门用来处理二进制文件的工具xdelta.

比如你以前下载了 emacs-23.0.90.tar.gz (41M), 现在 emacs-23.0.91.tar.gz 出来了，你可以只下载一个emacs-23.0.90-23.0.91.xdelta (622K), 而不必下载 emacs-23.0.91.tar.gz.

安装xdelta:
sudo apt-get install xdelta

文档:
man xdelta

生成补丁(Delta):
xdelta delta fromfile tofile patchout

应用补丁(Patch):
xdalta patch patchout

例如:
xdalta patch emacs-23.0.90-23.0.91.xdelta
不会把原文件覆盖掉，会生成一个emacs-23.0.91.tar.gz

查看补丁(Info):
xdelta info ***.xdelta
里面有文件名, 长度, md5等信息.

float length = 178.5, weight = 63.5;

2009-02-24T23:51:00.007+08:00

今天去广东省国际旅行卫生保健中心体检, 很多人，好多鬼佬。

丫的竟然要照片，没带，只好乖乖拍照30元, 一般地铁里那种快相才20元.
教训：出来混，pp随身带！

抽血，尿尿，胸透，身高体重血压体温，心电图，五官，内外科一个都不少，别担心，不用检查小jj。

裸眼视力: 左眼1.0, 右眼0.8

VirtualBox安装配置FreeBSD

2009-02-21T01:13:00.009+08:00

安装照着手册就行了，特别是在虚拟机，当作是独占一个硬盘的情况。
http://www.freebsd.org/doc/zh_CN.GB2312/books/handbook/install.html

配置:

网络:
NAT + 端口转发. 启用DHCP.
网卡： Intel PRO/1000, 所以下面填e1000, 而不是pcnet。（详见VirtualBox UserManual)

VBoxManage setextradata freebsd "VBoxInternal/Devices/e1000/0/LUN#0/Config/telnet/Protocol" TCP
VBoxManage setextradata freebsd "VBoxInternal/Devices/e1000/0/LUN#0/Config/telnet/GuestPort" 23
VBoxManage setextradata freebsd "VBoxInternal/Devices/e1000/0/LUN#0/Config/telnet/HostPort" 2323

VBoxManage setextradata freebsd "VBoxInternal/Devices/e1000/0/LUN#0/Config/ssh/Protocol" TCP
VBoxManage setextradata freebsd "VBoxInternal/Devices/e1000/0/LUN#0/Config/ssh/GuestPort" 22
VBoxManage setextradata freebsd "VBoxInternal/Devices/e1000/0/LUN#0/Config/ssh/HostPort" 2222

现在可以ssh过去了
ssh -p 2222 user@host

用户管理：
将用户添加到wheel组, 才可以su.
编辑　/etc/group 文件, wheel:*:0:root,bbs

安装sudo

cd /usr/ports/security/sudo
make install clean
visudo 增加一行: wheel ALL=(ALL) NOPASSWD: ALL

------------------------------------------------------
ps. VirtualBox 对 FreeBSD 7 时常出现这个bug:
sigreturn: eflags = 0x80247
console锁死了,只能通过另外一个终端ssh上去BSD,杀死进程或者执行reboot重启.
http://www.virtualbox.org/ticket/2341 希望尽快解决

重新编译了emacs 23

2009-02-20T19:16:00.003+08:00

1.下载emacs23代码 (2月初放出来的pretest)
http://alpha.gnu.org/gnu/emacs/pretest/emacs-23.0.90.tar.gz

或者通过cvs下载最新的代码:
cvs -z3 -d:pserver:anonymous@cvs.sv.gnu.org:/sources/emacs co emacs

2. 编译安装
让emacs支持xft字体
./configure --enable-font-backend --with-xft --with-freetype --with-x-toolkit=gtk

make bootstrap
make info
make install

3. 写~/.Xresources 文件

Xft.antialias: 1
Xft.hinting: 1
Xft.hintstyle: hintfull
Emacs.FontBackend: xft

4. .emacs 设置
(set-default-font "Bitstream Vera Sans Mono-13")
(set-fontset-font "fontset-default"
'gb18030 '("WenQuanYi Bitmap Song" . "unicode-bmp"))

5. 启动时添加选项 --enable-font-backend (好像非必须)

6. 上pp

参考: http://fxl.blogbus.com/logs/11846673.html

2008 job hunting list

2009-02-07T02:56:00.003+08:00

163.com 简历,拒信
google 4面, 默拒
alibaba 2面, 拒信
xunlei 2笔fail
lenovo 简历fail
qq.qzone 1面fail
qq.soso 1面fail
EMC^2 简历fail
oracle 笔试,默拒
163.game offer
gdnortel 2面,默拒
163.youdao 简历,默拒
huawei 笔试没去
M$ 电面, 默拒
baidu.ps 1面,默拒

svn 导入数据到版本库

2009-02-01T19:15:00.002+08:00

$ svnadmin create /home/svn/someproject
$ svn import mytree file:///home/svn/someproject -m "Initial import"

在导入之后，原来的目录树并没有转化成工作拷贝，

为了开始工作，还是需要运行svn checkout导出一个工作拷贝:
$ svn co file:///home/svn/someproject

svn book:
http://www.subversion.org.cn/svnbook/1.4/index.html

grep -- output context line

2009-01-12T23:42:00.007+08:00

grep输出匹配的上下文 (Context Line Control):


    -A NUM, --after-context=NUM
       Print  NUM  lines  of trailing context after matching lines.

    -B NUM, --before-context=NUM
       Print  NUM  lines  of leading context before matching lines.

    -C NUM, -NUM, --context=NUM
       Print  NUM  lines  of output context.

Places a line containing a group separator (--) between contiguous groups of matches.

note: With the -o or --only-matching option, these has no effect and a warning is given

example: 想在bbs.c里看看frgg有没添加什么后门:
输出含有"freestyler"的行, 并输出匹配的前一行, 跟后面2行。
grep -B1 -A2 freestyler bbs.c


char quote_file[PATH_MAX + 1], quote_user[IDLEN + 2];
struct fileheader* quote_fh; /* freestyler: for 转载文章 */

#ifndef NOREPLY
--

/* freestyler: 校内版面名不出现在namecomplete中 */
if (valid_host_mask == HOST_AUTH_NA) {
if (bptr->flag & BRD_INTERN) { /* 校内版面 */
--

/* freestyler:  获取附件信息到全局变量 attach_info, attach_link
* return 0 如果没附件 */
int
--
#ifdef INBOARDCOUNT
/* inboard user count  by freestyler */
int idx = getbnum(currboard);
board_setcurrentuser(idx-1, -1);
--
if (mode == 0) {
write_header(of, 0 /* 写入 .post */, NA); /* freestyler: 转载写入 .post, 十大作者问题 */
if (fgets(buf, 256, inf) != NULL) {
if ((ptr = strstr(buf, "信人: ")) == NULL) {
--
if (!mode) {   // 转载记录
if(getattachinfo(quote_fh)) { /* freestyler: 附件链接信息　*/
fprintf(of, "\033[m\n%s 链接:\n", attach_info);
fprintf(of, "\033[4m%s\033[m\n", attach_link);
--
}
/* freestyler:非标准阅读模式置不可回复标记 */
int savedigestmode = digestmode;
digestmode = 0;
--
}
/* freestyler: 非标准阅读模式 mark post */
int savedigestmode = digestmode;
digestmode = 0;
--

/* freestyler: 非标准模式删文 */
if (digestmode >= 2 ) {
int savedigestmode = digestmode ;
--

/* freestyler: 非标准阅读模式选择文章 */
int savedigestmode = digestmode;
digestmode = 0;
--
break;
/* freestyler: 非标准阅读模式编辑文章,
* 没启用MARK_X_FLAG, edit_post将不会用到ent, direct参数和digestmode全局变量
* 否则要相应处理ent, direct, digestmode */
--
{ '=', SR_first },
{ '%', jump_to_reply },       /* 跳到回复 (freestyler) */
{ Ctrl('S'), SR_read },
{ 'p', SR_read },

[less]Colorful man pages

2009-01-09T20:43:00.002+08:00

上一回说了使用 export PAGER=most来使man有颜色, 不过most用得不是很爽..
现在发现less也可以彩色, 方法如下:
在 .bashrc里添加如下内容:


export LESS_TERMCAP_mb=$'\E[01;31m'
export LESS_TERMCAP_md=$'\E[01;31m'
export LESS_TERMCAP_me=$'\E[0m'
export LESS_TERMCAP_se=$'\E[0m'
export LESS_TERMCAP_so=$'\E[01;44;33m'
export LESS_TERMCAP_ue=$'\E[0m'
export LESS_TERMCAP_us=$'\E[01;32m'

sicp习题解答1.3.2 - 1.3.3

2009-01-09T02:02:00.003+08:00

上一节1.3.1


;;Exercise 1.34
(define (f g)
  (g 2))

;;Exercise 1.35
(define tolerance 0.00001)
(define (fixed-point f first-guess)
  (define (close-enough? v1 v2)
    (< (abs (- v1 v2)) tolerance))
  (define (try guess)
    (let ((next (f guess)))
      (if (close-enough? guess next)
          next
          (try next))))
  (try first-guess))

(fixed-point (lambda (x) (+ 1 (/ 1 x))) 1.0)



;;Exercise 1.36
(define (fixed-point f first-guess)
  (define (close-enough? v1 v2)
    (< (abs (- v1 v2)) tolerance))
  (define (try guess)
    (display guess)
    (newline)
    (let ((next (f guess)))
      (if (close-enough? guess next)
          next
          (try next))))
  (try first-guess))

(define (average x y)
  (/ (+ x y) 2))


;take with average damping
(fixed-point (lambda (x)(average x (/ (log 1000) (log x)))) 5)
;without average damping
(fixed-point (lambda (x) (/ (log 1000) (log x))) 5)


Welcome to DrScheme, version 372 [3m].
Language: Standard (R5RS).
5
4.64601483711009
4.571611286076025
4.558294317536066
4.556006022881116
4.555615799731297
4.555549342575593
4.555538027101999
4.5555361005218895


5
4.29202967422018
4.741863119908242
4.438204569837609
4.635299887107611
4.50397811613643
4.589989462723705
4.53301150767844
4.570475672855484
4.545720389670642
4.562024936588171
4.551263234080531
4.55835638768598
4.553676852183342
4.55676216434628
4.554727130670954
4.556069054770006
4.555184018843625
4.5557676565438205
4.555382746639082
4.55563658243586
4.555469180245326
4.555579577900997
4.5555067722873686
4.5555547860484085
4.555523121789556
4.555544003742869
4.555530232469306
4.555539314360711
>

;;Exercise 1.37
(define (cont-frac n d k)
  (define (iter i)
    (if (= i k)
        (/ (n k) (d k))
        (/ (n i) (+ (d i)
                    (iteer (+ i 1))))))
  (iter 1))

(cont-frac (lambda (i) 1.0)
           (lambda (i) 1.0)
           12)



;;Exercise 1.38
(define (e-2)
  (define (d i)
    (if (= (remainder i 3) 2)
        (* (/ (+ i 1) 3) 2)
        1))
  (cont-frac (lambda (i) 1.0)
             d
             12))
(e-2)



;;Exercise 1.39
(define (tan-cf x k)
  (cont-frac (lambda (i) (if (= i 1) x (- (square x))))
             (lambda (i) (- (* 2 i) 1))
             k))

Firemacs - Yet another Good Firefox Addon

2009-01-07T19:37:00.005+08:00

作者主页:
http://www.mew.org/~kazu/proj/firemacs/

下载: https://addons.mozilla.org/firefox/4141/

装上之后, 现在firefox里编辑就像emacs一样鸟。哈哈, Good!

2款http调试工具

2009-01-07T02:27:00.009+08:00

第一个,firefox插件httpfox
HttpFox monitors and analyzes all incoming and outgoing HTTP traffic between the browser and the web servers.

第二个: fiddler (只能在Windows下使用)
Fiddler is a HTTP Debugging Proxy which logs all HTTP traffic between your computer and the Internet.

上两张图:

给BBS添加一个显示文章信息的功能

2009-01-05T20:19:00.017+08:00

本文说的BBS是逸仙时空系统telnet端(Puke Bulletin Board System Version 0.1.2 Beta, 由firebird 2000发展而来)

[功能解释]
在文章列表时,

按 * 键显示文章的信息 (url, 利于直接用web方式查看(比如说有人贴了ppmm的照片))
虽然已经有显示文章链接功能，可是有些文章会死活都显示不出来的 (此bug很牛b, 曾尝试跟踪, 搞不定)

在代码里有这样一个结构:


struct one_key {  /* Used to pass commands to the readmenu */
  int key;
  int (*fptr) ();
};

一个按键，对应一个函数指针. 用户按一下那个键，就会跳到那个函数处执行。

用户进入版面这个过程对应的是bbs.c里Read()这个函数,
Read会用下面read_comms作为参数去调用read.c里的 i_read函数.
i_read里面进行一些处理后就会进入键盘指令循环: 获取键盘按键, 执行相应函数.

节选一些 read_comms, 如果你熟悉bbs操作，就明白了。


struct one_key read_comms[] = {
{ '_', underline_post },            /* 设置不可回复标记 */
{ 'r', read_post },                 /* 阅读文章 */
{ 'K', skip_post },                 /* 跳过文章 */
{ 'd', d_action },                  /* 删除文章/解除匿名封禁 */
{ 'E', E_action },                  /* 编辑文章/清空回收站 */
{ 'D', del_range },                 /* 区段删除文章 */
{ 'm', mark_post },                 /* 标记文章 (m) */
{ 'g', digest_post },               /* 标记文章 (g) */
{ 'e', select_post },               /* 标记文章 ($) (monster) */
{ Ctrl('G'), digest_mode },         /* 文摘模式 */
{ '`', digest_mode },               /* 文摘模式 */
{ Ctrl('Y'), pure_mode },           /* 原作模式 (monster) */
{ Ctrl('T'), acction_mode },        /* 多种模式切换 */
{ 't', thesis_mode },               /* 主题模式 */
{ 'T', edit_title },                /* 更改文章标题 */
{ 's', do_select },                 /* 选择版面 */
{ Ctrl('C'), do_cross },            /* 转载文章 */
{ Ctrl('E'), process_select_post }, /* 处理选定文章 (monster) */
{ Ctrl('V'), x_lockscreen_silent }, /* 锁屏 (monster) */
{ 'h', mainreadhelp },              /* 显示帮助 */
{ Ctrl('J'), mainreadhelp },        /* 显示帮助 */
{ KEY_TAB, show_b_note },           /* 查看备忘录 */
{ 'z', show_b_secnote },            /* 查看秘密备忘录 */
{ 'x', currboard_announce },     /* 查看精华区 */
{ 'a', a_action },                  /* 向后搜索作者/封禁 */
{ '/', title_search_down },         /* 向后搜索标题 */
{ 'b', bmfuncs },                   /* 版主特殊功能 */
+ { '*', show_fileinfo },      /* 显示全文链接等, 这是我们要添加的*/
{ '\0', NULL }
};

这些函数的参数一般都是3个:
int ent, 是当前文章(即光标对应的那篇文章)的序号
struct fileheader *fileinfo, 是当前文章的文件头信息(文件名, 作者等)
char *direct 是当前版面索引文件路径(例如: $BBSHOME/boards/Joke/.DIR)

在bbs.c里添加上这个处理函数show_fileinfo:


int
show_fileinfo(int ent, struct fileheader *fileinfo, char *direct)
{
 /* get file size */
 struct stat st;
 char buf[512], filepath[512];
 char *t;
 
 strlcpy(buf, direct, sizeof(buf));
 if ((t = strrchr(buf, '/')) != NULL)
  *t = '\0';
 
 snprintf(filepath, sizeof(filepath), "%s/%s", buf, fileinfo->filename);
 if (stat(filepath, &st) != -1)
  fileinfo->size = st.st_size;
 
 clear();
 move(5, 0);
 prints("本文全文链接:\n");
 prints("http://%s/bbscon?board=%s&file=%s\n\n",
        BBSHOST, currboard, fileinfo->filename);
 prints("文章发表时间: %d\n\n", fileinfo->filetime);
 prints("文章大小: %d 字节\n\n", fileinfo->size);
 return FULLUPDATE;
}

在头文件 include/prototypes.h 里添加上这个函数的原型。
int show_fileinfo(int ent, struct fileheader *fileinfo, char *direct);

好了。
make update; 重启bbsd后就有这个功能了～

获取系统帮助文档的三个命令: whatis apropos man

2009-01-05T03:22:00.005+08:00

whatis一下他们:


man (1)              - an interface to the on-line reference manuals
apropos (1)          - search the manual page names and descriptions
whatis (1)           - display manual page descriptions

具体是什么可以man一下他们.

apropos跟whatis的区别:
whatis 只在man page names里匹配.
apropos 还会在descriptions里匹配.

Google Reader 快捷键

2009-01-03T01:58:00.009+08:00

可输入 ? 查看

http://www.google.com/reader/ui/81456458-zh-CN-keyboard-help-tearoff?hl=zh-CN

o/Enter： 展开折叠条目（仅List查看模式）  这个很有用！
j/k： 下一个/上一个项目
n/p： 向下/向上扫描项目（仅List查看模式）

空格： 下一个项目或页面
shift + 空格： 上一个项目或页面

shift + n/p： 下一个/上一个订阅
shift + o： 打开订阅或文件夹
shift + a： 全部标为已读
shift + x： 展开文件夹

p.s. 有个 Better GReader, 一个用于 Google 阅读器优化的强大 Firefox 扩展,
这里有介绍.

sicp习题解答sec_1.3.1

2009-01-02T03:48:00.000+08:00


;;Exercise 1.29
(define (Simpson f a b n)
  (define h (/ (- b a) n)) ; n is an even number

  (define (y k)
    (f (+ a (* k h))))

  (define (iter i)
    (if (< i n)
        (if (even? i)
            (+ (* 2 (y i))
               (iter (+ i 1)))
            (+ (* 4 (y i))
               (iter (+ i 1))))
        0))

  (* (/ h 3)
     (+ (y 0)
        (y n)
        (iter 1))))


(define (cube x)
  (* x x x))

(Simpson cube 0 1 100)
(Simpson cube 0 1 1000)


;;Exercise 1.30
(define (sum term a next b)
  (define (iter a result)
    (if (> a b)
        result
        (iter (next a) (+ result (term a)))))
    (iter a 0))


;;Exercise 1.31
;a)
(define (product term a next b)
  (if (> a b)
      1
      (* (term a)
         (product term (next a) next b))))

(define (factorial n)
  (define (identity x) x)
  (define (inc x) (+ x 1))
  (product identity 1 inc n))

(define (pi n)
  (* 4 (product (lambda (x) (/ (* (- x 1.0) (+ x 1)) (* x x)))
                3
                (lambda (x) (+ x 2))
                n)))

(pi 1000000)


;b)
(define (product2 term a next b)
  (define (iter prod i)
    (if (> i b)
        prod
        (iter (* (term i) prod) (next i))))
  (iter 1 a))


;;Exercise 1.32
(define (accumulate combiner null-value term a next b)
  (if (> a b)
      null-value
      (combiner (term a) (accumulate combiner null-value term (next a) next b))))

(define (sum term a next b)
  (accumulate (lambda (x y) (+ x y)) 0 term a next b))

(define (product term a next b)
  (accumulate (lambda (x y) (* x y)) 1 term a next b))


;b)
(define (accumulate2 combiner null-value term a next b)
  (define (iter result i)
    (if (> i b)
        result
        (iter (combiner result (term i)) (next i))))
  (iter null-value a))



;;Exercise 1.33
(define (filtered-accumulate combiner null-value term a next b filter)
  (define (iter result i)
    (if (> i b)
        result
        (iter (combiner result
                        (if (filter i)
                            (term i)
                            null-value))
              (next i))))
  (iter null-value a))


;a) #中文版题目没平方.
(define (sum-of-squares-of-primes a b)
  (filtered-accumulate (lambda (x y) (+ x y))
                       0
                       square
                       a
                       inc
                       b
                       prime?))

;b)
(define (relatively-prime-to-n? i)
  (= 1 (gcd i n)))

(define (profuct-of-relaviely-prime-to-n n)
  (filtered-accumulate (lambda (x y) (* x y))
                       1
                       identity
                       1
                       inc
                       (- n 1)
                       relatively-prime-to-n?))

sicp习题解答1.2

2008-12-30T04:51:00.005+08:00


;;Exercise 1.9.
The first one is recursive,
and the second one is iterative (tail recursive).


;;Exercise 1.10.
由(A x y)定义得出
(f n) = (2n)

(A 1 10)
(A 0 (A 1 9)) 得出
(g n) = (2^n)

(A 2 10)
(A 1 (A 2 9))
(A 2 1) = 2
得出

(h n) = (pow2 (h (- n 1)))
that is, 2 ^ (2 ^ (... 2)) ;; n times


;;Exercise 1.11.
(define (f-recur n)
(if (< n 3) n
    (+ (f-recur (- n 1))
       (* 2 (f-recur(- n 2)))
       (* 3 (f-recur(- n 3))))))

(define (f-iter n)
(define (iter a b c count)
  (if (= 0 count) c
      (iter b c
            (+ (* 3 a) (* 2 b) c)
            (- count 1))))
(if (< n 3) n
    (iter 0 1 2 (- n 2))))



;;Exercise 1.12.
(define (Yang-Hui-San-Jiao nline)
(define (Yang-Hui-cell row col)
  ;;; (assert (not (> col row)))

    (cond ((or (= row 1)
             (= col 1)
             (= row col)) 1)
        (else (+ (Yang-Hui-cell (- row 1) (- col 1))
                 (Yang-Hui-cell (- row 1) col)))))

(define (Yang-Hui-line row)
  (define (iter c)
    (display (cons (Yang-Hui-cell row c) '()))
    (if (< c row)
        (iter (+ c 1))))

  (iter 1)
  (newline))

(define (iter r)
  (Yang-Hui-line r)
  (if (< r nline)
      (iter (+ r 1))))

(iter 1))


;;test
(Yang-Hui-San-Jiao 10)


;;Exercise 1.13.
翻定义and归纳法证明.


;;Exercise 1.14.
O(amount + kinds-of-coins) in space.
O(result * amount) in time.
refer to this


;;Exercise 1.15.
a. 5 times.
b. O(log3(n)) in both time and space.


;;Exercise 1.16.

(define (fast-expt-iter B N)
;;; loop invariant: ab^n = B^N

  (define (iter a b n)
  (cond ((= 0 n) a)
        ((even? n) (iter a (* b b) (/ n 2)))
        (else (iter (* a b) b (- n 1)))))

(iter 1 B N))


;;Exercise 1.17
(define (fast-multi a b)
(define (double a) (+ a a))
(define (halve a) (/ a 2))
(cond ((= 0 b) 0)
      ((even? b) (fast-multi (double a) (halve b)))
      (else (+ a (fast-multi a (- b 1))))))

(fast-multi 10 15)
(fast-multi 100 16)



;;Exercise 1.18
(define (fast-multi-iter a b)
(define (iter a b res)
  (cond ((= 0 b) res)
        ((even? b) (iter (double a) (halve b) res))
        (else (iter a (- b 1) (+ res a)))))
(iter a b 0))



;;Exercise 1.19
;(b a) -> (a b+a)

;(b a) * [0, 1] = (a b+a)


;a <-  bq + aq + ap
;b <-  bp + aq


;(a, b) * [q+p, q] = (bq + aq + ap, bp + aq)


;[q+p, q] ^ 2  = [(q+p)^2 + q^2, (q+p)q+qp] = [q'+p', q']
;[q,   p]         [q(q+p) + pq  , q^2 + p^2] = [q'   , p']

(define (fib n)
(fib-iter 1 0 0 1 n))
(define (fib-iter a b p q count)
(cond ((= count 0) b)
      ((even? count)
       (fib-iter a
                 b
                 (+ (* q q) (* p p))  ; compute p'

                   (+ (* q q) (* 2 p q)); compute q'
                   (/ count 2)))
      (else (fib-iter (+ (* b q) (* a q) (* a p))
                      (+ (* b p) (* a q))
                      p
                      q
                      (- count 1)))))

;;Exercise 1.20
(define (gcd a b)
(if (= b 0)
    a
    (gcd b (remainder a b))))


;; 正则序
http://eli.thegreenplace.net/2007/07/04/sicp-sections-124-125/
(gcd 206 40)
(gcd 40 (remainder 206 40))
->
(if (= (remainder 206 40) 0) ; 1 time
  40
(gcd (remainder 206 40)
  (remainder 40 (remainder 206 40))))
->
(if (= (remainder 40 (remainder 206 40)) 0) ; 2 times

  (remainder 206 40)
(gcd
  (remainder
    40
    (remainder 206 40))
  (remainder
    (remainder 206 40)
    (remainder
      40
      (remainder 206 40)))))
-> ...
18次

(gcd 206 40) ;; remainder 1
(gcd 40 6)   ;; remainder 2
(gcd 6 4)    ;; remainder 3
(gcd 4 2)    ;; remainder 4

(gcd 2 0)
4次


;;Exercise 1.21
(define (smallest-divisor n)
(define (find-divisor n test-divisor)
  (cond ((> (* test-divisor test-divisor) n) n)
        ((= (remainder n test-divisor) 0) test-divisor)
        (else (find-divisor n (+ 1 test-divisor)))))
(find-divisor n 2))

(smallest-divisor 199)   ;199

(smallest-divisor 1999)  ;1999
(smallest-divisor 19999) ;7


;;Exercise 1.22
(define (prime? n)
(= (smallest-divisor n) n))

(define (timed-prime-test n)
(define (start-prime-test n start-time)
  (if (prime? n)
      (report-prime (- (runtime) start-time))))
(define (report-prime elapsed-time)
  (display " *** ")
  (display elapsed-time))

(newline)
(display n)
(start-prime-test n (runtime)))


(define (search-for-primes begin end)
(cond ((< begin end)
       (timed-prime-test begin)
       (search-for-primes (+ 2 begin) end))))

(search-for-primes 1001 1020)

;; 1009, 1013, 1019
(search-for-primes 10001 10038)
;; 10007, 10009, 10037
(search-for-primes 100001 100044)
;; 100003, 100019, 100043
(search-for-primes 1000001 1000038)
;; 1000003, 1000033, 1000037

;Curiously, timing the runs for 1,000 10,000 100,000 and 1,000,000
;doesn’t work because my computer is too fast
;(SICP was written in the 80s!) – all the runs
;just take 0 seconds, which means that the runtime is
;below the resolution of the timer used in the timing.


;;Exercise 1.23
(define (smallest-divisor n)
(define (next n)
  (if (= n 2)
      3
      (+ n 2)))
(define (find-divisor n test-divisor)
  (cond ((> (* test-divisor test-divisor) n) n)
        ((= (remainder n test-divisor) 0) test-divisor)
        (else (find-divisor n (next test-divisor)))))
(find-divisor n 2))



;;Exercise 1.24
(define (expmod base exp m)
(cond ((= exp 0) 1)
      ((even? exp)
       (remainder (square (expmod base (/ exp 2) m))
                  m))
      (else
       (remainder (* base (expmod base (- exp 1) m))
                  m))))

(define (fermat-test n)
(define (try-it a)
  (= (expmod a n n) a))
(try-it (+ 1 (random (- n 1)))))

(define (fast-prime? n times)
(cond ((= times 0) true)
      ((fermat-test n) (fast-prime? n (- times 1)))
      (else false)))

(define (timed-prime-test n)
(define (start-prime-test n start-time)
  (if (fast-prime? n)
      (report-prime (- (runtime) start-time))))
(define (report-prime elapsed-time)
  (display " *** ")
  (display elapsed-time))

(newline)
(display n)
(start-prime-test n (runtime)))



;;Exercise 1.25
It's correct if arbitary precision arithmetic is supported.
But it will be much slower than the implementation provided
by the authors.


;;Exercise 1.26.
粗略地：
2 ^ log2(m) = m


;;Exercise 1.27.
(define (Carmichael-test n)
(define (try-it a)
  (= (expmod a n n) a))
(define (iter i)
  (cond ((= i 1) #t)  ;; no need to test (1^n = 1 % n)
          ((not (try-it i)) #f)
        (else (iter (- i 1)))))
(and (not (prime? n))
     (iter (- n 1))))

(Carmichael-test 561)
(Carmichael-test 1105)
(Carmichael-test 1729)
(Carmichael-test 2465)
(Carmichael-test 2821)
(Carmichael-test 6601)


;;Exercise 1.28.
 ; ref: CLRS 31.6,31.8
(define (square x)
(* x x))

(define (Miller-Rabin n)
(define (check x)
  (define result
    (remainder (square x) n))
  (if (and
       (= result 1)
       (not (or (= x 1) (= x (- n 1)))))
      0
      result))

(define (expmod base exp m)
  (cond ((= exp 0) 1)
        ((even? exp)
         (check (expmod base (/ exp 2) m)))
         (else (remainder (* base (expmod base (- exp 1) m))
                          m))))

(define (try-it a)
  (cond ((= a 0) #t)
        ((= 1 (expmod a (- n 1) n))
         (try-it (- a 1)))
        (else #f)))
(try-it (- n 1)))


(Miller-Rabin 233)
(Miller-Rabin 9999)
(Miller-Rabin 561)
(Miller-Rabin 1105)
(Miller-Rabin 1729)
(Miller-Rabin 2465)
(Miller-Rabin 2821)
(Miller-Rabin 6601)