Lysee 是一种小巧、快速、可靠、跨平台的脚本编程语言。它既可以直接嵌入到 Pascal 和 C/C++ 程序中为宿主程序提供强大的脚本处理能力，也可以通过键盘和显示器与程序员进行互动，或者批量执行为其指定的任何 Lysee 程序文件。Lysee 同样适用于网站开发，其代码可以直接嵌入到 HTML 页面中，就象 ASP 和 PHP 所做的那样。如果您是刚刚接触到 Lysee 并想了解它是怎样工作的，请阅读本站为您准备的在线文档、示例代码以及本站提供的其它资源。

安装程序：

1. Windows: http://www.lysee.net/download/lysee110-1891-x86.exe
2. Linux: http://www.lysee.net/download/lysee110-1891-x86.tar.gz

• 搜狐网站诚聘Java、PHP和C++工程师
• Windows7在微软WinHEC 2008上揭开神秘面纱

void b(function cc)
{
  = "b";
  cc(); // 返回a()中创建cc对象后的下一条指令位置
}

void a()
{
  callcc cc() { = "a" }; // 创建cc对象，这里是个函数
  b(cc);
}

a()开始执行。
|__创建call/cc函数cc()。
|__跳过cc()的返回执行代码。
|__将cc传递到b()函数中加以执行。
...b()开始执行
...|__打印字符'b'
...|__执行cc()。
......cc()开始执行
......|___中断b()回到a()，指令系统指向cc()的返回执行代码。
|__打印字符'a'
|__回到步骤4。

// call/cc 信息结构定义
struct ccrec {
  void * addr; // 函数运行时信息的地址
  unsigned long next; // 下一条指令的位置
}

// 指令系统结构定义
struct isrec {
  struct ccrec current; // 当前运行时信息
  struct isrec *prior; // 上一级调用的指令系统结构
}

struct isrec *current; // 当前指令系统结构

void *get_call_base() // 提取当前运行时信息
{
  return current->current.addr;
}

unsigned long get_next_instruction() // 返回下一条指令的地址
{
  return current->current.next;
}

void set_next_instruction(unsigned long next) // 设置下一条指定的地址
{
  current->current.next = next;
}

// callcc 指令的处理过程
void * cc = create_function(); // 创建 cc 函数
struct ccrec * rec = create_new_ccrec(); 
rec->addr = get_call_base(); // 提取当前函数运行时信息
rec->next = get_next_instruction(); // 下一条即将执行的的指令
save_ccrec(cc, rec); // 保存信息到cc对象

// 提取call/cc返回信息

struct ccrec * rec = load_ccrec(cc);

// 执行返回操作

while (rec->addr != get_call_base())
  exec_return(); //==> 它做了什么？

// 设置下一条指令

set_next_instruction(rec->next);

// 函数返回操作函数
void exec_return()
{
  // 1. 加锁休眠垃圾回收并返回当前指令系统结构
  struct isrec * curr = begin_return(); 

  // 2. 将当前运行时信息登记到垃圾回收系统
  gc_notify(curr);
 
  // 3. 设置指令系统，返回上一级调用
  current = curr->prior; 

  // 4. 完成返回操作后开锁，重新激活垃圾系统
  end_return(); 
}

• 搜狐网站诚聘Java、PHP和C++工程师
• Windows7在微软WinHEC 2008上揭开神秘面纱

syntax void thanks(%(you) AND %(he))
{
  = "thanks!", you, "and", he;
}

thanks "scheme/lisp" AND "haskell, python, perl and others";

public variant main(variant ARGS)
{
     PUSH_FUNC main::thanks //==> 将函数thanks压栈
     PUSH_STR scheme/lisp
     PUSH_STR "haskell, python, perl and others"
     CALL [3]
     POP
     RETURN
}

syntax void thanks(%(you) AND %(he)) //==> public void thanks(variant you he)
{
     PUSH_STR thanks!
     PUSH_VARB you
     PUSH_STR and
     PUSH_VARB he
     PRINT [4]
}

// 定义 repeat .. until 语法

syntax void repeat(%(STATEMENT) until %{FALSE})
{
  do { STATEMENT() } while (not FALSE());
}

// 使用

int guess, magic = 5;
repeat { 
  guess = sys::random(10);
  = guess, eol;
} until (guess == magic);
 
// 输出

7
0
3
4
2
5

public variant main(variant ARGS)
{
     VARB guess: int
     VARB magic: int
     PUSH_INT 5
     SAVE_TO magic
     POP
     PUSH_FUNC main::repeat //==> repeat ... until
     PUSH_SUBF main::main.1 //==> STATEMENT
     PUSH_SUBF main::main.2 //==> FALSE
     CALL [3]
     POP
     RETURN
}

public variant main.1() //==> STATEMENT
{
     PUSH_FUNC sys::random
     PUSH_INT 10
     CALL [2]
     SAVE_TO guess
     POP
     PUSH_VARB guess
     PUSH EOL
     PRINT [2]
     RETURN
}

public variant main.2() //==> FALSE
{
     PUSH_VARB guess
     PUSH_VARB magic
     CALC ==
     RETURN [1]
}

syntax void repeat(%(STATEMENT) until %{FALSE})
{
0000:PUSH_VARB STATEMENT //==> main.1
     CALL [1]
     POP
     PUSH_VARB FALSE //==> main.2
     CALL [1]
     CALC NOT
     JMPT 0000: POP
}

syntax void for_each(%(LIST): %(PROC)) // 要求LIST必须支持each操作
{
  LIST.each(PROC);
}

// 调用

for_each strlist("hello\nworld\n!"): {|string item| = item, eol}; 

// 输出

hello
world
!

• Windows7在微软WinHEC 2008上揭开神秘面纱
• 搜狐网站诚聘Java、PHP和C++工程师

public int fib(int n)
{
  if (n < 2) return 1;
  return fib(n - 2) + fib(n - 1);
}

// 伪代码
public int fib(int n)
{
     PUSH_VARB n
     PUSH_INT 2
     CALC <
     JMPF 0006: POP
     PUSH_INT 1
     RETURN [1]
0006:PUSH_FUNC main::fib
     PUSH_VARB n
     PUSH_INT 2
     CALC -
     CALL [2]
     PUSH_FUNC main::fib
     PUSH_VARB n
     PUSH_INT 1
     CALC -
     CALL [2]
     CALC +
     RETURN [1]
     RETURN
}

public int fib(int n ? n < 2) // 要求: n < 2
{
  return 1;
}

public int fib(int n) 
{
  return fib(n - 2) + fib(n - 1);
}

// 伪代码
public int fib(int n)
{
     PUSH_VARB n
     PUSH_INT 2
     CALC <
     JMPF 0007: POP
     PUSH_INT 1
     RETURN [1]
     RETURN
0007:PUSH_FUNC main::fib
     PUSH_VARB n
     PUSH_INT 2
     CALC -
     CALL [2]
     PUSH_FUNC main::fib
     PUSH_VARB n
     PUSH_INT 1
     CALC -
     CALL [2]
     CALC +
     RETURN [1]
     RETURN
}

<html>
<head>
<title>查看</title>
</head>
<body>
<% ==> begin CGI
public void display(string table id_field content_field click_field ID)
{
  // 显示内容

  = sys::db().selectStr(@"SELECT %(content_field) FROM %(table) 
    WHERE %(id_field)='%(ID)'").html();

  // 增加点击量

  sys::db().execSQL(@"UPDATE %(table) SET %(click_field)=%(click_field)+1
    WHERE %(id_field)='%(ID)'");
}

// 建立模式匹配
 
public void view(string cate ID ? cate == "news") // 新闻
{
  display("news", "news_ID", "news_content", "news_clicks", ID);
}
 
public void view(string cate ID ? cate == "file") // 文章
{
  display("files", "file_ID", "file_content", "file_view_count", ID);
}
 
public void view(string cate ID ? cate == "msg")  // 消息
{
  display("msgs", "msg_ID", "msg_content", "msg_clicks", ID);
}
 
// 执行模式匹配

view(${request.cate}, ${request.ID}); 
==> END CGI %>
</body>
</html> 

• 搜狐网站诚聘Java、PHP和C++工程师
• Windows7在微软WinHEC 2008上揭开神秘面纱

NEG   : -   |  NOT : not | BNOT: ~  | FMT : @  |          |        | 单目  : 最高
MUL   : *   |  DIV : /   | IDIV: \  | MOD : %  |          |        | 乘除模:  1
ADD   : +   |  DEC : -   |          |          |          |        | 加减  :  2
BXOR  : ^   |  BAND: &   | BOR : |  | BSHL: << | BSHR: >> |        | 位运算:  3
MKPAIR:     |  IS  : is  | AS  : as |          |          |        | 测试  :  4
EQ    : ==  |  NE  : !=  | LT  : <  | LE  : <= | GT  : >  | GE: >= | 比较  :  5
AND   : and |  OR  : or  |          |          |          |        | 关系  : 最低

// 代码
 
int dummy = 10;

println(  - dummy);  // NEG
println(not dummy);  // NOT
println(  ~ dummy);  // BNOT
= @"dummy=%(dummy)"; // FMT

// 输出

-10
0
-11
dummy=10

• Windows7在微软WinHEC 2008上揭开神秘面纱
• 搜狐网站诚聘Java、PHP和C++工程师

// 代码
 
= "\"RTFSC!\"", "stands for", "\"Read The F**king Source Code!\"";

// 输出
 
"RTFSC!" stands for "Read The F**ing Source Code!"

// 代码
 
10.times {|int i| print(i + 1 + " ") };

// 输出
 
1 2 3 4 5 6 7 8 9 10

// 代码
 
10.times {|int i| println(i + 1 + " ") };

// 输出
 
1
2
3
4
5
6
7
8
9
10

• 搜狐网站诚聘Java、PHP和C++工程师
• Windows7在微软WinHEC 2008上揭开神秘面纱

// 代码

public variant max(variant v1 v2)
{
  return v1 > v2 ? v1 : v2;
}

= max(1, 2), eol;
= max("hello", "world"), eol;

// 结果
 
2
world

// 代码

bool loop = true;
while (loop) {
  int x = sys::random(10);
  = @"%(x) ";
  if (x == 5) loop = false;
}

// 结果
 
4 2 0 2 6 2 5

// 代码
 
= ${PATH}.replace(";", eol);

// 结果
 
C:\Develop\Perl\site\bin
C:\Develop\Perl\bin
C:\WINDOWS
C:\WINDOWS\System32\Wbem
c:\develop\lysee\bin
C:\Program Files\Haskell\bin
C:\Develop\ghc-6.6.1\bin
C:\Develop\dmd\bin
C:\Develop\dm\bin

{%
public string usr_loginID = "";
public string usr_name = "";

public void checkLoginfo()
{
  string LID = ${cookie.LID}.trim();
  if (LID) {
    dataset ds = openSQL(@"SELECT * FROM bbuser WHERE usr_cookie='%(LID)'");
    if (not ds.eof) {
      usr_loginID = LID;
      usr_name = ds.usr_name.asStr();
    } 
    ds = nil;
  }                                  
}

checkLoginfo();
%}
<script language="javascript">
var usr_loginID = "{%=usr_loginID%}";
var usr_name = "{%=usr_name%}";

document.cookie = "LID=" + usr_loginID;

</script>

• 搜狐网站诚聘Java、PHP和C++工程师
• Windows7在微软WinHEC 2008上揭开神秘面纱

30.times {
  do {
    int a = sys::random(100);
    int b = sys::random(100);
    int c = sys::random(100);
    int d = a+b-c;
  }
  while(d<1 or d > 99);
  = a, "+", b, "-", c, "=", eol;
};
sys::readln();

• 搜狐网站诚聘Java、PHP和C++工程师
• Windows7在微软WinHEC 2008上揭开神秘面纱

(defun foo (n)
  (lambda (i) (incf n i)))

sub foo {
  my ($n) = @_;
  sub {$n += shift}
}

foo: n
  |s|
  s := n.
  ^[:i| s := s+i. ]

function foo(n) {
  return function (i) {
    return n += i
  }
}

def foo(n):
  s = [n]
  def bar(i):
    s[0] += i
    return s[0]
  return bar

def foo(n):
  return lambda i: return n += i

def foo(n):
  lambda i: n += i

def foo(n):
  class acc:
    def __init__(self, s):
        self.s = s
    def inc(self, i):
        self.s += i
        return self.s
  return acc(n).inc

class foo:
  def __init__(self, n):
      self.n = n
  def __call__(self, i):
      self.n += i
      return self.n

public interface Inttoint {
  public int call(int i);
}

public static Inttoint foo(final int n) {
  return new Inttoint() {
    int s = n;
    public int call(int i) {
      s = s + i;
      return s;
    }
  };
}

      Scheme: (define (foo n) (lambda (i) (set! n (+ n i)) n))
      Goo:    (df foo (n) (op incf n_)))
      Arc:    (def foo (n) [++ n -])

• 搜狐网站诚聘Java、PHP和C++工程师
• Windows7在微软WinHEC 2008上揭开神秘面纱

// 代码

public int seed = 0;

public int generator()
{
  ++ seed;
  return seed;
}

// 使用

10.times { = generator() + " " };

// 结果

1 2 3 4 5 6 7 8 9 10

// 代码

public class Generator
{
  public int _seed;
  public int next()
  {
    this._seed = this._seed + 1;
    return this._seed;
  }
}

public Generator generator = Generator();

// 使用

10.times { = generator.next() + " " };

// 结果

1 2 3 4 5 6 7 8 9 10

// 代码

public object generator
{
  public int _seed;
  public int next()
  {
    this._seed = this._seed + 1;
    return this._seed;
  }
}

// 使用

10.times { = generator.next() + " " };

// 结果

1 2 3 4 5 6 7 8 9 10

// 代码

public function init(int seed)
{
  return { ++ seed; return seed };
}

function generator = init(0);

// 使用

10.times { = generator() + " " };

// 结果

1 2 3 4 5 6 7 8 9 10

// 代码

public int init(int seed)
{
  while(true) {
    ++ seed; 
    return seed 
  };
}

function generator = sys::yield(init, [0]);

// 使用

10.times { = generator() + " " };

// 结果

1 2 3 4 5 6 7 8 9 10

// 代码

public int init(int seed)
{
  return seed + __func__.execTimes;
}

function generator = sys::curry(init, [0]);

// 使用

10.times { = generator() + " " };

// 结果

1 2 3 4 5 6 7 8 9 10

// 代码

public variant init(string s)
{
  return s;
  return length(s);
  return {|string who| = who, "said:", s, eol};
}

function generator = sys::yield(init, ["hello world"]);

// 使用

= "length \"" + generator() + "\" is " + generator(), eol;
generator()("LYSEE");

// 结果

length "hello world" is 11
LYSEE said: hello world

• 搜狐网站诚聘Java、PHP和C++工程师
• Windows7在微软WinHEC 2008上揭开神秘面纱