tst019.mal

一个内存数据库的源代码这是服务器端还有客户端

function welcome(lim:int):void;
    i:= 2;
    w:="hello";
    return w;   # should produce a type error
end welcome;

function welcome0(lim:int):str;
    i:= 2;
    w:="hello";
    return (w,i);   # should produce a type error
end welcome0;

function welcome1(lim:int):str;
    i:= 2;
    return w:="hello"; 
end welcome1;

function welcome2(lim:int):str;
    i:= 2;
    w:="hello"; 
    return w;
end welcome2;

function welcome3(lim:int)(w:str,i:int);
    i:= 2;
    return w:="hello"; #illegal return statement
end welcome3;

function welcome4(lim:int)(w:str,i:int);
    i:= 2;
    return (w,i):="hello"; #illegal return statement
end welcome4;

function welcome5(lim:int)(:str,:int);
    i:= 2;
    return (w,i):=("hello",2); 
end welcome5;

y:= user.welcome1(1);
io.print(y);
y:= user.welcome2(1);
io.print(y);

(x,y):= user.welcome2(1);