LILiK
/
openwrt-packages-dist
5
0
Fork 0
Code Issues 0 Pull Requests 0 Projects 0 Releases 0 Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12597 Commits
1 Branch
46 MiB
Tree: 36cd25beab
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '36cd25beab'
${ noResults }
openwrt-packages-dist/lang/perl/files/signal.config

18 lines
643 B
Raw Normal View History

perl: Switch to split configuration files This replaces the previously used collection of configuration files for every single architecture in conjunction with hacky overrides, which became an increasing burden to maintain. Fixes a number of outstanding bugs and oddities, with the most important one being the previously wrong signal order(as shown by ext/POSIX/t/sigaction.t). See files/perlconfig.pl's POD and files/README.config for details. Signed-off-by: Marcel Denia <naoir@gmx.net>
9 years ago
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
 
  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. }