kylekrein/live-bootstrap
1
0
Fork 0
mirror of https://github.com/fosslinux/live-bootstrap.git synced 2026-03-14 23:35:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add perl 5.000.

Browse source
This commit is contained in:
Andrius Štikonas 2021-02-14 15:36:05 +00:00
parent aa11513fdd
commit 221b1d07ad
10 changed files with 245 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

31
sysa/perl5.000/files/opcode.awk Normal file
View file

@ -0,0 +1,31 @@
# SPDX-FileCopyrightText: 2021 Andrius Štikonas <andrius@stikonas.eu>
#
# SPDX-License-Identifier: GPL-3.0-or-later
{
argsum = 0
argsum = or(argsum, 1 * (index($4, "m") != 0))
argsum = or(argsum, 2 * (index($4, "f") != 0))
argsum = or(argsum, 4 * (index($4, "s") != 0))
argsum = or(argsum, 8 * (index($4, "t") != 0))
argsum = or(argsum, 16 * (index($4, "i") != 0))
argsum = or(argsum, 32 * (index($4, "I") != 0))
argsum = or(argsum, 64 * (index($4, "d") != 0))
argsum = or(argsum, 128 * (index($4, "u") != 0))
mul = 256
arg_val="SLAHCFR"
argstr=$5
gsub(" ", "", argstr)
split(argstr, args, "")
for(i=1; i<=length(argstr); i+=1) {
argnum = (index(argstr, "?") != 0) * 8
argnum += index(arg_val, args[i])
argsum += argnum * mul
mul = lshift(mul, 4)
}
printf("\t0x%08x,\t/* %s */\n", argsum, $1)
}