aview-app 1.0.2

package/aardio/lib/raw/fasm/_.aardio

@@ -0,0 +1,138 @@
+import fsys;
+namespace raw.fasm;
+
+var dll = ..raw.loadDll($"~/lib/raw/fasm/.res/fasm.dll","fasm")
+
+class FASM_STATE{
+	INT condition;
+	INT length;
+	pointer outputData;
+}
+
+class FASM_STATE_ERROR{
+	INT condition;
+	int errorCode;
+	pointer errorLine;
+} 
+
+var GetVersion = dll.api("fasm_GetVersion","INT()")
+var Assemble = dll.api("fasm_Assemble","int(pointer lpSource,pointer lpMemory,INT cbMemorySize,INT nPassesLimit,pointer hDisplayPipe)" )
+var AssembleFile = dll.api("fasm_AssembleFile","int(pointer lpSourceFile,pointer lpMemory,INT cbMemorySize,INT nPassesLimit,pointer hDisplayPipe)" )
+
+getVersion = function(){
+	var v = GetVersion();
+	return v&0xFF,v>>16
+}
+
+FASMERR = {
+	[-107]="Invalid argument";
+	[-123]="Invalid use of symbol";
+	[-108]="Illegal instruction";
+	[-124]="Name too long";
+	[-109]="Invalid operand";
+	[-125]="Invalid name";
+	[-110]="Invalid operand size";
+	[-126]="Reserved word used as symbol";
+	[-111]="Operand size not specified";
+	[-127]="Symbol already defined";
+	[-112]="Operand sizes do not match";
+	[-128]="Missing end quote";
+	[-113]="Invalid address size";
+	[-129]="Missing end directive";
+	[-130]="Unexpected instruction";
+	[-114]="Address sizes do not agree";
+	[-131]="Extra characters on line";
+	[-132]="Section not aligned enough";
+	[-115]="Disallowed combination of registers";
+	[-133]="Setting already specified";
+	[-134]="Data already defined";
+	[-116]="Long immediate not encodable";
+	[-135]="Too many repeats";
+	[-101]="File not found";
+	[-117]="Relative jump out of range";
+	[-102]="Error reading file";
+	[-118]="Invalid expression";
+	[-140]="User error";
+	[-119]="Invalid address";
+	[-141]="Assertion failed";
+	[-104]="Invalid macro arguments";
+	[-120]="Invalid value";
+	[-105]="Incomplete macro";
+	[-121]="Value out of range";
+	[-103]="Invalid file format";
+	[-106]="Unexpected characters";
+	[-122]="Undefined symbol";
+	[-136]="Symbol out of scope" 
+}
+
+FASM_RETCODE = {
+	[-1] = "Invalid Parameter"; 
+	[-3] = "Stack Overflow"; 
+	[-4] = "Source not found"; 
+	[-5] = "Unexpected end of source";
+	[-6] = "Cannot Generate Code";
+	[-7] = "Format Limitations Exceeded";
+	[-8] = "Write Failed"; 
+}
+
+assemble = function(code,size = 0x800000,nPassesLimit=100,hPipe,isFile){ 
+	..fsys.setCurDir("/");
+	
+	var buffer = ..raw.buffer(24 + size );
+	
+	..thread.lock("FASM{A9F97D8C-11AA-49FF-A722-C14690E03151}");
+	var ret = ( (!isFile)? Assemble : AssembleFile )(code,buffer,24 + size,nPassesLimit,hPipe);
+	..thread.unlock("FASM{A9F97D8C-11AA-49FF-A722-C14690E03151}");
+	
+	if( ret == 0/*_FASM_OK*/ ){
+		var state = ..raw.convert(buffer,FASM_STATE() );
+		var bin = ..raw.tostring( topointer(state.outputData),1,state.length);
+		return bin; 
+	}
+	elseif( ret = -2/*_FASM_OUT_OF_MEMORY*/ ){ 
+		return null,"缓冲区溢出",0;
+	}
+	elseif( ret = 2/*_FASM_ERROR*/ ){
+		var state = ..raw.convert(buffer,FASM_STATE_ERROR() );  
+		var lineHeader = ..raw.convert( state.errorLine,{
+			string filePath;
+  			int lineNumber;
+  			INT fileOffset; 
+  			INT macroLine;
+		} );
+		return null,FASMERR[state.errorCode],lineHeader.lineNumber,lineHeader;
+	} 
+	return null,FASM_RETCODE[ret] or "未知错误",0 
+}
+
+assemble32 = function(code,size,nPassesLimit,hPipe){
+	var b,e,line,h = assemble( 'use32\n' + code,size,nPassesLimit,hPipe);
+	if( (!b) ? line ) line--;
+	return b,e,line,h;
+}
+
+assembleFile = function(path,size = 0x1000000,nPassesLimit=100,hPipe){ 
+
+	var fullpath = ..io.exist(path);
+	if( !fullpath) {
+		if( ..io.localpath(path) ){ 
+			var code = ..string.load(path)
+			if(code) return assemble(code,size,nPassesLimit,hPipe);
+		}
+		return null,"错误的文件路径";
+	} 
+	return assemble(fullpath,size,nPassesLimit,hPipe,true) 
+}
+ 
+/**intellisense()
+raw.fasm = fasm(flat assembler) 汇编语言编译器
+raw.fasm.assemble32(.("汇编代码",缓冲区大小) = 编译返回32位机器码,缓冲区大小为可选参数 - 默认为8MB\n出错返回null,错误信息,错误行号
+raw.fasm.assemble(.("汇编代码",缓冲区大小) = 编译返回机器码,缓冲区大小为可选参数 - 默认为8MB\n出错返回null,错误信息,错误行号
+raw.fasm.assembleFile(.("汇编源码文件路径",缓冲区大小) = 编译返回机器码,缓冲区大小为可选参数 - 默认为8MB\n出错返回null,错误信息,错误行号
+raw.fasm.getVersion() = 返回编译器版本
+
+_FASM_OK=@0/*_FASM_OK*/
+_FASM_WORKING=@1/*_FASM_WORKING*/
+_FASM_ERROR=@2/*_FASM_ERROR*/ 
+_FASM_OUT_OF_MEMORY=@-2/*_FASM_OUT_OF_MEMORY*/ 
+end intellisense**/ 

package/aardio/lib/raw/functions.aardio

@@ -0,0 +1,78 @@
+//functions 函数接口
+namespace raw;
+ 
+var convert = ..raw.convert;
+class functions{
+	ctor( inObject,itface,cal="stdcall" ){   
+		if(!inObject) error("无效的接口(参数@1)",2);
+		var inObjectType = type(inObject);
+		if( inObjectType == "number" ) inObject = topointer(inObject);
+		
+		var outStruct;
+		var itfaceType = type(itface);	
+		if( itfaceType == "string" ) {
+			var s = {}; 
+			outStruct = {}
+			for r,f,a in ..string.gmatch(itface ,"(\S+)\s+(\S+)(%())") { 
+				..table.push(s,"ptr " + f);
+				outStruct[f] = r ++ a;
+			}
+			outStruct._struct = ..string.join(s,';' );
+		}
+		elseif( itfaceType == "class" ) {
+			outStruct = itface();
+		}
+		else {
+			error("参数@2类型错误",2);
+		}
+		
+		var outObjectFuncProto = {};
+		for( k,proto in outStruct){  
+			if( type(proto) != "string" ) continue;
+			outObjectFuncProto[k] = proto;
+		}
+		
+		if( (inObjectType == "table") && (!inObjectType@) ){
+			var createCallback = ..raw["to"+cal];
+			if( !createCallback ) error("实现接口仅支持stdcall,cdecl,fastcall调用约定!",2);
+			 
+			for( k,proto in outObjectFuncProto){  
+				ptr = inObject[k];
+				if( (!proto) || ( type(ptr) != "function" )   ){ 
+					continue; 
+				} 
+				outStruct[k] = createCallback(inObject[k],proto,this);
+				this[k] = inObject[k];
+			} 
+			
+			this.__thisPointer = ..raw.buffer(outStruct);
+		}
+		else {
+			outStruct = convert( inObject ,outStruct ) ;
+			
+			var app = ..raw.module(cal); 
+			var proto; 
+			for(k,ptr in outStruct){
+				if(( type(ptr) != "pointer" ) || ( type(k) != "string" ) ){
+					if(k!="_struct") this[k] = ptr;
+					continue;
+				}
+				proto = outObjectFuncProto[k];
+				if( !#proto ){
+					this[k] = app[ptr];
+					continue; 
+				}
+				
+				this[k] = app.api(ptr,proto,cal);
+			}
+			
+			this.__thisPointer = inObject;
+		}
+	}
+	@{_topointer = this.__thisPointer}
+} 
+
+/**intellisense()
+raw.functions = 用于将结构体指针绑定到静态类型接口\n与raw.interface的区别是结构体中的函数指针不使用虚表,不使用this指针参数,其他用法相同,\n添加不属于接口的aardio自定义函数，必须用owner代替this访问当前接口对象
+raw.functions() = @.functions( __/*结构体指针*/,"\n	void getName(string &buffer,int len);\n	bool getInfo(struct &pInfo); \n	","stdcall"\n)
+end intellisense**/

package/aardio/lib/raw/interface.aardio

@@ -0,0 +1,83 @@
+//interface 静态接口
+namespace raw;
+ 
+var convert = ..raw.convert;
+class interface{
+	ctor( inObject,itface,cal="stdcall" ){   
+		if(!inObject) error("无效的接口(参数@1)",2);
+		var inObjectType = type(inObject);
+		if( inObjectType == "number" ) inObject = topointer(inObject);
+		
+		var outStruct;
+		var itfaceType = type(itface);	
+		if( itfaceType == "string" ) {
+			var s = {}; 
+			outStruct = {}
+			for r,f,a in ..string.gmatch(itface ,"(\S+)\s+(\S+)(%())") { 
+				..table.push(s,"ptr " + f);
+				outStruct[f] = r ++ a;
+			}
+			outStruct._struct = ..string.join(s,';' );
+		}
+		elseif( itfaceType == "class" ) {
+			outStruct = itface();
+		}
+		else {
+			error("参数@2类型错误",2);
+		}
+		
+		var outObjectFuncProto = {};
+		for( k,proto in outStruct){  
+			if( type(proto) != "string" ) continue;
+			outObjectFuncProto[k] = proto;
+		}
+		
+		if( (inObjectType == "table") && (!inObjectType@) ){
+			var createCallback = ..raw["to"+cal];
+			if( !createCallback ) error("实现接口仅支持stdcall,cdecl,fastcall调用约定!",2);
+			 
+			for( k,proto in outObjectFuncProto){  
+				ptr = inObject[k];
+				if( (!proto) || ( type(ptr) != "function" )   ){ 
+					continue; 
+				} 
+				outStruct[k] = createCallback(function(p,...){ return inObject[k](...)} 
+					, ..string.replace(proto,"\(","(ptr,"),this);
+				this[k] = inObject[k];
+			} 
+			 
+			this.__vtbl = ..raw.buffer(outStruct);
+			this.__thisPointer = ..raw.buffer({ pointer __vtbl = this.__vtbl });
+		}
+		else {
+			outStruct = convert( convert( inObject,{ pointer __vtbl } ).__vtbl ,outStruct ) ;
+			
+			var app = ..raw.module(cal); 
+			var proto; 
+			for(k,ptr in outStruct){
+				if(( type(ptr) != "pointer" ) || ( type(k) != "string" ) ){
+					if(k!="_struct") this[k] = ptr;
+					continue;
+				}
+				proto = outObjectFuncProto[k];
+				if( !#proto ){ 
+					var safefunc = app[ptr];
+					this[k] = function(...){ 
+						var ret = safefunc(inObject,...)
+						return ret;
+					} 
+					continue; 
+				}
+				this[k] = app.api(ptr,proto,cal,inObject);//声明API时,可选使用第四个参数指定this指针
+			}
+			
+			this.__thisPointer = inObject;//gc
+		}
+	}
+	@{_topointer = this.__thisPointer}
+} 
+
+/**intellisense()
+raw.interface = 用于将接口指针绑定到静态类型接口\nC++类中的成员函数请使用virtual关键字声明为虚函数\n接口类中的自定义函数必须用 owner 代替this,\nowner才是实例对象,this指向的是接口定义结构体
+raw.interface() = @.interface( __/*接口指针或地址数值*/,"\n	void getName(string &buffer,int len);\n	bool getInfo(struct &pInfo); \n	","thiscall"\n)
+end intellisense**/

package/aardio/lib/raw/jsonCall.aardio

@@ -0,0 +1,18 @@
+//jsonCall 函数指针
+import web.json;
+
+class raw.jsonCall{
+	ctor( callback  ){
+ 		return ..raw.tostdcall(
+			function(json,size){
+				json = ..raw.tostring(json,1,size);
+				var args = ..web.json.parse(json);
+				return callback(..table.unpackArgs(args)); 
+			},"int(ptr json,INT size)");
+		)
+	}; 
+}
+
+/**intellisense()
+raw.jsonCall(__) = 参数 @1 指定回调函数，\n返回 stdcall 函数指针，参数类型声明为 "int(ptr json,INT size)"。\n\n通过该函数指针调用时应传入表示数组的 JSON，\nraw.jsonCall 将 JSON 展开为参数列表并调用指定的回调函数，\n回调函数返回值应为数值或 null
+end intellisense**/

package/aardio/lib/raw/memory.aardio

@@ -0,0 +1,86 @@
+//memory 全局堆内存
+namespace raw;
+
+class memory{
+	ctor( size,defVal,flag = 0x42/*_GHND*/,gc){{ 
+		var lenVal;
+		if( defVal[["_struct"]] ) lenVal = ..raw.sizeof(defVal);
+		else lenVal = #defVal;
+		 
+		if(size===null) size = lenVal;
+		size = size + ( 16 - ( size % 16 )  ); //must be multiple of 16 bytes
+		this.hMemory = ::GlobalAlloc(size,flag);
+		this.flag = flag;
+		
+		if(!this.hMemory) return null,..lasterr()
+		
+		if( defVal ){
+			var p = ::GlobalLock( this.hMemory );
+			if( defVal[["_struct"]] ){
+				::CopyMemoryByStruct(p,defVal,..math.min(lenVal,size )  );
+			}
+			else {
+				::CopyMemory(p,defVal,..math.min(lenVal,size ) );
+			}
+				
+			::GlobalUnlock( this.hMemory )
+		}
+		
+		if( gc ) ..table.gc(this,"free")
+	} };
+	realloc = function(size,flag){
+		size = size + ( 16 - ( size % 16 )  )
+		
+		if( flag !== null )this.flag = flag;
+		this.hMemory = ::GlobalReAlloc( this.hMemory,size,this.flag );
+		
+		if(!this.hMemory) return null,..lasterr()
+		return this;
+	}
+	lockPointer = function(){
+		return ::GlobalLock( this.hMemory );
+	}
+	unLockPointer = function(){
+		return ::GlobalUnlock( this.hMemory );
+	}
+	size  = function(){
+		return ::GlobalSize( this.hMemory );
+	}
+	free = function(){
+		if(this.hMemory){
+			::GlobalFree( this.hMemory )
+			this.hMemory = null;
+		}
+	} 
+	@{ _topointer = this.hMemory }
+}
+
+var memory = memory;
+ 
+namespace memory{
+	allocPointer = function(size,defVal,gc=true){
+		return memory(size,defVal,0x40/*_GPTR*/,gc )
+	}
+	allocHandle = function(size,defVal,gc){
+		return memory(size,defVal,0x42/*_GHND*/,gc )
+	} 
+}
+
+/**intellisense(raw)
+memory = 调用::GlobalAlloc分配内存
+memory.allocPointer(.(内存大小,填充数据) = 分配内存并返回指针\n无需lock即可直接使用指针,\n可选使用结构体或字符串等指定默认填充数据\n指定默认值时可以省略参数@1\n可选使用参数3指定是否自动析构,默认值为true
+memory.allocHandle(.(内存大小,填充数据) = 分配全局堆内存并返回句柄,\n可选使用结构体或字符串等指定默认填充数据\n指定默认值时可以省略参数@1
+memory(.(内存大小,填充数据) = 分配全局堆内存并返回句柄,\n可选使用结构体或字符串等指定默认填充数据\n指定默认值时可以省略参数@1
+memory.allocPointer() = !raw_memory.
+memory.allocHandle() = !raw_memory.
+memory() = !raw_memory.
+end intellisense**/
+
+/**intellisense(!raw_memory) 
+realloc(.(内存大小) = 调整内存大小,\n内存指针只能缩小,而内存句柄可以任意调整大小
+realloc() = !raw_memory.
+lockPointer() = 返回可用内存指针
+unLockPointer() = 释放内存指针
+size() = 返回内存大小
+free() = 释放内存
+end intellisense**/