mirror of
https://github.com/opnsense/src.git
synced 2026-06-14 19:20:18 -04:00
dbd5678dca
Notable upstream pull request merges:
#13680 Add options to zfs redundant_metadata property
#13758 Allow mounting snapshots in .zfs/snapshot as a regular user
#13838 quota: disable quota check for ZVOL
#13839 quota: extend quota for dataset
#13973 Fix memory leaks in dmu_send()/dmu_send_obj()
#13977 Avoid unnecessary metaslab_check_free calling
#13978 PAM: Fix unchecked return value from zfs_key_config_load()
#13979 Handle possible null pointers from malloc/strdup/strndup()
#13997 zstream: allow decompress to fix metadata for uncompressed
records
#13998 zvol_wait logic may terminate prematurely
#14001 FreeBSD: Fix a pair of bugs in zfs_fhtovp()
#14003 Stop ganging due to past vdev write errors
#14039 Optimize microzaps
#14050 Fix draid2+2s metadata error on simultaneous 2 drive failures
#14062 zed: Avoid core dump if wholedisk property does not exist
#14077 Propagate extent_bytes change to autotrim thread
#14079 FreeBSD: vn_flush_cached_data: observe vnode locking contract
#14093 Fix ARC target collapse when zfs_arc_meta_limit_percent=100
#14106 Add ability to recompress send streams with new compression
algorithm
#14119 Deny receiving into encrypted datasets if the keys are not
loaded
#14120 Fix arc_p aggressive increase
#14129 zed: Prevent special vdev to be replaced by hot spare
#14133 Expose zfs_vdev_open_timeout_ms as a tunable
#14135 FreeBSD: Fix out of bounds read in zfs_ioctl_ozfs_to_legacy()
#14152 Adds the `-p` option to `zfs holds`
#14161 Handle and detect #13709's unlock regression
Obtained from: OpenZFS
OpenZFS commit: 2163cde450
58 lines
956 B
Perl
Executable file
58 lines
956 B
Perl
Executable file
#!/usr/bin/env perl
|
|
|
|
my $usage = <<EOT;
|
|
usage: config-enum enum [file ...]
|
|
|
|
Returns the elements from an enum declaration.
|
|
|
|
"Best effort": we're not building an entire C interpreter here!
|
|
EOT
|
|
|
|
use warnings;
|
|
use strict;
|
|
use Getopt::Std;
|
|
|
|
my %opts;
|
|
|
|
if (!getopts("", \%opts) || @ARGV < 1) {
|
|
print $usage;
|
|
exit 2;
|
|
}
|
|
|
|
my $enum = shift;
|
|
|
|
my $in_enum = 0;
|
|
|
|
while (<>) {
|
|
# comments
|
|
s/\/\*.*\*\///;
|
|
if (m/\/\*/) {
|
|
while ($_ .= <>) {
|
|
last if s/\/\*.*\*\///s;
|
|
}
|
|
}
|
|
|
|
# preprocessor stuff
|
|
next if /^#/;
|
|
|
|
# find our enum
|
|
$in_enum = 1 if s/^\s*enum\s+${enum}(?:\s|$)//;
|
|
next unless $in_enum;
|
|
|
|
# remove explicit values
|
|
s/\s*=[^,]+,/,/g;
|
|
|
|
# extract each identifier
|
|
while (m/\b([a-z_][a-z0-9_]*)\b/ig) {
|
|
print $1, "\n";
|
|
}
|
|
|
|
#
|
|
# don't exit: there may be multiple versions of the same enum, e.g.
|
|
# inside different #ifdef blocks. Let's explicitly return all of
|
|
# them and let external tooling deal with it.
|
|
#
|
|
$in_enum = 0 if m/}\s*;/;
|
|
}
|
|
|
|
exit 0;
|