Lines Matching refs:guid
1083 my $guid = shift;
1085 unpack("I", $guid),
1086 unpack("S", substr($guid, 4, 2)),
1087 unpack("S", substr($guid, 6, 2)),
1088 unpack("C", substr($guid, 8, 1)),
1089 unpack("C", substr($guid, 9, 1)),
1090 unpack("C", substr($guid, 10, 1)),
1091 unpack("C", substr($guid, 11, 1)),
1092 unpack("C", substr($guid, 12, 1)),
1093 unpack("C", substr($guid, 13, 1)),
1094 unpack("C", substr($guid, 14, 1)),
1095 unpack("C", substr($guid, 15, 1));
1100 my $guid = shift;
1101 return unpack("H" . 2 * length($guid), $guid),
1108 my $guid = bindstring_to_guid($wknguids{$wknguid});
1109 my $str = guid_to_string($guid);
1110 my $back = guid_to_bindstring($guid);
1114 printf "string format: %s\n", guid_to_string($guid);
1115 printf "back to bind_string:%s\n", guid_to_bindstring($guid);
1117 printf "use base: \"<WKGUID=%s,%s>\"\n", guid_to_bindstring($guid), $base;
1283 my $guid = shift;
1284 return guid_to_string($guid);