天国之翼

radiowar 大叔共享的资料 你们谢他吧 . 我就遍历来的.

Read more...

这地方可以来一发,等等吧!

重新写了个宏

(define-macro (net-receive_blank int_socket sym-buffer max-bytes wait-string)
(letex (int_socket (eval int_socket)
sym-buffer sym-buffer
max-bytes max-bytes
)
(if (and (net-receive int_socket sym-buffer max-bytes) (= " " sym-buffer))
(net-receive int_socket sym-buffer max-bytes)
)
)
)

然后
(net-confirm-request)
(net-receive socket last-read 256)

changeto:

(net-confirm-request)
(net-receive_blank socket last-read 256)


同理
(net-confirm-request)
(net-receive_blank socket status 256)

changeto:

(net-confirm-request)
(net-receive_blank socket status 256)

ps:
真想吐槽, 这库有点不规整. 刚开始看不觉得, 改着改着我蛋疼了. 可能是作者只把这个当作一个临时的工具来用的.
就是send command 然后检索下信息.
代码这东西还是有风格的. 协议相关感觉必须清晰严谨些.


2012-08-29 14:35:13

修复了三个地方
具体代码看
http://code.google.com/p/winger-newlisp-toy/source/browse/modules/pop3.lsp


;func get-new-mail
(get-messages (++ (first status)) (nth 2 status) mail-dir);winger'fix1 "messages are counted from 1"


;winger'fix2 bypass " " of "+OK "
;call it after (net-confirm-request) when you want get "xxoo" from "+OK xxoo"
(define-macro (net-receive_blank int_socket sym-buffer max-bytes wait-string)
(letex (int_socket (eval int_socket)
sym-buffer sym-buffer
max-bytes max-bytes
)
(if (and (net-receive int_socket sym-buffer max-bytes) (= " " sym-buffer))
(net-receive int_socket sym-buffer max-bytes)
)
)
)

;func get-message-id
'iend (-- (find "@|;|\n|\r| |\t" (slice message ipos) 1)));winger'fix3 delete char '>'

时间像把杀猪刀
而我却相反

一篇不错的介绍newLISP的文章,翻译的也不错.
原作者:taoeffect
译者:skydark

•http://blog.skydark.info/programming/2012/06/28/newlisp/

•http://www.taoeffect.com/blog/2010/01/how-newlisp-took-my-breath-and-syntax-away/

Read more...