Core Function Pack - Revision history

UberFoX at 19:17, 18 September 2015

2015-09-18T19:17:35Z

← Older revision		Revision as of 19:17, 18 September 2015
Line 242:		Line 242:
	# It does not allocate a new string it simply links to one that		# It does not allocate a new string it simply links to one that
	# is already there.		# is already there.
−	# It will also accept IntPtr~~, UIntPtr~~ and ~~CharPtr~~ variables as	+	# It will also accept IntPtr and UIntPtr variables as
	# valid input.		# valid input.
	# This pointer could be ASCII if you are using IntPtr, etc		# This pointer could be ASCII if you are using IntPtr, etc
Line 265:		Line 265:
	# It does not allocate a new string it simply links to one that		# It does not allocate a new string it simply links to one that
	# is already there.		# is already there.
−	# It will also accept IntPtr~~, UIntPtr~~ and ~~CharPtr~~ variables as	+	# It will also accept IntPtr and UIntPtr variables as
	# valid input.		# valid input.
	# This pointer could be ASCII if you are using IntPtr, etc		# This pointer could be ASCII if you are using IntPtr, etc

UberFoX: /* Example */

2015-06-15T09:48:15Z

Example

← Older revision		Revision as of 09:48, 15 June 2015
Line 646:		Line 646:
	my $Str = HexToStr($Hex);		my $Str = HexToStr($Hex);
	echo "Str: $Str\n";		echo "Str: $Str\n";
		+	</syntaxhighlight>
		+
		+	Using pack() to check if the system is Little-Endian or Big-Endian
		+
		+	<syntaxhighlight lang="sputnik">
		+	# A hex number that may represent 'abyz'
		+	my $abyz = 0x6162797A;
		+	# Convert $abyz to a binary string containing 32 bits
		+	# Do the conversion the way that the system architecture wants to
		+	switch (pack ('L', $abyz))
		+	{
		+	# Compare the value to the same value converted in a Little-Endian fashion
		+	case pack ('V', $abyz):
		+	echo 'Your system is Little-Endian.';
		+	break;
		+	# Compare the value to the same value converted in a Big-Endian fashion
		+	case pack ('N', $abyz):
		+	echo 'Your system is Big-Endian.';
		+	break;
		+	default:
		+	echo "Your system 'endian' is unknown.";
		+	break;
		+	}
	</syntaxhighlight>		</syntaxhighlight>

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

UberFoX: 1 revision

2015-06-14T12:37:32Z

1 revision

← Older revision

Revision as of 12:37, 14 June 2015

UberFoX: 1 revision

2014-08-11T21:41:03Z

1 revision

← Older revision

Revision as of 21:41, 11 August 2014

UberFoX at 04:09, 3 August 2014

2014-08-03T04:09:46Z

← Older revision		Revision as of 04:09, 3 August 2014
Line 40:		Line 40:
	c signed ASCII char		c signed ASCII char
	C unsigned ASCII char		C unsigned ASCII char
−	U signed UNICODE char	+	U signed UNICODE char (always 16 bit, machine byte order)
−	W unsigned UNICODE char	+	W unsigned UNICODE char (always 16 bit, machine byte order)
	s signed short (always 16 bit, machine byte order)		s signed short (always 16 bit, machine byte order)
	S unsigned short (always 16 bit, machine byte order)		S unsigned short (always 16 bit, machine byte order)

UberFoX: /* Example */

2014-08-02T09:38:12Z

Example

← Older revision		Revision as of 09:38, 2 August 2014
Line 139:		Line 139:

	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">
		+	$Name = "UberFoX";
		+	$ID = "yay?";
		+	$RandomText = "Hello world!";
	$bin = Pack("z1z1z1", $Name, $ID, $RandomText);		$bin = Pack("z1z1z1", $Name, $ID, $RandomText);
	$unpacked = Unpack("z1Name/z1ID/z1RandomText", $bin);		$unpacked = Unpack("z1Name/z1ID/z1RandomText", $bin);
Line 154:		Line 157:

	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">
		+	$Name = "UberFoX";
		+	$ID = "yay?";
		+	$RandomText = "Hello world!";
	$bin = Pack("z1z1z1", $Name, $ID, $RandomText);		$bin = Pack("z1z1z1", $Name, $ID, $RandomText);
	List ($TheName, $TheID, $TheRandomText ) = Unpack("z1/z1/z1", $bin);		List ($TheName, $TheID, $TheRandomText ) = Unpack("z1/z1/z1", $bin);
Line 168:		Line 174:

	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">
		+	$Name = "UberFoX";
		+	$ID = "yay?";
		+	$RandomText = "Hello world!";
		+	$RandomInt = 7000;
		+	$RandomFloat = 133.7;
	$bin = Pack("z1iz1z1d", $Name, $RandomInt, $ID, $RandomText, $RandomFloat);		$bin = Pack("z1iz1z1d", $Name, $RandomInt, $ID, $RandomText, $RandomFloat);
	List ($TheName, $TheInt, $TheID, $TheRandomText, $TheFloat ) = Unpack("z1/i/z1/z1/d", $bin);		List ($TheName, $TheInt, $TheID, $TheRandomText, $TheFloat ) = Unpack("z1/i/z1/z1/d", $bin);
Line 293:		Line 304:
	$val = "Cat";		$val = "Cat";
	my $bin = pack("p", $val);		my $bin = pack("p", $val);
−	my $str = Unpack("P2", $bin, 3);	+	my $str = Unpack("P10", $bin, 3);
	print( "Value is: $str\n" );		print( "Value is: $str\n" );
	# Prints		# Prints

UberFoX: /* Example */

2014-03-15T06:09:08Z

Example

← Older revision		Revision as of 06:09, 15 March 2014
Line 563:		Line 563:

	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">
−	~~echo~~ join (unpack('U*', '~~こんにちは~~'), ' ');	+	my $Str = 'こんにちは';
−	// ~~33251 58259 37762 33251 58283 41345 33251~~	+	say join (unpack('U', pack('U', split($Str, ''))), ' ');
		+	// 12371 12435 12395 12385 12399
	</syntaxhighlight>		</syntaxhighlight>

UberFoX: /* Example */

2013-09-28T14:05:55Z

Example

← Older revision		Revision as of 14:05, 28 September 2013
Line 108:		Line 108:
	=== Example ===		=== Example ===

−	Using Unpack() to do a simplistic SubStr() on ASCII	+	Using Unpack() to do a simplistic SubStr() on an ASCII string

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

UberFoX: /* Example */

2013-09-28T14:05:44Z

Example

← Older revision		Revision as of 14:05, 28 September 2013
Line 107:		Line 107:

	=== Example ===		=== Example ===
		+
		+	Using Unpack() to do a simplistic SubStr() on ASCII
		+
		+	<syntaxhighlight lang="sputnik">
		+	Function _SubStr ( $what, $where, $howmuch )
		+	{
		+	return unpack("x$where/a$howmuch", $what);
		+	}
		+	printr _SubStr("UberFoX", 2, 3);
		+	# Prints
		+	# erF
		+	</syntaxhighlight>
		+

	Example of packing multiple ASCII strings		Example of packing multiple ASCII strings

UberFoX: /* Remarks */

2013-09-28T10:37:37Z

Remarks

← Older revision		Revision as of 10:37, 28 September 2013
Line 94:		Line 94:
	In Perl the Pack() and Unpack() actually read/write to strings directly where as in Sputnik the output of a Pack() is actually a binary variable that consists of a byte[] array it can be edited with the Binary___() functions and even cast to a string (will be ASCII or if you use BinaryToStr() you can explicitly demand it treated as Unicode you could even force it as raw ASCII like (ASCII)$mystring).		In Perl the Pack() and Unpack() actually read/write to strings directly where as in Sputnik the output of a Pack() is actually a binary variable that consists of a byte[] array it can be edited with the Binary___() functions and even cast to a string (will be ASCII or if you use BinaryToStr() you can explicitly demand it treated as Unicode you could even force it as raw ASCII like (ASCII)$mystring).

−	Note that Sputnik stores variables as signed/unsigned as needed which can be confusing if you are a PHP user using this Pack function basically when the format says Unsigned it is literal and the variable will be unsigned/signed as specified both the packing and unpacking.	+	Note that Sputnik stores variables as signed/unsigned as needed which can be confusing if you are a PHP user using this Pack function basically when the format says Unsigned it is literal and the variable will be unsigned/signed as specified in both the packing and unpacking.

	This also means if the original value as an Int64 and you packed it with "i" then unpack it with "i" the new value will be an Int32 and not an Int64 since Sputnik sees no need to magically unpack everything to highest data type so "f" will actually give you a Float and not a Double and so on of course that doesn't mean you can't cast it to a double when getting from the return array.		This also means if the original value as an Int64 and you packed it with "i" then unpack it with "i" the new value will be an Int32 and not an Int64 since Sputnik sees no need to magically unpack everything to highest data type so "f" will actually give you a Float and not a Double and so on of course that doesn't mean you can't cast it to a double when getting from the return array.