lang/perl/files/signal.config

   1 # Signal table helper
   2
   3 (defined($owrt:sigs)) {
   4         sig_name="$owrt:sigs"
   5         (($owrt:libc eq 'glibc') || ($owrt:libc eq 'uclibc')) {
   6                 sig_name="$sig_name NUM32 NUM33 RTMIN NUM35 NUM36"
   7         }
   8         ($owrt:libc eq 'musl') {
   9                 sig_name="$sig_name NUM32 NUM33 NUM34 RTMIN NUM36"
  10         }
  11
  12         sig_name="$sig_name @{[map({qq/NUM\$_/} 37..$owrt:sig_count - 2)]} RTMAX $owrt:sig_name_extra"
  13         sig_num="@{[0..$owrt:sig_count - 1]} $owrt:sig_num_extra "
  14         sig_count="$owrt:sig_count"
  15         sig_size="@{[scalar(split(q/ /, $sig_name))]}"
  16         sig_name_init="@{[join(q/, /, map({qq/\qq\$_\qq/} split(q/ /, $sig_name)))]}, 0"
  17         sig_num_init="@{[join(q/, /, split(q/ /, $sig_num))]}, 0"
  18 }