223 lines
		
	
	
		
			5.9 KiB
		
	
	
	
		
			Haxe
		
	
	
	
	
	
		
		
			
		
	
	
			223 lines
		
	
	
		
			5.9 KiB
		
	
	
	
		
			Haxe
		
	
	
	
	
	
|  | /* | ||
|  |  * Copyright (C)2005-2019 Haxe Foundation | ||
|  |  * | ||
|  |  * Permission is hereby granted, free of charge, to any person obtaining a | ||
|  |  * copy of this software and associated documentation files (the "Software"), | ||
|  |  * to deal in the Software without restriction, including without limitation | ||
|  |  * the rights to use, copy, modify, merge, publish, distribute, sublicense, | ||
|  |  * and/or sell copies of the Software, and to permit persons to whom the | ||
|  |  * Software is furnished to do so, subject to the following conditions: | ||
|  |  * | ||
|  |  * The above copyright notice and this permission notice shall be included in | ||
|  |  * all copies or substantial portions of the Software. | ||
|  |  * | ||
|  |  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | ||
|  |  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | ||
|  |  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE | ||
|  |  * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER | ||
|  |  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING | ||
|  |  * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER | ||
|  |  * DEALINGS IN THE SOFTWARE. | ||
|  |  */ | ||
|  | 
 | ||
|  | package hl; | ||
|  | 
 | ||
|  | @:coreType abstract Bytes { | ||
|  | 	extern public inline function new(v:Int) { | ||
|  | 		this = alloc(v); | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "bytes_blit") public function blit(pos:Int, src:Bytes, srcPos:Int, len:Int):Void {} | ||
|  | 
 | ||
|  | 	@:arrayAccess extern public inline function getUI8(pos:Int):Int { | ||
|  | 		return untyped $bgetui8(this, pos); | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:arrayAccess extern public inline function setUI8(pos:Int, value:Int):Int { | ||
|  | 		untyped $bsetui8(this, pos, value); | ||
|  | 		return value; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	extern public inline function getI32(pos:Int):Int { | ||
|  | 		return untyped $bgeti32(this, pos); | ||
|  | 	} | ||
|  | 
 | ||
|  | 	public inline function getUI16(pos:Int):Int { | ||
|  | 		return untyped $bgetui16(this, pos); | ||
|  | 	} | ||
|  | 
 | ||
|  | 	public inline function setUI16(pos:Int, v:Int) { | ||
|  | 		untyped $bsetui16(this, pos, v); | ||
|  | 	} | ||
|  | 
 | ||
|  | 	extern public inline function getF32(pos:Int):F32 { | ||
|  | 		return untyped $bgetf32(this, pos); | ||
|  | 	} | ||
|  | 
 | ||
|  | 	extern public inline function getF64(pos:Int):Float { | ||
|  | 		return untyped $bgetf64(this, pos); | ||
|  | 	} | ||
|  | 
 | ||
|  | 	extern public inline function setI32(pos:Int, value:Int):Void { | ||
|  | 		untyped $bseti32(this, pos, value); | ||
|  | 	} | ||
|  | 
 | ||
|  | 	extern public inline function setF32(pos:Int, value:F32):Void { | ||
|  | 		untyped $bsetf32(this, pos, value); | ||
|  | 	} | ||
|  | 
 | ||
|  | 	extern public inline function setF64(pos:Int, value:Float):Void { | ||
|  | 		untyped $bsetf64(this, pos, value); | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "alloc_bytes") | ||
|  | 	static function alloc(size:Int):Bytes { | ||
|  | 		return null; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "parse_int") | ||
|  | 	public function parseInt(pos:Int, size:Int):Null<Int> { | ||
|  | 		return null; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "parse_float") | ||
|  | 	public function parseFloat(pos:Int, size:Int):Float { | ||
|  | 		return 0.; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "bytes_compare") | ||
|  | 	public function compare(pos:Int, bytes:Bytes, bytesPos:Int, size:Int):Int { | ||
|  | 		return 0; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	#if (hl_ver >= version("1.10.0")) | ||
|  | 	@:hlNative("std", "bytes_compare16") | ||
|  | 	public function compare16(bytes:Bytes, size:Int):Int { | ||
|  | 		return 0; | ||
|  | 	} | ||
|  | 	#end | ||
|  | 
 | ||
|  | 	@:hlNative("std", "bytes_find") | ||
|  | 	public function find(pos:Int, size:Int, bytes:Bytes, bytesPos:Int, bytesSize:Int):Int { | ||
|  | 		return 0; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "bytes_fill") | ||
|  | 	public function fill(pos:Int, size:Int, v:Int):Void {} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "bsort_i32") | ||
|  | 	public function sortI32(pos:Int, length:Int, f:Int->Int->Int):Void {} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "bsort_f64") | ||
|  | 	public function sortF64(pos:Int, length:Int, f:Float->Float->Int):Void {} | ||
|  | 
 | ||
|  | 	/** | ||
|  | 		Please note that you need to retain the original unoffset'ed Bytes so it does not get garbage collected, unless the pointer was not GC allocated.
 | ||
|  | 	**/ | ||
|  | 	@:hlNative("std", "bytes_offset") | ||
|  | 	public function offset(delta:Int):Bytes { | ||
|  | 		return null; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	/** | ||
|  | 		Returns an offset between the two pointers. This might overflow in 64 bits if the addresses of the two pointers differs by more than 4GB | ||
|  | 	**/ | ||
|  | 	@:hlNative("std", "bytes_subtract") | ||
|  | 	public function subtract(other:Bytes):Int { | ||
|  | 		return 0; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "bytes_address") | ||
|  | 	static function get_address(b:Bytes, high:Ref<Int>):Int { | ||
|  | 		return 0; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "bytes_from_address") | ||
|  | 	static function from_address(low:Int, high:Int):Bytes { | ||
|  | 		return null; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	/** | ||
|  | 		Creates an pointer at a given memory address (highly unsafe) | ||
|  | 	**/ | ||
|  | 	public static inline function fromAddress(h:haxe.Int64):Bytes { | ||
|  | 		return from_address(h.low, h.high); | ||
|  | 	} | ||
|  | 
 | ||
|  | 	/** | ||
|  | 		Returns the address value of the bytes. On 32 bit system the upper 32 bits will always be 0 | ||
|  | 	**/ | ||
|  | 	public function address():haxe.Int64 { | ||
|  | 		var high = 0; | ||
|  | 		var low = get_address(this, high); | ||
|  | 		return haxe.Int64.make(high, low); | ||
|  | 	} | ||
|  | 
 | ||
|  | 	public function sub(pos:Int, size:Int) { | ||
|  | 		var b = new Bytes(size); | ||
|  | 		b.blit(0, this, pos, size); | ||
|  | 		return b; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "ucs2length") | ||
|  | 	public function ucs2Length(bytePos:Int):Int { | ||
|  | 		return 0; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "hash") | ||
|  | 	function hash():Int { | ||
|  | 		return 0; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "utf8_to_utf16") | ||
|  | 	public function utf8ToUtf16(bytePos:Int, outSize:Ref<Int>):Bytes { | ||
|  | 		return null; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:hlNative("std","utf16_to_utf8") | ||
|  | 	public function utf16ToUtf8(len:Int, outSize:Ref<Int>) : Bytes { | ||
|  | 		return null; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "ucs2_upper") | ||
|  | 	function ucs2Upper(bytePos:Int, size:Int):Bytes { | ||
|  | 		return null; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "ucs2_lower") | ||
|  | 	function ucs2Lower(bytePos:Int, size:Int):Bytes { | ||
|  | 		return null; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "url_encode") | ||
|  | 	function urlEncode(outSize:Ref<Int>):Bytes { | ||
|  | 		return null; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "url_decode") | ||
|  | 	function urlDecode(outSize:Ref<Int>):Bytes { | ||
|  | 		return null; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:hlNative("std", "value_to_string") | ||
|  | 	public static function fromValue(v:Dynamic, length:Ref<Int>):Bytes { | ||
|  | 		return null; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	/** | ||
|  | 		Get the bytes reference from an array of basic types (no copy occurs) | ||
|  | 	**/ | ||
|  | 	extern public static inline function getArray<T>(a:Array<T>):Bytes { | ||
|  | 		return untyped $abytes(a); | ||
|  | 	} | ||
|  | 
 | ||
|  | 	@:from | ||
|  | 	public static inline function fromBytes(bytes:haxe.io.Bytes) { | ||
|  | 		return @:privateAccess bytes.b; | ||
|  | 	} | ||
|  | 
 | ||
|  | 	public inline function toBytes(len:Int) { | ||
|  | 		return @:privateAccess new haxe.io.Bytes(this, len); | ||
|  | 	} | ||
|  | } |