### Copy the relevant chunk of func_codes.h to ./names

perl -wlne "/(\".*?\")/ or die; print $1" names >names-n
grep -F -f names-n ..\pari-2.13.4\src\language\init.h >init-h-names
perl -wlne "/,(\"[^\"\"]*\"),(\"[^\"\"]*\"\})/ or warn($_),next; print $1" init-h-names  > init-h-names-n
sort -u init-h-names-n >init-h-names-n-s
grep -F -f init-h-names-n-s names > names-present
perl -wlne "/value=>\"(\d+)\"/ or die; print $1,$_" names-present >names-present-t
sort names-present-t >names-present-t-s

perl -w00l012ne "next unless ($c) = /\bcode=\"(.*)\"/i; $n=q(?); ($n)= /\binterface(\d+)\b/; print qq($n\t=>\t$c\n\n<<<$_>>>\n)" Pari.xs >Pari.xs-check
sort Pari.xs-check >Pari.xs-check-s