Core Function Vec - Revision history

UberFoX at 16:15, 26 June 2015

2015-06-26T16:15:08Z

← Older revision		Revision as of 16:15, 26 June 2015
Line 455:		Line 455:
	// 3.14159265358979		// 3.14159265358979
	// 1.79769313486232E+308		// 1.79769313486232E+308
		+	</syntaxhighlight>
		+
		+	Example of using a bit value lower than 8 to set the bits instead of bytes
		+
		+	<syntaxhighlight lang="sputnik">
		+	// Enum to store the privs
		+	Enum Privs
		+	{
		+	$DeleteFile = 0,
		+	$UploadFile = 1,
		+	$DownloadFile = 2,
		+	$RenameFile = 3,
		+	$MoveFile = 4,
		+	$CreateFolder = 5,
		+	$DeleteFolder = 6,
		+	$RenameFolder = 7,
		+	$MoveFolder = 8,
		+	$ReadChat = 9,
		+	$SendChat = 10,
		+	$CreateChat = 11,
		+	$CloseChat = 12
		+	};
		+	// A simple function to print what privs are enabled
		+	Function PrintPrivs( $data )
		+	{
		+	foreach( Enumerate('Privs') as my $Key => my $Value )
		+	{
		+	my $Status = Vec($data, $Value, 1);
		+	if($Status) // Only show privs we can use
		+	say "Priv '$Key' Access is '$Status'";
		+	}
		+	}
		+	// Define a variable to hold the bit vector
		+	my $Access = null;
		+	// Set privs in the bit vector
		+	Vec($Access, Privs->$UploadFile, 1) = true;
		+	Vec($Access, Privs->$CreateFolder, 1) = true;
		+	Vec($Access, Privs->$ReadChat, 1) = true;
		+	Vec($Access, Privs->$CloseChat, 1) = true;
		+	// Print the privs from the bit vector
		+	say "Print Privs";
		+	PrintPrivs($Access);
		+	// Print the binary of the bit vector
		+	printr $access;
		+	// PRINTS
		+	// Priv 'uploadfile' Access is '1'
		+	// Priv 'createfolder' Access is '1'
		+	// Priv 'readchat' Access is '1'
		+	// Priv 'closechat' Access is '1'
		+	// Binary
		+	// (
		+	// [0] => 34
		+	// [1] => 18
		+	// )
	</syntaxhighlight>		</syntaxhighlight>

	[[Category:Core Function]]		[[Category:Core Function]]

UberFoX at 02:22, 26 June 2015

2015-06-26T02:22:42Z

← Older revision		Revision as of 02:22, 26 June 2015
Line 13:		Line 13:
	Treats the binary variable in EXPRESSION as a bit vector made up of elements of width bits and returns the value of the element specified by OFFSET as an unsigned integer and optionally sets BITS in the binary variable to a given value.		Treats the binary variable in EXPRESSION as a bit vector made up of elements of width bits and returns the value of the element specified by OFFSET as an unsigned integer and optionally sets BITS in the binary variable to a given value.

−	BITS therefore specifies the number of bits that are reserved for each element in the bit vector. This must be a power of two ~~from 1 to 64~~.	+	BITS therefore specifies the number of bits that are reserved for each element in the bit vector. This must from 1 to 64 however if it ranges from higher than 8 it must be in a power of two (below 8 does not have this limit).

	If BITS is 8, "elements" coincide with bytes of the input binary variable.		If BITS is 8, "elements" coincide with bytes of the input binary variable.
Line 61:		Line 61:
	BITS specifies the number of bits that are reserved for each element in the bit vector.		BITS specifies the number of bits that are reserved for each element in the bit vector.

−	This must be a power of two from 1 to 64.	+	This must be a power of two IF the number is from 8 to 64 however numbers BELOW 8 are not required to be a power of two.

	==== value ====		==== value ====

UberFoX: /* Example */

2015-06-15T09:38:23Z

Example

← Older revision		Revision as of 09:38, 15 June 2015
Line 100:		Line 100:

	=== Example ===		=== Example ===
		+
		+	Bits example
		+
		+	<syntaxhighlight lang="sputnik">
		+	my $vec = null;
		+	vec($vec, 3, 4) = 1; # bits 0 to 3
		+	vec($vec, 7, 4) = 10; # bits 4 to 7
		+	vec($vec, 11, 4) = 3; # bits 8 to 11
		+	vec($vec, 15, 4) = 15; # bits 12 to 15
		+	# As there are 4 bits per number this can
		+	# be decoded by unpack() as a hex number
		+	my $hex = UnpackSingle("h*", $vec);
		+	print("vec() Has a created a string of nybbles, in hex: $hex\n");
		+	// PRINTS:
		+	// vec() Has a created a string of nybbles, in hex: 0001000A0003000F
		+	</syntaxhighlight>

	Example of packing two floating point numbers into a bit vector then retrieving them later		Example of packing two floating point numbers into a bit vector then retrieving them later

UberFoX: /* Description */

2015-06-15T09:37:54Z

Description

← Older revision		Revision as of 09:37, 15 June 2015
Line 13:		Line 13:
	Treats the binary variable in EXPRESSION as a bit vector made up of elements of width bits and returns the value of the element specified by OFFSET as an unsigned integer and optionally sets BITS in the binary variable to a given value.		Treats the binary variable in EXPRESSION as a bit vector made up of elements of width bits and returns the value of the element specified by OFFSET as an unsigned integer and optionally sets BITS in the binary variable to a given value.

−	BITS therefore specifies the number of bits that are reserved for each element in the bit vector. This must be a power of two from 1 to 32.	+	BITS therefore specifies the number of bits that are reserved for each element in the bit vector. This must be a power of two from 1 to 64.

	If BITS is 8, "elements" coincide with bytes of the input binary variable.		If BITS is 8, "elements" coincide with bytes of the input binary variable.

UberFoX: /* Example */

2015-06-15T08:08:04Z

Example

← Older revision		Revision as of 08:08, 15 June 2015
Line 123:		Line 123:
	</syntaxhighlight>		</syntaxhighlight>

−	~~Convert~~ a bit vector ~~to to a binary array~~	+	Print a bit vector

	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">
Line 130:		Line 130:
	printf "\$foo is: %s\n", (string)$foo;		printf "\$foo is: %s\n", (string)$foo;
	# $foo is: Sputnik		# $foo is: Sputnik
−	~~$bin = BinaryFromStr(~~$foo);	+	printr $foo;
−	~~printr $bin~~;	+
	# {BINARY:8}		# {BINARY:8}
	# {		# {
Line 145:		Line 144:
	</syntaxhighlight>		</syntaxhighlight>

−	~~Convert binary array to a bit vector~~	+	Binary and Vec vectors are the same thing

	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">

UberFoX: 3 revisions

2015-06-14T12:37:39Z

3 revisions

← Older revision

Revision as of 12:37, 14 June 2015

UberFoX: /* Example */

2015-06-13T06:05:15Z

Example

← Older revision		Revision as of 06:05, 13 June 2015
Line 361:		Line 361:
	...		...
	...		...
		+	</syntaxhighlight>
		+
		+	Are you wondering how to place Floating points into a Vec()? Here is how
		+
		+	<syntaxhighlight lang="sputnik">
		+	// Convert a Float to an Integer (32-bits)
		+	Function FpuToInt($value)
		+	{
		+	return UnpackSingle('i', PackSingle('f', $value));
		+	}
		+	// Convert a Integer to an Float (32-bits)
		+	Function IntToFpu($value)
		+	{
		+	return UnpackSingle('f', PackSingle('i', $value));
		+	}
		+
		+	// Now we get started
		+
		+	// Create a variable to hold the Vec
		+	// NULL is fine since it at least created
		+	// the variable
		+	my $vec = null;
		+	// Add some floating points to the vec
		+	Vec($vec, 0, 32) = FpuToInt(133.42);
		+	Vec($vec, 1, 32) = FpuToInt(777.42);
		+	Vec($vec, 2, 32) = FpuToInt(@PI);
		+	Vec($vec, 3, 32) = FpuToInt(@FloatMax);
		+
		+	// Read the floating points from the vec
		+	say IntToFpu(Vec($vec, 0, 32));
		+	say IntToFpu(Vec($vec, 1, 32));
		+	say IntToFpu(Vec($vec, 2, 32));
		+	say IntToFpu(Vec($vec, 3, 32));
		+
		+	// PRINTS:
		+	// 133.42
		+	// 777.42
		+	// 3.141593
		+	// 3.402823E+38
		+	</syntaxhighlight>
		+
		+	Same as above but this time for double precision floating points
		+	<syntaxhighlight lang="sputnik">
		+	// First we define some helper functions
		+
		+	// Convert a Float to an Integer (64-bits)
		+	Function FpuDToInt($value)
		+	{
		+	return UnpackSingle('q', PackSingle('d', $value));
		+	}
		+	// Convert a Integer to an Float (64-bits)
		+	Function IntToFpuD($value)
		+	{
		+	return UnpackSingle('d', PackSingle('q', $value));
		+	}
		+
		+	// Now we get started
		+
		+	// Create a variable to hold the Vec
		+	// NULL is fine since it at least created
		+	// the variable
		+	my $vec = null;
		+	// Add some floating points to the vec
		+	Vec($vec, 0, 64) = FpuDToInt(133.42);
		+	Vec($vec, 1, 64) = FpuDToInt(777.42);
		+	Vec($vec, 2, 64) = FpuDToInt(@PI);
		+	Vec($vec, 3, 64) = FpuDToInt(@DoubleMax);
		+
		+	// Read the floating points from the vec
		+	say IntToFpuD(Vec($vec, 0, 64));
		+	say IntToFpuD(Vec($vec, 1, 64));
		+	say IntToFpuD(Vec($vec, 2, 64));
		+	say IntToFpuD(Vec($vec, 3, 64));
		+
		+	// PRINTS:
		+	// 133.42
		+	// 777.42
		+	// 3.14159265358979
		+	// 1.79769313486232E+308
	</syntaxhighlight>		</syntaxhighlight>

	[[Category:Core Function]]		[[Category:Core Function]]

UberFoX: /* Example */

2015-06-13T05:32:34Z

Example

← Older revision		Revision as of 05:32, 13 June 2015
Line 104:		Line 104:

	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">
−	my $foo = '';	+	my $foo = null;
	vec($foo, 0, 32) = Pack("f", 133.7);		vec($foo, 0, 32) = Pack("f", 133.7);
	vec($foo, 1, 32) = Pack("f", 777.42);		vec($foo, 1, 32) = Pack("f", 777.42);
Line 126:		Line 126:

	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">
−	my $foo = '';	+	my $foo = null;
	vec($foo, 0, 64) = 0x537075746E696B00;		vec($foo, 0, 64) = 0x537075746E696B00;
	printf "\$foo is: %s\n", (string)$foo;		printf "\$foo is: %s\n", (string)$foo;
Line 149:		Line 149:
	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">
	// Create a binary variable		// Create a binary variable
−	$~~bin~~ = Pack("A*", "Zputnik");	+	$vec = Pack("A*", "Zputnik");
−	~~// Convert it to an ASCII string~~	+
−	~~// (To use unicode look into BinaryToStr()~~	+
−	~~$vec = (string)$bin~~;	+

	// Edit the first character		// Edit the first character
Line 200:		Line 197:

	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">
−	my $foo = '';	+	my $foo = null;
	vec($foo, 0, 32) = 0x5065726C; # 'Perl'		vec($foo, 0, 32) = 0x5065726C; # 'Perl'
	echo "Vec: $foo\n"; # Perl		echo "Vec: $foo\n"; # Perl
Line 219:		Line 216:
	</syntaxhighlight>		</syntaxhighlight>

−	The following code will build up an ASCII ~~string~~ saying 'PerlPerlPerl' . The comments show the string after each step. Note that this code works in the same way on big-endian or little-endian machines.	+	The following code will build up an ASCII (in binary format) saying 'PerlPerlPerl' . The comments show the string after each step. Note that this code works in the same way on big-endian or little-endian machines.

	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">
−	my $foo = '';	+	my $foo = null;
	vec($foo, 0, 32) = 0x5065726C; # 'Perl'		vec($foo, 0, 32) = 0x5065726C; # 'Perl'
	# $foo eq "Perl" eq "\x50\x65\x72\x6C", 32 bits		# $foo eq "Perl" eq "\x50\x65\x72\x6C", 32 bits
Line 247:		Line 244:
	</syntaxhighlight>		</syntaxhighlight>

−	The following code will build up an ASCII ~~string~~ saying 'Sputnik' (using 32-Bits)	+	The following code will build up an ASCII (in binary format) saying 'Sputnik' (using 32-Bits)

	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">
−	my $foo = '';	+	my $foo = null;
	vec($foo, 0, 32) = 0x53707574; # 'Sput'		vec($foo, 0, 32) = 0x53707574; # 'Sput'
	vec($foo, 1, 32) = 0x6E696B00; # 'nik'		vec($foo, 1, 32) = 0x6E696B00; # 'nik'
Line 257:		Line 254:
	</syntaxhighlight>		</syntaxhighlight>

−	The following code will build up an ASCII ~~string~~ saying 'Sputnik' (using 64-Bits)	+	The following code will build up an ASCII (in binary format) saying 'Sputnik' (using 64-Bits)

	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">
−	my $foo = '';	+	my $foo = null;
	vec($foo, 0, 64) = 0x537075746E696B00;		vec($foo, 0, 64) = 0x537075746E696B00;
	printf "\$foo is: %s\n", (string)$foo;		printf "\$foo is: %s\n", (string)$foo;
Line 269:		Line 266:

	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">
−	my $foo = '';	+	my $foo = null;
	vec($foo, 0, 32) = 0x5065726C; # 'Perl'		vec($foo, 0, 32) = 0x5065726C; # 'Perl'

Line 320:		Line 317:
	$MAX = 1000;		$MAX = 1000;

−	my $sieve = '';	+	my $sieve = null;
	vec($sieve, $MAX, 1) = 0;		vec($sieve, $MAX, 1) = 0;
	$sieve = ~$sieve;		$sieve = ~$sieve;

UberFoX: 1 revision

2014-08-11T21:41:05Z

1 revision

← Older revision

Revision as of 21:41, 11 August 2014

UberFoX at 08:52, 11 August 2014

2014-08-11T08:52:50Z

← Older revision		Revision as of 08:52, 11 August 2014
Line 39:		Line 39:
	=== Parameters ===		=== Parameters ===

−	==== ~~expression~~ ====	+	==== binary-array ====

	The binary variable to use.		The binary variable to use.