雲夢若耶: 吳興臠

《僧園逸録》曰:旃檀寺悟本師春秋二會,斂牛乳為龍華飯供獻,結彩錢為幡蓋,設客以吳興臠團糟,授戒者施以般若錢,求男者解密珠璫。

僧園逸錄中記載,吳興旃檀寺中每舉辦司本師春秋二會,收集牛奶做龍華飯供奉,把彩錢結串做幡蓋,用吳興臠團糟來招待來人,授戒的人施捨般若錢,求男者解密珠璫。(不知道如何翻。感覺象是求男孩,又似乎擇佳偶者)。

雲夢若耶: 脂花餤

《金門歲節》曰:洛陽人家,正旦,造鷄絲蠟□、燕粉荔枝。正月十五,造火蛾兒、玉梁餻。寒食,裝萬花輿,煮楊花粥。端午,朮羹、艾酒,以花絲樓閣插鬢,贈遺辟瘟扇梳。乞巧,使蜘蛛結萬字,造明星酒,裝同心膾。重九,則迎涼脯、羊肝餅,佩癭木符。冬至,煎餳彩珠,戴一陽巾。除夜,則銅刀刻門,埋小兒硯,點水盆燈。臘日,造脂花餤。

根據金門歲節中的記載。洛陽人家,每逢正旦,就做鷄絲蠟X(此字逸失),燕粉荔枝。到了正月十五,造火蛾兒、玉梁餻。寒食節,裝扮萬花輿,煮楊花粥。端午節的時候,調朮羹、備艾酒,用花絲樓閣插鬢角,相互贈與辟除瘟疫的扇子梳子。七七乞巧之時,役使蜘蛛結萬字,釀造明星酒,裝同心膾。九九重陽時,就用迎涼肉脯、羊肝餅,佩帶癭木符。冬至的時候,煎餳彩珠,戴一陽巾。除夕之夜,用銅刀刻門,埋小兒硯,點水盆燈。臘日,造脂花餤。

又記梨花開時,郊遊去飲洗妝酒。

Scheme 程序语言介绍

Scheme 是差不多三十年前诞生在 MIT 人工智能实验室的一门程序语言。它是 Lisp 语言的发展。今天的 Scheme 在程序语言的理论研究和工程应用两方面都发挥着持久和越来越重要的影响。

在网上有这样一句有趣的评论:计算机科学的大部分,就是在重复发现很久以前别人就早已 发现过的东西。当然,这是一句玩笑。不过我们可以给这句玩笑接个下巴:对于程序语言中 的每一个重要概念,你都可以先在 Lisp 当中发明一次,再在 C++ 里面发明一次,再在 Java 里面发明一次,再在 Python 里面发明一次,再在 Perl 里面发明一次,再在 Ruby 里面发明一次,当然,最后还要在 C# 里面再发明一次。我们以此开始我们对 Scheme 的介绍。^_^

Scheme 的前身是 Lisp。和 Scheme 一样,这也是一门诞生在 MIT 人工智能实验室的语言。 据说 Lisp 在程序语言的族谱上,班辈仅次于 Fortran,是第二古老的语言。但和 Fortran 不同,Fortran 经常被大名鼎鼎的计算机科学家批评,作为反面教材,这些计算机科学家当 中有著名的图灵奖获得者 Edsger Dijkstra。而 Lisp 和 Scheme 恰恰相反,它们常被计算 机科学家作为正面例子,一个优秀作品的例子。赞扬 Lisp 的人当中有 Smalltalk 和图形 用户界面的发明人之一 Alan Kay。

Lisp 由图灵奖获得者 John McCarthy 发明。据说一开始 McCarthy 只想把这门他正在设计 的语言的语法的设计,往后拖一拖,等到后面有趣的工作做完了,再回头来给这门基于 Lambda 演算的程序语言加上为数学家们所熟悉的语法。可是 McCarthy 的一个学生很快发 现,直接在还没有正式语法的抽象语法里面写程序,感觉非常好。就用不着一个正式的语法 了。于是 Lisp 诞生了。Lisp 重要的特征就是:第一,基于 Lambda 演算的计算模型;第 二,加上 List processing,这也是 Lisp 名称的由来;第三,直接在抽象语法里面工作, 这是非常特别的。前两个重要特征,是 McCarthy 天才的设计,第三个特征则是有趣的巧合。

又过了十多年,还在 MIT 人工智能实验室,不过这次不是 McCarthy,而是两个更年轻的计算机科学家。Guy Steele, Jr. 和他的老师 Gerald Sussman 合作对古典 Lisp 做了两个重 要改进。一是把 Lisp 从 Dynamic scope 变成了 Lexical scope。现在大家熟悉的几乎所 有的语言都是 Lexical scope,所以大家见怪不怪了。后来 Steele 成为 Common Lisp 设 计的主力,Common Lisp 把 Scheme 的 Lexical scope、还有其它一些由 Scheme 所创造的 特征,都加入到主流 Lisp 语言当中,Dynamic scope 终于成为了历史。Steele 和 Sussman 做的另一个主要改进是把 Continuation 这个概念引入到程序语言里面。这样一门 新的程序语言就此诞生。他们按照人工智能实验室的传统,把它命名为 Scheme。

节选自,IBM DeveloperWorks

参考:

用 scheme 语言进行 UNIX 系统编程

http://groups.csail.mit.edu/mac/projects/scheme/

How to use shared memory between instances

使用共享实例内存示例,忘了出处了:

program MapDemo;
uses
Windows;
type
TShared = record
strSaveFileName: array[0..1023] of char;
end;
var
hMappingFile: THandle;
PShared: ^TShared;
Msg: TMsg;
function StrCopy(Dest: PChar; const Source: PChar): PChar;
asm
PUSH EDI
PUSH ESI
MOV ESI,EAX
MOV EDI,EDX
MOV ECX,0FFFFFFFFH
XOR AL,AL
REPNE SCASB
NOT ECX
MOV EDI,ESI
MOV ESI,EDX
MOV EDX,ECX
MOV EAX,EDI
SHR ECX,2
REP MOVSD
MOV ECX,EDX
AND ECX,3
REP MOVSB
POP ESI
POP EDI
end;
begin
hMappingFile := OpenFileMapping(FILE_MAP_READ, False, ‘test’);
if hMappingFile = 0 then
hMappingFile := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, SizeOf(TShared), ‘test’);
PShared := MapViewOfFile(hMappingFile, FILE_MAP_WRITE or FILE_MAP_READ, 0, 0, 0);
StrCopy(PShared^.strSaveFileName, ‘fuck bms’);
MessageBox(0, PShared^.strSaveFileName, pchar(‘It Works’), 0);
while GetMessage(Msg, 0, 0, 0) do;
UnmapViewOfFile(PShared);
CloseHandle(hMappingFile);
end.