kolibrios-gitea/contrib/network/netsurf/libcss/test/data/parse/makeopv.pl
Yogev Ezra bb2bbc6b91 Move NetSurf to /contrib folder
git-svn-id: svn://kolibrios.org@4364 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-12-15 14:01:21 +00:00

12 lines
227 B
Perl
Executable File

#!/usr/bin/perl
use warnings;
use strict;
die "Usage: makeopv.pl <opcode> <flags> <value>\n" if (@ARGV != 3);
my ($opcode, $flags, $value) = @ARGV;
printf("0x%.8x\n", oct($opcode) | oct($flags) << 10 | oct($value) << 18);