optimize libmd5.nas & test/md5.nas

README.md

@@ -124,7 +124,7 @@ in __`linux/macOS/Unix`__:
 
 ## __How to Use__
 
-First we should learn how to write a program using this language,
+First we should learn how to write and run a program using this language,
 click to see the [__tutorial__](#tutorial).
 
 Input this command to run scripts __directly__:
@@ -184,6 +184,13 @@ If your system is __`Windows`__ and you want to output unicode,please use this c
 
 > chcp 65001
 
+or you could write this in your nasal code:
+
+```javascript
+if(os.platform()=="windows")
+    system("chcp 65001");
+```
+
 ## __Tutorial__
 
 Nasal is really __easy__ to learn.

module/libmd5.nas

@@ -1,8 +1,10 @@
 import("lib.nas");
 
-var md5=func(str){
+var md5=func(){
     var lib=dylib.dlopen("./module/libmd5"~(os.platform()=="windows"?".dll":".so"));
-    var res=dylib.dlcall(dylib.dlsym(lib,"nas_md5"),str);
+    var sym=dylib.dlsym(lib,"nas_md5");
-    dylib.dlclose(lib);
+    var call=dylib.dlcall;
-    return res;
+    return func(s){
-}
+        return call(sym,s);
+    };
+}();

test/md5.nas

@@ -1,44 +1,39 @@
 import("lib.nas");
 
-
 var check=func(x){
+    if(x<0x100000000)
+        return x;
     return x-int(x/0x100000000)*0x100000000;
 }
 var u32_bits_and=func(x,y){
-    x=check(x);
+    (x,y)=(check(x),check(y));
-    y=check(y);
     var (res,op)=(0,1);
     for(var i=0;i<32;i+=1){
         var (tmpx,tmpy)=(x-int(x/2)*2,y-int(y/2)*2);
         res+=op*(tmpx==1 and tmpy==1);
-        x=int(x/2);
+        (x,y)=(int(x/2),int(y/2));
-        y=int(y/2);
         op*=2;
     }
     return res;
 }
 var u32_bits_or=func(x,y){
-    x=check(x);
+    (x,y)=(check(x),check(y));
-    y=check(y);
     var (res,op)=(0,1);
     for(var i=0;i<32;i+=1){
         var (tmpx,tmpy)=(x-int(x/2)*2,y-int(y/2)*2);
         res+=op*(tmpx==1 or tmpy==1);
-        x=int(x/2);
+        (x,y)=(int(x/2),int(y/2));
-        y=int(y/2);
         op*=2;
     }
     return res;
 }
 var u32_bits_xor=func(x,y){
-    x=check(x);
+    (x,y)=(check(x),check(y));
-    y=check(y);
     var (res,op)=(0,1);
     for(var i=0;i<32;i+=1){
         var (tmpx,tmpy)=(x-int(x/2)*2,y-int(y/2)*2);
         res+=op*(tmpx!=tmpy);
-        x=int(x/2);
+        (x,y)=(int(x/2),int(y/2));
-        y=int(y/2);
         op*=2;
     }
     return res;
@@ -54,22 +49,25 @@ var u32_bits_not=func(x){
     return res;
 }
 
-var hex32str=func(num){
+var hex32str=func(){
     var ch=["0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f"];
+    var tbl=[];
+    setsize(tbl,256);
+    for(var i=0;i<16;i+=1){
+        for(var j=0;j<16;j+=1)
+            tbl[i*16+j]=ch[i]~ch[j];
+    }
+    return func(num){
         var res="";
         for(var i=0;i<4;i+=1){
-        var tmp="";
+            res~=tbl[u32_bits_and(num,0xff)];
-        for(var j=0;j<2;j+=1){
+            num=int(num/256);
-            tmp=ch[u32_bits_and(num,0x0f)]~tmp;
-            num=int(num/16);
-        }
-        res~=tmp;
         }
         return res;
-}
+    };
-
+}();
-var _md5=func(s){
 
+var _md5=func(){
     var K=[
         0xd76aa478, 0xe8c7b756, 0x242070db, 0xc1bdceee, 0xf57c0faf, 0x4787c62a, 0xa8304613, 0xfd469501,
         0x698098d8, 0x8b44f7af, 0xffff5bb1, 0x895cd7be, 0x6b901122, 0xfd987193, 0xa679438e, 0x49b40821,
@@ -135,15 +133,23 @@ var _md5=func(s){
             u32_bits_or(x,u32_bits_not(z))
         );
     }
+    var functions=[
+        F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,
+        G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,
+        H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,H,
+        I,I,I,I,I,I,I,I,I,I,I,I,I,I,I,I
+    ];
 
+    return func(s){
         var len=size(s)*8;
         var res=[];
         setsize(res,len);
-    var v=[128,64,32,16,8,4,2,1];
         for(var i=0;i<size(s);i+=1){
             var c=s[i];
+            var v=128;
             for(var j=0;j<8;j+=1){
-            res[i*8+j]=(bits.bitand(c,v[j])?1:0);
+                res[i*8+j]=(bits.bitand(c,v)?1:0);
+                v=int(v/2);
             }
         }
         # +------len------+--1~512--+--64--+
@@ -151,41 +157,48 @@ var _md5=func(s){
         # +---------------+---------+------+ N*512
         var mod=size(res)-int(size(res)/512)*512;
         if(mod==448){
-        append(res,1);
+            var i=size(res);
-        for(var i=0;i<511;i+=1)
+            setsize(res,i+512);
-            append(res,0);
+            res[i]=1;
+            for(i+=1;i<size(res);i+=1)
+                res[i]=0;
         }elsif(mod<448){
-        append(res,1);
+            var i=size(res);
-        mod+=1;
+            setsize(res,int(i/512)*512+448);
-        for(;mod<448;mod+=1)
+            res[i]=1;
-            append(res,0);
+            for(i+=1;i<size(res);i+=1)
+                res[i]=0;
         }elsif(mod>448){
-        append(res,1);
+            var i=size(res);
-        mod+=1;
+            setsize(res,int(i/512)*512+960); # 512+448=960
-        # 512+448=960
+            res[i]=1;
-        for(;mod<960;mod+=1)
+            for(i+=1;i<size(res);i+=1)
-            append(res,0);
+                res[i]=0;
         }
-    var (tmp,cnt,t)=([],0,0);
+
+        # translate bits to bytes and reserve 64bit space for string length
+        var (tmp,cnt,t,index)=([],0,0,0);
+        setsize(tmp,int(size(res)/8)+8);
         foreach(var i;res){
             if(!cnt) t=i;
             else     t=t*2+i;
             cnt+=1;
             if(cnt==8){
+                tmp[index]=t;
+                index+=1;
                 cnt=0;
-            append(tmp,t);
             }
         }
 
         # little endian, this may have number overflow bug
         # if the number is too large
-    var (lower32,higher32)=(check(len),check(len/math.pow(2,32)));
+        var (tmp_size,lower32,higher32)=(size(tmp),check(len),check(len/math.pow(2,32)));
-    for(var i=0;i<4;i+=1){
+        for(var i=4;i>0;i-=1){
-        append(tmp,int(lower32-int(lower32/256)*256));
+            tmp[tmp_size-4-i]=int(lower32-int(lower32/256)*256);
             lower32=int(lower32/256);
         }
-    for(var i=0;i<4;i+=1){
+        for(var i=4;i>0;i-=1){
-        append(tmp,int(higher32-int(higher32/256)*256));
+            tmp[tmp_size-i]=int(higher32-int(higher32/256)*256);
             higher32=int(higher32/256);
         }
         res=tmp;
@@ -211,16 +224,14 @@ var _md5=func(s){
         for(var i=0;i<size(res);i+=16){
             var (f,a,b,c,d)=(0,A,B,C,D);
             for(var j=0;j<64;j+=1){
-            if(j<16)    f=F(b,c,d);
+                f=functions[j](b,c,d);
-            elsif(j<32) f=G(b,c,d);
-            elsif(j<48) f=H(b,c,d);
-            else        f=I(b,c,d);
                 (a,b,c,d)=(d,check(b+rol(a+f+K[j]+res[i+idx[j]],S[j])),b,c);
             }
             (A,B,C,D)=(check(a+A),check(b+B),check(c+C),check(d+D));
         }
         return hex32str(A)~hex32str(B)~hex32str(C)~hex32str(D);
-}
+    };
+}();
 
 # check if md5 runs correctly
 var md5check=func(){

test/md5compare.nas

@@ -4,12 +4,13 @@ import("test/md5.nas");
 
 rand(time(0));
 
-var compare=func(total){
+var compare=func(){
     var ch=[
         "0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f","+",
         "_","*","/","\'","\"",".",",",";",":","<",">","!","@","#","$","%",
         "^","&","*","(",")","-","=","\\","|","[","]","{","}","`"," ","\t","?"
     ];
+    return func(total){
         var (prt,lastpercent,percent)=("",0,0);
         for(var i=1;i<=total;i+=1){
             var s="";
@@ -31,7 +32,8 @@ var compare=func(total){
             print(" |",tmp,"| ",percent,"% (",i,"/",total,")\t",res,"    \r");
         }
         print('\n');
-}
+    };
+}();
 
 var filechecksum=func(){
     var getname=func(s){