āĻ‡āĻ‚āĻ°ā§‡āĻœāĻŋāĻĢāĻ°āĻžāĻ¸āĻŋāĻ¸ā§āĻĒā§āĻ¯āĻžāĻ¨āĻŋāĻļ

āĻ…āĻ¨āĻ“āĻ¯āĻŧāĻžāĻ°ā§āĻ•āĻ¸ āĻĢā§‡āĻ­āĻŋāĻ•āĻ¨

PDL::PPp - āĻ•ā§āĻ˛āĻžāĻ‰āĻĄā§‡ āĻ…āĻ¨āĻ˛āĻžāĻ‡āĻ¨

āĻ‰āĻŦā§āĻ¨ā§āĻŸā§ āĻ…āĻ¨āĻ˛āĻžāĻ‡āĻ¨, āĻĢā§‡āĻĄā§‹āĻ°āĻž āĻ…āĻ¨āĻ˛āĻžāĻ‡āĻ¨, āĻ‰āĻ‡āĻ¨ā§āĻĄā§‹āĻœ āĻ…āĻ¨āĻ˛āĻžāĻ‡āĻ¨ āĻāĻŽā§āĻ˛ā§‡āĻŸāĻ° āĻŦāĻž MAC OS āĻ…āĻ¨āĻ˛āĻžāĻ‡āĻ¨ āĻāĻŽā§āĻ˛ā§‡āĻŸāĻ°ā§‡āĻ° āĻŽāĻžāĻ§ā§āĻ¯āĻŽā§‡ āĻ…āĻ¨āĻ“āĻ¯āĻŧāĻžāĻ°ā§āĻ•āĻ¸ āĻĢā§āĻ°āĻŋ āĻšā§‹āĻ¸ā§āĻŸāĻŋāĻ‚ āĻĒā§āĻ°āĻĻāĻžāĻ¨āĻ•āĻžāĻ°ā§€āĻ¤ā§‡ PDL::PPp āĻšāĻžāĻ˛āĻžāĻ¨

āĻāĻŸāĻŋ āĻšāĻ˛ PDL::PPp āĻ•āĻŽāĻžāĻ¨ā§āĻĄ āĻ¯āĻž āĻ†āĻŽāĻžāĻĻā§‡āĻ° āĻāĻ•āĻžāĻ§āĻŋāĻ• āĻŦāĻŋāĻ¨āĻžāĻŽā§‚āĻ˛ā§āĻ¯ā§‡āĻ° āĻ…āĻ¨āĻ˛āĻžāĻ‡āĻ¨ āĻ“āĻ¯āĻŧāĻžāĻ°ā§āĻ•āĻ¸ā§āĻŸā§‡āĻļāĻ¨ āĻ¯ā§‡āĻŽāĻ¨ āĻ‰āĻŦā§āĻ¨ā§āĻŸā§ āĻ…āĻ¨āĻ˛āĻžāĻ‡āĻ¨, āĻĢā§‡āĻĄā§‹āĻ°āĻž āĻ…āĻ¨āĻ˛āĻžāĻ‡āĻ¨, āĻ‰āĻ‡āĻ¨ā§āĻĄā§‹āĻœ āĻ…āĻ¨āĻ˛āĻžāĻ‡āĻ¨ āĻāĻŽā§āĻ˛ā§‡āĻŸāĻ° āĻŦāĻž MAC OS āĻ…āĻ¨āĻ˛āĻžāĻ‡āĻ¨ āĻāĻŽā§āĻ˛ā§‡āĻŸāĻ° āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ OnWorks āĻĢā§āĻ°āĻŋ āĻšā§‹āĻ¸ā§āĻŸāĻŋāĻ‚ āĻĒā§āĻ°āĻĻāĻžāĻ¨āĻ•āĻžāĻ°ā§€āĻ¤ā§‡ āĻšāĻžāĻ˛āĻžāĻ¨ā§‹ āĻ¯ā§‡āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĨ¤

āĻ•āĻžāĻ°ā§āĻ¯āĻ•ā§āĻ°āĻŽ:

NAME āĻāĻ°


PDL::PP - āĻ¸āĻ‚āĻ•ā§āĻˇāĻŋāĻĒā§āĻ¤ āĻŦāĻŋāĻŦāĻ°āĻŖ āĻĨā§‡āĻ•ā§‡ PDL āĻ°ā§āĻŸāĻŋāĻ¨ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§āĻ¨

āĻ¸āĻžāĻ‡āĻ¨ā§‹āĻĒāĻŋāĻ¸āĻŋāĻ¸


āĻ¯ā§‡āĻŽāĻ¨

pp_def(
'sumover',
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(n); [āĻ“]āĻŦāĻŋ();',
āĻ•ā§‹āĻĄ => q{
āĻĄāĻŦāĻ˛ tmp = 0;
āĻ˛ā§āĻĒ(n) %{
tmp += $a();
%}
$b() = tmp;
},
);

pp_done();

āĻĢāĻžāĻ‚āĻļāĻ¨


āĻāĻ–āĻžāĻ¨ā§‡ PDL::PP āĻĻā§āĻŦāĻžāĻ°āĻž āĻĒā§āĻ°āĻĻāĻ¤ā§āĻ¤ āĻĢāĻžāĻ‚āĻļāĻ¨āĻ—ā§āĻ˛āĻŋāĻ° āĻāĻ•āĻŸāĻŋ āĻĻā§āĻ°ā§āĻ¤ āĻ°ā§‡āĻĢāĻžāĻ°ā§‡āĻ¨ā§āĻ¸ āĻ¤āĻžāĻ˛āĻŋāĻ•āĻž āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡āĨ¤

pp_add_boot
āĻœā§‡āĻ¨āĻžāĻ°ā§‡āĻŸ āĻ•āĻ°āĻž XS āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻŦā§āĻŸ āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ āĻ•ā§‹āĻĄ āĻ¯ā§‹āĻ— āĻ•āĻ°ā§āĻ¨

pp_add_exported
āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋāĻ•ā§ƒāĻ¤ āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡āĻ° āĻ¤āĻžāĻ˛āĻŋāĻ•āĻžāĻ¯āĻŧ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¯ā§‹āĻ— āĻ•āĻ°ā§āĻ¨

pp_add_isa
@ISA āĻ¤āĻžāĻ˛āĻŋāĻ•āĻžāĻ¯āĻŧ āĻāĻ¨ā§āĻŸā§āĻ°āĻŋ āĻ¯ā§‹āĻ— āĻ•āĻ°ā§āĻ¨

pp_addbegin
āĻœā§‡āĻ¨āĻžāĻ°ā§‡āĻŸ .pm āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻ‰āĻĒāĻ°ā§‡ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ•ā§‹āĻĄ āĻ¸ā§‡āĻŸ āĻ•āĻ°ā§‡

pp_addhdr
āĻ•ā§‹āĻĄ āĻ¯ā§‹āĻ— āĻ•āĻ°ā§āĻ¨ āĻāĻŦāĻ‚ āĻœā§‡āĻ¨āĻžāĻ°ā§‡āĻŸ āĻ•āĻ°āĻž XS āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° C āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ āĻ…āĻ¨ā§āĻ¤āĻ°ā§āĻ­ā§āĻ•ā§āĻ¤ āĻ•āĻ°ā§āĻ¨

pp_addpm
āĻœā§‡āĻ¨āĻžāĻ°ā§‡āĻŸ āĻ•āĻ°āĻž .pm āĻĢāĻžāĻ‡āĻ˛ā§‡ āĻ•ā§‹āĻĄ āĻ¯ā§‹āĻ— āĻ•āĻ°ā§āĻ¨

pp_addxs
āĻœā§‡āĻ¨āĻžāĻ°ā§‡āĻŸ āĻ•āĻ°āĻž XS āĻĢāĻžāĻ‡āĻ˛ā§‡ āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤ XS āĻ•ā§‹āĻĄ āĻ¯ā§‹āĻ— āĻ•āĻ°ā§āĻ¨

pp_beginwrap
āĻœā§‡āĻ¨āĻžāĻ°ā§‡āĻŸ āĻ•āĻ°āĻž .pm āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻ•ā§‹āĻĄā§‡ BEGIN-āĻŦā§āĻ˛āĻ• āĻ°â€Œā§āĻ¯āĻžāĻĒāĻŋāĻ‚ āĻ¯ā§‹āĻ— āĻ•āĻ°ā§āĻ¨

pp_bless
āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœ āĻ¸ā§‡āĻŸ āĻ•āĻ°ā§‡ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ XS āĻ•ā§‹āĻĄ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡ (āĻĄāĻŋāĻĢāĻ˛ā§āĻŸ āĻšāĻ˛ PDL)

pp_boundscheck
PDL āĻŦāĻžāĻ‰āĻ¨ā§āĻĄ āĻšā§‡āĻ•āĻŋāĻ‚ āĻ•āĻžāĻ°ā§āĻ¯āĻ•āĻ˛āĻžāĻĒā§‡āĻ° āĻ¨āĻŋāĻ¯āĻŧāĻ¨ā§āĻ¤ā§āĻ°āĻŖ āĻ…āĻŦāĻ¸ā§āĻĨāĻž

pp_core_importList
PDL::Core āĻĨā§‡āĻ•ā§‡ āĻ•āĻŋ āĻ†āĻŽāĻĻāĻžāĻ¨āĻŋ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡ āĻ¤āĻž āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°ā§āĻ¨

pp_def
āĻāĻ•āĻŸāĻŋ āĻ¨āĻ¤ā§āĻ¨ PDL āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°ā§āĻ¨

pp_deprecate_module
āĻāĻ•āĻŸāĻŋ āĻŽāĻĄāĻŋāĻ‰āĻ˛ āĻ…āĻŦāĻšā§‡āĻ˛āĻŋāĻ¤ āĻšāĻ“āĻ¯āĻŧāĻžāĻ° āĻŦāĻŋāĻˇāĻ¯āĻŧā§‡ āĻ°āĻžāĻ¨āĻŸāĻžāĻ‡āĻŽ āĻāĻŦāĻ‚ POD āĻ¸āĻ¤āĻ°ā§āĻ•āĻ¤āĻž āĻ¯ā§‹āĻ— āĻ•āĻ°ā§āĻ¨

pp_done
āĻĢāĻžāĻ‡āĻ˛ā§‡ PDL::PP āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ° āĻļā§‡āĻˇ āĻšāĻŋāĻšā§āĻ¨āĻŋāĻ¤ āĻ•āĻ°ā§āĻ¨

pp_export_nothing
āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¤ā§ˆāĻ°āĻŋ āĻŽāĻĄāĻŋāĻ‰āĻ˛ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋ āĻ¤āĻžāĻ˛āĻŋāĻ•āĻž āĻ¸āĻžāĻĢ āĻ•āĻ°ā§āĻ¨

pp_āĻ˛āĻžāĻ‡āĻ¨_āĻ¸āĻ‚āĻ–ā§āĻ¯āĻž
PDL::PP āĻ•ā§‹āĻĄā§‡āĻ° āĻĄāĻŋāĻŦāĻžāĻ—āĻŋāĻ‚ āĻ¸āĻšāĻœ āĻ•āĻ°āĻ¤ā§‡ āĻ˛āĻžāĻ‡āĻ¨ āĻ¨āĻŽā§āĻŦāĻ° āĻ¤āĻĨā§āĻ¯ āĻ¯ā§‹āĻ— āĻ•āĻ°ā§āĻ¨

pp_setversion
.pm āĻāĻŦāĻ‚ .xs āĻĢāĻžāĻ‡āĻ˛āĻ—ā§āĻ˛āĻŋāĻ° āĻœāĻ¨ā§āĻ¯ āĻ¸āĻ‚āĻ¸ā§āĻ•āĻ°āĻŖ āĻ¸ā§‡āĻŸ āĻ•āĻ°ā§āĻ¨ā§ˇ

āĻāĻ• āĻ¨āĻœāĻ°ā§‡


āĻ•ā§‡āĻ¨ āĻ†āĻŽāĻ°āĻž āĻĒāĻŋāĻĒāĻŋ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨? āĻŦā§‡āĻļ āĻ•āĻ¯āĻŧā§‡āĻ•āĻŸāĻŋ āĻ•āĻžāĻ°āĻŖ: āĻĒā§āĻ°āĻĨāĻŽāĻ¤, āĻ†āĻŽāĻ°āĻž āĻ¸āĻžāĻŦāĻ°ā§āĻŸāĻŋāĻ¨ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻ¸āĻ•ā§āĻˇāĻŽ āĻšāĻ¤ā§‡ āĻšāĻžāĻ‡
PDL āĻĄā§‡āĻŸāĻžāĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻĒā§āĻ°āĻ¤āĻŋāĻŸāĻŋāĻ° āĻœāĻ¨ā§āĻ¯ āĻ•ā§‹āĻĄ (PDL_Byte, PDL_Short, āĻ‡āĻ¤ā§āĻ¯āĻžāĻĻāĻŋ)āĨ¤ āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡. āĻĻā§āĻŦāĻŋāĻ¤ā§€āĻ¯āĻŧāĻ¤,
āĻ¯āĻ–āĻ¨ āĻĒāĻžāĻ°ā§āĻ˛ā§‡ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ āĻ…ā§āĻ¯āĻžāĻ°ā§‡āĻ° āĻ¸ā§āĻ˛āĻžāĻ‡āĻ¸ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ (āĻ¯ā§‡āĻŽāĻ¨ "$a->āĻ¸ā§āĻ˛āĻžāĻ‡āĻ¸('0:10:2,:')" āĻŦāĻž āĻ…āĻ¨ā§āĻ¯
āĻŸā§āĻ°āĻžāĻ¨ā§āĻ¸āĻĒā§‹āĻœā§‡āĻ° āĻŽāĻ¤ā§‹ āĻœāĻŋāĻ¨āĻŋāĻ¸) āĻāĻŸāĻŋ āĻ¸ā§āĻŦāĻšā§āĻ›āĻ­āĻžāĻŦā§‡ āĻ•āĻ°āĻ¤ā§‡ āĻ¸āĻ•ā§āĻˇāĻŽ āĻšāĻ“āĻ¯āĻŧāĻž āĻāĻŦāĻ‚ āĻ¸āĻ•ā§āĻˇāĻŽ āĻšāĻ“āĻ¯āĻŧāĻž āĻ­āĻžāĻ˛
āĻāĻŸāĻŋ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ 'āĻ‡āĻ¨-āĻĒā§āĻ˛ā§‡āĻ¸' - āĻ…āĻ°ā§āĻĨāĻžā§Ž, āĻŦāĻŋāĻ­āĻžāĻ—ā§‡āĻ° āĻāĻ•āĻŸāĻŋ āĻŽā§‡āĻŽāĻ°āĻŋ āĻ•āĻĒāĻŋ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡ āĻ¨āĻžāĨ¤ āĻĒāĻŋāĻĒāĻŋ āĻšā§āĻ¯āĻžāĻ¨ā§āĻĄāĻ˛āĻ—ā§āĻ˛āĻŋ
āĻ†āĻĒāĻ¨āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ¸āĻŽāĻ¸ā§āĻ¤ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§€āĻ¯āĻŧ āĻ‰āĻĒāĻžāĻĻāĻžāĻ¨ āĻāĻŦāĻ‚ āĻ…āĻĢāĻ¸ā§‡āĻŸ āĻĒāĻžāĻŸāĻŋāĻ—āĻŖāĻŋāĻ¤āĨ¤ āĻāĻ° āĻ§āĻžāĻ°āĻŖāĻžāĻ“ āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡
āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ (āĻāĻ•āĻžāĻ§āĻŋāĻ• āĻ¸ā§āĻ˛āĻžāĻ‡āĻ¸ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻāĻ•āĻ‡ āĻ°ā§āĻŸāĻŋāĻ¨ā§‡āĻ° āĻŦāĻžāĻ°āĻŦāĻžāĻ° āĻ•āĻ˛āĻŋāĻ‚, āĻĻā§‡āĻ–ā§āĻ¨ PDL::Indexing)
āĻāĻŦāĻ‚ āĻĄā§‡āĻŸāĻžāĻĢā§āĻ˛ā§‹ (āĻĒāĻŋāĻĄāĻŋāĻāĻ˛::āĻĄā§‡āĻŸāĻžāĻĢā§āĻ˛ā§‹ āĻĻā§‡āĻ–ā§āĻ¨) āĻ¯āĻž āĻĒāĻŋāĻĒāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°ā§‡āĻ° āĻ…āĻ¨ā§āĻŽāĻ¤āĻŋ āĻĻā§‡āĻ¯āĻŧāĨ¤

āĻāĻ° āĻŦā§‡āĻļāĻŋāĻ°āĻ­āĻžāĻ— āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻ†āĻŽāĻ°āĻž āĻāĻ° āĻ§āĻžāĻ°āĻŖāĻžāĻ—ā§āĻ˛āĻŋāĻ° āĻ¸āĻžāĻĨā§‡ āĻĒāĻžāĻ āĻ•ā§‡āĻ° āĻĒāĻ°āĻŋāĻšāĻŋāĻ¤āĻŋ āĻ…āĻ¨ā§āĻŽāĻžāĻ¨ āĻ•āĻ°āĻŦ
PDL-āĻāĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻ…āĻ¨ā§āĻ¤āĻ°ā§āĻ¨āĻŋāĻšāĻŋāĻ¤ āĻāĻŦāĻ‚ āĻ¸ā§āĻĒāĻˇā§āĻŸ āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ āĻāĻŦāĻ‚ āĻ¸ā§‚āĻšāĻ• āĻŽā§āĻ¯āĻžāĻ¨āĻŋāĻĒā§āĻ˛ā§‡āĻļāĻ¨āĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻāĻ–āĻ¨āĻ“ āĻ¨āĻž
āĻāĻ‡ āĻ§āĻžāĻ°āĻŖāĻžāĻ—ā§āĻ˛āĻŋ āĻļā§āĻ¨ā§‡āĻ›āĻŋ āĻŦāĻž āĻ¤āĻžāĻĻā§‡āĻ° āĻ¸āĻžāĻĨā§‡ āĻ–ā§āĻŦ āĻ†āĻ°āĻžāĻŽāĻĻāĻžāĻ¯āĻŧāĻ• āĻ¨āĻ¯āĻŧ āĻāĻŸāĻŋ āĻĒāĻ°ā§€āĻ•ā§āĻˇāĻž āĻ•āĻ°āĻžāĻ° āĻ¸āĻŽāĻ¯āĻŧ
āĻĒāĻŋāĻĄāĻŋāĻāĻ˛::āĻ‡āĻ¨āĻĄā§‡āĻ•ā§āĻ¸āĻŋāĻ‚āĨ¤

āĻ†āĻĒāĻ¨āĻŋ āĻāĻ° āĻ¨āĻžāĻŽ āĻĨā§‡āĻ•ā§‡ āĻĒā§āĻ°āĻļāĻ‚āĻ¸āĻž āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨ PDL::PP āĻšāĻ˛ āĻāĻ•āĻŸāĻŋ āĻĒā§āĻ°āĻžāĻ•-āĻĒā§āĻ°āĻ¸ā§‡āĻ¸āĻ°, āĻ…āĻ°ā§āĻĨāĻžā§Ž āĻāĻŸāĻŋ āĻāĻ° āĻŽāĻžāĻ§ā§āĻ¯āĻŽā§‡ āĻ•ā§‹āĻĄ āĻĒā§āĻ°āĻ¸āĻžāĻ°āĻŋāĻ¤ āĻ•āĻ°ā§‡
āĻŦāĻžāĻ¸ā§āĻ¤āĻŦ āĻ¸āĻŋ-āĻ•ā§‹āĻĄ āĻ•āĻ°āĻ¤ā§‡ āĻĒā§āĻ°āĻ¤āĻŋāĻ¸ā§āĻĨāĻžāĻĒāĻ¨āĨ¤ āĻĒā§āĻ°āĻ¯ā§āĻ•ā§āĻ¤āĻŋāĻ—āĻ¤āĻ­āĻžāĻŦā§‡, āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻšāĻ˛ XS āĻ•ā§‹āĻĄ (āĻĻā§‡āĻ–ā§āĻ¨ perlxs) āĻ•āĻŋāĻ¨ā§āĻ¤ā§
āĻ¯ā§‡āĻŸāĻž C āĻāĻ° āĻ–ā§āĻŦ āĻ•āĻžāĻ›āĻžāĻ•āĻžāĻ›āĻŋāĨ¤

āĻ¤āĻžāĻšāĻ˛ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ•āĻŋāĻ­āĻžāĻŦā§‡ āĻĒāĻŋāĻĒāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻŦā§‡āĻ¨? āĻ“āĻ¯āĻŧā§‡āĻ˛ āĻŦā§‡āĻļāĻŋāĻ°āĻ­āĻžāĻ— āĻ…āĻ‚āĻļā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻ†āĻĒāĻ¨āĻŋ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ āĻ¸āĻŋ āĻ•ā§‹āĻĄ āĻŦā§āĻ¯āĻ¤ā§€āĻ¤ āĻ˛āĻŋāĻ–ā§āĻ¨
āĻŦāĻŋāĻļā§‡āĻˇ āĻĒāĻŋāĻĒāĻŋ āĻ—āĻ āĻ¨ āĻ¯āĻž āĻĢāĻ°ā§āĻŽ āĻ¨ā§‡āĻ¯āĻŧ:

$something (āĻ…āĻ¨ā§āĻ¯ āĻ•āĻŋāĻ›ā§)

āĻŦāĻž:

āĻĒāĻŋāĻĒāĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨ %{

%}

āĻ¸āĻŦāĻšā§‡āĻ¯āĻŧā§‡ āĻ—ā§āĻ°ā§āĻ¤ā§āĻŦāĻĒā§‚āĻ°ā§āĻŖ āĻĒāĻŋāĻĒāĻŋ āĻ—āĻ āĻ¨ āĻšāĻ˛ "$array()" āĻĢāĻ°ā§āĻŽāĨ¤ āĻ–ā§āĻŦ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ āĻĒāĻŋāĻĒāĻŋ āĻŦāĻŋāĻŦā§‡āĻšāĻ¨āĻž āĻ•āĻ°ā§āĻ¨
āĻāĻ•āĻŸāĻŋ 1D āĻ­ā§‡āĻ•ā§āĻŸāĻ°ā§‡āĻ° āĻ‰āĻĒāĻžāĻĻāĻžāĻ¨āĻ—ā§āĻ˛āĻŋāĻ° āĻ¯ā§‹āĻ—āĻĢāĻ˛ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻĢāĻžāĻ‚āĻļāĻ¨ (āĻ†āĻ¸āĻ˛ā§‡ āĻāĻŸāĻŋ āĻŦāĻžāĻ¸ā§āĻ¤āĻŦā§‡āĻ° āĻ¸āĻžāĻĨā§‡ āĻ–ā§āĻŦ āĻŽāĻŋāĻ˛
'sumover' āĻĻā§āĻŦāĻžāĻ°āĻž āĻŦā§āĻ¯āĻŦāĻšā§ƒāĻ¤ āĻ•ā§‹āĻĄ):

pp_def('āĻ¸ā§āĻŽāĻŋāĻ¤',
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(n); [āĻ“]āĻŦāĻŋ();',
āĻ•ā§‹āĻĄ => q{
āĻĄāĻŦāĻ˛ tmp;
tmp = 0;
āĻ˛ā§āĻĒ(n) %{
tmp += $a();
%}
$b() = tmp;
}
);

āĻ•āĻŋ āĻšāĻšā§āĻ›ā§‡? "Pars =>" āĻ˛āĻžāĻ‡āĻ¨āĻŸāĻŋ PP-āĻāĻ° āĻœāĻ¨ā§āĻ¯ āĻ…āĻ¤ā§āĻ¯āĻ¨ā§āĻ¤ āĻ—ā§āĻ°ā§āĻ¤ā§āĻŦāĻĒā§‚āĻ°ā§āĻŖ - āĻāĻŸāĻŋ āĻ¸āĻŽāĻ¸ā§āĻ¤ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°ā§‡
āĻ¯ā§āĻ•ā§āĻ¤āĻŋ āĻāĻŦāĻ‚ āĻ¤āĻžāĻĻā§‡āĻ° āĻŽāĻžāĻ¤ā§āĻ°āĻžāĨ¤ āĻ†āĻŽāĻ°āĻž āĻāĻ‡ āĻ•āĻ˛ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° āĻĒāĻŋāĻĒāĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡āĻ° (āĻ¤ā§āĻ˛āĻ¨āĻž āĻ•āĻ°ā§āĻ¨
āĻāĻ›āĻžāĻĄāĻŧāĻžāĻ“ PDL::āĻ‡āĻ¨āĻĄā§‡āĻ•ā§āĻ¸āĻŋāĻ‚-āĻ āĻŦā§āĻ¯āĻžāĻ–ā§āĻ¯āĻžāĨ¤ āĻāĻ‡ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻ°ā§āĻŸāĻŋāĻ¨ āĻāĻ•āĻŸāĻŋ 1-āĻĄāĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻ¨ā§‡āĻ¯āĻŧ
āĻ‡āĻ¨āĻĒā§āĻŸ āĻāĻŦāĻ‚ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻāĻ•āĻŸāĻŋ 0-āĻĄāĻŋ āĻ¸ā§āĻ•ā§‡āĻ˛āĻžāĻ° āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°ā§‡āĨ¤ "$a()" PP āĻ•āĻ¨āĻ¸ā§āĻŸā§āĻ°āĻžāĻ•ā§āĻŸ āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸ āĻ•āĻ°āĻ¤ā§‡ āĻŦā§āĻ¯āĻŦāĻšā§ƒāĻ¤ āĻšāĻ¯āĻŧ
āĻ†āĻĒāĻ¨āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ…ā§āĻ¯āĻžāĻ°ā§‡āĻ° āĻ‰āĻĒāĻžāĻĻāĻžāĻ¨ a(n) - PP āĻ¸āĻŽāĻ¸ā§āĻ¤ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§€āĻ¯āĻŧ C āĻ•ā§‹āĻĄ āĻĒā§‚āĻ°āĻŖ āĻ•āĻ°ā§‡āĨ¤

āĻ†āĻĒāĻ¨āĻŋ āĻ˛āĻ•ā§āĻˇā§āĻ¯ āĻ•āĻ°āĻŦā§‡āĻ¨ āĻ¯ā§‡ āĻ†āĻŽāĻ°āĻž "q{}" āĻāĻ•āĻ•-āĻ‰āĻĻā§āĻ§ā§ƒāĻ¤āĻŋ āĻ…āĻĒāĻžāĻ°ā§‡āĻŸāĻ° āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ›āĻŋāĨ¤ āĻāĻ‡ āĻāĻ•āĻŸāĻŋ āĻ¨āĻž
āĻĻā§āĻ°ā§āĻ˜āĻŸāĻ¨āĻž āĻ†āĻĒāĻ¨āĻŋ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒāĻŋāĻĒāĻŋ āĻ•ā§‹āĻĄ āĻŦāĻŋāĻ­āĻžāĻ—āĻ—ā§āĻ˛āĻŋ āĻŦā§‹āĻāĻžāĻ¤ā§‡ āĻāĻ•āĻ• āĻ‰āĻĻā§āĻ§ā§ƒāĻ¤āĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨āĨ¤ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛::āĻĒāĻŋāĻĒāĻŋ
āĻāĻŸāĻŋāĻ° āĻĒāĻžāĻ°ā§āĻ¸āĻŋāĻ‚āĻ¯āĻŧā§‡āĻ° āĻœāĻ¨ā§āĻ¯ "$var()" āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻāĻŦāĻ‚ āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻāĻ•āĻ• āĻ‰āĻĻā§āĻ§ā§ƒāĻ¤āĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ¨āĻž āĻ•āĻ°ā§‡āĻ¨ āĻ¤āĻŦā§‡ āĻĒāĻžāĻ°ā§āĻ˛ āĻšā§‡āĻˇā§āĻŸāĻž āĻ•āĻ°āĻŦā§‡
āĻ‡āĻ¨ā§āĻŸāĻžāĻ°āĻĒā§‹āĻ˛ā§‡āĻŸ "$var()"āĨ¤ āĻāĻ›āĻžāĻĄāĻŧāĻžāĻ“, āĻ•ā§‹āĻāĻ•āĻĄāĻŧāĻž āĻ§āĻ¨ā§āĻ°ā§āĻŦāĻ¨ā§āĻ§āĻ¨ā§€ āĻ¸āĻš āĻāĻ•āĻ• āĻ‰āĻĻā§āĻ§ā§ƒāĻ¤āĻŋ "q" āĻ…āĻĒāĻžāĻ°ā§‡āĻŸāĻ° āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻāĻŸāĻŋ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§‡
āĻĻā§‡āĻ–ā§‡ āĻŽāĻ¨ā§‡ āĻšāĻšā§āĻ›ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸāĻŋ āĻ•ā§‹āĻĄ āĻŦā§āĻ˛āĻ• āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻ›ā§‡āĻ¨, āĻ¯āĻž āĻ†āĻĒāĻ¨āĻŋ āĻŦāĻ˛āĻ¤ā§‡ āĻšāĻžāĻšā§āĻ›ā§‡āĻ¨āĨ¤ (āĻĒāĻžāĻ°ā§āĻ˛ āĻ¯āĻĨā§‡āĻˇā§āĻŸ āĻ¸ā§āĻŽāĻžāĻ°ā§āĻŸ
āĻ¨ā§‡āĻ¸ā§āĻŸā§‡āĻĄ āĻ•ā§‹āĻāĻ•āĻĄāĻŧāĻž āĻ§āĻ¨ā§āĻ°ā§āĻŦāĻ¨ā§āĻ§āĻ¨ā§€ āĻ¸āĻ¨ā§āĻ§āĻžāĻ¨ āĻ•āĻ°ā§āĻ¨ āĻāĻŦāĻ‚ āĻ‰āĻĻā§āĻ§ā§ƒāĻ¤āĻŋāĻŸāĻŋ āĻŦāĻ¨ā§āĻ§ āĻ•āĻ°āĻŦā§‡āĻ¨ āĻ¨āĻž āĻ¯āĻ¤āĻ•ā§āĻˇāĻŖ āĻ¨āĻž āĻāĻŸāĻŋ āĻŽāĻŋāĻ˛ā§‡ āĻ¯āĻžāĻ“āĻ¯āĻŧāĻž āĻ•ā§‹āĻāĻ•āĻĄāĻŧāĻžāĻŸāĻŋ āĻ–ā§āĻāĻœā§‡ āĻĒāĻžāĻ¯āĻŧ
āĻŦāĻ¨ā§āĻ§āĻ¨ā§€, āĻ¤āĻžāĻ‡ āĻ¨ā§‡āĻ¸ā§āĻŸā§‡āĻĄ āĻŦā§āĻ˛āĻ• āĻ°āĻžāĻ–āĻž āĻ¨āĻŋāĻ°āĻžāĻĒāĻĻāĨ¤) āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻĒāĻ°āĻŋāĻ¸ā§āĻĨāĻŋāĻ¤āĻŋāĻ¤ā§‡, āĻ¯ā§‡āĻŽāĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻ–āĻ¨
āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚ āĻ¸āĻ‚āĻ¯ā§‹āĻœāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻāĻ•āĻŸāĻŋ āĻ•ā§‹āĻĄ āĻŦā§āĻ˛āĻ• āĻāĻ•āĻ¸āĻžāĻĨā§‡ āĻ¸ā§‡āĻ˛āĻžāĻ‡ āĻ•āĻ°āĻž, āĻāĻŸāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻĒā§āĻ°āĻžāĻ¯āĻŧāĻļāĻ‡ āĻ¸āĻšāĻœ
āĻŦāĻžāĻ¸ā§āĻ¤āĻŦ āĻāĻ•āĻ• āĻ‰āĻĻā§āĻ§ā§ƒāĻ¤āĻŋ āĻšāĻŋāĻ¸āĻžāĻŦā§‡

āĻ•ā§‹āĻĄ => 'something'.$interpolatable.'somethingelse;'

āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻāĻ–āĻžāĻ¨ā§‡ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ¸āĻŽāĻ¸ā§āĻ¤ āĻ‰āĻĒāĻžāĻĻāĻžāĻ¨ āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ āĻ¸ā§‡āĻ–āĻžāĻ¨ā§‡ āĻĒāĻŋāĻĒāĻŋ āĻ•āĻ¨āĻ¸ā§āĻŸā§āĻ°āĻžāĻ•āĻŸ "āĻ˛ā§āĻĒ(āĻāĻ¨)%{ ...
"n" āĻŽāĻžāĻ¤ā§āĻ°āĻžāĻ° āĻ¸āĻŽāĻ¸ā§āĻ¤ āĻ‰āĻĒāĻžāĻĻāĻžāĻ¨ āĻ˛ā§āĻĒ āĻ•āĻ°āĻ¤ā§‡ %}" āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§ˇ PP-āĻāĻ° āĻāĻ‡ āĻŦā§ˆāĻļāĻŋāĻˇā§āĻŸā§āĻ¯āĻŸāĻŋ āĻ¨ā§‹āĻŸ āĻ•āĻ°ā§āĻ¨: ALL
āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ¨āĻžāĻŽ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ.

āĻ†āĻŽāĻ°āĻž āĻĒāĻŋāĻĒāĻŋ āĻāĻĄāĻŧāĻŋāĻ¯āĻŧā§‡ āĻšāĻ˛āĻ˛ā§‡ āĻāĻŸāĻŋ āĻĒāĻ°āĻŋāĻˇā§āĻ•āĻžāĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ āĻ˛ā§āĻĒ() āĻ˛ā§āĻĒāĻŸāĻŋ āĻ¸ā§āĻĒāĻˇā§āĻŸāĻ­āĻžāĻŦā§‡ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§āĻ¨ āĻāĻŦāĻ‚ āĻ˛āĻŋāĻ–ā§āĻ¨
āĻĒā§āĻ°āĻšāĻ˛āĻŋāĻ¤ āĻ¸āĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡:

pp_def('āĻ¸ā§āĻŽāĻŋāĻ¤',
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(n); [āĻ“]āĻŦāĻŋ();',
āĻ•ā§‹āĻĄ => q{
int i,n_size;
āĻĄāĻŦāĻ˛ tmp;
n_size = $SIZE(n);
tmp = 0;
āĻœāĻ¨ā§āĻ¯(i=0; i
tmp += $a(n=>i);
}
$b() = tmp;
},
);

āĻ¯āĻž āĻ†āĻ—ā§‡āĻ° āĻŽāĻ¤āĻ‡ āĻ•āĻžāĻœ āĻ•āĻ°ā§‡, āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻ†āĻ°ā§‹ āĻĻā§€āĻ°ā§āĻ˜-āĻ‰āĻ¨ā§āĻ¨āĻ¤āĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻ‰āĻĒāĻžāĻĻāĻžāĻ¨ "i" āĻĒā§‡āĻ¤ā§‡ āĻĻā§‡āĻ–āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
a() āĻ†āĻŽāĻ°āĻž āĻŦāĻ˛āĻŋ "$a(n=>i)" - āĻ†āĻŽāĻ°āĻž "n" āĻ¨āĻžāĻŽā§‡ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻ›āĻŋāĨ¤ 2D āĻ¤ā§‡ āĻ†āĻŽāĻ°āĻž āĻŦāĻ˛āĻ¤ā§‡ āĻĒāĻžāĻ°āĻŋ:

Pars =>'a(m,n);',
...
tmp += $a(m=>i,n=>j);
...

āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸ "m=>i" āĻĒāĻžāĻ°ā§āĻ˛ āĻšā§āĻ¯āĻžāĻļ āĻĨā§‡āĻ•ā§‡ āĻ§āĻžāĻ° āĻ•āĻ°ā§‡, āĻ¯āĻž āĻŦāĻžāĻ¸ā§āĻ¤āĻŦā§‡ āĻŦāĻžāĻ¸ā§āĻ¤āĻŦāĻžāĻ¯āĻŧāĻ¨ā§‡ āĻŦā§āĻ¯āĻŦāĻšā§ƒāĻ¤ āĻšāĻ¯āĻŧ
āĻĒāĻŋāĻĒāĻŋ āĻāĻ°āĨ¤ āĻ•ā§‡āĻ‰ "$a(n=>j,m=>i)" āĻŦāĻ˛āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡ āĻ•āĻžāĻ°āĻŖ āĻ…āĻ°ā§āĻĄāĻžāĻ° āĻ—ā§āĻ°ā§āĻ¤ā§āĻŦāĻĒā§‚āĻ°ā§āĻŖ āĻ¨āĻ¯āĻŧāĨ¤

āĻ†āĻĒāĻ¨āĻŋ āĻ‰āĻĒāĻ°ā§‡āĻ° āĻ‰āĻĻāĻžāĻšāĻ°āĻŖā§‡ āĻ…āĻ¨ā§āĻ¯ āĻĒāĻŋāĻĒāĻŋ āĻ•āĻ¨āĻ¸ā§āĻŸā§āĻ°āĻžāĻ•ā§āĻŸ - $SIZE(n) āĻāĻ° āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻĻā§‡āĻ–āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
āĻŽāĻžāĻ¤ā§āĻ°āĻž "n" āĻāĻ° āĻĻā§ˆāĻ°ā§āĻ˜ā§āĻ¯āĨ¤

āĻ¤āĻŦā§‡, āĻāĻŸāĻŋ āĻ˛āĻ•ā§āĻˇ āĻ•āĻ°āĻž āĻ‰āĻšāĻŋāĻ¤ āĻ¯ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻ–āĻ¨ āĻĒāĻžāĻ°ā§‡āĻ¨ āĻ¤āĻ–āĻ¨ āĻāĻ•āĻŸāĻŋ āĻ¸ā§āĻĒāĻˇā§āĻŸ āĻ¸āĻŋ-āĻ˛ā§āĻĒ āĻ˛ā§‡āĻ–āĻž āĻ‰āĻšāĻŋāĻ¤ āĻ¨āĻ¯āĻŧ
PDL::PP āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ āĻ˛ā§āĻĒā§‡āĻ° āĻ¸ā§€āĻŽāĻž āĻšā§‡āĻ• āĻ•āĻ°āĻžāĻ° āĻĒāĻ° āĻĨā§‡āĻ•ā§‡ PP "āĻ˛ā§āĻĒ" āĻ•āĻ¨āĻ¸ā§āĻŸā§āĻ°āĻžāĻ•āĻŸ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡āĻ›ā§‡
āĻ†āĻĒāĻ¨āĻŋ, "āĻ˛ā§āĻĒ" āĻāĻ° āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•ā§‹āĻĄāĻŸāĻŋāĻ•ā§‡ āĻ†āĻ°āĻ“ āĻ¸āĻ‚āĻ•ā§āĻˇāĻŋāĻĒā§āĻ¤ āĻ•āĻ°ā§‡ āĻ¤ā§‹āĻ˛ā§‡, āĻ‡āĻ¤ā§āĻ¯āĻžāĻĻāĻŋāĨ¤ āĻ¤āĻŦā§‡ āĻ…āĻŦāĻļā§āĻ¯āĻ‡ āĻĒāĻ°āĻŋāĻ¸ā§āĻĨāĻŋāĻ¤āĻŋ āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡
āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ˛ā§āĻĒā§‡āĻ° āĻ¸ā§āĻ¸ā§āĻĒāĻˇā§āĻŸ āĻ¨āĻŋāĻ¯āĻŧāĻ¨ā§āĻ¤ā§āĻ°āĻŖ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ āĻāĻŦāĻ‚ āĻāĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻœāĻžāĻ¨ā§‡āĻ¨ āĻ•āĻŋāĻ­āĻžāĻŦā§‡ āĻāĻŸāĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻ¯āĻŧ;)āĨ¤

'āĻ•ā§‡āĻ¨ āĻĒāĻŋāĻĒāĻŋ?' - āĻœāĻ¨ā§āĻ¯ āĻ‰āĻĒāĻ°ā§‡āĻ° āĻ•ā§‹āĻĄ āĻ¸ā§āĻŽāĻŋāĻ¤() āĻĒā§āĻ°āĻ¤āĻŋāĻŸāĻŋ āĻĄā§‡āĻŸāĻž-āĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž āĻšāĻŦā§‡āĨ¤ āĻāĻŸāĻž
'āĻ‡āĻ¨-āĻĒā§āĻ˛ā§‡āĻ¸' āĻ…ā§āĻ¯āĻžāĻ°ā§‡āĻ° āĻ¸ā§āĻ˛āĻžāĻ‡āĻ¸āĻ—ā§āĻ˛āĻŋāĻ¤ā§‡ āĻ•āĻžāĻœ āĻ•āĻ°āĻŦā§‡āĨ¤ āĻāĻŸāĻŋ āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ āĻĨā§āĻ°ā§‡āĻĄ āĻšāĻŦā§‡ - āĻ¯ā§‡āĻŽāĻ¨ āĻ¯āĻĻāĻŋ āĻāĻ•āĻŸāĻŋ 2D āĻšāĻ¯āĻŧ
āĻ…ā§āĻ¯āĻžāĻ°ā§‡ āĻĻā§‡āĻ“āĻ¯āĻŧāĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡ āĻāĻŸāĻŋ āĻĒā§āĻ°āĻ¤āĻŋāĻŸāĻŋ 1D āĻ¸āĻžāĻ°āĻŋāĻ° āĻœāĻ¨ā§āĻ¯ āĻŦāĻžāĻ°āĻŦāĻžāĻ° āĻ•āĻ˛ āĻ•āĻ°āĻž āĻšāĻŦā§‡ (āĻ†āĻŦāĻžāĻ° PDL::āĻāĻ° āĻœāĻ¨ā§āĻ¯ āĻ‡āĻ¨āĻĄā§‡āĻ•ā§āĻ¸āĻŋāĻ‚ āĻĒāĻ°ā§€āĻ•ā§āĻˇāĻž āĻ•āĻ°ā§āĻ¨
āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚āĻ¯āĻŧā§‡āĻ° āĻŦāĻŋāĻŦāĻ°āĻŖ)āĨ¤ āĻāĻŦāĻ‚ āĻ¤āĻžāĻ°āĻĒāĻ° b() āĻšāĻŦā§‡ āĻĒā§āĻ°āĻ¤āĻŋāĻŸāĻŋ āĻ¸āĻžāĻ°āĻŋāĻ° āĻ¯ā§‹āĻ—āĻĢāĻ˛ā§‡āĻ° āĻāĻ•āĻŸāĻŋ 1D āĻ…ā§āĻ¯āĻžāĻ°ā§‡āĨ¤ āĻ†āĻŽāĻ°āĻž āĻĒāĻžāĻ°āĻ¤āĻžāĻŽ
āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤ā§‡ āĻ•āĻ˛āĻžāĻŽ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻ¤ā§‡ $a->xchg(0,1) āĻĻāĻŋāĻ¯āĻŧā§‡ āĻ•āĻ˛ āĻ•āĻ°ā§āĻ¨āĨ¤ āĻāĻŦāĻ‚ āĻĄā§‡āĻŸāĻžāĻĢā§āĻ˛ā§‹ āĻŸā§āĻ°ā§‡āĻ¸āĻŋāĻ‚ āĻ‡āĻ¤ā§āĻ¯āĻžāĻĻāĻŋ āĻšāĻŦā§‡
āĻĒāĻžāĻ“āĻ¯āĻŧāĻž āĻ¯āĻžāĻ¯āĻŧ.

āĻ†āĻĒāĻ¨āĻŋ āĻĻā§‡āĻ–āĻ¤ā§‡ āĻĒāĻžāĻšā§āĻ›ā§‡āĻ¨ āĻ¯ā§‡ āĻĒāĻŋāĻĒāĻŋ āĻĒā§āĻ°ā§‹āĻ—ā§āĻ°āĻžāĻŽāĻžāĻ°āĻ•ā§‡ āĻ…āĻ¨ā§‡āĻ• āĻ…āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§€āĻ¯āĻŧ āĻĒā§āĻ¨āĻ°āĻžāĻŦā§ƒāĻ¤ā§āĻ¤āĻŋāĻŽā§‚āĻ˛āĻ• āĻ¸āĻŋ-āĻ•ā§‹āĻĄ āĻ˛ā§‡āĻ–āĻž āĻĨā§‡āĻ•ā§‡ āĻŦāĻžāĻāĻšāĻžāĻ¯āĻŧ --
āĻ†āĻŽāĻžāĻĻā§‡āĻ° āĻŽāĻ¤ā§‡ āĻāĻŸāĻŋ PDL āĻ¤ā§ˆāĻ°āĻŋāĻ° āĻ¨āĻ¤ā§āĻ¨ āĻ¸āĻŋ āĻ¸āĻžāĻŦāĻ°ā§āĻŸāĻŋāĻ¨ āĻ˛ā§‡āĻ–āĻžāĻ° āĻ…āĻ¨ā§āĻ¯āĻ¤āĻŽ āĻ¸ā§‡āĻ°āĻž āĻŦā§ˆāĻļāĻŋāĻˇā§āĻŸā§āĻ¯
PDL-āĻāĻ° āĻœāĻ¨ā§āĻ¯ āĻāĻ•āĻŸāĻŋ āĻ†āĻļā§āĻšāĻ°ā§āĻ¯āĻœāĻ¨āĻ•āĻ­āĻžāĻŦā§‡ āĻ¸āĻ‚āĻ•ā§āĻˇāĻŋāĻĒā§āĻ¤ āĻŦā§āĻ¯āĻžāĻ¯āĻŧāĻžāĻŽāĨ¤ āĻāĻ•āĻŸāĻŋ āĻĻā§āĻŦāĻŋāĻ¤ā§€āĻ¯āĻŧ āĻ•āĻžāĻ°āĻŖ āĻšāĻ˛ āĻĒāĻŋāĻĒāĻŋ āĻĒā§āĻ°āĻ¸āĻžāĻ°āĻŋāĻ¤ āĻ•āĻ°āĻžāĻ° āĻ•ā§āĻˇāĻŽāĻ¤āĻž
āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¸āĻ‚āĻ•ā§āĻˇāĻŋāĻĒā§āĻ¤ āĻ•ā§‹āĻĄ āĻ¸āĻ‚āĻœā§āĻžāĻž āĻ•āĻŽā§āĻĒāĻŋāĻ‰āĻŸāĻžāĻ°ā§‡āĻ° āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§‡āĻ° āĻ‰āĻĒāĻ° āĻ­āĻŋāĻ¤ā§āĻ¤āĻŋ āĻ•āĻ°ā§‡ āĻŦāĻŋāĻ­āĻŋāĻ¨ā§āĻ¨ āĻ¸āĻŋ āĻ•ā§‹āĻĄā§‡
āĻĒā§āĻ°āĻļā§āĻ¨āĻŦāĻŋāĻĻā§āĻ§ āĻ¸ā§āĻĨāĻžāĻĒāĻ¤ā§āĻ¯. āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻ¸ā§āĻŦāĻ°ā§‚āĻĒ āĻ•āĻ˛ā§āĻĒāĻ¨āĻž āĻ•āĻ°ā§āĻ¨ āĻ¯ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸāĻŋ āĻ¸ā§āĻĒāĻžāĻ° āĻ•āĻŽā§āĻĒāĻŋāĻ‰āĻŸāĻžāĻ° āĻĒā§‡āĻ¯āĻŧā§‡ āĻ­āĻžāĻ—ā§āĻ¯āĻŦāĻžāĻ¨
āĻ¤ā§āĻŽāĻžāĻ° āĻšāĻžāĻ¤; āĻ¸ā§‡āĻ‡ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻ†āĻĒāĻ¨āĻŋ PDL::PP āĻ…āĻŦāĻļā§āĻ¯āĻ‡ āĻāĻŽāĻ¨ āĻ•ā§‹āĻĄ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨ āĻ¯āĻž āĻ¸ā§āĻŦāĻŋāĻ§āĻž āĻ¨ā§‡āĻ¯āĻŧ
āĻ†āĻĒāĻ¨āĻžāĻ° āĻŽā§‡āĻļāĻŋāĻ¨ā§‡āĻ° āĻ­ā§‡āĻ•ā§āĻŸāĻ°āĻžāĻ‡āĻœāĻŋāĻ‚/āĻ¸āĻŽāĻžāĻ¨ā§āĻ¤āĻ°āĻžāĻ˛ āĻ•āĻŽā§āĻĒāĻŋāĻ‰āĻŸāĻŋāĻ‚ āĻŦā§ˆāĻļāĻŋāĻˇā§āĻŸā§āĻ¯āĻ—ā§āĻ˛āĻŋāĻ° (āĻāĻŸāĻŋ āĻāĻ•āĻŸāĻŋ āĻĒā§āĻ°āĻ•āĻ˛ā§āĻĒ
āĻ­āĻŦāĻŋāĻˇā§āĻ¯āĻ¤)āĨ¤ āĻ¯āĻžāĻ‡ āĻšā§‹āĻ• āĻ¨āĻž āĻ•ā§‡āĻ¨, āĻ¨ā§€āĻšā§‡āĻ° āĻ˛āĻžāĻ‡āĻ¨ āĻšāĻ˛ āĻ¯ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ…āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻŋāĻ¤ āĻ•ā§‹āĻĄāĻŸāĻŋ āĻāĻ–āĻ¨āĻ“ āĻĒā§āĻ°āĻ¸āĻžāĻ°āĻŋāĻ¤ āĻšāĻ“āĻ¯āĻŧāĻž āĻ‰āĻšāĻŋāĻ¤
PDL āĻāĻ° āĻ…āĻ­ā§āĻ¯āĻ¨ā§āĻ¤āĻ°ā§€āĻŖ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻŋāĻ¤ āĻšāĻ˛ā§‡āĻ“ XS āĻ•ā§‹āĻĄ āĻ•āĻžāĻœ āĻ•āĻ°ā§‡āĨ¤

āĻāĻ›āĻžāĻĄāĻŧāĻžāĻ“, āĻ¯ā§‡āĻšā§‡āĻ¤ā§ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸāĻŋ āĻĒā§āĻ°āĻ•ā§ƒāĻ¤ āĻĒāĻžāĻ°ā§āĻ˛ āĻ¸ā§āĻ•ā§āĻ°āĻŋāĻĒā§āĻŸā§‡ āĻ•ā§‹āĻĄ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻ›ā§‡āĻ¨, āĻ¸ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ…āĻ¨ā§‡āĻ• āĻŽāĻœāĻž āĻ†āĻ›ā§‡
āĻ†āĻĒāĻ¨āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨ āĻ¯ā§‡ āĻœāĻŋāĻ¨āĻŋāĻ¸. āĻ§āĻ°āĻž āĻ¯āĻžāĻ• āĻ¯ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ sumit (āĻ‰āĻĒāĻ°ā§‡āĻ° āĻŽāĻ¤) āĻāĻŦāĻ‚ multit āĻ‰āĻ­āĻ¯āĻŧāĻ‡ āĻ˛āĻŋāĻ–āĻ¤ā§‡ āĻšāĻŦā§‡āĨ¤
āĻāĻ•āĻŸā§ āĻ¸ā§ƒāĻœāĻ¨āĻļā§€āĻ˛āĻ¤āĻžāĻ° āĻ¸āĻžāĻĨā§‡, āĻ†āĻŽāĻ°āĻž āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°āĻŋ

āĻāĻ° āĻœāĻ¨ā§āĻ¯ ({āĻ¨āĻžāĻŽ => 'āĻ¸ā§āĻŽāĻŋāĻ¤', āĻ‡āĻ¨āĻŋāĻŸ => '0', āĻ…āĻĒ => '+='},
{āĻ¨āĻžāĻŽ => 'āĻŽāĻžāĻ˛ā§āĻŸāĻŋāĻŸ', āĻ‡āĻ¨āĻŋāĻŸ => '1', āĻ…āĻĒ => '*='}) {
pp_def($_->{āĻ¨āĻžāĻŽ},
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(n); [āĻ“]āĻŦāĻŋ();',
āĻ•ā§‹āĻĄ => '
āĻĄāĻŦāĻ˛ tmp;
tmp = '.$_->{Init}.';
āĻ˛ā§āĻĒ(n) %{
tmp '.$_->{āĻ…āĻĒ}āĨ¤' $a();
%}
$b() = tmp;
');
}

āĻ¯āĻž āĻ‰āĻ­āĻ¯āĻŧ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¸āĻšāĻœā§‡āĻ‡ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°ā§‡āĨ¤ āĻāĻ–āĻ¨, āĻ¯āĻĻāĻŋ āĻ†āĻĒāĻ¨āĻŋ āĻĒāĻ°ā§‡ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡ āĻŦāĻž
āĻŽāĻžāĻ¤ā§āĻ°āĻŋāĻ•āĻ¤āĻž āĻŦāĻž āĻ¯āĻžāĻ‡ āĻšā§‹āĻ• āĻ¨āĻž āĻ•ā§‡āĻ¨, āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ•ā§‹āĻĄā§‡ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻāĻ•āĻŸāĻŋ āĻœāĻžāĻ¯āĻŧāĻ—āĻž āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡āĨ¤ āĻšā§āĻ¯āĻž āĻ…āĻŦāĻļā§āĻ¯āĻ‡,
āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¸āĻŽā§āĻĒāĻžāĻĻāĻ•ā§‡āĻ° 'āĻ•āĻžāĻŸ āĻāĻŦāĻ‚ āĻĒā§‡āĻ¸ā§āĻŸ' āĻāĻŦāĻ‚ 'āĻ…āĻ¨ā§āĻ¸āĻ¨ā§āĻ§āĻžāĻ¨ āĻāĻŦāĻ‚ āĻĒā§āĻ°āĻ¤āĻŋāĻ¸ā§āĻĨāĻžāĻĒāĻ¨' āĻ†āĻ›ā§‡ āĻ¤āĻŦā§‡ āĻāĻŸāĻŋ āĻāĻ–āĻ¨āĻ“ āĻ•āĻŽ
āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻāĻ•āĻŸāĻŋ āĻœāĻžāĻ¯āĻŧāĻ—āĻž āĻ­ā§āĻ˛ā§‡ āĻ¯āĻžāĻ“āĻ¯āĻŧāĻž āĻāĻŦāĻ‚ āĻ…āĻĻā§āĻ­ā§āĻ¤ āĻŦāĻžāĻ— āĻĨāĻžāĻ•āĻž āĻŦāĻŋāĻ°āĻ•ā§āĻ¤āĻŋāĻ•āĻ° āĻāĻŦāĻ‚ āĻ…āĻŦāĻļā§āĻ¯āĻ‡ āĻ†āĻ°āĻ“ āĻ•āĻ āĻŋāĻ¨
creep in. āĻāĻ›āĻžāĻĄāĻŧāĻžāĻ“, 'orit' (bitwise āĻŦāĻž) āĻĒāĻ°ā§‡ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻž āĻāĻ•āĻŸāĻŋ āĻ“āĻ¯āĻŧāĻžāĻ¨-āĻ˛āĻžāĻ‡āĻ¨āĻžāĻ°āĨ¤

āĻāĻŦāĻ‚ āĻŽāĻ¨ā§‡ āĻ°āĻžāĻ–āĻŦā§‡āĻ¨, āĻ†āĻĒāĻ¨āĻžāĻ° āĻ•āĻžāĻ›ā§‡ āĻ¸āĻ¤ā§āĻ¯āĻŋāĻ‡ āĻĒāĻžāĻ°ā§āĻ˛ā§‡āĻ° āĻ¸āĻŽā§āĻĒā§‚āĻ°ā§āĻŖ āĻ•ā§āĻˇāĻŽāĻ¤āĻž āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡ - āĻ†āĻĒāĻ¨āĻŋ āĻ–ā§āĻŦ āĻ¸āĻšāĻœā§‡āĻ‡ āĻĒāĻĄāĻŧāĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
āĻ¯ā§‡āĻ•ā§‹āĻ¨ā§‹ āĻ‡āĻ¨āĻĒā§āĻŸ āĻĢāĻžāĻ‡āĻ˛ āĻāĻŦāĻ‚ āĻ¸ā§‡āĻ‡ āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻ¤āĻĨā§āĻ¯ āĻĨā§‡āĻ•ā§‡ āĻ°ā§āĻŸāĻŋāĻ¨ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§āĻ¨āĨ¤ āĻ¯ā§‡āĻŽāĻ¨ āĻ¸āĻšāĻœ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡
āĻ‰āĻĒāĻ°ā§‡āĻ°, āĻ˛ā§‡āĻ–āĻ• (Tjl) āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ā§‡ āĻ‰āĻĒāĻ°ā§‡āĻ° āĻŽāĻ¤ āĻšā§āĻ¯āĻžāĻļ āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ° āĻĒāĻ•ā§āĻˇā§‡ - āĻāĻŸāĻŋ āĻ–ā§āĻŦ āĻŦā§‡āĻļāĻŋ āĻ¨āĻ¯āĻŧ
āĻ¸āĻ‚āĻļā§āĻ˛āĻŋāĻˇā§āĻŸ āĻ…ā§āĻ¯āĻžāĻ°ā§‡ āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ° āĻ¤ā§āĻ˛āĻ¨āĻžāĻ¯āĻŧ āĻ…āĻ¨ā§‡āĻ• āĻŦā§‡āĻļāĻŋ āĻ…āĻ•ā§āĻˇāĻ° āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻŦā§‹āĻāĻž āĻ…āĻ¨ā§‡āĻ• āĻ¸āĻšāĻœ āĻāĻŦāĻ‚
āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨.

āĻ†āĻŽāĻžāĻĻā§‡āĻ° āĻāĻ–āĻžāĻ¨ā§‡ āĻĄā§‡āĻŸāĻžāĻ° āĻļā§āĻ°ā§āĻ¤ā§‡ āĻĒāĻ¯āĻŧā§‡āĻ¨ā§āĻŸāĻžāĻ° āĻĒāĻžāĻ“āĻ¯āĻŧāĻžāĻ° āĻ•ā§āĻˇāĻŽāĻ¤āĻžāĻ“ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°āĻž āĻ‰āĻšāĻŋāĻ¤
āĻŽā§‡āĻŽāĻ°āĻŋ - āĻ•āĻŋāĻ›ā§ āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋāĻ¤ā§‡ PDL āĻ‡āĻ¨ā§āĻŸāĻžāĻ°āĻĢā§‡āĻ¸ āĻ•āĻ°āĻžāĻ° āĻĒā§‚āĻ°ā§āĻŦāĻļāĻ°ā§āĻ¤āĨ¤ āĻāĻ‡ āĻ¸āĻ™ā§āĻ—ā§‡ āĻĒāĻ°āĻŋāĻšāĻžāĻ˛āĻŋāĻ¤ āĻšāĻ¯āĻŧ
"$P(var)" āĻ¨āĻŋāĻ°ā§āĻĻā§‡āĻļāĻŋāĻ•āĻž, āĻ¨ā§€āĻšā§‡ āĻĻā§‡āĻ–ā§āĻ¨āĨ¤

āĻāĻ•āĻŸāĻŋ āĻ¨āĻ¤ā§āĻ¨ pp_def'ined āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡ āĻ•āĻžāĻœ āĻļā§āĻ°ā§ āĻ•āĻ°āĻžāĻ° āĻ¸āĻŽāĻ¯āĻŧ, āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻ­ā§āĻ˛ āĻ•āĻ°ā§‡āĻ¨ āĻ¤āĻŦā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ āĻ•āĻ°āĻŦā§‡āĻ¨
āĻ‰ā§ŽāĻĒāĻ¨ā§āĻ¨ XS āĻĢāĻžāĻ‡āĻ˛ā§‡ āĻ˛āĻžāĻ‡āĻ¨ āĻ¸āĻ‚āĻ–ā§āĻ¯āĻž āĻ¨āĻŋāĻ°ā§āĻĻā§‡āĻļ āĻ•āĻ°ā§‡ āĻ•āĻŽā§āĻĒāĻžāĻ‡āĻ˛āĻžāĻ° āĻ¤ā§āĻ°ā§āĻŸāĻŋāĻ° āĻāĻ•āĻŸāĻŋ āĻ—āĻžāĻĻāĻž āĻ–ā§āĻāĻœā§āĻ¨āĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ
XS āĻĢāĻžāĻ‡āĻ˛āĻ—ā§āĻ˛āĻŋ āĻ•ā§€āĻ­āĻžāĻŦā§‡ āĻĒāĻĄāĻŧāĻ¤ā§‡ āĻšāĻ¯āĻŧ āĻ¤āĻž āĻœāĻžāĻ¨ā§āĻ¨ (āĻŦāĻž āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻ•āĻ āĻŋāĻ¨ āĻ‰āĻĒāĻžāĻ¯āĻŧā§‡ āĻļāĻŋāĻ–āĻ¤ā§‡ āĻšāĻžāĻ¨), āĻ†āĻĒāĻ¨āĻŋ āĻ–ā§āĻ˛āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
XS āĻĢāĻžāĻ‡āĻ˛ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§āĻ¨ āĻāĻŦāĻ‚ āĻ¤ā§āĻ°ā§āĻŸāĻŋ āĻ¸āĻš āĻ˛āĻžāĻ‡āĻ¨ āĻ¨āĻŽā§āĻŦāĻ° āĻ…āĻ¨ā§āĻ¸āĻ¨ā§āĻ§āĻžāĻ¨ āĻ•āĻ°ā§āĻ¨āĨ¤ āĻ¤āĻŦā§‡ āĻ¸āĻžāĻŽā§āĻĒā§āĻ°āĻ¤āĻŋāĻ• āĻāĻ•āĻŸāĻŋ
PDL::PP āĻāĻ° āĻ¸āĻžāĻĨā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¤ā§āĻ°ā§āĻŸāĻŋāĻ° āĻ¸āĻ āĻŋāĻ• āĻ˛āĻžāĻ‡āĻ¨ āĻ¨āĻŽā§āĻŦāĻ° āĻ°āĻŋāĻĒā§‹āĻ°ā§āĻŸ āĻ•āĻ°āĻ¤ā§‡ āĻ¸āĻžāĻšāĻžāĻ¯ā§āĻ¯ āĻ•āĻ°ā§‡:
"pp_line_numbers"āĨ¤ āĻŽā§‚āĻ˛ āĻ¸āĻžāĻŽāĻŋāĻŸ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖā§‡āĻ° āĻ¸āĻžāĻĨā§‡ āĻ•āĻžāĻœ āĻ•āĻ°āĻž, āĻ¯āĻĻāĻŋ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ­ā§āĻ˛ āĻŦāĻžāĻ¨āĻžāĻ¨ āĻĨāĻžāĻ•ā§‡
āĻ†āĻĒāĻ¨āĻžāĻ° āĻ•ā§‹āĻĄā§‡ tmp, āĻ†āĻĒāĻ¨āĻŋ (erroneos) āĻ•ā§‹āĻĄāĻŸāĻŋāĻ•ā§‡ āĻāĻ°āĻ•āĻŽ āĻ•āĻŋāĻ›ā§āĻ¤ā§‡ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨ āĻāĻŦāĻ‚
āĻ•āĻŽā§āĻĒāĻžāĻ‡āĻ˛āĻžāĻ° āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻ†āĻ°āĻ“ āĻ…āĻ¨ā§‡āĻ• āĻĻāĻ°āĻ•āĻžāĻ°ā§€ āĻ¤āĻĨā§āĻ¯ āĻĻā§‡āĻŦā§‡:

pp_def('āĻ¸ā§āĻŽāĻŋāĻ¤',
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(n); [āĻ“]āĻŦāĻŋ();',
āĻ•ā§‹āĻĄ => pp_line_numbers(__LINE__, q{
āĻĄāĻŦāĻ˛ tmp;
tmp = 0;
āĻ˛ā§āĻĒ(n) %{
tmp += $a();
%}
$b() = rmp;
})
);

āĻ‰āĻĒāĻ°ā§‡āĻ° āĻĒāĻ°āĻŋāĻ¸ā§āĻĨāĻŋāĻ¤āĻŋāĻ° āĻœāĻ¨ā§āĻ¯, āĻ†āĻŽāĻžāĻ° āĻ•āĻŽā§āĻĒāĻžāĻ‡āĻ˛āĻžāĻ° āĻ†āĻŽāĻžāĻ•ā§‡ āĻŦāĻ˛ā§‡:

...
test.pd:15: āĻ¤ā§āĻ°ā§āĻŸāĻŋ: 'rmp' āĻ…āĻ˜ā§‹āĻˇāĻŋāĻ¤ (āĻāĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡ āĻĒā§āĻ°āĻĨāĻŽ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°)
...

āĻ†āĻŽāĻžāĻ° āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻ¸ā§āĻ•ā§āĻ°āĻŋāĻĒā§āĻŸā§‡ (āĻ¯āĻžāĻ•ā§‡ test.pd āĻŦāĻ˛āĻž āĻšāĻ¯āĻŧ), āĻ˛āĻžāĻ‡āĻ¨ 15 āĻ āĻŋāĻ• āĻ¸ā§‡āĻ‡ āĻ˛āĻžāĻ‡āĻ¨āĻŸāĻŋ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ†āĻŽāĻŋ āĻ†āĻŽāĻžāĻ° āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§‡āĻ›āĻŋ
āĻŸāĻžāĻ‡āĻĒā§‹: "tmp" āĻāĻ° āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤ā§‡ "rmp"āĨ¤

āĻ¸ā§āĻ¤āĻ°āĻžāĻ‚, āĻĒā§āĻ°ā§‹āĻ—ā§āĻ°āĻžāĻŽāĻŋāĻ‚ PDL āĻ°ā§āĻŸāĻŋāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ āĻ¸ā§āĻŦāĻžāĻĻ āĻāĻ‡ āĻĻā§āĻ°ā§āĻ¤ āĻ“āĻ­āĻžāĻ°āĻ­āĻŋāĻ‰ āĻĒāĻ°ā§‡
PDL::PP āĻāĻ° āĻ¸āĻ‚āĻ•ā§āĻˇāĻŋāĻĒā§āĻ¤ āĻŦāĻŋāĻŦāĻ°āĻŖ āĻĻā§‡āĻ“āĻ¯āĻŧāĻž āĻ¯āĻžāĻ• āĻ•ā§‹āĻ¨ āĻĒāĻ°āĻŋāĻ¸ā§āĻĨāĻŋāĻ¤āĻŋāĻ¤ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ†āĻ¸āĻ˛ā§‡ āĻāĻŸāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻ‰āĻšāĻŋāĻ¤
āĻĒā§āĻ°āĻŋāĻĒā§āĻ°āĻ¸ā§‡āĻ¸āĻ°/āĻĒā§āĻ°āĻŋ-āĻ•āĻŽā§āĻĒāĻžāĻ‡āĻ˛āĻžāĻ°āĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻšāĻžāĻ¨ PDL::PP āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨

¡ āĻ•āĻŋāĻ›ā§ āĻŦāĻšāĻŋāĻ°āĻžāĻ—āĻ¤ āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋāĻ¤ā§‡ āĻ‡āĻ¨ā§āĻŸāĻžāĻ°āĻĢā§‡āĻ¸ PDL

¡ āĻ•āĻŋāĻ›ā§ āĻ…ā§āĻ¯āĻžāĻ˛āĻ—āĻ°āĻŋāĻĻāĻŽ āĻ˛āĻŋāĻ–ā§āĻ¨ āĻ¯āĻž āĻĒāĻžāĻ°ā§āĻ˛ā§‡ āĻ•ā§‹āĻĄ āĻ•āĻ°āĻž āĻšāĻ˛ā§‡ āĻ§ā§€āĻ° āĻšāĻŦā§‡ (āĻāĻŸāĻŋ āĻ†āĻĒāĻ¨āĻžāĻ° āĻŽāĻ¤ā§‹ āĻĒā§āĻ°āĻžāĻ¯āĻŧāĻ‡ āĻ¨āĻ¯āĻŧ
āĻšāĻŋāĻ¨ā§āĻ¤āĻž āĻ•āĻ°āĻž āĻĒā§āĻ°āĻĨāĻŽā§‡ āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ āĻāĻŦāĻ‚ āĻĄā§‡āĻŸāĻžāĻĢā§āĻ˛ā§‹ āĻĻā§‡āĻ–ā§āĻ¨)āĨ¤

¡ āĻāĻ•āĻœāĻ¨ PDL āĻŦāĻŋāĻ•āĻžāĻļāĻ•āĻžāĻ°ā§€ āĻšāĻ¨ (āĻāĻŦāĻ‚ āĻ¤āĻžāĻ°āĻĒāĻ°ā§‡āĻ“ āĻāĻŸāĻŋ āĻŦāĻžāĻ§ā§āĻ¯āĻ¤āĻžāĻŽā§‚āĻ˛āĻ• āĻ¨āĻ¯āĻŧ)

āĻ¸āĻ¤āĻ°ā§āĻ•āĻ¤āĻžāĻŽā§‚āĻ˛āĻ•


āĻāĻ° āĻ¸ā§āĻĨāĻžāĻĒāĻ¤ā§āĻ¯ā§‡āĻ° āĻ•āĻžāĻ°āĻŖā§‡, PDL::PP āĻāĻ•āĻĻāĻŋāĻ•ā§‡ āĻ¨āĻŽāĻ¨ā§€āĻ¯āĻŧ āĻāĻŦāĻ‚ āĻ¸āĻšāĻœā§‡ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻ¯ā§‡āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡,
āĻāĻ–āĻ¨āĻ“ āĻāĻ•āĻ‡ āĻ¸āĻŽāĻ¯āĻŧā§‡ exuberantly āĻœāĻŸāĻŋāĻ˛. āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ā§‡, āĻ¸āĻŽāĻ¸ā§āĻ¯āĻžāĻ° āĻ…āĻ‚āĻļ āĻšāĻ˛ āĻ¸ā§‡āĻ‡ āĻ¤ā§āĻ°ā§āĻŸāĻŋ
āĻŦāĻžāĻ°ā§āĻ¤āĻžāĻ—ā§āĻ˛āĻŋ āĻ–ā§āĻŦ āĻ¤āĻĨā§āĻ¯āĻĒā§‚āĻ°ā§āĻŖ āĻ¨āĻ¯āĻŧ āĻāĻŦāĻ‚ āĻ¯āĻĻāĻŋ āĻ•āĻŋāĻ›ā§ āĻ­ā§āĻ˛ āĻšāĻ¯āĻŧā§‡ āĻ¯āĻžāĻ¯āĻŧ āĻ¤āĻŦā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ•ā§€ āĻœāĻžāĻ¨ā§‡āĻ¨ āĻ¤āĻž āĻ†āĻĒāĻ¨āĻŋ āĻ†āĻ°āĻ“ āĻ­āĻžāĻ˛āĻ­āĻžāĻŦā§‡ āĻœāĻžāĻ¨āĻ¤ā§‡ āĻšāĻžāĻ¨
āĻ•āĻ°āĻ›ā§‡āĻ¨ āĻāĻŦāĻ‚ āĻ…āĻ­ā§āĻ¯āĻ¨ā§āĻ¤āĻ°ā§€āĻŖ āĻŽāĻžāĻ§ā§āĻ¯āĻŽā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒāĻĨ āĻšā§āĻ¯āĻžāĻ• āĻ•āĻ°āĻ¤ā§‡ āĻ¸āĻ•ā§āĻˇāĻŽ āĻšāĻŦā§‡āĻ¨ (āĻŦāĻž āĻāĻ° āĻĻā§āĻŦāĻžāĻ°āĻž āĻŦā§‡āĻ° āĻ•āĻ°āĻ¤ā§‡ āĻ¸āĻ•ā§āĻˇāĻŽ āĻšāĻŦā§‡āĻ¨
āĻŸā§āĻ°āĻžāĻ¯āĻŧāĻžāĻ˛ āĻāĻŦāĻ‚ āĻ¤ā§āĻ°ā§āĻŸāĻŋ "pp_def" āĻ āĻ†āĻĒāĻ¨āĻžāĻ° args āĻāĻ° āĻ¸āĻžāĻĨā§‡ āĻ•āĻŋ āĻ­ā§āĻ˛)āĨ¤ āĻ¯āĻĻāĻŋāĻ“ āĻ•āĻžāĻœ āĻ•āĻ°āĻž āĻšāĻšā§āĻ›ā§‡
āĻ†āĻ°āĻ“ āĻ­āĻžāĻ˛ āĻ¸āĻ¤āĻ°ā§āĻ•āĻ¤āĻž āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§āĻ¨, āĻ¯āĻĻāĻŋ āĻŽā§‡āĻ‡āĻ˛āĻŋāĻ‚ āĻ¤āĻžāĻ˛āĻŋāĻ•āĻžāĻ¯āĻŧ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒā§āĻ°āĻļā§āĻ¨ āĻĒāĻžāĻ āĻžāĻ¤ā§‡ āĻ­āĻ¯āĻŧ āĻĒāĻžāĻŦā§‡āĻ¨ āĻ¨āĻž
āĻ†āĻĒāĻ¨āĻŋ āĻ¸āĻŽāĻ¸ā§āĻ¯āĻžāĻ¯āĻŧ āĻĒāĻĄāĻŧā§‡āĻ¨āĨ¤

āĻŦāĻ°ā§āĻŖāĻ¨āĻžāĻƒ


āĻ¨āĻ¤ā§āĻ¨ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ āĻĢāĻžāĻ‚āĻļāĻ¨āĻ—ā§āĻ˛āĻŋāĻ•ā§‡ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°āĻ¤ā§‡ "pp_def" āĻ•ā§€āĻ­āĻžāĻŦā§‡ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻŦā§‡āĻ¨ āĻ¤āĻž āĻāĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ•āĻžāĻ›ā§‡ āĻ•āĻŋāĻ›ā§ āĻ§āĻžāĻ°āĻŖāĻž āĻ†āĻ›ā§‡ āĻāĻŸāĻŋ āĻ•āĻ°āĻžāĻ° āĻ¸āĻŽāĻ¯āĻŧ
"pp_def" āĻāĻ° āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸ āĻŦā§āĻ¯āĻžāĻ–ā§āĻ¯āĻž āĻ•āĻ°ā§āĻ¨āĨ¤ "pp_def" āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻšāĻŋāĻ¸ā§‡āĻŦā§‡ āĻĒā§āĻ°āĻĨāĻŽā§‡ āĻāĻ° āĻ¨āĻžāĻŽ āĻ¨ā§‡āĻ¯āĻŧ
āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°āĻ›ā§‡āĻ¨ āĻāĻŦāĻ‚ āĻ¤āĻžāĻ°āĻĒāĻ° āĻāĻ•āĻŸāĻŋ āĻšā§āĻ¯āĻžāĻļ āĻ¤āĻžāĻ˛āĻŋāĻ•āĻž āĻ¯āĻž āĻŦāĻŋāĻ­āĻŋāĻ¨ā§āĻ¨ āĻ•ā§€ āĻ§āĻžāĻ°āĻŖ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĨ¤

āĻāĻ‡ āĻ•ā§€āĻ—ā§āĻ˛āĻŋāĻ° āĻ‰āĻĒāĻ° āĻ­āĻŋāĻ¤ā§āĻ¤āĻŋ āĻ•āĻ°ā§‡ PP XS āĻ•ā§‹āĻĄ āĻāĻŦāĻ‚ āĻāĻ•āĻŸāĻŋ .pm āĻĢāĻžāĻ‡āĻ˛ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§‡āĨ¤ āĻĢāĻžāĻ‚āĻļāĻ¨ "pp_done" (āĻĻā§‡āĻ–ā§āĻ¨
SYNOPSIS-āĻ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ) PDL::PP āĻŦāĻ˛āĻ¤ā§‡ āĻŦā§āĻ¯āĻŦāĻšā§ƒāĻ¤ āĻšāĻ¯āĻŧ āĻ¯ā§‡ āĻāĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻ†āĻ° āĻ•ā§‹āĻ¨ āĻ¸āĻ‚āĻœā§āĻžāĻž āĻ¨ā§‡āĻ‡
āĻāĻ‡ āĻĢāĻžāĻ‡āĻ˛āĻŸāĻŋ āĻāĻŦāĻ‚ āĻāĻŸāĻŋ .xs āĻāĻŦāĻ‚ āĻ‰ā§ŽāĻĒāĻ¨ā§āĻ¨ āĻ•āĻ°āĻžāĻ° āĻ¸āĻŽāĻ¯āĻŧ
.pm āĻĢāĻžāĻ‡āĻ˛āĨ¤

āĻĢāĻ˛āĻ¸ā§āĻŦāĻ°ā§‚āĻĒ, āĻŦā§‡āĻļ āĻ•āĻ¯āĻŧā§‡āĻ•āĻŸāĻŋ āĻšāĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡ pp_def() āĻāĻ•āĻŸāĻŋ āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻ­āĻŋāĻ¤āĻ°ā§‡ āĻ•āĻ˛ āĻ•āĻ°ā§‡ (āĻ•āĻ¨āĻ­ā§‡āĻ¨āĻļāĻ¨ āĻĢāĻžāĻ‡āĻ˛ āĻĻā§āĻŦāĻžāĻ°āĻž
āĻĒāĻŋāĻĒāĻŋ āĻ•ā§‹āĻĄā§‡āĻ° āĻ¸āĻžāĻĨā§‡ āĻāĻ•ā§āĻ¸āĻŸā§‡āĻ¨āĻļāĻ¨ .pd āĻŦāĻž .pp) āĻĨāĻžāĻ•ā§‡ āĻ¤āĻŦā§‡ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻāĻ•āĻŸāĻŋ pp_done().

āĻĻā§āĻŸāĻŋ āĻĒā§āĻ°āĻ§āĻžāĻ¨ āĻ­āĻŋāĻ¨ā§āĻ¨ āĻ§āĻ°āĻ¨ā§‡āĻ° āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ†āĻ›ā§‡ pp_def(), 'āĻĄā§‡āĻŸāĻž āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨' āĻāĻŦāĻ‚ 'āĻ¸ā§āĻ˛āĻžāĻ‡āĻ¸
āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨' āĻĒā§āĻ°ā§‹āĻŸā§‹āĻŸāĻžāĻ‡āĻĒāĨ¤

'āĻĄā§‡āĻŸāĻž āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨' āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ āĻ•āĻŋāĻ›ā§ āĻĄāĻžāĻŸāĻž āĻ¨āĻŋāĻ¤ā§‡, āĻŽā§āĻ¯āĻžāĻ™ā§āĻ—ā§‡āĻ˛ āĻ•āĻ°āĻ¤ā§‡ āĻāĻŦāĻ‚ āĻ…āĻ¨ā§āĻ¯ āĻ•āĻŋāĻ›ā§ āĻĄāĻžāĻŸāĻž āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻ•āĻ°āĻ¤ā§‡āĨ¤ āĻāĻ‡
āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻ¸ā§āĻŦāĻ°ā§‚āĻĒ '+' āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨, āĻŽā§āĻ¯āĻžāĻŸā§āĻ°āĻŋāĻ•ā§āĻ¸ āĻ‡āĻ¨āĻ­āĻžāĻ°ā§āĻ¸, āĻ¸ā§āĻŽā§‹āĻ­āĻžāĻ° āĻ‡āĻ¤ā§āĻ¯āĻžāĻĻāĻŋ āĻāĻŦāĻ‚ āĻ¸āĻŽāĻ¸ā§āĻ¤ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻ…āĻ¨ā§āĻ¤āĻ°ā§āĻ­ā§āĻ•ā§āĻ¤ āĻ•āĻ°ā§‡
āĻ†āĻŽāĻ°āĻž āĻ āĻĒāĻ°ā§āĻ¯āĻ¨ā§āĻ¤ āĻāĻ‡ āĻ¨āĻĨāĻŋāĻ¤ā§‡ āĻ•āĻĨāĻž āĻŦāĻ˛ā§‡āĻ›āĻŋāĨ¤ āĻ…āĻ¨ā§āĻ¤āĻ°ā§āĻ¨āĻŋāĻšāĻŋāĻ¤ āĻāĻŦāĻ‚ āĻ¸ā§āĻĒāĻˇā§āĻŸ āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ āĻāĻŦāĻ‚
āĻĢāĻ˛āĻžāĻĢāĻ˛ āĻ¸ā§ƒāĻˇā§āĻŸāĻŋ āĻ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ āĻ¯āĻ¤ā§āĻ¨ āĻ¨ā§‡āĻ“āĻ¯āĻŧāĻž āĻšāĻ¯āĻŧ. āĻ†āĻĒāĻ¨āĻŋ āĻāĻŽāĻ¨āĻ•āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
"āĻ¸ā§āĻŽāĻŋāĻŸ", "āĻ¸ā§āĻŽā§‹āĻ­āĻžāĻ°" āĻ‡āĻ¤ā§āĻ¯āĻžāĻĻāĻŋ āĻĻāĻŋāĻ¯āĻŧā§‡ āĻĄā§‡āĻŸāĻžāĻĢā§āĻ˛ā§‹ āĻ•āĻ°ā§āĻ¨ (āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻŦā§āĻāĻ¤ā§‡ āĻ¨āĻž āĻĒāĻžāĻ°ā§‡āĻ¨ āĻ¤āĻŦā§‡ āĻšāĻ¤āĻžāĻļ āĻšāĻŦā§‡āĻ¨ āĻ¨āĻž
PDL-āĻ āĻĄā§‡āĻŸāĻžāĻĢā§āĻ˛ā§‹ āĻ§āĻžāĻ°āĻŖāĻž āĻāĻ–āĻ¨āĻ“ āĻ–ā§āĻŦ āĻ­āĻžāĻ˛; āĻāĻŸāĻŋ āĻāĻ–āĻ¨āĻ“ āĻ…āĻ¨ā§‡āĻ• āĻĒāĻ°ā§€āĻ•ā§āĻˇāĻžāĻŽā§‚āĻ˛āĻ•)āĨ¤

'āĻ¸ā§āĻ˛āĻžāĻ‡āĻ¸ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨' āĻāĻ•āĻŸāĻŋ āĻ­āĻŋāĻ¨ā§āĻ¨ āĻ§āĻ°āĻ¨ā§‡āĻ° āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨: āĻāĻ•āĻŸāĻŋ āĻ¸ā§āĻ˛āĻžāĻ‡āĻ¸ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ā§‡, āĻ†āĻĒāĻ¨āĻŋ āĻ¨āĻ¨
āĻ¯ā§‡āĻ•ā§‹āĻ¨ā§‹ āĻ¤āĻĨā§āĻ¯ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨ āĻ•āĻ°ā§‡, āĻ†āĻĒāĻ¨āĻŋ āĻĻā§āĻŸāĻŋāĻ° āĻŦāĻŋāĻ­āĻŋāĻ¨ā§āĻ¨ āĻ‰āĻĒāĻžāĻĻāĻžāĻ¨ā§‡āĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻšāĻŋāĻ āĻŋāĻĒāĻ¤ā§āĻ° āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°āĻ›ā§‡āĻ¨
āĻĒāĻŋāĻĄāĻ˛āĻ¸ (āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻ—ā§āĻ˛āĻŋ āĻĢāĻžāĻ‡āĻ˛ā§‡ āĻ¸ā§‚āĻšāĻ• āĻŽā§āĻ¯āĻžāĻ¨āĻŋāĻĒā§āĻ˛ā§‡āĻļāĻ¨/āĻ¸ā§āĻ˛āĻžāĻ‡āĻ¸āĻŋāĻ‚ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¸āĻ‚āĻœā§āĻžāĻž āĻ…āĻ¨ā§āĻ¤āĻ°ā§āĻ­ā§āĻ•ā§āĻ¤ āĻ•āĻ°ā§‡
slices.pd āĻāĻŸāĻŋ PDL āĻŦāĻŋāĻ¤āĻ°āĻŖā§‡āĻ° āĻ…āĻ‚āĻļ; āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻ¸āĻžāĻŦāĻ§āĻžāĻ¨, āĻāĻŸāĻŋ āĻĒāĻ°āĻŋāĻšāĻžāĻ¯āĻŧāĻ• āĻ¸ā§āĻ¤āĻ° āĻ¨āĻ¯āĻŧ
āĻœāĻŋāĻ¨āĻŋāĻ¸āĻĒāĻ¤ā§āĻ°).

āĻ¯āĻĻāĻŋ PDL āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨āĻ—ā§āĻ˛āĻŋāĻ° āĻœāĻ¨ā§āĻ¯ āĻ¸āĻŽāĻ°ā§āĻĨāĻ¨ āĻ¸āĻš āĻ•āĻŽā§āĻĒāĻžāĻ‡āĻ˛ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ (āĻ¯ā§‡āĻŽāĻ¨ "WITH_BADVAL => 1"), āĻ¤āĻžāĻšāĻ˛ā§‡ āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤
"pp_def" āĻāĻ° āĻœāĻ¨ā§āĻ¯ āĻ•ā§€āĻ—ā§āĻ˛āĻŋ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨, āĻ¯ā§‡āĻŽāĻ¨āĻŸāĻŋ āĻ¨ā§€āĻšā§‡ āĻŦā§āĻ¯āĻžāĻ–ā§āĻ¯āĻž āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡āĨ¤

āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻ•āĻŋāĻ›ā§ āĻŦāĻšāĻŋāĻ°āĻžāĻ—āĻ¤ āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋāĻ° āĻ¸āĻžāĻĨā§‡ āĻ¯ā§‹āĻ—āĻžāĻ¯ā§‹āĻ— āĻ•āĻ°āĻ¤ā§‡ āĻ†āĻ—ā§āĻ°āĻšā§€ āĻšāĻ¨ (āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻ¸ā§āĻŦāĻ°ā§‚āĻĒ āĻ•āĻŋāĻ›ā§
āĻ°ā§ˆāĻ–āĻŋāĻ• āĻŦā§€āĻœāĻ—āĻŖāĻŋāĻ¤/āĻŽā§āĻ¯āĻžāĻŸā§āĻ°āĻŋāĻ•ā§āĻ¸ āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋ), āĻ†āĻĒāĻ¨āĻŋ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ 'āĻĄā§‡āĻŸāĻž āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨' āĻšāĻžāĻ‡āĻŦā§‡āĻ¨ āĻ¤āĻžāĻ‡ āĻ†āĻŽāĻ°āĻž āĻ¯āĻžāĻšā§āĻ›āĻŋ
āĻĒā§āĻ°āĻĨāĻŽā§‡ āĻ†āĻ˛ā§‹āĻšāĻ¨āĻž āĻ•āĻ°āĻ¤ā§‡āĨ¤

āĻ‰āĻĒāĻžāĻ¤ā§āĻ¤ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨


A āĻ¸āĻšāĻœ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ
āĻĄā§‡āĻŸāĻž āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻžāĻ•āĻ˛āĻžāĻĒā§‡, āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻ…āĻŦāĻļā§āĻ¯āĻ‡ āĻœāĻžāĻ¨āĻ¤ā§‡ āĻšāĻŦā§‡ āĻ¯ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ•ā§€ āĻĒāĻ°āĻŋāĻŽāĻžāĻŖ āĻĄā§‡āĻŸāĻž āĻĻāĻ°āĻ•āĻžāĻ°āĨ¤ āĻĒā§āĻ°āĻĨāĻŽāĻ¤, āĻāĻ•āĻŸāĻŋ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ
āĻ¸ā§āĻ•ā§‡āĻ˛āĻžāĻ° āĻ¸āĻš:

pp_def('āĻ¯ā§‹āĻ— āĻ•āĻ°ā§āĻ¨',
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(); b(); [o]c();',
āĻ•ā§‹āĻĄ => '$c() = $a() + $b();'
);

āĻāĻŸāĻž āĻāĻ•āĻŸā§ āĻ…āĻĻā§āĻ­ā§āĻ¤ āĻĻā§‡āĻ–āĻžāĻ¯āĻŧ āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻāĻ° āĻŦā§āĻ¯āĻŦāĻšā§āĻ›ā§‡āĻĻ āĻ•āĻ°āĻž āĻ¯āĻžāĻ•. āĻĒā§āĻ°āĻĨāĻŽ āĻ˛āĻžāĻ‡āĻ¨āĻŸāĻŋ āĻ¸āĻšāĻœ: āĻ†āĻŽāĻ°āĻž āĻāĻ•āĻŸāĻŋ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°āĻ›āĻŋ
'āĻ¯ā§‹āĻ—' āĻ¨āĻžāĻŽā§‡āĻ° āĻ¸āĻžāĻĨā§‡ āĻ°ā§āĻŸāĻŋāĻ¨āĨ¤ āĻĻā§āĻŦāĻŋāĻ¤ā§€āĻ¯āĻŧ āĻ˛āĻžāĻ‡āĻ¨āĻŸāĻŋ āĻ•ā§‡āĻŦāĻ˛ āĻ†āĻŽāĻžāĻĻā§‡āĻ° āĻĒāĻ°āĻžāĻŽāĻŋāĻ¤āĻŋ āĻ˜ā§‹āĻˇāĻŖāĻž āĻ•āĻ°ā§‡ āĻāĻŦāĻ‚
āĻŦāĻ¨ā§āĻ§āĻ¨ā§€ āĻŽāĻžāĻ¨ā§‡ āĻ¯ā§‡ āĻ¤āĻžāĻ°āĻž āĻ¸ā§āĻ•ā§‡āĻ˛āĻžāĻ°āĨ¤ āĻ†āĻŽāĻ°āĻž āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚āĻ•ā§‡ āĻ•āĻ˛ āĻ•āĻ°āĻŋ āĻ¯āĻž āĻ†āĻŽāĻžāĻĻā§‡āĻ° āĻĒāĻ°āĻžāĻŽāĻŋāĻ¤āĻŋ āĻāĻŦāĻ‚ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°ā§‡
āĻ¤āĻžāĻĻā§‡āĻ° āĻŽāĻžāĻ¤ā§āĻ°āĻŋāĻ•āĻ¤āĻž āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° āĻ¯ā§‡ āĻĢāĻžāĻ‚āĻļāĻ¨. āĻāĻ° āĻĒā§āĻ°āĻžāĻ¸āĻ™ā§āĻ—āĻŋāĻ•āĻ¤āĻžāĻ° āĻœāĻ¨ā§āĻ¯
āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ āĻāĻŦāĻ‚ āĻ‡āĻ¨āĻĄā§‡āĻ•ā§āĻ¸ āĻŽā§āĻ¯āĻžāĻ¨āĻŋāĻĒā§āĻ˛ā§‡āĻļāĻ¨ PDL::āĻ‡āĻ¨āĻĄā§‡āĻ•ā§āĻ¸āĻŋāĻ‚ āĻŽā§āĻ¯āĻžāĻ¨ āĻĒā§‡āĻœ āĻšā§‡āĻ• āĻ•āĻ°ā§āĻ¨āĨ¤

āĻ¤ā§ƒāĻ¤ā§€āĻ¯āĻŧ āĻ˛āĻžāĻ‡āĻ¨ āĻšāĻ˛ āĻĒā§āĻ°āĻ•ā§ƒāĻ¤ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨āĨ¤ āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻĄāĻ˛āĻžāĻ°ā§‡āĻ° āĻšāĻŋāĻšā§āĻ¨ āĻāĻŦāĻ‚ āĻŦāĻ¨ā§āĻ§āĻ¨ā§€ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡
āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒāĻ°āĻžāĻŽāĻŋāĻ¤āĻŋ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°āĻ¤ā§‡ (āĻāĻŸāĻŋ āĻ¸āĻŽā§āĻ­āĻŦāĻ¤ āĻ­āĻŦāĻŋāĻˇā§āĻ¯āĻ¤ā§‡ āĻ•ā§‹āĻ¨ā§‹ āĻ¸āĻŽāĻ¯āĻŧā§‡ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻŋāĻ¤ āĻšāĻŦā§‡, āĻāĻ•āĻŦāĻžāĻ° a
āĻ­āĻžāĻ˛ āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸ āĻĒāĻžāĻ“āĻ¯āĻŧāĻž āĻ¯āĻžāĻ¯āĻŧ)āĨ¤

āĻāĻ‡ āĻ˛āĻžāĻ‡āĻ¨āĻ—ā§āĻ˛āĻŋ āĻ†āĻ¸āĻ˛ā§‡ PDL-āĻāĻ° āĻœāĻ¨ā§āĻ¯ āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§€āĻ¯āĻŧ āĻ¸āĻŦāĻ•āĻŋāĻ›ā§ (āĻ­āĻžāĻ˛,
āĻ†āĻ¸āĻ˛ā§‡ āĻāĻŸāĻž āĻ¨āĻž; āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤ āĻāĻ•āĻŸāĻŋ Makefile.PL āĻ˛āĻŋāĻ–āĻ¤ā§‡ āĻšāĻŦā§‡ (āĻ¨ā§€āĻšā§‡ āĻĻā§‡āĻ–ā§āĻ¨) āĻāĻŦāĻ‚ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡
āĻŽāĻĄāĻŋāĻ‰āĻ˛ ('perl Makefile.PL; make' āĻāĻ° āĻŽāĻ¤ā§‹ āĻ•āĻŋāĻ›ā§); āĻ¤āĻŦā§‡ āĻ†āĻ¸ā§āĻ¨ āĻāĻ‡ āĻŽā§āĻšā§āĻ°ā§āĻ¤ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻāĻŸāĻŋ āĻ‰āĻĒā§‡āĻ•ā§āĻˇāĻž āĻ•āĻ°āĻŋ)āĨ¤
āĻ¤āĻžāĻ‡ āĻāĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨

MyModule āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨;
$a = pdl 2,3,4;
$b = pdl 5;

$c = add($a,$b);
# āĻ…āĻĨāĻŦāĻž
āĻ¯ā§‹āĻ— āĻ•āĻ°ā§āĻ¨($a,$b,($c=null)); # āĻŦāĻŋāĻ•āĻ˛ā§āĻĒ āĻĢāĻ°ā§āĻŽ, $c āĻĨāĻžāĻ•āĻ˛ā§‡ āĻĻāĻ°āĻ•āĻžāĻ°ā§€
# āĻŦāĻĄāĻŧ āĻ•āĻŋāĻ›ā§ āĻĒā§āĻ°āĻŋāĻ¸ā§‡āĻŸ, āĻāĻ–āĻžāĻ¨ā§‡ āĻĻāĻ°āĻ•āĻžāĻ°ā§€ āĻ¨āĻ¯āĻŧāĨ¤

āĻāĻŦāĻ‚ āĻ¸āĻ āĻŋāĻ•āĻ­āĻžāĻŦā§‡ āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ āĻ•āĻžāĻœ āĻ•āĻ°ā§āĻ¨ (āĻĢāĻ˛āĻžāĻĢāĻ˛ āĻšāĻ˛ $c == [7 8 9])āĨ¤

āĻ¸āĻžāĻ°ā§āĻœāĻžāĻ°āĻŋāĻ° āĻ…āĻ‚āĻļ āĻ…āĻ§ā§āĻ¯āĻžāĻ¯āĻŧ: āĻĻā§āĻ¯ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° of a PP āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻž
āĻ‰āĻĒāĻ°ā§‡āĻ° āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻ•ā§‹āĻĄāĻŸāĻŋ āĻĻā§‡āĻ–ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ¸āĻŽā§āĻ­āĻŦāĻ¤ āĻœāĻŋāĻœā§āĻžāĻžāĻ¸āĻž āĻ•āĻ°āĻŦā§‡āĻ¨: āĻāĻ‡ āĻ…āĻĻā§āĻ­ā§āĻ¤ "$c=null" āĻ•āĻŋ
āĻ†āĻŽāĻžāĻĻā§‡āĻ° āĻ¨āĻ¤ā§āĻ¨ "āĻ…ā§āĻ¯āĻžāĻĄ" āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡ āĻĻā§āĻŦāĻŋāĻ¤ā§€āĻ¯āĻŧ āĻ•āĻ˛ā§‡ āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸? āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻ†āĻ°ā§‡āĻ•āĻŦāĻžāĻ° āĻĻā§‡āĻ–ā§‡ āĻ¨ā§‡āĻ¨
"add" āĻāĻ° āĻ¸āĻ‚āĻœā§āĻžāĻž āĻ†āĻĒāĻ¨āĻŋ āĻ˛āĻ•ā§āĻˇā§āĻ¯ āĻ•āĻ°āĻŦā§‡āĻ¨ āĻ¯ā§‡ āĻ¤ā§ƒāĻ¤ā§€āĻ¯āĻŧ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ "c" āĻāĻ° āĻ¸āĻžāĻĨā§‡ āĻĒāĻ¤āĻžāĻ•āĻžāĻ™ā§āĻ•āĻŋāĻ¤
āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ° "[o]" āĻ¯āĻž PDL::PP āĻ•ā§‡ āĻŦāĻ˛ā§‡ āĻ¯ā§‡ āĻāĻŸāĻŋ āĻāĻ•āĻŸāĻŋ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸāĨ¤ āĻ¤āĻžāĻ‡ āĻ‰āĻĒāĻ°ā§‡āĻ° āĻ•āĻ˛
āĻ¯ā§‹āĻ— āĻ•āĻ°āĻžāĻ° āĻ…āĻ°ā§āĻĨ 'āĻ¸āĻ āĻŋāĻ• āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ¸āĻš āĻ¸ā§āĻ•ā§āĻ°ā§āĻ¯āĻžāĻš āĻĨā§‡āĻ•ā§‡ āĻāĻ•āĻŸāĻŋ āĻ¨āĻ¤ā§āĻ¨ $c āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§āĻ¨' - "āĻ¨āĻžāĻ˛" āĻāĻ•āĻŸāĻŋ āĻŦāĻŋāĻļā§‡āĻˇ
'āĻ–āĻžāĻ˛āĻŋ āĻĒāĻŋāĻĄāĻ˛'-āĻāĻ° āĻœāĻ¨ā§āĻ¯ āĻŸā§‹āĻ•ā§‡āĻ¨ (āĻ†āĻĒāĻ¨āĻŋ āĻœāĻŋāĻœā§āĻžāĻžāĻ¸āĻž āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨ āĻ•ā§‡āĻ¨ āĻ†āĻŽāĻ°āĻž āĻāĻŸāĻŋāĻ•ā§‡ āĻĒāĻ¤āĻžāĻ•āĻžāĻ™ā§āĻ•āĻŋāĻ¤ āĻ•āĻ°āĻ¤ā§‡ "undef" āĻŽāĻžāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻŋāĻ¨āĻŋ
PDL āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ "āĻ¨āĻžāĻ˛" āĻāĻ° āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤ā§‡; āĻ†āĻŽāĻ°āĻž āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ā§‡ āĻāĻŸāĻŋ āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•ā§‡ āĻšāĻŋāĻ¨ā§āĻ¤āĻž āĻ•āĻ°āĻ›āĻŋ;)

[āĻāĻŸāĻŋ āĻŽā§āĻ¯āĻžāĻ¨ā§āĻ¯āĻŧāĻžāĻ˛āĻŸāĻŋāĻ° āĻ…āĻ¨ā§āĻ¯ āĻ•ā§‹āĻ¨āĻ“ āĻŦāĻŋāĻ­āĻžāĻ—ā§‡āĻ“ āĻŦā§āĻ¯āĻžāĻ–ā§āĻ¯āĻž āĻ•āĻ°āĻž āĻ‰āĻšāĻŋāĻ¤!] āĻāĻ° āĻ•āĻžāĻ°āĻŖ
āĻāĻ•āĻŸāĻŋ āĻŦāĻŋāĻ•āĻ˛ā§āĻĒ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻāĻ‡ āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸ āĻšāĻšā§āĻ›ā§‡ āĻ¯ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻ¸āĻ¤ā§āĻ¯āĻŋāĻ‡ āĻŦāĻŋāĻļāĻžāĻ˛ piddles āĻ†āĻ›ā§‡, āĻ†āĻĒāĻ¨āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨

$c = PDL->āĻļā§‚āĻ¨ā§āĻ¯;
āĻœāĻ¨ā§āĻ¯ (āĻ•āĻŋāĻ›ā§ āĻĻā§€āĻ°ā§āĻ˜ āĻ˛ā§āĻĒ) {
# āĻŽā§āĻ™ā§āĻ—ā§‡ āĻ•, āĻ–
āĻ¯ā§‹āĻ— āĻ•āĻ°ā§āĻ¨($a,$b,$c);
# āĻŽā§āĻ™ā§āĻ—ā§‡ āĻ—, āĻ•, āĻ– āĻ¤ā§‡ āĻ•āĻŋāĻ›ā§ āĻĢāĻŋāĻ°āĻŋāĻ¯āĻŧā§‡ āĻĻāĻŋāĻ¨
}

āĻāĻŦāĻ‚ āĻĒā§āĻ°āĻ¤āĻŋāĻŦāĻžāĻ° $c āĻŦāĻ°āĻžāĻĻā§āĻĻ āĻāĻŦāĻ‚ āĻĄāĻŋāĻ˛āĻ•ā§‡āĻŸāĻŋāĻ‚ āĻāĻĄāĻŧāĻŋāĻ¯āĻŧā§‡ āĻšāĻ˛ā§āĻ¨āĨ¤ āĻāĻŸāĻŋ āĻĒā§āĻ°āĻĨāĻŽā§‡ āĻāĻ•āĻŦāĻžāĻ° āĻŦāĻ°āĻžāĻĻā§āĻĻ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ
āĻ¯ā§‹āĻ— āĻ•āĻ°ā§āĻ¨ () āĻāĻŦāĻ‚ āĻ¤āĻžāĻ°āĻĒāĻ°ā§‡ $c āĻ§ā§āĻŦāĻ‚āĻ¸ āĻ¨āĻž āĻšāĻ“āĻ¯āĻŧāĻž āĻĒāĻ°ā§āĻ¯āĻ¨ā§āĻ¤ āĻŽā§‡āĻŽāĻ°āĻŋ āĻĨāĻžāĻ•ā§‡āĨ¤

āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻļā§āĻ§ā§ āĻŦāĻ˛ā§‡āĻ¨

$c = add($a,$b);

PP āĻĻā§āĻŦāĻžāĻ°āĻž āĻ‰āĻ¤ā§āĻĒāĻ¨ā§āĻ¨ āĻ•ā§‹āĻĄ āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ "$c=null" āĻĒā§‚āĻ°āĻŖ āĻ•āĻ°āĻŦā§‡ āĻāĻŦāĻ‚ āĻĢāĻ˛āĻžāĻĢāĻ˛āĻŸāĻŋ āĻĢā§‡āĻ°āĻ¤ āĻĻā§‡āĻŦā§‡āĨ¤ āĻ¯āĻĻāĻŋ
āĻ†āĻĒāĻ¨āĻŋ āĻ•ā§‡āĻ¨ PDL::PP āĻāĻ‡ āĻ¸ā§āĻŸāĻžāĻ‡āĻ˛ āĻ¸āĻŽāĻ°ā§āĻĨāĻ¨ āĻ•āĻ°ā§‡ āĻ¸ā§‡āĻ‡ āĻ•āĻžāĻ°āĻŖ āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•ā§‡ āĻ†āĻ°āĻ“ āĻœāĻžāĻ¨āĻ¤ā§‡ āĻšāĻžāĻ¨ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ
āĻļā§‡āĻˇ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻĻā§‡āĻ“āĻ¯āĻŧāĻž āĻšāĻ¯āĻŧ PDL::Indexing man page āĻšā§‡āĻ• āĻ•āĻ°ā§āĻ¨āĨ¤

"[o]" āĻāĻ•āĻŽāĻžāĻ¤ā§āĻ° āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ° āĻ¨āĻ¯āĻŧ āĻ¯ā§‡ āĻāĻ•āĻŸāĻŋ pdl āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°ā§‡ āĻĨāĻžāĻ•āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĨ¤ āĻ†āĻ°ā§‡āĻ•āĻŸāĻž
āĻ—ā§āĻ°ā§āĻ¤ā§āĻŦāĻĒā§‚āĻ°ā§āĻŖ āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ° āĻšāĻ˛ "[t]" āĻŦāĻŋāĻ•āĻ˛ā§āĻĒ āĻ¯āĻž āĻāĻ•āĻŸāĻŋ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛āĻ•ā§‡ āĻ…āĻ¸ā§āĻĨāĻžāĻ¯āĻŧā§€ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻĢā§āĻ˛ā§āĻ¯āĻžāĻ— āĻ•āĻ°ā§‡āĨ¤ āĻ¯ā§‡ āĻ•āĻŋ āĻ•āĻ°ā§‡
āĻŽāĻžāĻ¨ā§‡? āĻ†āĻĒāĻ¨āĻŋ PDL::PP āĻŦāĻ˛āĻŦā§‡āĻ¨ āĻ¯ā§‡ āĻāĻ‡ pdl āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻ•ā§‹āĻ°ā§āĻ¸ā§‡āĻ° āĻ…āĻ¸ā§āĻĨāĻžāĻ¯āĻŧā§€ āĻĢāĻ˛āĻžāĻĢāĻ˛ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ
āĻ—āĻŖāĻ¨āĻž āĻāĻŦāĻ‚ āĻ†āĻĒāĻ¨āĻŋ āĻ—āĻŖāĻ¨āĻž āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡ āĻĒāĻ°ā§‡ āĻ¤āĻžāĻ° āĻŽāĻžāĻ¨ āĻ†āĻ—ā§āĻ°āĻšā§€ āĻ¨āĻž
āĻ¸āĻŽā§āĻĒāĻ¨ā§āĻ¨ āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻ•ā§‡āĻ¨ PDL::PP āĻĒā§āĻ°āĻĨāĻŽā§‡ āĻāĻ‡ āĻŦāĻŋāĻˇāĻ¯āĻŧā§‡ āĻœāĻžāĻ¨āĻ¤ā§‡ āĻšāĻžāĻ‡āĻŦā§‡? āĻ•āĻžāĻ°āĻ¨
pdl āĻ…āĻŸā§‹ āĻ¤ā§ˆāĻ°āĻŋāĻ° āĻ§āĻžāĻ°āĻŖāĻžāĻ° āĻ¸āĻžāĻĨā§‡ āĻ˜āĻ¨āĻŋāĻˇā§āĻ āĻ­āĻžāĻŦā§‡ āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•āĻŋāĻ¤ (āĻ†āĻĒāĻ¨āĻŋ āĻ‰āĻĒāĻ°ā§‡ āĻāĻŸāĻŋ āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•ā§‡ āĻļā§āĻ¨ā§‡āĻ›ā§‡āĻ¨) āĻāĻŦāĻ‚
āĻ…āĻ¨ā§āĻ¤āĻ°ā§āĻ¨āĻŋāĻšāĻŋāĻ¤ āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ āĻ†āĻĒāĻ¨āĻŋ āĻ…āĻ¨ā§āĻ¤āĻ°ā§āĻ¨āĻŋāĻšāĻŋāĻ¤ āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ˛ā§‡ āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ¤āĻžāĻ° āĻŽāĻžāĻ¤ā§āĻ°āĻž
āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ āĻ†āĻ¸āĻ˛ā§‡ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°ā§‡ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻž āĻĨā§‡āĻ•ā§‡ āĻŦāĻĄāĻŧāĨ¤ "[o]" āĻĒāĻ¤āĻžāĻ•āĻžāĻ¯ā§āĻ•ā§āĻ¤
pdls āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž āĻšāĻŦā§‡ āĻ¯āĻžāĻ¤ā§‡ āĻ¸āĻ‚āĻ–ā§āĻ¯āĻžāĻ° āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ āĻ…āĻ¨ā§āĻ¸āĻžāĻ°ā§‡ āĻ¤āĻžāĻĻā§‡āĻ° āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻĨāĻžāĻ•ā§‡
āĻ…āĻ¨ā§āĻ¤āĻ°ā§āĻ¨āĻŋāĻšāĻŋāĻ¤ āĻĨā§āĻ°ā§‡āĻĄ āĻŽāĻžāĻ¤ā§āĻ°āĻž. āĻāĻ•āĻŸāĻŋ āĻ…āĻ¸ā§āĻĨāĻžāĻ¯āĻŧā§€ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻžāĻ° āĻ¸āĻŽāĻ¯āĻŧ, āĻ¤āĻŦā§‡, āĻāĻŸāĻŋ āĻ¸āĻ°ā§āĻŦāĻĻāĻž āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻšāĻŦā§‡
āĻ¯āĻĨā§‡āĻˇā§āĻŸ āĻŦāĻĄāĻŧ āĻ•āĻ°āĻž āĻšāĻŦā§‡ āĻ¯āĻžāĻ¤ā§‡ āĻāĻŸāĻŋ āĻāĻ•āĻŸāĻŋ āĻĨā§āĻ°ā§‡āĻĄ āĻ˛ā§āĻĒā§‡ āĻāĻ•āĻŸāĻŋ āĻĒā§āĻ¨āĻ°āĻžāĻŦā§ƒāĻ¤ā§āĻ¤āĻŋāĻ° āĻœāĻ¨ā§āĻ¯ āĻĢāĻ˛āĻžāĻĢāĻ˛ āĻ§āĻ°ā§‡ āĻ°āĻžāĻ–āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡, āĻ¯ā§‡āĻŽāĻ¨
āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° āĻĻā§āĻŦāĻžāĻ°āĻž āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻŦāĻĄāĻŧ. āĻ¤āĻžāĻ‡ āĻ•āĻŽ āĻŽā§‡āĻŽāĻ°āĻŋ āĻ¨āĻˇā§āĻŸ āĻšāĻ¯āĻŧ āĻ¯āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸāĻŋ pdl āĻšāĻŋāĻ¸ā§‡āĻŦā§‡ āĻĢā§āĻ˛ā§āĻ¯āĻžāĻ— āĻ•āĻ°ā§‡āĻ¨
āĻ…āĻ¸ā§āĻĨāĻžāĻ¯āĻŧā§€ āĻĻā§āĻŦāĻŋāĻ¤ā§€āĻ¯āĻŧāĻ¤, āĻ†āĻĒāĻ¨āĻŋ āĻ…āĻ¸ā§āĻĨāĻžāĻ¯āĻŧā§€ pdls āĻ¸āĻš āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧ āĻ¨āĻŋāĻ°ā§āĻŽāĻžāĻŖ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨ āĻāĻŽāĻ¨āĻ•āĻŋ āĻ¯āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ
āĻ¸ā§āĻĒāĻˇā§āĻŸ āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ›ā§‡ āĻ¯āĻž "[o]" āĻĻāĻŋāĻ¯āĻŧā§‡ āĻĒāĻ¤āĻžāĻ•āĻžāĻ™ā§āĻ•āĻŋāĻ¤ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ pdls-āĻāĻ° āĻœāĻ¨ā§āĻ¯ āĻ¨āĻŋāĻˇāĻŋāĻĻā§āĻ§
(āĻĒāĻŋāĻĄāĻŋāĻāĻ˛::āĻ‡āĻ¨āĻĄā§‡āĻ•ā§āĻ¸āĻŋāĻ‚ āĻĻā§‡āĻ–ā§āĻ¨)āĨ¤

āĻāĻ–āĻžāĻ¨ā§‡ āĻāĻ•āĻŸāĻŋ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ†āĻŽāĻ°āĻž [t] āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ° āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻŋāĨ¤ āĻ†āĻŽāĻ°āĻž āĻ¯ā§‡ āĻĢāĻžāĻ‚āĻļāĻ¨ "calf" āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤
āĻāĻ•āĻŸāĻŋ āĻ¸āĻŋ āĻ°ā§āĻŸāĻŋāĻ¨āĻ•ā§‡ "f" āĻ•āĻ˛ āĻ•āĻ°ā§‡ āĻ¯āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ…ā§āĻ¯āĻžāĻ°ā§‡āĻ° āĻŽāĻ¤ā§‹ āĻāĻ•āĻ‡ āĻ†āĻ•āĻžāĻ° āĻāĻŦāĻ‚ āĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻāĻ•āĻŸāĻŋ āĻ…āĻ¸ā§āĻĨāĻžāĻ¯āĻŧā§€ āĻ…ā§āĻ¯āĻžāĻ°ā§‡ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨
"a" ($P āĻāĻ° āĻœāĻ¨ā§āĻ¯ āĻĢāĻ°ā§‹āĻ¯āĻŧāĻžāĻ°ā§āĻĄ āĻ°ā§‡āĻĢāĻžāĻ°ā§‡āĻ¨ā§āĻ¸ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻĻā§āĻƒāĻ–āĻŋāĻ¤; āĻāĻŸāĻŋ āĻāĻ•āĻŸāĻŋ āĻĒāĻ¯āĻŧā§‡āĻ¨ā§āĻŸāĻžāĻ° āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸, āĻ¨ā§€āĻšā§‡ āĻĻā§‡āĻ–ā§āĻ¨):

pp_def('calf',
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(n); [t] tmp(n); [o] b()',
āĻ•ā§‹āĻĄ => 'int ns = $SIZE(n);
f($P(a),$P(b),$P(tmp),ns);
'
);

āĻ¯ā§āĻ•ā§āĻ¤āĻŋ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻāĻŦāĻ‚ āĻĻā§āĻ¯ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°
āĻāĻ–āĻ¨ āĻ†āĻŽāĻ°āĻž āĻļā§āĻ§ā§ pdls āĻāĻ° āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻāĻŦāĻ‚ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•ā§‡ āĻ•āĻĨāĻž āĻŦāĻ˛ā§‡āĻ›āĻŋāĨ¤ āĻ¤āĻžāĻ°āĻž āĻ•āĻŋāĻ­āĻžāĻŦā§‡ āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•āĻŋāĻ¤?
āĻ§āĻ°āĻž āĻ¯āĻžāĻ• āĻ†āĻŽāĻ°āĻž āĻāĻ•āĻŸāĻŋ āĻ­ā§‡āĻ•ā§āĻŸāĻ°ā§‡ āĻāĻ•āĻŸāĻŋ āĻ¸ā§āĻ•ā§‡āĻ˛āĻžāĻ° + āĻ¸ā§‚āĻšāĻ• āĻ¨āĻŽā§āĻŦāĻ° āĻ¯ā§‹āĻ— āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ‡:

pp_def('add2',
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(n); b(); [o]c(n);',
āĻ•ā§‹āĻĄ => 'āĻ˛ā§āĻĒ(āĻāĻ¨) %{
$c() = $a() + $b() + n;
%}'
);

āĻāĻ–āĻžāĻ¨ā§‡ āĻ˛āĻ•ā§āĻˇā§āĻ¯ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻŦā§‡āĻļ āĻ•āĻ¯āĻŧā§‡āĻ•āĻŸāĻŋ āĻĒāĻ¯āĻŧā§‡āĻ¨ā§āĻŸ āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡: āĻĒā§āĻ°āĻĨāĻŽāĻ¤, "āĻĒāĻžāĻ°ā§āĻ¸" āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡ āĻāĻ–āĻ¨ āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡ n
āĻ†āĻŽāĻžāĻĻā§‡āĻ° āĻāĻ•āĻŸāĻŋ āĻāĻ•āĻ• āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ†āĻ›ā§‡ āĻĻā§‡āĻ–āĻžāĻ¨ā§‹āĻ° āĻœāĻ¨ā§āĻ¯ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ a āĻāĻŦāĻ‚ c. āĻāĻŸāĻž āĻ¨ā§‹āĻŸ āĻ•āĻ°āĻž āĻ—ā§āĻ°ā§āĻ¤ā§āĻŦāĻĒā§‚āĻ°ā§āĻŖ
āĻ¯ā§‡ āĻŽāĻžāĻ¤ā§āĻ°āĻžāĻ—ā§āĻ˛āĻŋ āĻĒā§āĻ°āĻ•ā§ƒāĻ¤ āĻ¸āĻ¤ā§āĻ¤āĻž āĻ¯āĻž āĻ¨āĻžāĻŽ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ āĻ¤āĻžāĻ‡ āĻāĻŸāĻŋ āĻ˜ā§‹āĻˇāĻŖāĻž āĻ•āĻ°ā§‡ a āĻāĻŦāĻ‚ c āĻĨā§‡āĻ•ā§‡
āĻ†āĻ›ā§‡ āĻāĻ•āĻ‡ āĻĒā§āĻ°āĻĨāĻŽ āĻŽāĻžāĻ¤ā§āĻ°āĻžāĨ¤ āĻŦā§‡āĻļāĻŋāĻ°āĻ­āĻžāĻ— PP āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧ āĻ¨āĻžāĻŽāĻ•ā§ƒāĻ¤ āĻŽāĻžāĻ¤ā§āĻ°āĻžāĻ° āĻ†āĻ•āĻžāĻ° āĻšāĻŦā§‡
āĻ¨āĻ¨-āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ (āĻ¯āĻžāĻĻā§‡āĻ° "[o]" āĻĒāĻ¤āĻžāĻ•āĻž āĻ¨ā§‡āĻ‡) āĻāĻ° āĻ¨āĻŋāĻœ āĻ¨āĻŋāĻœ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻĨā§‡āĻ•ā§‡ āĻ¸ā§‡āĻŸ āĻ•āĻ°āĻž āĻšāĻŦā§‡ āĻ•āĻŋāĻ¨ā§āĻ¤ā§
āĻ•āĻ–āĻ¨āĻ“ āĻ•āĻ–āĻ¨āĻ“ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸāĻŋ āĻ¨āĻžāĻŽā§‡āĻ° āĻŽāĻžāĻ§ā§āĻ¯āĻŽā§‡ āĻ¸ā§āĻĒāĻˇā§āĻŸāĻ­āĻžāĻŦā§‡ āĻāĻ•āĻŸāĻŋ āĻ¨āĻžāĻŽāĻ¯ā§āĻ•ā§āĻ¤ āĻŽāĻžāĻ¤ā§āĻ°āĻžāĻ° āĻ†āĻ•āĻžāĻ° āĻ¸ā§‡āĻŸ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ‡āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
āĻĒā§‚āĻ°ā§āĻŖāĻ¸āĻ‚āĻ–ā§āĻ¯āĻž āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻŸāĻžāĻ°āĨ¤ āĻāĻŸāĻŋ āĻ•ā§€āĻ­āĻžāĻŦā§‡ āĻ•āĻžāĻœ āĻ•āĻ°ā§‡ "āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯āĻĒāĻžāĻ°āĻ¸" āĻŦāĻŋāĻ­āĻžāĻ—ā§‡āĻ° āĻŦāĻŋāĻŦāĻ°āĻŖā§‡ āĻ¨ā§€āĻšā§‡ āĻĻā§‡āĻ–ā§āĻ¨āĨ¤

āĻ§ā§āĻ°ā§āĻŦ āĻ¯ā§āĻ•ā§āĻ¤āĻŋ āĻŽāĻžāĻ¤ā§āĻ°āĻž in āĻĻā§āĻ¯ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°
āĻ§āĻ°ā§āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸāĻŋ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻĒāĻŋāĻĄāĻ˛ āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨ āĻāĻŦāĻ‚ āĻ†āĻĒāĻ¨āĻŋ āĻāĻŸāĻŋ āĻĒā§āĻ°āĻ¤āĻŋāĻŦāĻžāĻ°āĻ‡ āĻœāĻžāĻ¨ā§‡āĻ¨
āĻ•āĻ˛ āĻāĻ° āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻāĻ•āĻ‡ āĻ†āĻ•āĻžāĻ° āĻĨāĻžāĻ•āĻŦā§‡ (āĻŦāĻ˛ā§āĻ¨ 9) āĻāĻ° āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ¨āĻŋāĻ°ā§āĻŦāĻŋāĻļā§‡āĻˇā§‡
āĻ‡āĻ¨āĻĒā§āĻŸ piddles. āĻāĻ‡ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻĒāĻžāĻ°ā§āĻ¸ āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻ–āĻŋāĻ¤ āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨
āĻŽāĻžāĻ¤ā§āĻ°āĻžāĻ° āĻ†āĻ•āĻžāĻ°:

' [o] y(n=9); '

āĻĒā§āĻ°āĻ¤ā§āĻ¯āĻžāĻļāĻŋāĻ¤ āĻšāĻŋāĻ¸āĻžāĻŦā§‡, āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§‡ āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ āĻĻā§āĻŦāĻžāĻ°āĻž āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§€āĻ¯āĻŧ āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž āĻšāĻŦā§‡āĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ
āĻāĻ•āĻŸāĻŋ āĻ†āĻ°āĻ“ āĻœāĻŸāĻŋāĻ˛ āĻ¸ā§‚āĻ¤ā§āĻ° āĻ…āĻ¨ā§āĻ¸āĻžāĻ°ā§‡ āĻāĻ•āĻŸāĻŋ āĻ¨āĻžāĻŽāĻ¯ā§āĻ•ā§āĻ¤ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡ (āĻāĻ•āĻŸāĻŋ āĻ§ā§āĻ°ā§āĻŦāĻ•ā§‡āĻ° āĻšā§‡āĻ¯āĻŧā§‡)
āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻ…āĻŦāĻļā§āĻ¯āĻ‡ āĻ¨ā§€āĻšā§‡ āĻŦāĻ°ā§āĻŖāĻŋāĻ¤ "RedoDimsCode" āĻ•ā§€ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡āĨ¤

āĻ†āĻĻāĻ°ā§āĻļ āĻ§āĻ°ā§āĻŽāĻžāĻ¨ā§āĻ¤āĻ° āĻāĻŦāĻ‚ āĻĻā§āĻ¯ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°
āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° āĻāĻ›āĻžāĻĄāĻŧāĻžāĻ“ āĻŸāĻžāĻ‡āĻĒ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻ•āĻ°ā§‡ āĻ¯ā§‡ āĻ¸āĻžā§āĻšāĻžāĻ˛āĻŋāĻ¤ āĻšāĻŦā§‡ āĻ¯āĻ–āĻ¨ āĻāĻ•āĻŸāĻŋ PP
āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ†āĻšā§āĻŦāĻžāĻ¨ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧāĨ¤ āĻ¤āĻžāĻ‡ āĻ•āĻŋ āĻšāĻ¯āĻŧ āĻ¯āĻ–āĻ¨ āĻ†āĻŽāĻ°āĻž āĻ†āĻŽāĻžāĻĻā§‡āĻ° āĻĒā§‚āĻ°ā§āĻŦā§‡ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻāĻ• āĻ†āĻšā§āĻŦāĻžāĻ¨
āĻŦāĻŋāĻ­āĻŋāĻ¨ā§āĻ¨ āĻ§āĻ°āĻ¨ā§‡āĻ° pdls āĻ¸āĻš āĻĢāĻžāĻ‚āĻļāĻ¨, āĻ¯ā§‡āĻŽāĻ¨

add2($a,$b,($ret=null));

āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ $a āĻŸāĻžāĻ‡āĻĒā§‡āĻ° "PDL_Float" āĻāĻŦāĻ‚ $b āĻŸāĻžāĻ‡āĻĒā§‡āĻ° "PDL_Short"? āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° āĻ¸āĻš āĻ¯ā§‡āĻŽāĻ¨ āĻĻā§‡āĻ–āĻžāĻ¨ā§‹ āĻšāĻ¯āĻŧā§‡āĻ›ā§‡
āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ā§‡āĻ° āĻĄā§‡āĻŸāĻžāĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻ‰āĻĒāĻ°ā§‡ "add2" āĻāĻ° āĻ¸āĻ‚āĻœā§āĻžāĻž (āĻ°āĻžāĻ¨āĻŸāĻžāĻ‡āĻŽā§‡ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŋāĻ¤)
'āĻ¸āĻ°ā§āĻŦā§‹āĻšā§āĻš' āĻŸāĻžāĻ‡āĻĒ āĻ¸āĻš pdl āĻāĻ° (āĻ•ā§āĻ°āĻŽ āĻšāĻ˛ āĻŦāĻžāĻ‡āĻŸ < āĻ¸āĻ‚āĻ•ā§āĻˇāĻŋāĻĒā§āĻ¤ < ushort < āĻĻā§€āĻ°ā§āĻ˜ < āĻĢā§āĻ˛ā§‹āĻŸ
< āĻĻā§āĻŦāĻŋāĻ—ā§āĻŖ)āĨ¤ āĻ…ā§āĻ¯āĻžāĻĄ 2 āĻ‰āĻĻāĻžāĻšāĻ°āĻŖā§‡ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ā§‡āĻ° āĻĄā§‡āĻŸāĻžāĻŸāĻžāĻ‡āĻĒāĻŸāĻŋ āĻĢā§āĻ˛ā§‹āĻŸ ($a āĻāĻ° āĻ†āĻ›ā§‡
āĻĄā§‡āĻŸāĻžāĻŸāĻžāĻ‡āĻĒ)āĨ¤ āĻ¸āĻŽāĻ¸ā§āĻ¤ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸāĻ—ā§āĻ˛āĻŋ āĻ¤āĻžāĻ°āĻĒāĻ° āĻ¸ā§‡āĻ‡ āĻĄā§‡āĻŸāĻžāĻŸāĻžāĻ‡āĻĒā§‡ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ°āĻŋāĻ¤ āĻŸāĻžāĻ‡āĻĒ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ (āĻ¸ā§‡āĻ—ā§āĻ˛āĻŋ āĻ¨āĻ¯āĻŧ
inplace āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ°āĻŋāĻ¤ āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻāĻ•āĻŸāĻŋ pdl āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻ¨āĻž āĻĨāĻžāĻ•āĻ˛ā§‡ āĻ¸āĻ āĻŋāĻ• āĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻāĻ•āĻŸāĻŋ āĻ…āĻ¨ā§āĻ˛āĻŋāĻĒāĻŋ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ
āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ā§‡āĻ° āĻ§āĻ°āĻ¨)āĨ¤ āĻ¨āĻžāĻ˛ pdls āĻāĻ° āĻ¸āĻ‚āĻ•āĻ˛ā§āĻĒā§‡ āĻ•ā§‹āĻ¨ āĻĒā§āĻ°āĻ•āĻžāĻ° āĻ…āĻŦāĻĻāĻžāĻ¨ āĻ°āĻžāĻ–ā§‡ āĻ¨āĻž
āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ā§‡āĻ° āĻ§āĻ°āĻ¨āĨ¤ āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻ¤āĻžāĻ°āĻž āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ā§‡āĻ° āĻĄā§‡āĻŸāĻžāĻŸāĻžāĻ‡āĻĒ āĻĻāĻŋāĻ¯āĻŧā§‡ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž āĻšāĻŦā§‡;
āĻāĻ–āĻžāĻ¨ā§‡, āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻ¸ā§āĻŦāĻ°ā§‚āĻĒ, $ret āĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻĢā§āĻ˛ā§‹āĻŸ āĻšāĻŦā§‡āĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻ–āĻ¨ āĻāĻ‡ āĻ¨āĻŋāĻ¯āĻŧāĻŽ āĻ¸āĻšā§‡āĻ¤āĻ¨ āĻšāĻ¤ā§‡ āĻšāĻŦā§‡
āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤ āĻ¸ā§āĻŸā§‹āĻ°ā§‡āĻœ āĻ¨āĻŋāĻ¤ā§‡ āĻŦāĻŋāĻ­āĻŋāĻ¨ā§āĻ¨ āĻ§āĻ°āĻ¨ā§‡āĻ° pdls āĻ¸āĻš āĻĒāĻŋāĻĒāĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ•āĻ˛ āĻ•āĻ°āĻž āĻāĻŦāĻ‚
āĻ…ā§āĻ¯āĻžāĻ•āĻžāĻ‰āĻ¨ā§āĻŸā§‡ āĻ°āĻžāĻ¨āĻŸāĻžāĻ‡āĻŽ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§€āĻ¯āĻŧāĻ¤āĻž.

āĻāĻ‡ āĻ§āĻ°āĻ¨ā§‡āĻ° āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ°āĻ—ā§āĻ˛āĻŋ āĻ†āĻĒāĻ¨āĻŋ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ "pp_def" āĻĻāĻŋāĻ¯āĻŧā§‡ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻŦā§‡āĻļāĻŋāĻ°āĻ­āĻžāĻ— āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻ¸āĻ āĻŋāĻ•āĨ¤
āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻ•āĻŋāĻ›ā§ āĻ•āĻŋāĻ›ā§ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻ†āĻ›ā§‡ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ¸āĻžāĻŽāĻžāĻ¨ā§āĻ¯ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻŋāĻ¤ āĻ§āĻ°āĻ¨ā§‡āĻ° āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻ†āĻšāĻ°āĻŖ
āĻ†āĻ•āĻžāĻ™ā§āĻ•ā§āĻˇāĻŋāĻ¤. āĻāĻ‡ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°ā§‡āĻ° āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤ āĻ¯ā§‹āĻ—ā§āĻ¯āĻ¤āĻž āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻ¤ā§‡ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻ¯ā§‡āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡
āĻŸāĻžāĻ‡āĻĒ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻ¸āĻ‚āĻ•ā§āĻ°āĻžāĻ¨ā§āĻ¤ āĻĒāĻ›āĻ¨ā§āĻĻāĻ¸āĻ‡ āĻŦā§ˆāĻļāĻŋāĻˇā§āĻŸā§āĻ¯. āĻāĻ‡ āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ°āĻ—ā§āĻ˛āĻŋāĻ° āĻ¸āĻžāĻĨā§‡ āĻŽāĻŋāĻ˛āĻŋāĻ¤ āĻšāĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡
āĻ¯āĻžāĻĻā§‡āĻ° āĻ†āĻŽāĻ°āĻž āĻ‡āĻ¤āĻŋāĻŽāĻ§ā§āĻ¯ā§‡āĻ‡ āĻ¸āĻŽā§āĻŽā§āĻ–ā§€āĻ¨ āĻšāĻ¯āĻŧā§‡āĻ›āĻŋ ( āĻ¸ā§ƒāĻˇā§āĻŸāĻŋ āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ° "[o]" āĻāĻŦāĻ‚ "[t]")āĨ¤ āĻšāĻ˛ā§‹ āĻ¯āĻžāĻ‡
āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ°āĻĻā§‡āĻ° āĻ¤āĻžāĻ˛āĻŋāĻ•āĻžāĻ° āĻŽāĻžāĻ§ā§āĻ¯āĻŽā§‡ āĻ¯āĻž āĻŸāĻžāĻ‡āĻĒ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻ†āĻšāĻ°āĻŖ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨ āĻ•āĻ°ā§‡āĨ¤

āĻ¸āĻŦāĻšā§‡āĻ¯āĻŧā§‡ āĻ—ā§āĻ°ā§āĻ¤ā§āĻŦāĻĒā§‚āĻ°ā§āĻŖ āĻšāĻ˛ "int" āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ° āĻ¯āĻž pdl āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻ° āĻ¸āĻŽāĻ¯āĻŧ āĻ•āĻžāĻœā§‡ āĻ†āĻ¸ā§‡
āĻ¸ā§‚āĻšāĻ•āĻ—ā§āĻ˛āĻŋāĻ•ā§‡ āĻ…āĻ¨ā§āĻ¯ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ā§‡ āĻ‰āĻĒāĻ¸ā§āĻĨāĻžāĻĒāĻ¨ āĻ•āĻ°ā§‡āĨ¤ āĻ†āĻ¸ā§āĻ¨ "PDL::Ufunc" āĻĨā§‡āĻ•ā§‡ āĻāĻ•āĻŸāĻŋ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻĻā§‡āĻ–āĻŋ:

pp_def('āĻ¸āĻ°ā§āĻŦā§‹āĻšā§āĻš_āĻ‡āĻ¨ā§āĻĄ',
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(n); int [o] b()',
āĻ•ā§‹āĻĄ => '$GENERIC() cur;
int curind;
āĻ˛ā§āĻĒ(n) %{
āĻ¯āĻĻāĻŋ (!n || $a() > cur) {cur = $a(); curind = n;}
%}
$b() = curind;',
);

"maximum_ind" āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻāĻ•āĻŸāĻŋ āĻ­ā§‡āĻ•ā§āĻŸāĻ°ā§‡āĻ° āĻŦā§ƒāĻšāĻ¤ā§āĻ¤āĻŽ āĻ‰āĻĒāĻžāĻĻāĻžāĻ¨ā§‡āĻ° āĻ¸ā§‚āĻšāĻ• āĻ–ā§āĻāĻœā§‡ āĻĒāĻžāĻ¯āĻŧāĨ¤ āĻ¯āĻĻāĻŋ āĻ¤ā§āĻŽāĻŋ āĻ¤āĻžāĻ•āĻžāĻ“
āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ˛āĻ•ā§āĻˇā§āĻ¯ āĻ•āĻ°ā§‡āĻ›ā§‡āĻ¨ āĻ¯ā§‡ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ "b" āĻāĻ° āĻ¸āĻžāĻĨā§‡ āĻ˜ā§‹āĻˇāĻŖāĻž āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡
āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤ "int" āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ°āĨ¤ āĻŸāĻžāĻ‡āĻĒ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ°āĻ—ā§āĻ˛āĻŋāĻ° āĻœāĻ¨ā§āĻ¯ āĻāĻŸāĻŋāĻ° āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻ–āĻŋāĻ¤ āĻĢāĻ˛āĻžāĻĢāĻ˛ āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡:
āĻ‡āĻ¨āĻĒā§āĻŸ pdl "a" āĻĒā§āĻ°āĻ•āĻžāĻ° āĻ¨āĻŋāĻ°ā§āĻŦāĻŋāĻļā§‡āĻˇā§‡ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ pdl "b" āĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻšāĻŦā§‡ "PDL_Long"
āĻ¯āĻž āĻŦā§‹āĻāĻžāĻ¯āĻŧ āĻ¯ā§‡āĻšā§‡āĻ¤ā§ "b" āĻāĻ•āĻŸāĻŋ āĻ¸ā§‚āĻšāĻ•āĻ•ā§‡ "a" āĻ¤ā§‡ āĻ‰āĻĒāĻ¸ā§āĻĨāĻžāĻĒāĻ¨ āĻ•āĻ°āĻŦā§‡āĨ¤ āĻ‰āĻĒāĻ°āĻ¨ā§āĻ¤ā§, āĻ¯āĻĻāĻŋ āĻ†āĻĒāĻ¨āĻŋ āĻ•āĻ˛
āĻāĻ•āĻŸāĻŋ āĻŦāĻŋāĻĻā§āĻ¯āĻŽāĻžāĻ¨ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ pdl "b" āĻ¸āĻš āĻĢāĻžāĻ‚āĻļāĻ¨ āĻāĻ° āĻŸāĻžāĻ‡āĻĒ āĻĄā§‡āĻŸāĻžāĻŸāĻžāĻ‡āĻĒāĻ•ā§‡ āĻĒā§āĻ°āĻ­āĻžāĻŦāĻŋāĻ¤ āĻ•āĻ°āĻŦā§‡ āĻ¨āĻž
āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ (āĻ‰āĻĒāĻ°ā§‡ āĻĻā§‡āĻ–ā§āĻ¨)āĨ¤ āĻ¤āĻžāĻ‡, "a" "b" āĻāĻ° āĻšā§‡āĻ¯āĻŧā§‡ āĻ›ā§‹āĻŸ āĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻšāĻ˛ā§‡āĻ“ āĻ¤āĻž āĻšāĻŦā§‡ āĻ¨āĻž
"b" āĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻ¸āĻžāĻĨā§‡ āĻŽā§‡āĻ˛ā§‡ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ°āĻŋāĻ¤ āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻ…āĻ¸ā§āĻĒāĻ°ā§āĻļ āĻĨāĻžāĻ•ā§‡, āĻ¯āĻž āĻŽā§‡āĻŽāĻ°āĻŋ āĻāĻŦāĻ‚ CPU āĻšāĻ•ā§āĻ° āĻ¸āĻ‚āĻ°āĻ•ā§āĻˇāĻŖ āĻ•āĻ°ā§‡
āĻāĻŦāĻ‚ āĻ¯āĻ–āĻ¨ "b" āĻ¸ā§‚āĻšāĻ•ā§‡āĻ° āĻĒā§āĻ°āĻ¤āĻŋāĻ¨āĻŋāĻ§āĻŋāĻ¤ā§āĻŦ āĻ•āĻ°ā§‡ āĻ¤āĻ–āĻ¨ āĻāĻŸāĻŋ āĻ•āĻ°āĻž āĻ¸āĻ āĻŋāĻ• āĻœāĻŋāĻ¨āĻŋāĻ¸āĨ¤ āĻāĻ›āĻžāĻĄāĻŧāĻžāĻ“ āĻŽāĻ¨ā§‡ āĻ°āĻžāĻ–āĻŦā§‡āĻ¨ āĻ¯ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
'int' āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ° āĻāĻ•āĻ¸āĻžāĻĨā§‡ āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ°ā§‡āĻ° āĻ¸āĻžāĻĨā§‡ ("[o]" āĻāĻŦāĻ‚ "[t]" āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ°)āĨ¤ āĻ…āĻ°ā§āĻĄāĻžāĻ° āĻšāĻ˛
āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ–āĻ¯ā§‹āĻ—ā§āĻ¯ -- āĻŸāĻžāĻ‡āĻĒ āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ°āĻ—ā§āĻ˛āĻŋ āĻ•ā§āĻ°āĻŋāĻ¯āĻŧā§‡āĻļāĻ¨ āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ°ā§‡āĻ° āĻ†āĻ—ā§‡ āĻĨāĻžāĻ•ā§‡ ("[o]" āĻāĻŦāĻ‚ "[t]")āĨ¤

āĻ‰āĻĒāĻ°ā§‡āĻ° āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻŸāĻŋ "$GENERIC()" āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹āĻ° āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°āĻ“ āĻĻā§‡āĻ–āĻžāĻ¯āĻŧāĨ¤ āĻāĻŸāĻŋ āĻĒā§āĻ°āĻ¸āĻžāĻ°āĻŋāĻ¤ āĻšāĻ¯āĻŧ
āĻāĻ•āĻŸāĻŋ āĻ¤āĻĨāĻžāĻ•āĻĨāĻŋāĻ¤ āĻœā§‡āĻ¨ā§‡āĻ°āĻŋāĻ• āĻ˛ā§āĻĒā§‡ āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ āĻĒā§āĻ°āĻ•āĻžāĻ°ā§‡āĨ¤ āĻāĻ•āĻŸāĻŋ āĻœā§‡āĻ¨ā§‡āĻ°āĻŋāĻ• āĻ˛ā§āĻĒ āĻ•āĻŋ? āĻ†āĻĒāĻ¨āĻŋ āĻ‡āĻ¤āĻŋāĻŽāĻ§ā§āĻ¯ā§‡
āĻļā§āĻ¨ā§‡āĻ›āĻŋ āĻāĻ•āĻŸāĻŋ PP āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡āĻ° āĻāĻ•āĻŸāĻŋ āĻ°āĻžāĻ¨āĻŸāĻžāĻ‡āĻŽ āĻĄā§‡āĻŸāĻžāĻŸāĻžāĻ‡āĻĒ āĻ†āĻ›ā§‡ āĻ¯ā§‡āĻŽāĻ¨ pdl āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻ° āĻ§āĻ°āĻ¨ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŋāĻ¤ āĻšāĻ¯āĻŧ
āĻāĻŸāĻž āĻĻāĻŋāĻ¯āĻŧā§‡ āĻ†āĻšā§āĻŦāĻžāĻ¨ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡. āĻāĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻĒāĻŋāĻĒāĻŋ āĻœā§‡āĻ¨āĻžāĻ°ā§‡āĻŸ āĻ•āĻ°āĻž XS āĻ•ā§‹āĻĄā§‡ āĻāĻ•āĻŸāĻŋ āĻĨāĻžāĻ•ā§‡
"switch (type) {case PDL_Byte: ... case PDL_Double: ...}" āĻāĻ° āĻŽāĻ¤ āĻ¸ā§āĻ¯ā§āĻ‡āĻš āĻ•āĻ°ā§āĻ¨ āĻ¯āĻž āĻāĻ•āĻŸāĻŋ āĻ•ā§‡āĻ¸ āĻ¨āĻŋāĻ°ā§āĻŦāĻžāĻšāĻ¨ āĻ•āĻ°ā§‡
āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡āĻ° āĻ°āĻžāĻ¨āĻŸāĻžāĻ‡āĻŽ āĻĄā§‡āĻŸāĻžāĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻ‰āĻĒāĻ° āĻ­āĻŋāĻ¤ā§āĻ¤āĻŋ āĻ•āĻ°ā§‡ (āĻāĻŸāĻŋāĻ•ā§‡ āĻāĻ•āĻŸāĻŋ āĻŸāĻžāĻ‡āĻĒ ``āĻ˛ā§āĻĒ'' āĻŦāĻ˛āĻž āĻšāĻ¯āĻŧ āĻ•āĻžāĻ°āĻŖ āĻ¸ā§‡āĻ–āĻžāĻ¨ā§‡
āĻĒāĻŋāĻĒāĻŋ āĻ•ā§‹āĻĄā§‡āĻ° āĻāĻ•āĻŸāĻŋ āĻ˛ā§āĻĒ āĻ¯āĻž āĻ•ā§‡āĻ¸ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§‡)āĨ¤ āĻ¯ā§‡ āĻ•ā§‹āĻ¨ā§‹ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ•ā§‹āĻĄ āĻāĻ•āĻŦāĻžāĻ° āĻĸā§‹āĻ•āĻžāĻ¨ā§‹ āĻšāĻ¯āĻŧ
āĻĒā§āĻ°āĻ¤āĻŋāĻŸāĻŋ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛-āĻāĻ° āĻœāĻ¨ā§āĻ¯ āĻāĻ‡ āĻ¸ā§āĻ‡āĻš āĻ¸ā§āĻŸā§‡āĻŸāĻŽā§‡āĻ¨ā§āĻŸā§‡ āĻŸāĻžāĻ‡āĻĒ āĻ•āĻ°ā§āĻ¨āĨ¤ "$GENERIC()" āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻļā§āĻ§ā§ āĻĒā§āĻ°āĻ¸āĻžāĻ°āĻŋāĻ¤ āĻšāĻ¯āĻŧ
āĻāĻ‡ "āĻ¸ā§āĻ‡āĻš" āĻŦāĻŋāĻŦā§ƒāĻ¤āĻŋāĻ¤ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒāĻžāĻ°ā§āĻ¸ āĻ•āĻ°āĻž āĻ•ā§‹āĻĄā§‡āĻ° āĻĒā§āĻ°āĻ¤āĻŋāĻŸāĻŋ āĻ…āĻ¨ā§āĻ˛āĻŋāĻĒāĻŋāĻ¤ā§‡ āĻ¸āĻ‚āĻļā§āĻ˛āĻŋāĻˇā§āĻŸ āĻŸāĻžāĻ‡āĻĒ āĻ•āĻ°ā§āĻ¨, āĻ¯ā§‡āĻŽāĻ¨, āĻ¤ā§‡
"āĻ•ā§‡āĻ¸ PDL_Byte" āĻŦāĻŋāĻ­āĻžāĻ— "cur" āĻĒā§āĻ°āĻ¸āĻžāĻ°āĻŋāĻ¤ āĻšāĻŦā§‡ "PDL_Byte" āĻāĻŦāĻ‚ āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡āĻ“
āĻŦāĻŋāĻŦā§ƒāĻ¤āĻŋ āĻ†āĻŽāĻžāĻ° āĻ§āĻžāĻ°āĻŖāĻž āĻ†āĻĒāĻ¨āĻŋ āĻŦā§āĻāĻ¤ā§‡ āĻĒā§‡āĻ°ā§‡āĻ›ā§‡āĻ¨ āĻ¯ā§‡ āĻāĻŸāĻŋ āĻ•āĻŋāĻ›ā§āĻ¤ā§‡ pdls āĻāĻ° āĻŽāĻžāĻ¨ āĻ§āĻ°ā§‡ āĻ°āĻžāĻ–āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻāĻ•āĻŸāĻŋ āĻĻāĻ°āĻ•āĻžāĻ°ā§€ āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹
āĻ•ā§‹āĻĄāĨ¤

"int" āĻāĻ° āĻŽāĻ¤ā§‹ āĻ…āĻ¨ā§āĻ°ā§‚āĻĒ āĻĒā§āĻ°āĻ­āĻžāĻŦ āĻ¸āĻš āĻ†āĻ°āĻ“ āĻ•āĻ¯āĻŧā§‡āĻ•āĻŸāĻŋ āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ° āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡āĨ¤ āĻ†āĻĒāĻ¨āĻžāĻ° āĻœāĻ¨ā§āĻ¯
āĻ¸ā§āĻŦāĻŋāĻ§āĻžāĻ°ā§āĻĨā§‡ "āĻĢā§āĻ˛ā§‹āĻŸ" āĻāĻŦāĻ‚ "āĻĄāĻžāĻŦāĻ˛" āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ° āĻ†āĻ›ā§‡
"int" āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻŸāĻžāĻ‡āĻĒ āĻ•āĻ°ā§āĻ¨āĨ¤ āĻ§āĻ°āĻž āĻ¯āĻžāĻ• āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸāĻŋ āĻ†āĻ›ā§‡ āĻ–ā§āĻŦ āĻŦāĻĄāĻŧ āĻ…ā§āĻ¯āĻžāĻ°ā§‡ āĻ¯āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ†āĻĒāĻ¨āĻŋ āĻšāĻžāĻ¨
"sumover" āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡āĻ° āĻ¸āĻŽāĻ¤ā§āĻ˛ā§āĻ¯ āĻ¸āĻš āĻ¸āĻžāĻ°āĻŋ āĻāĻŦāĻ‚ āĻ•āĻ˛āĻžāĻŽā§‡āĻ° āĻ¯ā§‹āĻ—āĻĢāĻ˛ āĻ—āĻŖāĻ¨āĻž āĻ•āĻ°ā§āĻ¨āĨ¤ āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻ¸āĻ™ā§āĻ—ā§‡
"sumover" āĻāĻ° āĻ¸ā§āĻŦāĻžāĻ­āĻžāĻŦāĻŋāĻ• āĻ¸āĻ‚āĻœā§āĻžāĻž āĻ¯āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĄā§‡āĻŸāĻž āĻšāĻ¯āĻŧ āĻ¤āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻ¸āĻŽāĻ¸ā§āĻ¯āĻžāĻ¯āĻŧ āĻĒāĻĄāĻŧāĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨, āĻ¯ā§‡āĻŽāĻ¨
āĻ¸āĻ‚āĻ•ā§āĻˇāĻŋāĻĒā§āĻ¤ āĻŸāĻžāĻ‡āĻĒ āĻ•āĻ°ā§āĻ¨āĨ¤ āĻāĻ•āĻŸāĻŋ āĻ•āĻ˛ āĻŽāĻ¤

sumover($large_pdl,($sums = null));

āĻāĻ° āĻĢāĻ˛ā§‡ $sums āĻ›ā§‹āĻŸ āĻ†āĻ•āĻžāĻ°ā§‡āĻ° āĻšāĻŦā§‡ āĻāĻŦāĻ‚ āĻ¤āĻžāĻ‡ āĻ¯āĻĻāĻŋ āĻ“āĻ­āĻžāĻ°āĻĢā§āĻ˛ā§‹ āĻ¤ā§āĻ°ā§āĻŸāĻŋāĻ° āĻĒā§āĻ°āĻŦāĻŖāĻ¤āĻž āĻĨāĻžāĻ•ā§‡
$large_pdl āĻāĻ•āĻŸāĻŋ āĻ–ā§āĻŦ āĻŦāĻĄāĻŧ āĻ…ā§āĻ¯āĻžāĻ°ā§‡āĨ¤ āĻ…āĻ¨ā§āĻ¯āĻĻāĻŋāĻ•ā§‡ āĻĄāĻžāĻ•āĻ›ā§‡

@dims = $large_pdl->dims; āĻļāĻŋāĻĢāĻŸ @dims;
sumover($large_pdl,($sums = zeroes(Duble,@dims)));

āĻāĻ•āĻŸāĻŋ āĻ­āĻžāĻ˛ āĻŦāĻŋāĻ•āĻ˛ā§āĻĒ āĻšāĻ¯āĻŧ āĻ¨āĻž. āĻāĻ–āĻ¨ āĻ†āĻŽāĻžāĻĻā§‡āĻ° $sums āĻāĻ° āĻ¸āĻžāĻĨā§‡ āĻ“āĻ­āĻžāĻ°āĻĢā§āĻ˛ā§‹ āĻ¸āĻŽāĻ¸ā§āĻ¯āĻž āĻ¨ā§‡āĻ‡ āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻ
$large_pdl-āĻāĻ° āĻŸāĻžāĻ‡āĻĒ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ°ā§‡āĻ° āĻ–āĻ°āĻš āĻĻā§āĻŦāĻŋāĻ—ā§āĻŖ, āĻ¯āĻĻāĻŋ āĻāĻŸāĻŋ āĻ¸āĻ¤ā§āĻ¯āĻŋāĻ‡ āĻšāĻ¯āĻŧ āĻ¤āĻŦā§‡ āĻ–āĻžāĻ°āĻžāĻĒ āĻ•āĻŋāĻ›ā§
āĻāĻ•āĻŸāĻŋ āĻŦāĻĄāĻŧ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛āĨ¤ āĻ¸ā§‡āĻ–āĻžāĻ¨ā§‡āĻ‡ "āĻĄāĻžāĻŦāĻ˛" āĻ•āĻžāĻœā§‡ āĻ†āĻ¸ā§‡:

pp_def('sumoverd',
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(n); āĻĻā§āĻŦāĻŋāĻ—ā§āĻŖ [āĻ“] āĻŦāĻŋ()',
āĻ•ā§‹āĻĄ => 'āĻĄāĻŦāĻ˛ tmp=0;
loop(n) %{ tmp += a(); %}
$b() = tmp;',
);

āĻāĻŸāĻŋ āĻ†āĻŽāĻžāĻĻā§‡āĻ° āĻŸāĻžāĻ‡āĻĒ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻāĻŦāĻ‚ āĻ“āĻ­āĻžāĻ°āĻĢā§āĻ˛ā§‹ āĻ¸āĻŽāĻ¸ā§āĻ¯āĻžāĻ° āĻ•āĻžāĻ›āĻžāĻ•āĻžāĻ›āĻŋ āĻĒāĻžāĻ¯āĻŧāĨ¤ āĻ†āĻŦāĻžāĻ°, āĻ…āĻ¨ā§āĻ°ā§‚āĻĒ
"int" āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ° "āĻĄāĻŦāĻ˛" āĻāĻ° āĻĢāĻ˛ā§‡ "āĻŦāĻŋ" āĻŸāĻžāĻ‡āĻĒ āĻ¨āĻŋāĻ°ā§āĻŦāĻŋāĻļā§‡āĻˇā§‡ āĻ¸āĻŦāĻ¸āĻŽāĻ¯āĻŧ āĻĄāĻžāĻŦāĻ˛ āĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻšāĻ¯āĻŧ
āĻĒāĻžāĻ°ā§āĻļā§āĻŦ āĻĒā§āĻ°āĻ¤āĻŋāĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻž āĻšāĻŋāĻ¸āĻžāĻŦā§‡ "a"-āĻāĻ° āĻŸāĻžāĻ‡āĻĒ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻ¨āĻž āĻ•āĻ°ā§‡āĻ‡ "a" āĻāĻ°āĨ¤

āĻ…āĻŦāĻļā§‡āĻˇā§‡, "āĻŸāĻžāĻ‡āĻĒ+" āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ° āĻ†āĻ›ā§‡ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻŸāĻžāĻ‡āĻĒ āĻšāĻ˛ "int" āĻŦāĻž "float" āĻāĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻāĻ•āĻŸāĻŋāĨ¤ āĻ•āĻŋ
āĻāĻ° āĻŽāĻžāĻ¨ā§‡ āĻšāĻŦā§‡ āĻāĻ° āĻĒā§āĻ°āĻ•ā§ƒāĻ¤ āĻ¸āĻ‚āĻœā§āĻžāĻž āĻĻāĻŋāĻ¯āĻŧā§‡ "int+" āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ°āĻ•ā§‡ āĻšāĻŋāĻ¤ā§āĻ°āĻŋāĻ¤ āĻ•āĻ°āĻž āĻ¯āĻžāĻ•
sumover:

pp_def('sumover',
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(n); int+ [o] b()',
āĻ•ā§‹āĻĄ => '$GENERIC(b) tmp=0;
loop(n) %{ tmp += a(); %}
$b() = tmp;',
);

āĻ†āĻŽāĻ°āĻž āĻ‡āĻ¤āĻŋāĻŽāĻ§ā§āĻ¯ā§‡āĻ‡ "int", "float" āĻāĻŦāĻ‚ "āĻĄāĻžāĻŦāĻ˛" āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ°ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻĻā§‡āĻ–ā§‡āĻ›āĻŋ, āĻāĻ•āĻŸāĻŋ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ āĻšāĻŋāĻšā§āĻ¨āĻŋāĻ¤
"type+" āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ° pdl āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ā§‡āĻ° āĻĄā§‡āĻŸāĻžāĻŸāĻžāĻ‡āĻĒāĻ•ā§‡ āĻĒā§āĻ°āĻ­āĻžāĻŦāĻŋāĻ¤ āĻ•āĻ°ā§‡ āĻ¨āĻžāĨ¤ āĻāĻ° āĻ…āĻ°ā§āĻĨ āĻšāĻ˛
"āĻāĻ‡ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛āĻŸāĻŋ āĻ•āĻŽāĻĒāĻ•ā§āĻˇā§‡ "āĻŸāĻžāĻ‡āĻĒ" āĻŦāĻž āĻ‰āĻšā§āĻšāĻ¤āĻ° āĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§āĻ¨, āĻ¯ā§‡āĻŽāĻ¨ āĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨
āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨āĨ¤ sumover āĻ‰āĻĻāĻžāĻšāĻ°āĻŖā§‡ āĻāĻ° āĻŽāĻžāĻ¨ā§‡ āĻšāĻ˛ āĻ¯āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸāĻŋ "a" āĻĻāĻŋāĻ¯āĻŧā§‡ āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋāĻ•ā§‡ āĻ•āĻ˛ āĻ•āĻ°ā§‡āĻ¨
PDL_Short āĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻ†āĻ‰āĻŸāĻĒā§āĻŸ pdl āĻšāĻŦā§‡ PDL_Long āĻŸāĻžāĻ‡āĻĒā§‡āĻ° (āĻ āĻŋāĻ• āĻ¯ā§‡āĻŽāĻ¨ āĻšāĻ¤ā§‹
"int" āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ°ā§‡āĻ° āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡)āĨ¤ āĻāĻŸāĻŋ āĻ†āĻŦāĻžāĻ° āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻžāĻ° āĻ¸āĻŽāĻ¯āĻŧ āĻ“āĻ­āĻžāĻ°āĻĢā§āĻ˛ā§‹ āĻ¸āĻŽāĻ¸ā§āĻ¯āĻž āĻāĻĄāĻŧāĻžāĻ¤ā§‡ āĻšā§‡āĻˇā§āĻŸāĻž āĻ•āĻ°ā§‡
āĻ›ā§‹āĻŸ āĻĄā§‡āĻŸāĻžāĻŸāĻžāĻ‡āĻĒ (āĻ¯ā§‡āĻŽāĻ¨ āĻŦāĻžāĻ‡āĻŸ āĻ‡āĻŽā§‡āĻœ)āĨ¤ āĻ¤āĻŦā§‡ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ā§‡āĻ° āĻĄāĻžāĻŸāĻžāĻŸāĻžāĻ‡āĻĒ āĻŦā§‡āĻļāĻŋ āĻšāĻ˛ā§‡
"type+" āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ°ā§‡ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ–āĻŋāĻ¤ āĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻšā§‡āĻ¯āĻŧā§‡ "b" āĻāĻ° āĻĄā§‡āĻŸāĻžāĻŸāĻžāĻ‡āĻĒ āĻĻāĻŋāĻ¯āĻŧā§‡ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž āĻšāĻŦā§‡
āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨, āĻ¯ā§‡āĻŽāĻ¨ "a" āĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻĻā§āĻŦāĻŋāĻ—ā§āĻŖ āĻšāĻ˛ā§‡ "b"āĻ“ āĻĻā§āĻŦāĻŋāĻ—ā§āĻŖ āĻšāĻŦā§‡āĨ¤ āĻ†āĻŽāĻ°āĻž āĻ†āĻļāĻž āĻ•āĻ°āĻŋ
āĻ†āĻĒāĻ¨āĻŋ āĻ¸āĻŽā§āĻŽāĻ¤ āĻšāĻ¨ āĻ¯ā§‡ āĻāĻŸāĻŋ "sumover" āĻāĻ° āĻœāĻ¨ā§āĻ¯ āĻŦā§āĻĻā§āĻ§āĻŋāĻŽāĻžāĻ¨ āĻ†āĻšāĻ°āĻŖāĨ¤ āĻāĻŸāĻž āĻ•āĻŋāĻ­āĻžāĻŦā§‡ āĻ¸ā§āĻ¸ā§āĻĒāĻˇā§āĻŸ āĻšāĻ“āĻ¯āĻŧāĻž āĻ‰āĻšāĻŋāĻ¤
"float+" āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ° āĻ¸āĻžāĻĻā§ƒāĻļā§āĻ¯ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ•āĻžāĻœ āĻ•āĻ°ā§‡āĨ¤ āĻāĻŸāĻŋ āĻāĻ•āĻŸāĻŋ āĻ¸ā§‡āĻŸ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻ¤ā§‡ āĻ¸āĻ•ā§āĻˇāĻŽ āĻšāĻ¤ā§‡ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§€āĻ¯āĻŧ āĻšāĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡
āĻĒāĻ°āĻžāĻŽāĻŋāĻ¤āĻŋ āĻœāĻ¨ā§āĻ¯ āĻŦāĻŋāĻ•āĻ˛ā§āĻĒ āĻ§āĻ°āĻ¨ā§‡āĻ°. āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻāĻŸāĻŋ āĻ¸āĻŽā§āĻ­āĻŦāĻ¤ āĻŦāĻžāĻ¸ā§āĻ¤āĻŦāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻšāĻŦā§‡ āĻ¨āĻž
āĻ¯āĻ¤āĻ•ā§āĻˇāĻŖ āĻ¨āĻž āĻ•ā§‡āĻ‰ āĻāĻŸāĻŋāĻ° āĻœāĻ¨ā§āĻ¯ āĻāĻ•āĻŸāĻŋ āĻ¯ā§āĻ•ā§āĻ¤āĻŋāĻ¸āĻ™ā§āĻ—āĻ¤ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ¨āĻŋāĻ¯āĻŧā§‡ āĻ†āĻ¸ā§‡āĨ¤

āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ–ā§āĻ¯, āĻ†āĻŽāĻžāĻĻā§‡āĻ° āĻāĻ–āĻ¨ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛-āĻāĻ° āĻ¨āĻžāĻŽā§‡āĻ° āĻ¸āĻžāĻĨā§‡ $GENERIC āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡
āĻ¯ā§‡ āĻ¯ā§āĻ•ā§āĻ¤āĻŋ āĻĨā§‡āĻ•ā§‡ āĻŸāĻžāĻ‡āĻĒ āĻ•āĻ°ā§āĻ¨. āĻ¤āĻž āĻ•ā§‡āĻ¨? āĻ†āĻĒāĻ¨āĻŋ āĻ¸āĻžāĻŦāĻ§āĻžāĻ¨ā§‡ āĻ†āĻŽāĻžāĻĻā§‡āĻ° āĻŦā§āĻ¯āĻžāĻ–ā§āĻ¯āĻž āĻ…āĻ¨ā§āĻ¸āĻ°āĻŖ āĻ•āĻ°āĻ˛ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻšāĻŦā§‡
āĻŦā§āĻāĻ¤ā§‡ āĻĒā§‡āĻ°ā§‡āĻ›āĻŋ āĻ¯ā§‡ āĻ•āĻŋāĻ›ā§ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ "b" āĻāĻ° āĻ§āĻ°āĻ¨ āĻĨā§‡āĻ•ā§‡ āĻ­āĻŋāĻ¨ā§āĻ¨ āĻ§āĻ°āĻ¨ā§‡āĻ° āĻšāĻŦā§‡
āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨. āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ "b" āĻ¸āĻš '$GENERIC' āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻ•āĻ˛ āĻ•āĻ°āĻž āĻ¨āĻŋāĻļā§āĻšāĻŋāĻ¤ āĻ•āĻ°ā§‡ āĻ¯ā§‡ āĻŸāĻžāĻ‡āĻĒ
āĻœā§‡āĻ¨ā§‡āĻ°āĻŋāĻ• āĻ˛ā§āĻĒā§‡āĻ° āĻ¸ā§‡āĻ‡ āĻ…āĻ‚āĻļā§‡ āĻ¸āĻ°ā§āĻŦāĻĻāĻž "b" āĻāĻ° āĻŽāĻ¤āĻ‡ āĻĨāĻžāĻ•āĻŦā§‡āĨ¤

āĻāĻŸāĻŋ āĻāĻ•āĻŸāĻŋ "pp_def" āĻ•āĻ˛ā§‡ "Pars" āĻŦāĻŋāĻ­āĻžāĻ— āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•ā§‡ āĻ¯āĻž āĻŦāĻ˛āĻžāĻ° āĻ†āĻ›ā§‡āĨ¤ āĻ¤ā§‹āĻŽāĻžāĻ° āĻ‰āĻšāĻŋāĻ¤
āĻŽāĻ¨ā§‡ āĻ°āĻžāĻ–āĻŦā§‡āĻ¨ āĻ¯ā§‡ āĻāĻ‡ āĻŦāĻŋāĻ­āĻžāĻ—āĻŸāĻŋ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°ā§‡ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° āĻāĻ•āĻŸāĻŋ PP āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻĢāĻžāĻ‚āĻļāĻ¨, āĻ†āĻĒāĻ¨āĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻāĻŦāĻ‚ āĻ…āĻ¸ā§āĻĨāĻžāĻ¯āĻŧā§€ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻāĻŦāĻ‚ āĻ¸āĻŽāĻ¸ā§āĻ¤ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻ¯ā§‹āĻ—ā§āĻ¯āĻ¤āĻž āĻ…āĻ°ā§āĻœāĻ¨ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻŦā§‡āĻļ āĻ•āĻ¯āĻŧā§‡āĻ•āĻŸāĻŋ āĻŦāĻŋāĻ•āĻ˛ā§āĻĒ
āĻ¯ā§‡ āĻŽāĻžāĻ¤ā§āĻ°āĻžāĻ—ā§āĻ˛āĻŋ āĻ†āĻĒāĻ¨āĻŋ āĻĒāĻ°ā§‡ "āĻ•ā§‹āĻĄ" āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨ āĻ¸ā§‡āĻ—ā§āĻ˛āĻŋ āĻ¨āĻžāĻŽ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§ˇ

āĻ¸āĻžāĻŽā§āĻĒā§āĻ°āĻ¤āĻŋāĻ• PDL-āĻ āĻ†āĻĒāĻ¨āĻŋ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°ā§‡āĻ° āĻ…āĻ°ā§āĻĨ āĻŦā§‹āĻāĻž āĻ—ā§āĻ°ā§āĻ¤ā§āĻŦāĻĒā§‚āĻ°ā§āĻŖ
āĻ¸āĻ‚āĻ¸ā§āĻ•āĻ°āĻŖāĻ—ā§āĻ˛āĻŋ āĻ†āĻĒāĻ¨āĻŋ āĻĒāĻžāĻ°ā§āĻ˛ā§‡āĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻĨā§‡āĻ•ā§‡ āĻĨā§āĻ°ā§‡āĻĄā§‡āĻĄ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°āĻ¤ā§‡ āĻāĻŸāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨, āĻ¯ā§‡āĻŽāĻ¨ āĻ†āĻŽāĻ°āĻž āĻ¯āĻž āĻŦāĻ˛āĻŋ
āĻĒāĻžāĻ°ā§āĻ˛ āĻ¸ā§āĻ¤āĻ° āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚. āĻŦāĻŋāĻ¸ā§āĻ¤āĻžāĻ°āĻŋāĻ¤ āĻœāĻžāĻ¨āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ…āĻ¨ā§āĻ—ā§āĻ°āĻš āĻ•āĻ°ā§‡ PDL::Indexing āĻšā§‡āĻ• āĻ•āĻ°ā§āĻ¨āĨ¤

āĻ¸āĻžāĻ°ā§āĻœāĻžāĻ°āĻŋāĻ° āĻ•ā§‹āĻĄ āĻ…āĻ§ā§āĻ¯āĻžāĻ¯āĻŧ
"āĻ•ā§‹āĻĄ" āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ āĻĒā§āĻ°āĻ•ā§ƒāĻ¤ XS āĻ•ā§‹āĻĄ āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡ āĻ¯āĻž a āĻāĻ° āĻ¸āĻŦāĻšā§‡āĻ¯āĻŧā§‡ āĻ­āĻŋāĻ¤āĻ°ā§‡āĻ° āĻ…āĻ‚āĻļā§‡ āĻĨāĻžāĻ•āĻŦā§‡
āĻĨā§āĻ°ā§‡āĻĄ āĻ˛ā§āĻĒ (āĻ¯āĻĻāĻŋ āĻ†āĻĒāĻ¨āĻŋ āĻœāĻžāĻ¨ā§‡āĻ¨ āĻ¨āĻž āĻĨā§āĻ°ā§‡āĻĄ āĻ˛ā§āĻĒ āĻ•ā§€ āĻ¤āĻžāĻšāĻ˛ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ–āĻ¨āĻ“ āĻĒāĻĄāĻŧā§‡āĻ¨āĻ¨āĻŋ
PDL::āĻ¸ā§‚āĻšā§€āĻ•āĻ°āĻŖ; āĻāĻ–āĻ¨ āĻāĻŸāĻŋ āĻ•āĻ°ā§āĻ¨ ;) āĻ¯ā§‡āĻ•ā§‹āĻ¨ā§‹ āĻĒāĻŋāĻĒāĻŋ āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ (āĻ¯ā§‡āĻŽāĻ¨ $āĻœā§‡āĻ¨ā§‡āĻ°āĻŋāĻ•) āĻāĻŦāĻ‚ āĻĒāĻŋāĻĒāĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻšāĻ“āĻ¯āĻŧāĻžāĻ° āĻĒāĻ°ā§‡
āĻĒā§āĻ°āĻ¸āĻžāĻ°āĻŋāĻ¤ (āĻ¯ā§‡āĻŽāĻ¨ "āĻ˛ā§āĻĒ" āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ†āĻŽāĻ°āĻž āĻĒāĻ°āĻŦāĻ°ā§āĻ¤ā§€ āĻŦā§āĻ¯āĻžāĻ–ā§āĻ¯āĻž āĻ•āĻ°āĻ¤ā§‡ āĻ¯āĻžāĻšā§āĻ›āĻŋ)āĨ¤

āĻ†āĻ¸ā§āĻ¨ āĻĻā§āĻ°ā§āĻ¤ "sumover" āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻŸāĻŋ āĻĒā§āĻ¨āĻ°āĻžāĻŦā§ƒāĻ¤ā§āĻ¤āĻŋ āĻ•āĻ°āĻŋ:

pp_def('sumover',
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(n); int+ [o] b()',
āĻ•ā§‹āĻĄ => '$GENERIC(b) tmp=0;
loop(n) %{ tmp += a(); %}
$b() = tmp;',
);

"āĻ•ā§‹āĻĄ" āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ "āĻ˛ā§āĻĒ" āĻ—āĻ āĻ¨āĻŸāĻŋ āĻŽāĻžāĻ¤ā§āĻ°āĻžāĻ° āĻ¨āĻžāĻŽāĻŸāĻŋāĻ•ā§‡āĻ“ āĻ¨āĻŋāĻ°ā§āĻĻā§‡āĻļ āĻ•āĻ°ā§‡ āĻ¯āĻžāĻ¤ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ¤āĻž āĻ¨āĻž āĻ•āĻ°ā§‡āĻ¨
āĻ•ā§‹āĻ¨ āĻ¸ā§€āĻŽāĻž āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡: āĻ˛ā§āĻĒ āĻ¸āĻ āĻŋāĻ•āĻ­āĻžāĻŦā§‡ āĻŽāĻžāĻĒ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡ āĻāĻŦāĻ‚ āĻ¸āĻŦāĻ•āĻŋāĻ›ā§ āĻ†āĻĒāĻ¨āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡,
āĻ†āĻŦāĻžāĻ°.

āĻāĻ°āĻĒāĻ°ā§‡, "$a()" āĻāĻŦāĻ‚ "$b()" āĻ¯ā§‡āĻŸāĻŋ āĻ•āĻ°ā§‡ āĻ¤āĻž āĻ†āĻļā§āĻšāĻ°ā§āĻ¯āĻœāĻ¨āĻ• āĻ˜āĻŸāĻ¨āĻž āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡ āĻ¨āĻž āĻ¸ā§‚āĻšāĻ• āĻ§āĻžāĻ°āĻŖ āĻ•āĻ°ā§āĻ¨āĨ¤ āĻāĻ‡
āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ āĻ¨ā§‡āĻ‡ āĻ•āĻžāĻ°āĻŖ āĻ†āĻŽāĻ°āĻž āĻ˛ā§āĻĒ āĻ•āĻ°āĻ›āĻŋ n āĻāĻŦāĻ‚ āĻ‰āĻ­āĻ¯āĻŧ āĻ­ā§‡āĻ°āĻŋāĻ¯āĻŧā§‡āĻŦāĻ˛āĻ‡ āĻœāĻžāĻ¨ā§‡ āĻ•ā§‹āĻ¨ āĻŽāĻžāĻ¤ā§āĻ°āĻž
āĻ¤āĻžāĻĻā§‡āĻ° āĻ†āĻ›ā§‡ āĻ¤āĻžāĻ‡ āĻ¤āĻžāĻ°āĻž āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ āĻœāĻžāĻ¨ā§‡ āĻ¯ā§‡ āĻ¤āĻžāĻ°āĻž āĻ˛ā§āĻĒ āĻ•āĻ°āĻž āĻšāĻšā§āĻ›ā§‡āĨ¤

āĻāĻ‡ āĻŦā§ˆāĻļāĻŋāĻˇā§āĻŸā§āĻ¯āĻŸāĻŋ āĻ…āĻ¨ā§‡āĻ• āĻœāĻžāĻ¯āĻŧāĻ—āĻžāĻ¯āĻŧ āĻ–ā§āĻŦ āĻ•āĻžāĻœā§‡ āĻ†āĻ¸ā§‡ āĻāĻŦāĻ‚ āĻ…āĻ¨ā§‡āĻ• āĻ›ā§‹āĻŸ āĻ•ā§‹āĻĄ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§‡āĨ¤ āĻāĻ°
āĻ…āĻŦāĻļā§āĻ¯āĻ‡, āĻāĻŽāĻ¨ āĻ¸āĻŽāĻ¯āĻŧ āĻ†āĻ›ā§‡ āĻ¯āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻāĻŸāĻŋāĻ•ā§‡ āĻāĻĄāĻŧāĻžāĻ¤ā§‡ āĻšāĻžāĻ¨; āĻāĻ–āĻžāĻ¨ā§‡ āĻāĻ•āĻŸāĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¯āĻž āĻāĻ•āĻŸāĻŋ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§‡
āĻŽā§āĻ¯āĻžāĻŸā§āĻ°āĻŋāĻ•ā§āĻ¸ āĻ¸āĻŋāĻŽā§‡āĻŸā§āĻ°āĻŋāĻ• āĻāĻŦāĻ‚ āĻ•ā§€āĻ­āĻžāĻŦā§‡ āĻ¸ā§āĻĒāĻˇā§āĻŸ āĻ˛ā§āĻĒāĻŋāĻ‚ āĻ•ā§‹āĻĄ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻ¯āĻŧ āĻ¤āĻžāĻ° āĻāĻ•āĻŸāĻŋ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻ•āĻžāĻœ āĻ•āĻ°ā§‡:

pp_def('symm',
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(n,n); [o]c(n,n);',
āĻ•ā§‹āĻĄ => 'āĻ˛ā§āĻĒ(āĻāĻ¨) %{
int n2;
āĻœāĻ¨ā§āĻ¯(n2=n; n2<$SIZE(n); n2++) {
$c(n0 => n, n1 => n2) =
$c(n0 => n2, n1 => n) =
$a(n0 => n, n1 => n2);
}
%}
'
);

āĻ•āĻŋ āĻ˜āĻŸāĻ›ā§‡ āĻāĻ° āĻŦā§āĻ¯āĻŦāĻšā§āĻ›ā§‡āĻĻ āĻ•āĻ°āĻž āĻ¯āĻžāĻ•. āĻĒā§āĻ°āĻĨāĻŽāĻ¤, āĻāĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ•āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻ…āĻ¨ā§āĻŽāĻŋāĻ¤ āĻšāĻ¯āĻŧ? āĻāĻ° āĻĨā§‡āĻ•ā§‡
āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° āĻ†āĻĒāĻ¨āĻŋ āĻĻā§‡āĻ–āĻ¤ā§‡ āĻĒāĻžāĻšā§āĻ›ā§‡āĻ¨ āĻ¯ā§‡ āĻāĻŸāĻŋ āĻ¸āĻŽāĻžāĻ¨ āĻ¸āĻ‚āĻ–ā§āĻ¯āĻ• āĻ•āĻ˛āĻžāĻŽ āĻāĻŦāĻ‚ āĻ¸āĻžāĻ°āĻŋ āĻ¸āĻš āĻāĻ•āĻŸāĻŋ 2D āĻŽā§āĻ¯āĻžāĻŸā§āĻ°āĻŋāĻ•ā§āĻ¸ āĻ¨ā§‡āĻ¯āĻŧ āĻāĻŦāĻ‚
āĻāĻ•āĻ‡ āĻ†āĻ•āĻžāĻ°ā§‡āĻ° āĻāĻ•āĻŸāĻŋ āĻŽā§āĻ¯āĻžāĻŸā§āĻ°āĻŋāĻ•ā§āĻ¸ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻ•āĻ°ā§‡āĨ¤ āĻāĻ•āĻŸāĻŋ āĻĒā§āĻ°āĻĻāĻ¤ā§āĻ¤ āĻ‡āĻ¨āĻĒā§āĻŸ āĻŽā§āĻ¯āĻžāĻŸā§āĻ°āĻŋāĻ•ā§āĻ¸ $a āĻĨā§‡āĻ•ā§‡ āĻāĻŸāĻŋ āĻāĻ•āĻŸāĻŋ āĻĒā§āĻ°āĻ¤āĻŋāĻ¸āĻŽ āĻ—āĻŖāĻ¨āĻž āĻ•āĻ°ā§‡
āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻŽā§āĻ¯āĻžāĻŸā§āĻ°āĻŋāĻ•ā§āĻ¸ $c (āĻŽā§āĻ¯āĻžāĻŸā§āĻ°āĻŋāĻ•ā§āĻ¸ āĻ…āĻ°ā§āĻĨā§‡ āĻĒā§āĻ°āĻ¤āĻŋāĻ¸āĻŽ āĻ¯ā§‡ A^T = A āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ ^T āĻŽāĻžāĻ¨ā§‡ āĻŽā§āĻ¯āĻžāĻŸā§āĻ°āĻŋāĻ•ā§āĻ¸
āĻŸā§āĻ°āĻžāĻ¨ā§āĻ¸āĻĒā§‹āĻœ, āĻ…āĻĨāĻŦāĻž PDL āĻ­āĻžāĻˇāĻžāĻ¯āĻŧ $c == $c->xchg(0,1))āĨ¤ āĻāĻŸāĻŋ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻŽāĻžāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻāĻŸāĻŋ āĻ•āĻ°ā§‡
$a āĻāĻ° āĻ•āĻ°ā§āĻŖā§‡āĻ° āĻ‰āĻĒāĻ° āĻāĻŦāĻ‚ āĻ¨ā§€āĻšā§‡āĨ¤ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻŽā§āĻ¯āĻžāĻŸā§āĻ°āĻŋāĻ•ā§āĻ¸ā§‡ $c āĻāĻ° āĻ‰āĻĒāĻ° āĻāĻŦāĻ‚ āĻ¨ā§€āĻšā§‡āĻ° āĻ¸āĻŽāĻ¸ā§āĻ¤ āĻŽāĻžāĻ¨
āĻ¤āĻŋāĻ°ā§āĻ¯āĻ•āĻ—ā§āĻ˛āĻŋ $a-āĻ¤ā§‡ āĻĨāĻžāĻ•āĻžāĻ—ā§āĻ˛āĻŋāĻ° āĻŽāĻ¤ā§‹ āĻāĻ•āĻ‡ āĻ¯āĻ–āĻ¨ āĻ¤āĻŋāĻ°ā§āĻ¯āĻ•ā§‡āĻ° āĻ‰āĻĒāĻ°ā§‡ āĻĨāĻžāĻ•āĻžāĻ—ā§āĻ˛āĻŋ āĻāĻ•āĻŸāĻŋ āĻŽāĻŋāĻ°āĻ° āĻ‡āĻŽā§‡āĻœā§ˇ
āĻ¯ā§‡āĻ—ā§āĻ˛āĻŋ āĻ¤āĻŋāĻ°ā§āĻ¯āĻ•ā§‡āĻ° āĻ¨ā§€āĻšā§‡ (āĻ‰āĻĒāĻ°ā§‡ āĻāĻŦāĻ‚ āĻ¨ā§€āĻšā§‡ PDL āĻĒā§āĻ°āĻŋāĻ¨ā§āĻŸ āĻ•āĻ°ā§‡ āĻ¸ā§‡āĻ­āĻžāĻŦā§‡ āĻŦā§āĻ¯āĻžāĻ–ā§āĻ¯āĻž āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡
2D pdls)āĨ¤ āĻ¯āĻĻāĻŋ āĻāĻ‡ āĻŦā§āĻ¯āĻžāĻ–ā§āĻ¯āĻžāĻŸāĻŋ āĻāĻ–āĻ¨āĻ“ āĻ•āĻŋāĻ›ā§āĻŸāĻž āĻ…āĻĻā§āĻ­ā§āĻ¤ āĻŽāĻ¨ā§‡ āĻšāĻ¯āĻŧ āĻ¤āĻŦā§‡ āĻāĻ—āĻŋāĻ¯āĻŧā§‡ āĻ¯āĻžāĻ¨, āĻāĻ•āĻŸāĻŋ āĻ›ā§‹āĻŸ āĻĢāĻžāĻ‡āĻ˛ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§āĻ¨
āĻ¯ā§‡āĻŸāĻŋāĻ¤ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ‡ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻŸāĻŋ āĻ˛āĻŋāĻ–ā§āĻ¨, āĻ¨āĻ¤ā§āĻ¨ PDL āĻāĻ•ā§āĻ¸āĻŸā§‡āĻ¨āĻļāĻ¨ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§āĻ¨ (āĻ…āĻ¨ā§āĻšā§āĻ›ā§‡āĻĻ āĻĻā§‡āĻ–ā§āĻ¨
āĻĒāĻŋāĻĒāĻŋ āĻ•ā§‹āĻĄā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻŽā§‡āĻ•āĻĢāĻžāĻ‡āĻ˛āĻ¸) āĻāĻŦāĻ‚ āĻ•āĻ¯āĻŧā§‡āĻ•āĻŸāĻŋ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻĻāĻŋāĻ¯āĻŧā§‡ āĻāĻŸāĻŋ āĻšā§‡āĻˇā§āĻŸāĻž āĻ•āĻ°ā§āĻ¨āĨ¤

āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻ•ā§€ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡ āĻ¤āĻž āĻŦā§āĻ¯āĻžāĻ–ā§āĻ¯āĻž āĻ•āĻ°āĻžāĻ° āĻĒāĻ° āĻ•āĻ¯āĻŧā§‡āĻ•āĻŸāĻŋ āĻĒāĻ¯āĻŧā§‡āĻ¨ā§āĻŸā§‡āĻ° āĻŽā§‚āĻ˛ā§āĻ¯ āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡
āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻŸāĻŋāĻ•ā§āĻ¯āĻžāĻ˛ āĻĻā§ƒāĻˇā§āĻŸāĻŋāĻ•ā§‹āĻŖ āĻĨā§‡āĻ•ā§‡ āĻ˛āĻ•ā§āĻˇā§āĻ¯ āĻ•āĻ°āĻžāĨ¤ āĻĒā§āĻ°āĻĨāĻŽāĻ¤, āĻ†āĻŽāĻ°āĻž āĻ¨āĻžāĻŽā§‡āĻ° āĻŽāĻžāĻ¤ā§āĻ°āĻžāĻ° āĻ†āĻ•āĻžāĻ° āĻĒāĻžāĻ‡
$SIZE āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻ†āĻŦāĻžāĻ° "n"āĨ¤ āĻĻā§āĻŦāĻŋāĻ¤ā§€āĻ¯āĻŧāĻ¤, āĻšāĻ āĻžā§Ž āĻāĻ‡ āĻŽāĻœāĻžāĻ° "n0" āĻāĻŦāĻ‚ "n1" āĻ†āĻ›ā§‡
āĻ•ā§‹āĻĄā§‡ āĻ¸ā§‚āĻšāĻ•ā§‡āĻ° āĻ¨āĻžāĻŽ āĻ¯āĻĻāĻŋāĻ“ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻŽāĻžāĻ¤ā§āĻ°āĻž "n" āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°ā§‡āĨ¤ āĻ•ā§‡āĻ¨ āĻāĻŸāĻž? āĻĻā§āĻ¯
āĻ•āĻžāĻ°āĻŖ āĻ¸ā§āĻĒāĻˇā§āĻŸ āĻšāĻ¯āĻŧā§‡ āĻ¯āĻžāĻ¯āĻŧ āĻ¯āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻ˛āĻ•ā§āĻˇā§āĻ¯ āĻ•āĻ°ā§‡āĻ¨ āĻ¯ā§‡ $a āĻāĻŦāĻ‚ $b-āĻāĻ° āĻĒā§āĻ°āĻĨāĻŽ āĻāĻŦāĻ‚ āĻĻā§āĻŦāĻŋāĻ¤ā§€āĻ¯āĻŧ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ‰āĻ­āĻ¯āĻŧāĻ‡
"symm" āĻāĻ° āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°ā§‡ "n" āĻ¨āĻžāĻŽāĻ•āĻ°āĻŖ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡āĨ¤ āĻāĻŸāĻŋ PDL::PP āĻŦāĻ˛ā§‡ āĻ¯ā§‡ āĻĒā§āĻ°āĻĨāĻŽ āĻāĻŦāĻ‚ āĻĻā§āĻŦāĻŋāĻ¤ā§€āĻ¯āĻŧ
āĻāĻ‡ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻ° āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻāĻ•āĻ‡ āĻ†āĻ•āĻžāĻ° āĻšāĻ“āĻ¯āĻŧāĻž āĻ‰āĻšāĻŋāĻ¤āĨ¤ āĻ…āĻ¨ā§āĻ¯āĻĨāĻžāĻ¯āĻŧ āĻ‰āĻ¤ā§āĻĒāĻ¨ā§āĻ¨ āĻĢāĻžāĻ‚āĻļāĻ¨
āĻāĻ•āĻŸāĻŋ āĻ°āĻžāĻ¨āĻŸāĻžāĻ‡āĻŽ āĻ¤ā§āĻ°ā§āĻŸāĻŋ āĻŦāĻžāĻĄāĻŧāĻžāĻŦā§‡āĨ¤ āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻāĻ–āĻ¨ $a āĻāĻŦāĻ‚ $c PDL::PP-āĻāĻ° āĻāĻ•āĻŸāĻŋ āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸ā§‡āĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻāĻŸāĻž āĻŦā§‹āĻāĻž āĻ¯āĻžāĻ¯āĻŧ āĻ¨āĻž
āĻ•ā§‹āĻ¨ āĻ¸ā§‚āĻšā§€ "n" āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻ¸ā§‚āĻšāĻ•ā§‡āĻ° āĻ¨āĻžāĻŽ āĻĨā§‡āĻ•ā§‡ āĻ†āĻ° āĻ•ā§‹āĻ¨ āĻ¨āĻŋāĻ°ā§āĻĻā§‡āĻļ āĻ•āĻ°ā§‡āĨ¤ āĻ¸ā§āĻ¤āĻ°āĻžāĻ‚, āĻāĻŸāĻŋ
āĻ¸āĻŽāĻžāĻ¨ āĻŽāĻžāĻ¤ā§āĻ°āĻžāĻ° āĻ¨āĻžāĻŽā§‡āĻ° āĻ¸ā§‚āĻšāĻ•āĻ—ā§āĻ˛āĻŋ 0 āĻĨā§‡āĻ•ā§‡ āĻļā§āĻ°ā§ āĻ•āĻ°ā§‡ āĻŦāĻžāĻŽ āĻĨā§‡āĻ•ā§‡ āĻĄāĻžāĻ¨ā§‡ āĻ¸āĻ‚āĻ–ā§āĻ¯āĻžāĻ¯ā§āĻ•ā§āĻ¤ āĻšāĻ¯āĻŧ, āĻ¯ā§‡āĻŽāĻ¨ in
āĻ‰āĻĒāĻ°ā§‡āĻ° āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ "n0" $a āĻāĻŦāĻ‚ $c āĻāĻ° āĻĒā§āĻ°āĻĨāĻŽ āĻŽāĻžāĻ¤ā§āĻ°āĻž, "n1" āĻĻā§āĻŦāĻŋāĻ¤ā§€āĻ¯āĻŧ āĻāĻŦāĻ‚
āĻļā§€āĻ˜ā§āĻ°āĻ‡.

āĻāĻ–āĻ¨ āĻĒāĻ°ā§āĻ¯āĻ¨ā§āĻ¤ āĻ¸āĻŽāĻ¸ā§āĻ¤ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖā§‡, āĻ†āĻŽāĻ°āĻž āĻšā§āĻ¯āĻžāĻļā§‡āĻ° āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° "āĻĒāĻžāĻ°ā§āĻ¸" āĻāĻŦāĻ‚ "āĻ•ā§‹āĻĄ" āĻ¸āĻĻāĻ¸ā§āĻ¯ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡āĻ›āĻŋ
"pp_def" āĻ āĻĒāĻžāĻ¸ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡āĨ¤ PDL::PP āĻāĻŦāĻ‚ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¸ā§āĻŦā§€āĻ•ā§ƒāĻ¤ āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻ•ā§€ āĻ…āĻŦāĻļā§āĻ¯āĻ‡ āĻ†āĻ›ā§‡
āĻ†āĻŽāĻ°āĻž āĻāĻ‡ āĻ¨āĻĨāĻŋāĻ° āĻ•ā§‹āĻ°ā§āĻ¸ā§‡ āĻ¤āĻžāĻĻā§‡āĻ° āĻ•āĻŋāĻ›ā§ āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•ā§‡ āĻļā§āĻ¨āĻŦāĨ¤ āĻāĻ•āĻŸāĻŋ āĻ–ā§āĻāĻœā§āĻ¨ (āĻ…-āĻ¸āĻŽā§āĻĒā§‚āĻ°ā§āĻŖ)
āĻĒāĻ°āĻŋāĻļāĻŋāĻˇā§āĻŸ A-āĻ¤ā§‡ āĻ•ā§€āĻ—ā§āĻ˛āĻŋāĻ° āĻ¤āĻžāĻ˛āĻŋāĻ•āĻžāĨ¤ āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻāĻŦāĻ‚ āĻĒāĻŋāĻĒāĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡āĻ° āĻāĻ•āĻŸāĻŋ āĻ¤āĻžāĻ˛āĻŋāĻ•āĻž (āĻ†āĻŽāĻ°āĻž āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻ¸āĻŽā§āĻŽā§āĻ–ā§€āĻ¨ āĻšāĻ¯āĻŧā§‡āĻ›āĻŋ
āĻ‰āĻĒāĻ°ā§‡āĻ° āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻ—ā§āĻ˛āĻŋāĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻ•āĻŋāĻ›ā§ āĻāĻ–āĻ¨āĻ“) āĻ¯āĻž āĻšā§āĻ¯āĻžāĻļ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻ° āĻŽāĻžāĻ¨āĻ—ā§āĻ˛āĻŋāĻ¤ā§‡ āĻĒā§āĻ°āĻ¸āĻžāĻ°āĻŋāĻ¤
to "pp_def" āĻĒāĻ°āĻŋāĻļāĻŋāĻˇā§āĻŸ āĻŦāĻŋ āĻ¤ā§‡ āĻ¸āĻ‚āĻ•ā§āĻˇāĻŋāĻĒā§āĻ¤ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡āĨ¤

āĻāĻ‡ āĻŽā§āĻšā§āĻ°ā§āĻ¤ā§‡, āĻāĻŸāĻŋ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°āĻž āĻ‰āĻĒāĻ¯ā§āĻ•ā§āĻ¤ āĻšāĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡ āĻ¯ā§‡ PDL::PP āĻ¸āĻŽā§āĻĒā§‚āĻ°ā§āĻŖāĻ°ā§‚āĻĒā§‡ āĻ¸ā§āĻĨāĻŋāĻ° āĻ¨āĻ¯āĻŧ,
āĻ­āĻžāĻ˛ā§‹āĻ­āĻžāĻŦā§‡ āĻĄāĻŋāĻœāĻžāĻ‡āĻ¨ āĻ•āĻ°āĻž āĻ°ā§āĻŸāĻŋāĻ¨ā§‡āĻ° āĻ¸ā§‡āĻŸ (āĻ¯ā§‡āĻŽāĻ¨ āĻŸā§āĻŽāĻžāĻ¸ āĻŦāĻ˛ā§‡āĻ›ā§‡āĻ¨: "āĻĒāĻŋāĻĒāĻŋāĻ•ā§‡ āĻāĻ•āĻŸāĻŋ āĻ¸ā§‡āĻŸ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻ­āĻžāĻŦāĻž āĻŦāĻ¨ā§āĻ§ āĻ•āĻ°ā§āĻ¨
āĻĒāĻžāĻĨāĻ°ā§‡ āĻ–ā§‹āĻĻāĻžāĻ‡ āĻ•āĻ°āĻž āĻ°ā§āĻŸāĻŋāĻ¨") āĻŦāĻ°āĻ‚ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛::āĻĒāĻŋāĻĒāĻŋ āĻ˛ā§‡āĻ–āĻ•ā§‡āĻ° āĻœāĻŋāĻ¨āĻŋāĻ¸āĻ—ā§āĻ˛āĻŋāĻ° āĻāĻ•āĻŸāĻŋ āĻ¸āĻ‚āĻ—ā§āĻ°āĻš
(Tuomas J. Lukka) āĻŽāĻ¨ā§‡ āĻ•āĻ°ā§‡āĻ¨ āĻ¯ā§‡ āĻ¤āĻžāĻ•ā§‡ āĻĒā§āĻ°āĻžāĻ¯āĻŧāĻ‡ āĻ¤āĻžāĻ° PDL āĻāĻ•ā§āĻ¸āĻŸā§‡āĻ¨āĻļāĻ¨ āĻ°ā§āĻŸāĻŋāĻ¨ā§‡ āĻ˛āĻŋāĻ–āĻ¤ā§‡ āĻšāĻŦā§‡āĨ¤
āĻĒāĻŋāĻĒāĻŋ āĻĒā§āĻ°āĻ¸āĻžāĻ°āĻŖāĻ¯ā§‹āĻ—ā§āĻ¯ āĻšāĻ“āĻ¯āĻŧāĻžāĻ° āĻšā§‡āĻˇā§āĻŸāĻž āĻ•āĻ°ā§‡ āĻ¯āĻžāĻ¤ā§‡ āĻ­āĻŦāĻŋāĻˇā§āĻ¯āĻ¤ā§‡, āĻ¨āĻ¤ā§āĻ¨ āĻšāĻžāĻšāĻŋāĻĻāĻž āĻĻā§‡āĻ–āĻž āĻĻāĻŋāĻ˛ā§‡, āĻ¨āĻ¤ā§āĻ¨ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ āĻ•ā§‹āĻĄ āĻšāĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡
āĻāĻŸāĻž āĻĢāĻŋāĻ°ā§‡ āĻŦāĻŋāĻŽā§‚āĻ°ā§āĻ¤ āĻ•āĻ°āĻž. āĻ†āĻĒāĻ¨āĻŋ āĻ•ā§‡āĻ¨ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨ āĻ¸ā§‡ āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•ā§‡ āĻ†āĻ°āĻ“ āĻœāĻžāĻ¨āĻ¤ā§‡ āĻšāĻžāĻ‡āĻ˛ā§‡
āĻĒāĻŋāĻĄāĻŋāĻāĻ˛::āĻĒāĻŋāĻĒāĻŋ āĻāĻŦāĻ‚ āĻāĻŸāĻŋ āĻ•ā§€āĻ­āĻžāĻŦā§‡ āĻ•āĻ°āĻŦā§‡āĻ¨ āĻ¤āĻž āĻĒāĻŋāĻĄāĻŋāĻāĻ˛::āĻĒāĻŋāĻĒāĻŋ āĻ‡āĻ¨ā§āĻŸāĻžāĻ°āĻ¨āĻžāĻ˛ā§‡āĻ° āĻŦāĻŋāĻ­āĻžāĻ—āĻŸāĻŋ āĻĒāĻ°ā§€āĻ•ā§āĻˇāĻž āĻ•āĻ°ā§āĻ¨āĨ¤

āĻšā§āĻ¯āĻžāĻ¨ā§āĻĄāĻ˛āĻŋāĻ‚ āĻĒāĻžāĻ¯āĻŧāĻ–āĻžāĻ¨āĻž āĻŽā§‚āĻ˛ā§āĻ¯āĻŦā§‹āĻ§
āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¯āĻĻāĻŋ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛-āĻ āĻ•āĻŽā§āĻĒāĻžāĻ‡āĻ˛ āĻ•āĻ°āĻž āĻ–āĻžāĻ°āĻžāĻĒ-āĻŽāĻžāĻ¨ āĻ¸āĻŽāĻ°ā§āĻĨāĻ¨ āĻ¨āĻž āĻĨāĻžāĻ•ā§‡ āĻ¤āĻŦā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ‡ āĻŦāĻŋāĻ­āĻžāĻ—āĻŸāĻŋ āĻāĻŦāĻ‚ āĻ‰āĻĒā§‡āĻ•ā§āĻˇāĻž āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•āĻŋāĻ¤ āĻ•ā§€: "BadCode", "HandleBad", ... (āĻāĻ° āĻŽāĻžāĻ¨ āĻĒā§āĻ°āĻŋāĻ¨ā§āĻŸ āĻ•āĻ°āĻžāĻ° āĻšā§‡āĻˇā§āĻŸāĻž āĻ•āĻ°ā§āĻ¨
$PDL::āĻ–āĻžāĻ°āĻžāĻĒ::āĻ¸ā§āĻĨāĻŋāĻ¤āĻŋ - āĻ¯āĻĻāĻŋ āĻāĻŸāĻŋ 0 āĻāĻ° āĻ¸āĻŽāĻžāĻ¨ āĻšāĻ¯āĻŧ āĻ¤āĻžāĻšāĻ˛ā§‡ āĻ¸āĻ°āĻžāĻ¸āĻ°āĻŋ āĻāĻ—āĻŋāĻ¯āĻŧā§‡ āĻ¯āĻžāĻ¨)āĨ¤

āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨āĻ—ā§āĻ˛āĻŋ āĻĒāĻ°āĻŋāĻšāĻžāĻ˛āĻ¨āĻž āĻ•āĻ°āĻ¤ā§‡ āĻ•ā§‹āĻĄ āĻ˛ā§‡āĻ–āĻžāĻ° āĻ¸āĻŽāĻ¯āĻŧ āĻŦā§‡āĻļ āĻ•āĻ¯āĻŧā§‡āĻ•āĻŸāĻŋ āĻ•ā§€ āĻāĻŦāĻ‚ āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧāĨ¤ āĻĒā§āĻ°āĻĨāĻŽ
āĻāĻ•āĻŸāĻŋ āĻšāĻ˛ "HandleBad" āĻ•ā§€:

āĻšā§āĻ¯āĻžāĻ¨ā§āĻĄā§‡āĻ˛āĻŦā§āĻ¯āĻžāĻĄ => ā§§
āĻāĻŸāĻŋ āĻāĻ•āĻŸāĻŋ pp-āĻ°ā§āĻŸāĻŋāĻ¨ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻšāĻŋāĻšā§āĻ¨āĻŋāĻ¤ āĻ•āĻ°ā§‡ā§ˇ āĻ¨āĻž āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨ āĻĒāĻ°āĻŋāĻšāĻžāĻ˛āĻ¨āĻž āĻ•āĻ°āĻžāĨ¤ āĻ¯āĻĻāĻŋ āĻāĻ‡ āĻ°ā§āĻŸāĻŋāĻ¨ āĻĒāĻžāĻ āĻžāĻ¨ā§‹ āĻšāĻ¯āĻŧ piddles
āĻ¤āĻžāĻĻā§‡āĻ° "āĻŦā§āĻ¯āĻžāĻĄāĻĢā§āĻ˛ā§āĻ¯āĻžāĻ—" āĻ¸ā§‡āĻŸā§‡āĻ° āĻ¸āĻžāĻĨā§‡, āĻ¤āĻžāĻ°āĻĒāĻ° STDOUT āĻāĻŦāĻ‚ āĻĒāĻŋāĻĄāĻ˛ā§‡ āĻāĻ•āĻŸāĻŋ āĻ¸āĻ¤āĻ°ā§āĻ•āĻ¤āĻž āĻŦāĻžāĻ°ā§āĻ¤āĻž āĻŽā§āĻĻā§āĻ°āĻŋāĻ¤ āĻšāĻ¯āĻŧ
āĻāĻŽāĻ¨āĻ­āĻžāĻŦā§‡ āĻĒā§āĻ°āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻž āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ āĻ¯ā§‡āĻ¨ āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨āĻ—ā§āĻ˛āĻŋāĻ•ā§‡ āĻ‰āĻĒāĻ¸ā§āĻĨāĻžāĻĒāĻ¨ āĻ•āĻ°āĻ¤ā§‡ āĻŦā§āĻ¯āĻŦāĻšā§ƒāĻ¤ āĻŽāĻžāĻ¨āĻŸāĻŋ āĻāĻ•āĻŸāĻŋ āĻŦā§ˆāĻ§ āĻ¸āĻ‚āĻ–ā§āĻ¯āĻžāĨ¤ āĻĻā§āĻ¯
"badflag" āĻŽāĻžāĻ¨ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ piddles āĻĒā§āĻ°āĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ āĻ¨āĻž.

āĻāĻŸāĻŋ āĻ•āĻ–āĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ āĻ¤āĻžāĻ° āĻāĻ•āĻŸāĻŋ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻšāĻ˛ āĻāĻĢāĻāĻĢāĻŸāĻŋ āĻ°ā§āĻŸāĻŋāĻ¨ā§‡āĻ° āĻœāĻ¨ā§āĻ¯, āĻ¯āĻžāĻ° āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ āĻ•ā§‹āĻ¨āĻ“ āĻ‰āĻĒāĻžāĻ¯āĻŧ āĻĨāĻžāĻ•ā§‡ āĻ¨āĻž
āĻĄā§‡āĻŸāĻžāĻ° āĻ…āĻ‚āĻļ āĻ‰āĻĒā§‡āĻ•ā§āĻˇāĻž āĻ•āĻ°āĻžāĨ¤

āĻšā§āĻ¯āĻžāĻ¨ā§āĻĄā§‡āĻ˛āĻŦā§āĻ¯āĻžāĻĄ => ā§§
āĻāĻ° āĻĢāĻ˛ā§‡ PDL::PP āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤ āĻ•ā§‹āĻĄ āĻ˛āĻŋāĻ–āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡ āĻ¯āĻž āĻ¨āĻŋāĻļā§āĻšāĻŋāĻ¤ āĻ•āĻ°ā§‡ āĻ¯ā§‡ āĻŦā§āĻ¯āĻžāĻĄāĻ•ā§‹āĻĄ āĻŦāĻŋāĻ­āĻžāĻ—āĻŸāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡, āĻāĻŦāĻ‚
āĻ¯ā§‡ "$ISBAD()" āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ (āĻāĻŦāĻ‚ āĻāĻ° āĻ­āĻžāĻ‡āĻ°āĻž) āĻ•āĻžāĻœ āĻ•āĻ°ā§‡āĨ¤

āĻšā§āĻ¯āĻžāĻ¨ā§āĻĄā§‡āĻ˛āĻŦā§āĻ¯āĻžāĻĄ āĻĻā§‡āĻ“āĻ¯āĻŧāĻž āĻšāĻ¯āĻŧ āĻ¨āĻž
āĻ¯āĻĻāĻŋ āĻ•ā§‹āĻ¨ā§‹ āĻ‡āĻ¨āĻĒā§āĻŸ āĻĒāĻŋāĻĄāĻ˛ā§‡ āĻ¤āĻžāĻĻā§‡āĻ° "āĻŦā§āĻ¯āĻžāĻĄāĻĢā§āĻ˛ā§āĻ¯āĻžāĻ—" āĻ¸ā§‡āĻŸ āĻĨāĻžāĻ•ā§‡, āĻ¤āĻžāĻšāĻ˛ā§‡ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻĒāĻŋāĻĄāĻ˛ āĻšāĻŦā§‡
āĻ¤āĻžāĻĻā§‡āĻ° "āĻŦā§āĻ¯āĻžāĻĄāĻĢā§āĻ˛ā§āĻ¯āĻžāĻ—" āĻ¸ā§‡āĻŸ āĻ†āĻ›ā§‡, āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻ¸āĻ°āĻŦāĻ°āĻžāĻš āĻ•āĻ°āĻž āĻ•ā§‹āĻ¨ā§‹ āĻŦā§āĻ¯āĻžāĻĄāĻ•ā§‹āĻĄ āĻ‰āĻĒā§‡āĻ•ā§āĻˇāĻž āĻ•āĻ°āĻž āĻšāĻ¯āĻŧāĨ¤

"HandleBad" āĻāĻ° āĻŽāĻžāĻ¨ "BadDoc" āĻ•ā§€ āĻāĻ° āĻŦāĻŋāĻˇāĻ¯āĻŧāĻŦāĻ¸ā§āĻ¤ā§ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻ•āĻ°āĻ¤ā§‡ āĻŦā§āĻ¯āĻŦāĻšā§ƒāĻ¤ āĻšāĻ¯āĻŧ, āĻ¯āĻĻāĻŋ āĻāĻŸāĻŋ āĻ¨āĻž āĻšāĻ¯āĻŧ
āĻĻā§‡āĻ“āĻ¯āĻŧāĻžāĨ¤

āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨ āĻĒāĻ°āĻŋāĻšāĻžāĻ˛āĻ¨āĻž āĻ•āĻ°āĻ¤ā§‡, āĻ•ā§‹āĻĄ āĻ•āĻŋāĻ›ā§āĻŸāĻž āĻ­āĻŋāĻ¨ā§āĻ¨āĻ­āĻžāĻŦā§‡ āĻ˛āĻŋāĻ–āĻ¤ā§‡ āĻšāĻŦā§‡; āĻāĻ‡ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡,

$c() = $a() + $b();

āĻŽāĻ¤ āĻ•āĻŋāĻ›ā§ āĻšāĻ¯āĻŧā§‡ āĻ¯āĻžāĻ¯āĻŧ

āĻ¯āĻĻāĻŋ ( $a() != BADVAL && $b() != BADVAL ) {
$c() = $a() + $b();
} āĻ…āĻ¨ā§āĻ¯ {
$c() = BADVAL;
}

āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻ†āĻŽāĻ°āĻž āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻĻā§āĻŦāĻŋāĻ¤ā§€āĻ¯āĻŧ āĻ¸āĻ‚āĻ¸ā§āĻ•āĻ°āĻŖ āĻšāĻžāĻ‡ āĻ¯āĻĻāĻŋ āĻ‡āĻ¨āĻĒā§āĻŸ āĻĒāĻŋāĻĄāĻ˛ā§‡ āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨ āĻ‰āĻĒāĻ¸ā§āĻĨāĻŋāĻ¤ āĻĨāĻžāĻ•ā§‡
(āĻāĻŦāĻ‚ āĻ¸ā§‡āĻ‡ āĻ–āĻžāĻ°āĻžāĻĒ-āĻŽāĻžāĻ¨ āĻ¸āĻŽāĻ°ā§āĻĨāĻ¨ āĻšāĻžāĻ‡!) - āĻ…āĻ¨ā§āĻ¯āĻĨāĻžāĻ¯āĻŧ āĻ†āĻŽāĻ°āĻž āĻ†āĻ¸āĻ˛ā§‡ āĻ†āĻ¸āĻ˛ āĻ•ā§‹āĻĄ āĻšāĻžāĻ‡āĨ¤
āĻāĻ–āĻžāĻ¨ā§‡āĻ‡ "BadCode" āĻ•ā§€ āĻ†āĻ¸ā§‡; āĻ–āĻžāĻ°āĻžāĻĒ āĻšāĻ˛ā§‡ āĻšāĻžāĻ˛āĻžāĻ¨ā§‹āĻ° āĻœāĻ¨ā§āĻ¯ āĻ•ā§‹āĻĄ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻ¤ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻāĻŸāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡āĻ¨
āĻŽāĻžāĻ¨ āĻ‰āĻĒāĻ¸ā§āĻĨāĻŋāĻ¤ āĻĨāĻžāĻ•āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡, āĻāĻŦāĻ‚ PP āĻ•āĻŋāĻ›ā§ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻāĻŸāĻŋ āĻāĻŦāĻ‚ "āĻ•ā§‹āĻĄ" āĻŦāĻŋāĻ­āĻžāĻ— āĻ‰āĻ­āĻ¯āĻŧāĻ‡ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡
āĻŽāĻ¤:

āĻ¯āĻĻāĻŋ ( āĻ–āĻžāĻ°āĻžāĻĒ_āĻŽāĻžāĻ¨_āĻ†āĻ›ā§‡_āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ ) {
āĻ…āĻ­āĻŋāĻ¨āĻŦ_āĻĨā§āĻ°ā§‡āĻĄāĻ˛ā§āĻĒ_āĻ¸ā§āĻŸāĻžāĻĢ {
āĻ–āĻžāĻ°āĻžāĻĒ āĻ•ā§‹āĻĄ
}
} āĻ…āĻ¨ā§āĻ¯ {
āĻ…āĻ­āĻŋāĻ¨āĻŦ_āĻĨā§āĻ°ā§‡āĻĄāĻ˛ā§āĻĒ_āĻ¸ā§āĻŸāĻžāĻĢ {
āĻ•ā§‹āĻĄ
}
}

āĻāĻ‡ āĻĒāĻĻā§āĻ§āĻ¤āĻŋāĻ° āĻ…āĻ°ā§āĻĨ āĻšāĻ˛ āĻ¯ā§‡ āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨āĻ—ā§āĻ˛āĻŋ āĻ‰āĻĒāĻ¸ā§āĻĨāĻŋāĻ¤ āĻ¨āĻž āĻĨāĻžāĻ•āĻ˛ā§‡ āĻ•āĻžāĻ°ā§āĻ¯āĻ¤ āĻ•ā§‹āĻ¨āĻ“ āĻ“āĻ­āĻžāĻ°āĻšā§‡āĻĄ āĻ¨ā§‡āĻ‡ā§ˇ
(āĻ…āĻ°ā§āĻĨāĻžā§Ž āĻŦā§āĻ¯āĻžāĻĄāĻĢā§āĻ˛ā§āĻ¯āĻžāĻ— āĻ°ā§āĻŸāĻŋāĻ¨ 0 āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°ā§‡)āĨ¤

āĻŦā§āĻ¯āĻžāĻĄāĻ•ā§‹āĻĄ āĻŦāĻŋāĻ­āĻžāĻ—āĻŸāĻŋ āĻ•ā§‹āĻĄ āĻŦāĻŋāĻ­āĻžāĻ—ā§‡āĻ° āĻŽāĻ¤ā§‹ āĻāĻ•āĻ‡ āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻāĻŦāĻ‚ āĻ˛ā§āĻĒāĻŋāĻ‚ āĻ•āĻ¨āĻ¸ā§āĻŸā§āĻ°āĻžāĻ•ā§āĻŸ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĨ¤
āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻ–āĻŋāĻ¤ āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤ āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻ›āĻžāĻĄāĻŧāĻž āĻāĻŸāĻŋ āĻ–ā§āĻŦ āĻŦā§‡āĻļāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻŦā§‡ āĻ¨āĻž:

$ISBAD(var)
āĻāĻ•āĻŸāĻŋ āĻĒāĻŋāĻĄāĻ˛ā§‡āĻ° āĻŽāĻžāĻ¨ āĻ–āĻžāĻ°āĻžāĻĒ āĻ•āĻŋāĻ¨āĻž āĻ¤āĻž āĻĒāĻ°ā§€āĻ•ā§āĻˇāĻž āĻ•āĻ°āĻ¤ā§‡ $ISBAD āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨:

āĻ¯āĻĻāĻŋ ( $ISBAD(a()) ) { printf("a() āĻ–āĻžāĻ°āĻžāĻĒ\n"); }

āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸāĻŋ āĻĒāĻŋāĻĄāĻ˛ā§‡āĻ° āĻĒā§āĻ°āĻĻāĻ¤ā§āĻ¤ āĻ‰āĻĒāĻžāĻĻāĻžāĻ¨āĻ—ā§āĻ˛āĻŋāĻ“ āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨:

āĻ¯āĻĻāĻŋ ( $ISBAD(a(n=>l)) ) { printf("a() āĻāĻ° %d āĻ‰āĻĒāĻžāĻĻāĻžāĻ¨ āĻ–āĻžāĻ°āĻžāĻĒ\n", l); }

$ISGOOD(var)
āĻāĻŸāĻŋ $ISBAD āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹āĻ° āĻŦāĻŋāĻĒāĻ°ā§€āĻ¤āĨ¤

$SETBAD(var)
āĻ¯āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸāĻŋ āĻĒāĻŋāĻĄāĻ˛ āĻ–āĻžāĻ°āĻžāĻĒ āĻāĻ•āĻŸāĻŋ āĻ‰āĻĒāĻžāĻĻāĻžāĻ¨ āĻ¸ā§‡āĻŸ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨.

$ISBADVAR(c_var,pdl)
āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻāĻ•āĻŸāĻŋ āĻĒāĻŋāĻĄāĻ˛ "$a()" āĻāĻ° āĻŽāĻžāĻ¨ āĻāĻ•āĻŸāĻŋ āĻ¸āĻŋ-āĻ­ā§‡āĻ°āĻŋāĻ¯āĻŧā§‡āĻŦāĻ˛ ("foo" āĻŦāĻ˛ā§‡) āĻ¤ā§‡ āĻ•ā§āĻ¯āĻžāĻļā§‡ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡āĻ¨, āĻ¤āĻžāĻšāĻ˛ā§‡
āĻāĻŸāĻŋ āĻ–āĻžāĻ°āĻžāĻĒ āĻ•āĻŋāĻ¨āĻž āĻ¤āĻž āĻĒāĻ°ā§€āĻ•ā§āĻˇāĻž āĻ•āĻ°ā§‡ āĻĻā§‡āĻ–ā§āĻ¨, "$ISBADVAR(foo,a)" āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨āĨ¤

$ISGOODVAR(c_var,pdl)
āĻ‰āĻĒāĻ°ā§‡āĻ° āĻšāĻŋāĻ¸āĻžāĻŦā§‡, āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻāĻ‡ āĻ¸āĻŽāĻ¯āĻŧ āĻĒāĻ°ā§€āĻ•ā§āĻˇāĻž āĻ•āĻ°āĻž āĻšāĻšā§āĻ›ā§‡ āĻ¯ā§‡ āĻ•ā§āĻ¯āĻžāĻļā§‡ āĻŽāĻžāĻ¨ āĻ–āĻžāĻ°āĻžāĻĒ āĻ¨āĻ¯āĻŧāĨ¤

$SETBADVAR(c_var,pdl)
āĻāĻ¸āĻŋ āĻ­ā§‡āĻ°āĻŋāĻ¯āĻŧā§‡āĻŦāĻ˛ā§‡ āĻĒāĻŋāĻĄāĻ˛ā§‡āĻ° āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨ āĻ•āĻĒāĻŋ āĻ•āĻ°āĻ¤ā§‡, "$SETBADVAR(foo,a)" āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨āĨ¤

āĻ•āĻ°āĻ¤ā§‡: "$PPISBAD()" āĻ‡āĻ¤ā§āĻ¯āĻžāĻĻāĻŋ āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°ā§āĻ¨āĨ¤

āĻāĻ‡ āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡, āĻ‰āĻĒāĻ°ā§‡āĻ° āĻ•ā§‹āĻĄāĻŸāĻŋ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻž āĻ¯ā§‡āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡:

āĻ•ā§‹āĻĄ => '$c() = $a() + $b();',
āĻ–āĻžāĻ°āĻžāĻĒ āĻ•ā§‹āĻĄ => '
āĻ¯āĻĻāĻŋ ( $ISBAD(a()) || $ISBAD(b()) ) {
$SETBAD(c());
} āĻ…āĻ¨ā§āĻ¯ {
$c() = $a() + $b();
}',

āĻ¯ā§‡āĻšā§‡āĻ¤ā§ āĻāĻŸāĻŋ āĻĒāĻžāĻ°ā§āĻ˛, TMTOWTDI, āĻ¤āĻžāĻ‡ āĻ†āĻĒāĻ¨āĻŋ āĻ˛āĻŋāĻ–āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨:

āĻ–āĻžāĻ°āĻžāĻĒ āĻ•ā§‹āĻĄ => '
āĻ¯āĻĻāĻŋ ( $ISGOOD(a()) && $ISGOOD(b()) ) {
$c() = $a() + $b();
} āĻ…āĻ¨ā§āĻ¯ {
$SETBAD(c());
}',

āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻāĻ•āĻŸāĻŋ āĻĒā§āĻ°āĻĻāĻ¤ā§āĻ¤ āĻĒāĻŋāĻĄāĻ˛ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻŦā§āĻ¯āĻžāĻĄāĻĢā§āĻ˛ā§āĻ¯āĻžāĻ—ā§‡āĻ° āĻŽāĻžāĻ¨ āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨ āĻ¤āĻŦā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
"$PDLSTATExxxx()" āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹:

$PDLSTATEISBAD(pdl)
$PDLSTATEISGOOD(pdl)
$PDLSTATESETBAD(pdl)
$PDLSTATESETGOOD(pdl)

āĻ•āĻ°āĻ¤ā§‡: āĻĒāĻžāĻļāĻžāĻĒāĻžāĻļāĻŋ "pp_def" āĻ¤ā§‡ "FindBadStatusCode" āĻāĻŦāĻ‚ "CopyBadStatusCode" āĻŦāĻŋāĻ•āĻ˛ā§āĻĒāĻ—ā§āĻ˛āĻŋ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°ā§āĻ¨
"BadDoc" āĻ•ā§€ āĻšāĻŋāĻ¸āĻžāĻŦā§‡āĨ¤

āĻĒā§‹āĻļāĻžāĻ•ā§‡āĻ° āĻ¤ā§‹āĻŽāĻžāĻ° āĻ¨āĻŋāĻœāĻ¸ā§āĻŦ/āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋ āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻžāĻ•āĻ˛āĻžāĻĒ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° PP
āĻāĻ–āĻ¨, āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻ–āĻŋāĻ¤āĻ—ā§āĻ˛āĻŋ āĻŦāĻŋāĻŦā§‡āĻšāĻ¨āĻž āĻ•āĻ°ā§āĻ¨: āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¨āĻŋāĻœāĻ¸ā§āĻŦ āĻ¸āĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡ (āĻ¯āĻž āĻ†āĻ¸āĻ˛ā§‡ āĻāĻ° āĻ…āĻ‚āĻļ āĻšāĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡
āĻ•āĻŋāĻ›ā§ āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋ āĻ¯āĻž āĻ†āĻĒāĻ¨āĻŋ PDL āĻ āĻ‡āĻ¨ā§āĻŸāĻžāĻ°āĻĢā§‡āĻ¸ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨) āĻ¯āĻž āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻĻā§āĻŸāĻŋ āĻĒāĻ¯āĻŧā§‡āĻ¨ā§āĻŸāĻžāĻ° āĻ¨ā§‡āĻ¯āĻŧ
āĻĻā§āĻŦāĻŋāĻ—ā§āĻŖ āĻ­ā§‡āĻ•ā§āĻŸāĻ°:

void myfunc(int n,double *v1, double *v2);

PDL āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°āĻžāĻ° āĻ¸āĻ āĻŋāĻ• āĻ‰āĻĒāĻžāĻ¯āĻŧ

pp_def('myfunc',
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(n); [o]b(n);',
āĻœā§‡āĻ¨ā§‡āĻ°āĻŋāĻ• āĻŸāĻžāĻ‡āĻĒāĻ¸ => ['āĻĄāĻŋ'],
āĻ•ā§‹āĻĄ => 'myfunc($SIZE(n),$P(a),$P(b));'
);

"$P("āĻĻā§āĻŦāĻžāĻ°āĻž")" āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸ āĻĒā§āĻ°āĻĨāĻŽ āĻ‰āĻĒāĻžāĻĻāĻžāĻ¨ā§‡ āĻāĻ•āĻŸāĻŋ āĻĒāĻ¯āĻŧā§‡āĻ¨ā§āĻŸāĻžāĻ° āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°ā§‡ āĻāĻŦāĻ‚ āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻ‰āĻĒāĻžāĻĻāĻžāĻ¨āĻ—ā§āĻ˛āĻŋ āĻšāĻ˛
āĻāĻ° āĻĒāĻ°ā§‡ āĻŽāĻŋāĻĨā§āĻ¯āĻž āĻŦāĻ˛āĻžāĻ° āĻ¨āĻŋāĻļā§āĻšāĻ¯āĻŧāĻ¤āĻžāĨ¤

āĻ˛āĻ•ā§āĻˇā§āĻ¯ āĻ•āĻ°ā§āĻ¨ āĻ¯ā§‡ āĻāĻ–āĻžāĻ¨ā§‡ āĻ…āĻ¨ā§‡āĻ• āĻ­ā§āĻ˛ āĻ•āĻ°āĻž āĻ¸āĻŽā§āĻ­āĻŦāĨ¤ āĻĒā§āĻ°āĻĨāĻŽā§‡ $SIZE(n) āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡
"n" āĻāĻ° āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤ā§‡āĨ¤ āĻĻā§āĻŦāĻŋāĻ¤ā§€āĻ¯āĻŧāĻ¤, āĻ†āĻĒāĻ¨āĻžāĻ° āĻāĻ‡ āĻ•ā§‹āĻĄā§‡ āĻ•ā§‹āĻ¨ā§‹ āĻ˛ā§āĻĒ āĻ°āĻžāĻ–āĻž āĻ‰āĻšāĻŋāĻ¤ āĻ¨āĻ¯āĻŧāĨ¤ āĻ¤ā§ƒāĻ¤ā§€āĻ¯āĻŧ, āĻāĻ–āĻžāĻ¨ā§‡ āĻ†āĻŽāĻ°āĻž āĻ¸āĻŽā§āĻŽā§āĻ–ā§€āĻ¨
PDL::PP āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¸ā§āĻŦā§€āĻ•ā§ƒāĻ¤ āĻāĻ•āĻŸāĻŋ āĻ¨āĻ¤ā§āĻ¨ āĻšā§āĻ¯āĻžāĻļ āĻ•ā§€ : "āĻœā§‡āĻ¨āĻžāĻ°āĻŋāĻ• āĻŸāĻžāĻ‡āĻĒāĻ¸" āĻ˜ā§‹āĻˇāĻŖāĻž PDL::PP āĻ•ā§‡ āĻŦāĻ˛ā§‡
āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ§āĻ°āĻ¨ā§‡āĻ° āĻ¤āĻžāĻ˛āĻŋāĻ•āĻžāĻ° āĻŸāĻžāĻ‡āĻĒāĻ˛ā§āĻĒ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§āĻ¨āĨ¤ āĻāĻ‡ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ "āĻĄāĻŦāĻ˛"āĨ¤ āĻāĻ‡
āĻĻā§āĻŸāĻŋ āĻ¸ā§āĻŦāĻŋāĻ§āĻž āĻ†āĻ›ā§‡āĨ¤ āĻĒā§āĻ°āĻĨāĻŽāĻ¤ āĻ¸āĻ‚āĻ•āĻ˛āĻŋāĻ¤ āĻ•ā§‹āĻĄā§‡āĻ° āĻ†āĻ•āĻžāĻ° āĻŦā§āĻ¯āĻžāĻĒāĻ•āĻ­āĻžāĻŦā§‡ āĻšā§āĻ°āĻžāĻ¸ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ, āĻĻā§āĻŦāĻŋāĻ¤ā§€āĻ¯āĻŧāĻ¤ āĻ¯āĻĻāĻŋ
āĻ¨āĻ¨-āĻĄāĻžāĻŦāĻ˛ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸāĻ—ā§āĻ˛āĻŋ "myfunc()"-āĻ āĻĒāĻžāĻ¸ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ PDL āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ āĻ¸ā§‡āĻ—ā§āĻ˛āĻŋāĻ•ā§‡ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻ•āĻ°āĻŦā§‡
āĻŦāĻžāĻšā§āĻ¯āĻŋāĻ• C āĻ°ā§āĻŸāĻŋāĻ¨ā§‡ āĻ¯āĻžāĻ“āĻ¯āĻŧāĻžāĻ° āĻ†āĻ—ā§‡ āĻĻā§āĻŦāĻŋāĻ—ā§āĻŖ āĻ•āĻ°ā§āĻ¨ āĻāĻŦāĻ‚ āĻĒāĻ°ā§‡ āĻ¸ā§‡āĻ—ā§āĻ˛āĻŋāĻ•ā§‡ āĻ†āĻŦāĻžāĻ° āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻ•āĻ°ā§āĻ¨āĨ¤

āĻĒā§ƒāĻĨāĻ• āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻ° āĻ§āĻ°āĻ¨āĻ—ā§āĻ˛āĻŋāĻ•ā§‡ āĻ¯ā§‹āĻ—ā§āĻ¯āĻ¤āĻž āĻ…āĻ°ā§āĻœāĻ¨ āĻ•āĻ°āĻ¤ā§‡ āĻ•ā§‡āĻ‰ "āĻĒāĻžāĻ°ā§āĻ¸" āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĨ¤ āĻāĻ­āĻžāĻŦā§‡ āĻāĻ•āĻœāĻ¨āĻ“ āĻĒāĻžāĻ°ā§‡
āĻāĻ‡āĻ­āĻžāĻŦā§‡ āĻ˛āĻŋāĻ–ā§āĻ¨:

pp_def('myfunc',
āĻĒāĻžāĻ°ā§āĻ¸ => 'āĻĄāĻŦāĻ˛ a(n); āĻĻā§āĻŦāĻŋāĻ—ā§āĻŖ [o]b(n);',
āĻ•ā§‹āĻĄ => 'myfunc($SIZE(n),$P(a),$P(b));'
);

"Pars"-āĻ āĻŸāĻžāĻ‡āĻĒ āĻ¸ā§āĻĒā§‡āĻ¸āĻŋāĻĢāĻŋāĻ•ā§‡āĻļāĻ¨ āĻŸāĻžāĻ‡āĻĒāĻ˛ā§āĻĒā§‡āĻ° āĻ­āĻŋāĻ¨ā§āĻ¨āĻ¤āĻž āĻĨā§‡āĻ•ā§‡ āĻ¯ā§āĻ•ā§āĻ¤āĻŋāĻ•ā§‡ āĻ›āĻžāĻĄāĻŧ āĻĻā§‡āĻ¯āĻŧ -
āĻŦāĻ°āĻ‚ āĻāĻŸāĻŋ āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ°āĻŋāĻ¤ āĻšāĻ¯āĻŧ āĻāĻŦāĻ‚ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻĒā§āĻ°āĻ•āĻžāĻ° āĻĨā§‡āĻ•ā§‡āĨ¤ āĻāĻŸāĻž āĻ¸ā§āĻĒāĻˇā§āĻŸāĻ¤āĻ‡
āĻ†āĻ°āĻ“ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖā§‡ āĻĻāĻ°āĻ•āĻžāĻ°ā§€, āĻ¯ā§‡āĻŽāĻ¨:

void myfunc(int n,float *v1, long *v2);

pp_def('myfunc',
Pars => 'float a(n); āĻĻā§€āĻ°ā§āĻ˜ [o]b(n);',
āĻœā§‡āĻ¨ā§‡āĻ°āĻŋāĻ• āĻŸāĻžāĻ‡āĻĒāĻ¸ => ['āĻāĻĢ'],
āĻ•ā§‹āĻĄ => 'myfunc($SIZE(n),$P(a),$P(b));'
);

āĻ¨ā§‹āĻŸ āĻ•āĻ°ā§āĻ¨ āĻ†āĻŽāĻ°āĻž āĻāĻ–āĻ¨āĻ“ āĻŸāĻžāĻ‡āĻĒ āĻ˛ā§āĻĒā§‡āĻ° āĻ†āĻ•āĻžāĻ° āĻ•āĻŽāĻžāĻ¤ā§‡ "āĻœā§‡āĻ¨āĻžāĻ°āĻŋāĻ• āĻŸāĻžāĻ‡āĻĒāĻ¸" āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻŋ, āĻ¸ā§āĻĒāĻˇā§āĻŸāĻ¤āĻ‡ āĻĒāĻŋāĻĒāĻŋ āĻĒāĻžāĻ°ā§‡
āĻ¨ā§€āĻ¤āĻŋāĻ—āĻ¤āĻ­āĻžāĻŦā§‡ āĻāĻŸāĻŋ āĻšāĻŋāĻšā§āĻ¨āĻŋāĻ¤ āĻ•āĻ°ā§āĻ¨ āĻāĻŦāĻ‚ āĻāĻŸāĻŋ āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ āĻ•āĻ°ā§āĻ¨ āĻ¯āĻĻāĻŋāĻ“ āĻ•ā§‹āĻĄāĻŸāĻŋ āĻāĻ–āĻ¨āĻ“ āĻāĻŸāĻŋ āĻ…āĻ°ā§āĻœāĻ¨ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨āĻŋ
āĻĒāĻ°āĻŋāĻļā§€āĻ˛āĻŋāĻ¤ āĻ¸ā§āĻ¤āĻ°!

āĻ…āĻŦāĻļā§‡āĻˇā§‡ āĻ¨ā§‹āĻŸ āĻ•āĻ°ā§āĻ¨ āĻ¯āĻ–āĻ¨ āĻĒā§āĻ°āĻ•āĻžāĻ°āĻ—ā§āĻ˛āĻŋ āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ°āĻŋāĻ¤ āĻšāĻ¯āĻŧ āĻ¤āĻ–āĻ¨ āĻāĻ•āĻœāĻ¨āĻ•ā§‡ āĻ…āĻŦāĻļā§āĻ¯āĻ‡ "[o]" āĻ•ā§‹āĻ¯āĻŧāĻžāĻ˛āĻŋāĻĢāĻžāĻ¯āĻŧāĻžāĻ° āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡ā§ˇ
āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻ­ā§‡āĻ°āĻŋāĻ¯āĻŧā§‡āĻŦāĻ˛ āĻŦāĻž āĻ†āĻĒāĻ¨āĻžāĻ° āĻ•āĻ āĻŋāĻ¨ āĻāĻ•āĻŸāĻŋ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨ āĻĒāĻŋāĻĒāĻŋ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ…āĻĒā§āĻŸāĻŋāĻŽāĻžāĻ‡āĻœ āĻ•āĻ°āĻž āĻšāĻŦā§‡!

āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻāĻ•āĻŸāĻŋ āĻŦāĻĄāĻŧ āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋ āĻ‡āĻ¨ā§āĻŸāĻžāĻ°āĻĢā§‡āĻ¸ āĻ•āĻ°ā§‡āĻ¨ āĻ¤āĻŦā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ‡āĻ¨ā§āĻŸāĻžāĻ°āĻĢā§‡āĻ¸āĻŋāĻ‚āĻŸāĻŋāĻ•ā§‡ āĻ†āĻ°āĻ“ āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨āĨ¤ āĻĒāĻžāĻ°ā§āĻ˛ āĻĒāĻžāĻ°ā§‡
āĻāĻŸāĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻ†āĻŦāĻžāĻ° āĻ¸āĻžāĻšāĻžāĻ¯ā§āĻ¯ āĻ•āĻ°ā§āĻ¨(!) āĻ…āĻ¨ā§‡āĻ• āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋāĻ¤ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ˛āĻŋāĻ‚ āĻ•āĻ¨āĻ­ā§‡āĻ¨āĻļāĻ¨ āĻ†āĻ›ā§‡āĨ¤
āĻāĻ‡ āĻļā§‹āĻˇāĻŖ āĻ•āĻ°āĻž āĻ¯ā§‡āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡. āĻ¸āĻ‚āĻ•ā§āĻˇā§‡āĻĒā§‡, āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸā§ āĻĒāĻžāĻ°ā§āĻ¸āĻžāĻ° āĻ˛āĻŋāĻ–āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨ (āĻ¯āĻž āĻ¸āĻ¤ā§āĻ¯āĻŋāĻ‡ āĻ¨āĻ¯āĻŧ
āĻĒāĻžāĻ°ā§āĻ˛ā§‡ āĻ•āĻ āĻŋāĻ¨) āĻ¯āĻž āĻ¤āĻžāĻ°āĻĒāĻ°ā§‡ āĻĒāĻžāĻ°ā§āĻ¸āĻ•ā§ƒāĻ¤ āĻŦāĻŋāĻŦāĻ°āĻŖ āĻĨā§‡āĻ•ā§‡ "pp_def" āĻ āĻ•āĻ˛ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§‡
āĻ¯ā§‡ āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨. āĻāĻ•āĻŸāĻŋ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖā§‡āĻ° āĻœāĻ¨ā§āĻ¯, āĻšā§‡āĻ• āĻ•āĻ°ā§āĻ¨ āĻ¸ā§āĻ˛ā§‡āĻŸā§‡āĻ• āĻŽāĻ§ā§āĻ¯ā§‡ āĻ‡āĻ¨ā§āĻŸāĻžāĻ°āĻĢā§‡āĻ¸
PDL āĻŦāĻŋāĻ¤āĻ°āĻŖā§‡āĻ° "Lib" āĻ—āĻžāĻ›āĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻšā§‡āĻ• āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨ (āĻĄāĻŋāĻŦāĻžāĻ—āĻŋāĻ‚āĻ¯āĻŧā§‡āĻ° āĻ¸āĻŽāĻ¯āĻŧ) āĻ•ā§‹āĻ¨āĻŸāĻŋāĻ¤ā§‡ āĻ•āĻ˛ āĻ•āĻ°ā§‡
āĻĒāĻŋāĻĒāĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒāĻžāĻ°ā§āĻ˛ āĻ•ā§‹āĻĄ āĻ¤ā§ˆāĻ°āĻŋ āĻāĻ•āĻŸāĻŋ āĻ¸āĻžāĻŽāĻžāĻ¨ā§āĻ¯ āĻ¸āĻšāĻžāĻ¯āĻŧāĻ• āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœ āĻ¯āĻž āĻ•āĻžāĻœā§‡ āĻ†āĻ¸ā§‡
PP āĻĢāĻžāĻ‚āĻļāĻ¨āĻ—ā§āĻ˛āĻŋāĻ•ā§‡ āĻ…āĻ­āĻŋāĻ¨ā§āĻ¨ āĻ¨āĻžāĻŽ āĻĻāĻŋāĻ¯āĻŧā§‡ āĻĒā§āĻ°āĻ¤āĻŋāĻ¸ā§āĻĨāĻžāĻĒāĻ¨ āĻ•āĻ°ā§‡ āĻ¯āĻž āĻ¤āĻžāĻĻā§‡āĻ° āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸāĻ—ā§āĻ˛āĻŋāĻ•ā§‡ stdout-āĻ āĻĄāĻžāĻŽā§āĻĒ āĻ•āĻ°ā§‡āĨ¤

āĻļā§āĻ§ā§ āĻŦāĻ˛

perl -MPDL::PP::Dump myfile.pd

"pp_def" āĻāĻŦāĻ‚ āĻŦāĻ¨ā§āĻ§ā§āĻĻā§‡āĻ° āĻ•āĻ˛ āĻĻā§‡āĻ–āĻ¤ā§‡āĨ¤ āĻāĻŸāĻŋ āĻĻāĻŋāĻ¯āĻŧā§‡ āĻšā§‡āĻˇā§āĻŸāĻž āĻ•āĻ°ā§āĻ¨ ops.pd āĻāĻŦāĻ‚ slatec.pd. āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ
āĻ†āĻ—ā§āĻ°āĻšā§€ (āĻŦāĻž āĻāĻŸāĻŋ āĻ‰āĻ¨ā§āĻ¨āĻ¤ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨), āĻ‰āĻ¤ā§āĻ¸āĻŸāĻŋ āĻŦā§‡āĻ¸āĻŋāĻ•/āĻœā§‡āĻ¨/āĻĒāĻŋāĻĒāĻŋ/āĻĄāĻžāĻŽā§āĻĒ.āĻĒāĻŋāĻāĻŽ-āĻ āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡

āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻāĻŦāĻ‚ āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻžāĻ•āĻ˛āĻžāĻĒ in āĻĻā§āĻ¯ āĻ•ā§‹āĻĄ āĻ…āĻ§ā§āĻ¯āĻžāĻ¯āĻŧ
āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹: āĻāĻ–āĻ¨ āĻĒāĻ°ā§āĻ¯āĻ¨ā§āĻ¤ āĻ†āĻŽāĻ°āĻž $SIZE, $GENERIC āĻāĻŦāĻ‚ $P āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹āĻ° āĻ¸āĻŽā§āĻŽā§āĻ–ā§€āĻ¨ āĻšāĻ¯āĻŧā§‡āĻ›āĻŋāĨ¤ āĻāĻ–āĻ¨ āĻ†āĻŽāĻ°āĻž āĻ¯āĻžāĻšā§āĻ›āĻŋ
PDL::PP āĻāĻ° "āĻ•ā§‹āĻĄ" āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ āĻĒā§āĻ°āĻ¸āĻžāĻ°āĻŋāĻ¤ āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹āĻ—ā§āĻ˛āĻŋ āĻĻā§āĻ°ā§āĻ¤ āĻŦā§āĻ¯āĻžāĻ–ā§āĻ¯āĻž āĻ•āĻ°ā§āĻ¨
āĻ¤āĻžāĻĻā§‡āĻ° āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°ā§‡āĻ° āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻ¸āĻšāĨ¤

$T $T āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻŸāĻžāĻ‡āĻĒ āĻ¸ā§āĻ‡āĻšā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻŦā§āĻ¯āĻŦāĻšā§ƒāĻ¤ āĻšāĻ¯āĻŧāĨ¤ āĻāĻŸāĻŋ āĻ–ā§āĻŦ āĻĻāĻ°āĻ•āĻžāĻ°ā§€ āĻ¯āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡
āĻ‡āĻ¨āĻĒā§āĻŸ āĻ§āĻ°āĻ¨ā§‡āĻ° āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻ° āĻ‰āĻĒāĻ° āĻ¨āĻŋāĻ°ā§āĻ­āĻ° āĻ•āĻ°ā§‡ āĻŦāĻŋāĻ­āĻŋāĻ¨ā§āĻ¨ āĻŦāĻžāĻšā§āĻ¯āĻŋāĻ• (āĻ¯ā§‡āĻŽāĻ¨ āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋ) āĻĢāĻžāĻ‚āĻļāĻ¨āĨ¤
āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸ āĻšāĻ˛

$Typeleters(type_alternatives)

āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ "āĻŸāĻžāĻ‡āĻĒā§‡āĻ˛ā§‡āĻŸāĻžāĻ°ā§āĻ¸" āĻšāĻ˛ "BSULFD" āĻ…āĻ•ā§āĻˇāĻ°āĻ—ā§āĻ˛āĻŋāĻ° āĻāĻ•āĻŸāĻŋ āĻ‰āĻĒāĻ¸ā§‡āĻŸā§‡āĻ° āĻāĻ•āĻŸāĻŋ āĻ¸ā§āĻĨāĻžāĻ¨āĻžāĻ¨ā§āĻ¤āĻ° āĻ¯āĻž āĻĻāĻžāĻāĻĄāĻŧāĻžāĻ¯āĻŧ
āĻŦāĻžāĻ‡āĻŸ, āĻļāĻ°ā§āĻŸ, āĻ‰āĻļāĻ°ā§āĻŸ āĻ‡āĻ¤ā§āĻ¯āĻžāĻĻāĻŋāĻ° āĻœāĻ¨ā§āĻ¯ āĻāĻŦāĻ‚ "āĻŸāĻžāĻ‡āĻĒ_āĻŦāĻŋāĻ•āĻ˛ā§āĻĒ" āĻšāĻ˛ āĻŦāĻŋāĻ¸ā§āĻ¤ā§ƒāĻ¤āĻŋ āĻ¯āĻ–āĻ¨ āĻŸāĻžāĻ‡āĻĒ
āĻĒāĻŋāĻĒāĻŋ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ āĻ¸āĻ‚āĻļā§āĻ˛āĻŋāĻˇā§āĻŸ āĻšāĻŋāĻ āĻŋ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¨āĻŋāĻ°ā§āĻĻā§‡āĻļāĻŋāĻ¤ āĻ¯ā§‡ āĻ¸āĻŽāĻžāĻ¨. āĻšāĻ˛ā§āĻ¨
āĻāĻ•āĻŸāĻŋ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻĻā§āĻŦāĻžāĻ°āĻž āĻāĻ‡ āĻ…āĻŦā§‹āĻ§āĻ—āĻŽā§āĻ¯ āĻŦāĻ°ā§āĻŖāĻ¨āĻž āĻŦā§āĻ¯āĻžāĻ–ā§āĻ¯āĻž āĻ•āĻ°ā§āĻ¨. āĻ§āĻ°ā§‡ āĻ¨āĻŋāĻšā§āĻ›āĻŋ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĻā§āĻŸāĻŋ āĻ¸āĻŋ āĻ†āĻ›ā§‡
āĻĒā§āĻ°ā§‹āĻŸā§‹āĻŸāĻžāĻ‡āĻĒ āĻ¸āĻš āĻĢāĻžāĻ‚āĻļāĻ¨

void float_func (float *in, float *out);
void double_func (āĻĄāĻžāĻŦāĻ˛ *āĻ‡āĻ¨, āĻĄāĻŦāĻ˛ *āĻ†āĻ‰āĻŸ);

āĻ¯āĻž āĻŽā§‚āĻ˛āĻ¤ āĻāĻ•āĻ‡ āĻœāĻŋāĻ¨āĻŋāĻ¸ āĻ•āĻ°ā§‡ āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻāĻ•āĻŸāĻŋ āĻĢā§āĻ˛ā§‹āĻŸ āĻāĻŦāĻ‚ āĻ…āĻ¨ā§āĻ¯ āĻĄāĻŦāĻ˛ āĻĒāĻ¯āĻŧā§‡āĻ¨ā§āĻŸāĻžāĻ° āĻ—ā§āĻ°āĻšāĻŖ āĻ•āĻ°ā§‡āĨ¤
āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸāĻŋ āĻœā§‡āĻ¨ā§‡āĻ°āĻŋāĻ• āĻĢāĻžāĻ‚āĻļāĻ¨ "foofunc" āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°ā§‡ āĻ¤āĻžāĻĻā§‡āĻ° PDL āĻ āĻ‡āĻ¨ā§āĻŸāĻžāĻ°āĻĢā§‡āĻ¸ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨ (āĻ¯āĻž āĻšāĻŦā§‡
āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ°ā§‡āĻ° āĻ§āĻ°āĻŖā§‡āĻ° āĻ‰āĻĒāĻ° āĻ¨āĻŋāĻ°ā§āĻ­āĻ° āĻ•āĻ°ā§‡ āĻ¸āĻ āĻŋāĻ• āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻ•āĻ˛ āĻ•āĻ°ā§āĻ¨):

pp_def('foofunc',
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(n); [o] b();',
āĻ•ā§‹āĻĄ => '$TFD(float_func,double_func) ($P(a),$P(b));'
āĻœā§‡āĻ¨ā§‡āĻ°āĻŋāĻ• āĻŸāĻžāĻ‡āĻĒāĻ¸ => [qw(FD)],
);

āĻĻāĻ¯āĻŧāĻž āĻ•āĻ°ā§‡ āĻŽāĻ¨ā§‡ āĻ°āĻžāĻ–āĻŦā§‡āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻŦāĻ˛āĻ¤ā§‡ āĻĒāĻžāĻ°āĻŦā§‡āĻ¨ āĻ¨āĻž

āĻ•ā§‹āĻĄ => '$TFD(float,double)_func ($P(a),$P(b));'

āĻ¯ā§‡āĻšā§‡āĻ¤ā§ $T āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻŸā§āĻ°ā§‡āĻ˛āĻŋāĻ‚ āĻ¸ā§āĻĒā§‡āĻ¸ āĻ¸āĻš āĻĒā§āĻ°āĻ¸āĻžāĻ°āĻŋāĻ¤ āĻšāĻ¯āĻŧ, āĻ…āĻ¨ā§āĻ°ā§‚āĻĒāĻ­āĻžāĻŦā§‡ C āĻĒā§āĻ°āĻŋāĻĒā§āĻ°āĻ¸ā§‡āĻ¸āĻ° āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹āĻ° āĻ¸āĻžāĻĨā§‡āĨ¤
āĻ‰āĻĒāĻ°ā§‡ āĻšāĻŋāĻ¤ā§āĻ°āĻŋāĻ¤ āĻ¸āĻžāĻŽāĻžāĻ¨ā§āĻ¯ āĻĻā§€āĻ°ā§āĻ˜ āĻĢāĻ°ā§āĻŽ āĻ¸āĻ āĻŋāĻ•. āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻ¸āĻ¤ā§āĻ¯āĻŋāĻ‡ āĻ¸āĻ‚āĻ•ā§āĻˇāĻŋāĻĒā§āĻ¤āĻ¤āĻž āĻšāĻžāĻ¨, āĻ†āĻĒāĻ¨āĻŋ
āĻ…āĻŦāĻļā§āĻ¯āĻ‡ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨

'$TBSULFD('.(āĻ¯ā§‹āĻ— āĻĻāĻŋāĻ¨',',āĻŽā§āĻ¯āĻžāĻĒ {"long_identifier_name_$_"}
qw/byt āĻ¸āĻ‚āĻ•ā§āĻˇāĻŋāĻĒā§āĻ¤ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°āĻŦāĻŋāĻšā§€āĻ¨ āĻ˛āĻžāĻ‰āĻžā§āĻœ āĻĢā§āĻ˛ā§‹āĻŸ āĻĄāĻžāĻŦāĻ˛/)āĨ¤');'

$PP
$PP āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻāĻ•āĻŸāĻŋ āĻ¤āĻĨāĻžāĻ•āĻĨāĻŋāĻ¤ āĻœāĻ¨ā§āĻ¯ āĻŦā§āĻ¯āĻŦāĻšā§ƒāĻ¤ āĻšāĻ¯āĻŧ āĻļāĻžāĻ°ā§€āĻ°āĻŋāĻ• āĻ‡āĻļāĻžāĻ°āĻž āĻĒā§āĻ°āĻŦā§‡āĻļ. āĻĻā§āĻ¯ āĻļāĻžāĻ°ā§€āĻ°āĻŋāĻ• āĻŦā§‹āĻāĻžāĻ¯āĻŧ
PDL āĻāĻ° āĻ•āĻŋāĻ›ā§ āĻ…āĻ­ā§āĻ¯āĻ¨ā§āĻ¤āĻ°ā§€āĻŖ āĻ…āĻĒā§āĻŸāĻŋāĻŽāĻžāĻ‡āĻœā§‡āĻļāĻ¨ (āĻ¯āĻžāĻ°āĻž PDL āĻ•ā§‹āĻ°ā§‡āĻ° āĻ¸āĻžāĻĨā§‡ āĻĒāĻ°āĻŋāĻšāĻŋāĻ¤ āĻ¤āĻžāĻĻā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻ†āĻŽāĻ°āĻž
āĻ­ā§āĻ¯āĻžāĻĢāĻŋāĻ¨ āĻ…āĻĒā§āĻŸāĻŋāĻŽāĻžāĻ‡āĻœā§‡āĻļāĻ¨ āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•ā§‡ āĻ•āĻĨāĻž āĻŦāĻ˛āĻž)āĨ¤ āĻāĻ‡ āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹āĻŸāĻŋ āĻŽā§‚āĻ˛āĻ¤ āĻ…āĻ­ā§āĻ¯āĻ¨ā§āĻ¤āĻ°ā§€āĻŖ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻāĻŦāĻ‚ āĻ†āĻĒāĻ¨āĻžāĻ° āĻœāĻ¨ā§āĻ¯
āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¸ā§āĻŦāĻžāĻ­āĻžāĻŦāĻŋāĻ• āĻ•ā§‹āĻĄā§‡āĻ° āĻ•ā§‹āĻ¨ā§‹āĻŸāĻŋāĻ¤ā§‡ āĻāĻŸāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻžāĻ° āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ āĻ¨ā§‡āĻ‡āĨ¤

$COMP (āĻāĻŦāĻ‚ "āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯āĻĒāĻžāĻ°āĻ¸" āĻŦāĻŋāĻ­āĻžāĻ—)
$COMP āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻ•ā§‹āĻĄ āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ āĻ¨āĻ¨-āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ āĻŽāĻžāĻ¨ āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸ āĻ•āĻ°āĻ¤ā§‡ āĻŦā§āĻ¯āĻŦāĻšā§ƒāĻ¤ āĻšāĻ¯āĻŧāĨ¤ āĻāĻ° āĻ¨āĻžāĻŽ āĻšāĻ˛
PDL-āĻ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻŦāĻžāĻ¸ā§āĻ¤āĻŦāĻžāĻ¯āĻŧāĻ¨ āĻĨā§‡āĻ•ā§‡ āĻĒā§āĻ°āĻžāĻĒā§āĻ¤āĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨ āĻ­ā§‡āĻ°āĻŋāĻ¯āĻŧā§‡āĻŦāĻ˛
$COMP āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ¤āĻžāĻ°āĻž ``āĻ¸āĻ‚āĻ•āĻ˛āĻŋāĻ¤'' āĻ•āĻžāĻ āĻžāĻŽā§‹āĻ° āĻ¸āĻĻāĻ¸ā§āĻ¯ āĻ¯āĻž PDL āĻĒā§āĻ°āĻ¤āĻŋāĻ¨āĻŋāĻ§āĻŋāĻ¤ā§āĻŦ āĻ•āĻ°ā§‡
āĻĒā§āĻ°āĻļā§āĻ¨ā§‡ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•ā§‡ āĻāĻ–āĻ¨āĻ“ āĻ•ā§‹āĻ¨ā§‹ āĻ¤āĻĨā§āĻ¯ āĻ§āĻžāĻ°āĻŖ āĻ•āĻ°ā§‡ āĻ¨āĻž
(āĻ†āĻ°āĻ“ āĻŦāĻŋāĻ¸ā§āĻ¤āĻžāĻ°āĻŋāĻ¤ āĻœāĻžāĻ¨āĻžāĻ° āĻœāĻ¨ā§āĻ¯ PDL::āĻ‡āĻ¨ā§āĻŸāĻžāĻ°āĻ¨āĻžāĻ˛ āĻšā§‡āĻ• āĻ•āĻ°ā§āĻ¨)āĨ¤ āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻ†āĻĒāĻ¨āĻŋ $COMP āĻ•ā§‡ āĻāĻ•āĻŸāĻŋ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻŦāĻŋāĻŦā§‡āĻšāĻ¨āĻž āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
āĻŦā§āĻ˛ā§āĻ¯āĻžāĻ• āĻŦāĻ•ā§āĻ¸ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛-āĻ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻŦāĻžāĻ¸ā§āĻ¤āĻŦāĻžāĻ¯āĻŧāĻ¨ āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•ā§‡ āĻ•āĻŋāĻ›ā§ āĻ¨āĻž āĻœā§‡āĻ¨ā§‡āĨ¤
āĻ¤āĻžāĻšāĻ˛ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ‡ āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻ•āĻ–āĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻŦā§‡āĻ¨? āĻāĻ° āĻĒā§āĻ°āĻ§āĻžāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻšāĻ˛ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻ° āĻŽāĻžāĻ¨āĻ—ā§āĻ˛āĻŋ āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸ āĻ•āĻ°āĻž āĻ¯āĻž
āĻāĻ•āĻŸāĻŋ "pp_def" āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ° "āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯āĻĒāĻžāĻ°āĻ¸" āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ āĻ˜ā§‹āĻˇāĻŖāĻž āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡āĨ¤ āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻ¤āĻžāĻ°āĻĒāĻ° āĻ†āĻĒāĻ¨āĻŋ āĻ¨āĻž
āĻāĻ–āĻ¨āĻ“ "āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯āĻĒāĻžāĻ°āĻ¸" āĻ•ā§€ āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•ā§‡ āĻļā§āĻ¨ā§‡āĻ›ā§‡āĻ¨?! āĻāĻ° āĻ†āĻ°ā§‡āĻ•āĻŸāĻŋ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻĻā§‡āĻ“āĻ¯āĻŧāĻž āĻ¯āĻžāĻ• āĻ¯āĻž āĻŦā§āĻ¯āĻžāĻ–ā§āĻ¯āĻž āĻ•āĻ°ā§‡
āĻ‰āĻ­āĻ¯āĻŧ āĻ¨āĻ¤ā§āĻ¨ āĻŦā§ˆāĻļāĻŋāĻˇā§āĻŸā§āĻ¯ā§‡āĻ° āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°:

pp_def('pnmout',
āĻĒāĻžāĻ°ā§āĻ¸ =>'a(āĻŽāĻŋ)',
OtherPars => "char* fd",
āĻœā§‡āĻ¨ā§‡āĻ°āĻŋāĻ• āĻŸāĻžāĻ‡āĻĒāĻ¸ => [qw(BUSL)],
āĻ•ā§‹āĻĄ => 'PerlIO *fp;
IO *io;

io = GvIO(gv_fetchpv($COMP(fd), FALSE,SVt_PVIO));
āĻ¯āĻĻāĻŋ (!io || !(fp = IoIFP(io)))
croak("FP āĻŦā§‡āĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°āĻ›āĻŋ āĻ¨āĻž");

āĻ¯āĻĻāĻŋ (PerlIO_write(fp,$P(a),len) != len)
croak("āĻĒāĻŋāĻāĻ¨āĻāĻŽ āĻĢāĻžāĻ‡āĻ˛ āĻ˛ā§‡āĻ–āĻžāĻ° āĻ¤ā§āĻ°ā§āĻŸāĻŋ");
');

āĻāĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻāĻ•āĻŸāĻŋ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ āĻĨā§‡āĻ•ā§‡ āĻāĻ•āĻŸāĻŋ āĻĢāĻžāĻ‡āĻ˛ā§‡ āĻĄā§‡āĻŸāĻž āĻ˛āĻŋāĻ–āĻ¤ā§‡ āĻŦā§āĻ¯āĻŦāĻšā§ƒāĻ¤ āĻšāĻ¯āĻŧāĨ¤ āĻĢāĻžāĻ‡āĻ˛ āĻŦāĻ°ā§āĻŖāĻ¨āĻžāĻ•āĻžāĻ°ā§€ āĻĒāĻžāĻ¸ āĻšāĻ¯āĻŧ
āĻāĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻŽāĻ§ā§āĻ¯ā§‡ āĻāĻ•āĻŸāĻŋ āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚ āĻšāĻŋāĻ¸āĻžāĻŦā§‡. āĻāĻ‡ āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻŸāĻžāĻ°āĻŸāĻŋ "Pars" āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ āĻ¯āĻžāĻ¯āĻŧ āĻ¨āĻž
āĻ¯ā§‡āĻšā§‡āĻ¤ā§ āĻāĻŸāĻŋāĻ•ā§‡ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ā§‡āĻ° āĻŽāĻ¤ā§‹ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻ¯āĻžāĻ¯āĻŧ āĻ¨āĻž āĻŦāĻ°āĻ‚ āĻ¯āĻĨāĻžāĻ¯āĻĨāĻ­āĻžāĻŦā§‡ āĻ¨āĻžāĻŽāĻ•āĻ°āĻŖ āĻ•āĻ°āĻž āĻ¯āĻžāĻ¯āĻŧ
"āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯āĻĒāĻžāĻ°āĻ¸" āĻŦāĻŋāĻ­āĻžāĻ—āĨ¤ "āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯āĻĒāĻžāĻ°āĻ¸" āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ āĻĒāĻ°āĻžāĻŽāĻŋāĻ¤āĻŋāĻ—ā§āĻ˛āĻŋ "āĻĒāĻžāĻ°ā§āĻ¸"-āĻ āĻ¯āĻž āĻ…āĻ¨ā§āĻ¸āĻ°āĻŖ āĻ•āĻ°ā§‡
āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ†āĻšā§āĻŦāĻžāĻ¨ āĻ•āĻ°āĻžāĻ° āĻ¸āĻŽāĻ¯āĻŧ āĻŦāĻŋāĻ­āĻžāĻ—, āĻ¯ā§‡āĻŽāĻ¨

FILE āĻ–ā§āĻ˛ā§āĻ¨,">out.dat" āĻŦāĻž āĻĄāĻžāĻ‡ "out.dat āĻ–ā§āĻ˛āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨āĻŋ";
pnmout($pdl,'FILE');

āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻ–āĻ¨ āĻ•ā§‹āĻĄ āĻŦāĻŋāĻ­āĻžāĻ—ā§‡āĻ° āĻ­āĻŋāĻ¤āĻ°ā§‡ āĻāĻ‡ āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻŸāĻžāĻ°āĻŸāĻŋ āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨ āĻ¤āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻĒāĻŋāĻĒāĻŋāĻ•ā§‡ āĻŦāĻ˛āĻ¤ā§‡ āĻšāĻŦā§‡
$COMP āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡, āĻ¯ā§‡āĻŽāĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ "$COMP(fd)" āĻ˛āĻŋāĻ–ā§āĻ¨āĨ¤ āĻ…āĻ¨ā§āĻ¯āĻĨāĻžāĻ¯āĻŧ āĻĒāĻŋāĻĒāĻŋ
āĻ†āĻĒāĻ¨āĻŋ āĻœāĻžāĻ¨ā§‡āĻ¨ āĻ¨āĻž āĻ¯ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ¯ā§‡ "fd" āĻāĻ° āĻ•āĻĨāĻž āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°āĻ›ā§‡āĻ¨ āĻ¤āĻžāĻ¤ā§‡ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°āĻž āĻāĻ•āĻ‡ āĻ°āĻ•āĻŽ
"āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯āĻĒāĻžāĻ°āĻ¸" āĻŦāĻŋāĻ­āĻžāĻ—āĨ¤

"āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯āĻĒāĻžāĻ°āĻ¸" āĻŦāĻŋāĻ­āĻžāĻ—ā§‡āĻ° āĻ†āĻ°ā§‡āĻ•āĻŸāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻšāĻ˛ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°ā§‡ āĻāĻ•āĻŸāĻŋ āĻ¨āĻžāĻŽāĻ¯ā§āĻ•ā§āĻ¤ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ¸ā§‡āĻŸ āĻ•āĻ°āĻžāĨ¤
āĻ†āĻ¸ā§āĻ¨ āĻāĻŸāĻŋ āĻ•ā§€āĻ­āĻžāĻŦā§‡ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ āĻ¤āĻžāĻ° āĻāĻ•āĻŸāĻŋ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻĻā§‡āĻ“āĻ¯āĻŧāĻž āĻ¯āĻžāĻ•:

pp_def('setdim',
āĻĒāĻžāĻ°ā§āĻ¸ => '[o] a(n)',
āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻĒāĻžāĻ°ā§āĻ¸ => 'int ns => n',
āĻ•ā§‹āĻĄ => 'āĻ˛ā§āĻĒ(n) %{ $a() = n; %}',
);

āĻāĻŸāĻŋ āĻŦāĻ˛ā§‡ āĻ¯ā§‡ āĻ¨āĻžāĻŽāĻ¯ā§āĻ•ā§āĻ¤ āĻŽāĻžāĻ¤ā§āĻ°āĻž "n" āĻāĻ° āĻŽāĻžāĻ¨ āĻĨā§‡āĻ•ā§‡ āĻļā§āĻ°ā§ āĻ•āĻ°āĻž āĻšāĻŦā§‡ āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯
āĻ¸ā§āĻĨāĻŋāĻ¤āĻŋāĻŽāĻžāĻĒ "ns" āĻ¯āĻž āĻĒā§‚āĻ°ā§āĻŖāĻ¸āĻ‚āĻ–ā§āĻ¯āĻžāĻ° āĻĒā§āĻ°āĻ•āĻžāĻ°ā§‡āĻ° (āĻ†āĻŽāĻžāĻ° āĻ§āĻžāĻ°āĻŖāĻž āĻ†āĻĒāĻ¨āĻŋ āĻŦā§āĻāĻ¤ā§‡ āĻĒā§‡āĻ°ā§‡āĻ›ā§‡āĻ¨ āĻ¯ā§‡ āĻ†āĻŽāĻ°āĻž āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻŋ
"CType From => name_dim" āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸)āĨ¤ āĻāĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋāĻ•ā§‡ āĻ¸ā§āĻŦāĻžāĻ­āĻžāĻŦāĻŋāĻ• āĻ‰āĻĒāĻžāĻ¯āĻŧā§‡ āĻ•āĻ˛ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨:

setdim(($a=null),5);
āĻĒā§āĻ°āĻŋāĻ¨ā§āĻŸ $a;
[ 0 1 2 3 4 ]

āĻ¸ā§āĻŦā§€āĻ•āĻžāĻ°ā§āĻ¯ āĻ¯ā§‡ āĻāĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ–ā§āĻŦ āĻĻāĻ°āĻ•āĻžāĻ°ā§€ āĻ¨āĻ¯āĻŧ āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻāĻŸāĻŋ āĻ•āĻŋāĻ­āĻžāĻŦā§‡ āĻ•āĻžāĻœ āĻ•āĻ°ā§‡ āĻ¤āĻž āĻĒā§āĻ°āĻĻāĻ°ā§āĻļāĻ¨ āĻ•āĻ°ā§‡āĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ
āĻāĻ•āĻŸāĻŋ āĻŦāĻŋāĻĻā§āĻ¯āĻŽāĻžāĻ¨ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ āĻĻāĻŋāĻ¯āĻŧā§‡ āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻ•āĻ˛ āĻ•āĻ°ā§āĻ¨ āĻāĻŦāĻ‚ āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻ¸ā§āĻĒāĻˇā§āĻŸāĻ­āĻžāĻŦā§‡ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻžāĻ° āĻĻāĻ°āĻ•āĻžāĻ° āĻ¨ā§‡āĻ‡
"n" āĻāĻ° āĻ†āĻ•āĻžāĻ° āĻ¯ā§‡āĻšā§‡āĻ¤ā§ PDL::PP āĻ¨āĻ¨-āĻ¨āĻžāĻ˛ pdl-āĻāĻ° āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻĨā§‡āĻ•ā§‡ āĻāĻŸāĻŋ āĻŦā§‡āĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĨ¤ āĻ­āĻŋāĻ¤āĻ°ā§‡
āĻ¸ā§‡āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ•ā§‡āĻŦāĻ˛āĻŽāĻžāĻ¤ā§āĻ° "-1" āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻŸāĻžāĻ° āĻĻā§‡āĻ¨:

$a = hist($b);
setdim($a,-1);

āĻ¯āĻž āĻ•āĻ°āĻž āĻ‰āĻšāĻŋā§Ž.

āĻāĻ•āĻŽāĻžāĻ¤ā§āĻ° PP āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¯āĻž āĻ†āĻŽāĻ°āĻž āĻāĻ–āĻ¨ āĻĒāĻ°ā§āĻ¯āĻ¨ā§āĻ¤ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻ—ā§āĻ˛āĻŋāĻ¤ā§‡ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡āĻ›āĻŋ āĻ¤āĻž āĻšāĻ˛ "āĻ˛ā§āĻĒ"āĨ¤ āĻ‰āĻĒāĻ°āĻ¨ā§āĻ¤ā§,
āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ā§‡ āĻĻā§āĻŸāĻŋ āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡ āĻ¯āĻž "āĻ•ā§‹āĻĄ" āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ āĻ¸ā§āĻŦā§€āĻ•ā§ƒāĻ¤:

āĻĨā§āĻ°ā§‡āĻĄāĻ˛ā§āĻĒ
āĻ†āĻŽāĻ°āĻž āĻ‰āĻĒāĻ°ā§‡ āĻļā§āĻ¨ā§‡āĻ›āĻŋ āĻāĻ•āĻŸāĻŋ āĻĒāĻŋāĻĒāĻŋ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° āĻ¸āĻŦ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°ā§‡
āĻāĻ•āĻŸāĻŋ āĻœāĻĄāĻŧāĻŋāĻ¤ pdl āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻ†āĻĻāĻŋāĻŽ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨. āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻ†āĻĒāĻ¨āĻŋ āĻĒā§āĻ°āĻžāĻ¯āĻŧāĻ‡ āĻ•āĻ˛
āĻ¯ā§‡ āĻĢāĻžāĻ‚āĻļāĻ¨āĻ—ā§āĻ˛āĻŋ āĻ†āĻĒāĻ¨āĻŋ PP āĻāĻ° āĻ¸āĻžāĻĨā§‡ pdls āĻāĻ° āĻ¸āĻžāĻĨā§‡ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°ā§‡āĻ›ā§‡āĻ¨ āĻ¯ā§‡āĻ—ā§āĻ˛āĻŋāĻ° āĻšā§‡āĻ¯āĻŧā§‡ āĻŦā§‡āĻļāĻŋ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡ā§ˇ
āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°ā§‡ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡āĨ¤ āĻāĻ‡ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻ†āĻĻāĻŋāĻŽ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ āĻ¸āĻ•āĻ˛ā§‡āĻ° āĻ‰āĻĒāĻ° āĻ¸āĻžā§āĻšāĻžāĻ˛āĻŋāĻ¤ āĻšāĻ¯āĻŧ
āĻ‰āĻĒāĻ¯ā§āĻ•ā§āĻ¤ āĻŽāĻžāĻ¤ā§āĻ°āĻžāĻ° āĻ¸āĻžāĻŦāĻ¸ā§āĻ˛āĻžāĻ‡āĻ¸ āĻ¯āĻžāĻ•ā§‡ āĻŦāĻ˛āĻž āĻšāĻ¯āĻŧ āĻ¸ā§āĻ¤āĻž āĻ˛ā§āĻĒ (āĻ†āĻ°ā§‹ āĻĻā§‡āĻ–ā§āĻ¨
āĻ‰āĻĒāĻ°ā§‡ āĻ“āĻ­āĻžāĻ°āĻ­āĻŋāĻ‰ āĻāĻŦāĻ‚ PDL::Indexing)āĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ‡ āĻ§āĻžāĻ°āĻŖāĻžāĻ° āĻ•āĻŋāĻ›ā§ āĻ§āĻžāĻ°āĻŖāĻž āĻ†āĻ›ā§‡ āĻ…āĻ¨ā§āĻŽāĻžāĻ¨ āĻ†āĻĒāĻ¨āĻŋ
āĻ•ā§‹āĻĄ āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ āĻšāĻ“āĻ¯āĻŧāĻž āĻ‰āĻšāĻŋāĻ¤ āĻŦāĻ˛ā§‡ āĻ¸āĻŽā§āĻ­āĻŦāĻ¤ āĻĒā§āĻ°āĻļāĻ‚āĻ¸āĻž āĻ•āĻ°āĻŦā§‡
āĻ…āĻĒā§āĻŸāĻŋāĻŽāĻžāĻ‡āĻœ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡ āĻ¯ā§‡āĻšā§‡āĻ¤ā§ āĻāĻŸāĻŋ āĻāĻ•āĻŸāĻŋ āĻĨā§āĻ°ā§‡āĻĄ āĻ˛ā§āĻĒā§‡āĻ° āĻ­āĻŋāĻ¤āĻ°ā§‡ āĻ¸āĻŦāĻšā§‡āĻ¯āĻŧā§‡ āĻŸāĻžāĻ‡āĻŸ āĻ˛ā§āĻĒāĨ¤ āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻ¯āĻĻāĻŋ āĻ†āĻĒāĻ¨āĻŋ āĻĒā§āĻ¨āĻ°āĻžāĻ¯āĻŧ āĻĻā§‡āĻ–ā§āĻ¨
āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ†āĻŽāĻ°āĻž "pnmout" āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°āĻŋ, āĻ†āĻĒāĻ¨āĻŋ āĻĻā§āĻ°ā§āĻ¤ āĻŦā§āĻāĻ¤ā§‡ āĻĒāĻžāĻ°āĻŦā§‡āĻ¨ āĻ¯ā§‡ āĻ–ā§āĻāĻœāĻ›ā§‡āĻ¨
āĻ˛ā§‡āĻ–āĻžāĻ° āĻ¸āĻŽāĻ¯āĻŧ āĻ…āĻ­ā§āĻ¯āĻ¨ā§āĻ¤āĻ°ā§€āĻŖ āĻĨā§āĻ°ā§‡āĻĄ āĻ˛ā§āĻĒā§‡ "IO" āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻŦāĻ°ā§āĻŖāĻ¨āĻžāĻ•āĻžāĻ°ā§€ āĻ–ā§āĻŦ āĻ•āĻžāĻ°ā§āĻ¯āĻ•āĻ° āĻ¨āĻ¯āĻŧ
āĻ…āĻ¨ā§‡āĻ• āĻ¸āĻžāĻ°āĻŋ āĻ¸āĻš āĻāĻ•āĻŸāĻŋ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛āĨ¤ āĻāĻ•āĻŸāĻŋ āĻ­āĻžāĻ˛ āĻĒāĻĻā§āĻ§āĻ¤āĻŋ āĻāĻ•āĻŦāĻžāĻ° "IO" āĻŦāĻ°ā§āĻŖāĻ¨āĻžāĻ•āĻžāĻ°ā§€āĻ° āĻ¸āĻ¨ā§āĻ§āĻžāĻ¨ āĻ•āĻ°āĻž āĻšāĻŦā§‡
āĻĨā§āĻ°ā§‡āĻĄ āĻ˛ā§āĻĒā§‡āĻ° āĻŦāĻžāĻ‡āĻ°ā§‡ āĻāĻŦāĻ‚ āĻāĻ° āĻŽāĻžāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨ āĻ¤āĻžāĻ°āĻĒāĻ° āĻ¸āĻŦāĻšā§‡āĻ¯āĻŧā§‡ āĻŸāĻžāĻ‡āĻŸ āĻĨā§āĻ°ā§‡āĻĄ āĻ˛ā§āĻĒā§‡āĻ° āĻ­āĻŋāĻ¤āĻ°ā§‡āĨ¤ āĻāĻ‡
āĻ āĻŋāĻ• āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ "āĻĨā§āĻ°ā§‡āĻĄāĻ˛ā§āĻĒ" āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻ•āĻžāĻœā§‡ āĻ†āĻ¸ā§‡āĨ¤ āĻāĻ–āĻžāĻ¨ā§‡ āĻāĻ•āĻŸāĻŋ āĻ‰āĻ¨ā§āĻ¨āĻ¤ āĻ¸āĻ‚āĻœā§āĻžāĻž
"pnmout" āĻāĻ° āĻ¯āĻž āĻāĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡:

pp_def('pnmout',
āĻĒāĻžāĻ°ā§āĻ¸ =>'a(āĻŽāĻŋ)',
OtherPars => "char* fd",
āĻœā§‡āĻ¨ā§‡āĻ°āĻŋāĻ• āĻŸāĻžāĻ‡āĻĒāĻ¸ => [qw(BUSL)],
āĻ•ā§‹āĻĄ => 'PerlIO *fp;
IO *io;
int len;

io = GvIO(gv_fetchpv($COMP(fd), FALSE,SVt_PVIO));
āĻ¯āĻĻāĻŋ (!io || !(fp = IoIFP(io)))
croak("FP āĻŦā§‡āĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°āĻ›āĻŋ āĻ¨āĻž");

len = $āĻ†āĻ•āĻžāĻ°(āĻŽāĻŋ) * āĻ†āĻ•āĻžāĻ° ($GENERIC());

āĻĨā§āĻ°ā§‡āĻĄāĻ˛ā§āĻĒ %{
āĻ¯āĻĻāĻŋ (PerlIO_write(fp,$P(a),len) != len)
croak("āĻĒāĻŋāĻāĻ¨āĻāĻŽ āĻĢāĻžāĻ‡āĻ˛ āĻ˛ā§‡āĻ–āĻžāĻ° āĻ¤ā§āĻ°ā§āĻŸāĻŋ");
%}
');

āĻāĻ‡ āĻ¨āĻŋāĻŽā§āĻ¨āĻ°ā§‚āĻĒ āĻ•āĻžāĻœ āĻ•āĻ°ā§‡. āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ "āĻ•ā§‹āĻĄ" āĻŦāĻŋāĻ­āĻžāĻ—ā§‡āĻ° āĻ­āĻŋāĻ¤āĻ°ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ¯ā§‡ āĻ¸āĻŋ āĻ•ā§‹āĻĄāĻŸāĻŋ āĻ˛ā§‡āĻ–ā§‡āĻ¨ āĻ¤āĻž āĻ¸ā§āĻĨāĻžāĻĒāĻ¨ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ
āĻāĻ•āĻŸāĻŋ āĻĨā§āĻ°ā§‡āĻĄ āĻ˛ā§āĻĒā§‡āĻ° āĻ­āĻŋāĻ¤āĻ°ā§‡ (āĻ¯ā§‡āĻŽāĻ¨ āĻĒāĻŋāĻĒāĻŋ āĻāĻŸāĻŋāĻ° āĻšāĻžāĻ°āĻĒāĻžāĻļā§‡ āĻ‰āĻĒāĻ¯ā§āĻ•ā§āĻ¤ āĻŽā§‹āĻĄāĻŧāĻžāĻ¨ā§‹ XS āĻ•ā§‹āĻĄ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§‡)āĨ¤
āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻ¯āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻ¸ā§āĻĒāĻˇā§āĻŸāĻ­āĻžāĻŦā§‡ "threadloop" āĻĢāĻžāĻ‚āĻļāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡āĻ¨, PDL::PP āĻāĻŸāĻŋāĻ•ā§‡ āĻ¸ā§āĻŦā§€āĻ•ā§ƒāĻ¤āĻŋ āĻĻā§‡āĻ¯āĻŧ āĻāĻŦāĻ‚
āĻāĻ•āĻŸāĻŋ āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤ āĻĨā§āĻ°ā§‡āĻĄ āĻ˛ā§āĻĒ āĻĻāĻŋāĻ¯āĻŧā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ•ā§‹āĻĄ āĻŽā§‹āĻĄāĻŧāĻžāĻ¨ā§‹ āĻšāĻ¯āĻŧ āĻ¨āĻžāĨ¤ āĻāĻ‡ āĻĒā§āĻ°āĻ­āĻžāĻŦ āĻ†āĻ›ā§‡ āĻ¯ā§‡ āĻ•ā§‹āĻĄ āĻ†āĻĒāĻ¨āĻŋ
āĻĨā§āĻ°ā§‡āĻĄ āĻ˛ā§āĻĒā§‡āĻ° āĻŦāĻžāĻ‡āĻ°ā§‡ āĻ˛āĻŋāĻ–ā§āĻ¨ āĻĒā§āĻ°āĻ¤āĻŋ āĻŸā§āĻ°āĻžāĻ¨ā§āĻ¸āĻĢāĻ°ā§āĻŽā§‡āĻļāĻ¨ āĻāĻŦāĻ‚ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻ•ā§‹āĻĄāĻŸāĻŋ āĻāĻ•āĻŦāĻžāĻ°āĻ‡ āĻ•āĻžāĻ°ā§āĻ¯āĻ•āĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ
āĻ†āĻļā§‡āĻĒāĻžāĻļā§‡āĻ° "%{ ... %}" āĻœā§‹āĻĄāĻŧāĻžāĻŸāĻŋ āĻ¸āĻŦāĻšā§‡āĻ¯āĻŧā§‡ āĻŸāĻžāĻ‡āĻŸ āĻĨā§āĻ°ā§‡āĻĄ āĻ˛ā§āĻĒā§‡āĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻ¸ā§āĻĨāĻžāĻĒāĻ¨ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧāĨ¤ āĻāĻ‡
āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻ–āĻ¨ āĻ¸āĻŋāĻĻā§āĻ§āĻžāĻ¨ā§āĻ¤ āĻ¨āĻŋāĻ¤ā§‡ āĻšāĻžāĻ¨ (āĻŦāĻž āĻ…āĻ¨ā§āĻ¯ āĻ•ā§‹āĻ¨ āĻ•ā§‹āĻĄ, āĻŦāĻŋāĻļā§‡āĻˇ āĻ•āĻ°ā§‡
CPU āĻ¨āĻŋāĻŦāĻŋāĻĄāĻŧ āĻ•ā§‹āĻĄ) āĻĒā§āĻ°āĻ¤āĻŋ āĻĨā§āĻ°ā§‡āĻĄā§‡ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻāĻ•āĻŦāĻžāĻ°, āĻ…āĻ°ā§āĻĨāĻžā§Ž

pp_addhdr('
#RAW 0 āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°ā§āĻ¨
#ASCII 1 āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°ā§āĻ¨
');
pp_def('do_raworascii',
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(); b(); [o]c()',
OtherPars => 'int mode',
āĻ•ā§‹āĻĄ => ' āĻ¸ā§āĻ‡āĻš ($Comp(āĻŽā§‹āĻĄ)) {
āĻ•ā§‡āĻ¸ RAW:
āĻĨā§āĻ°ā§‡āĻĄāĻ˛ā§āĻĒ %{
/* āĻ•āĻžāĻāĻšāĻž āĻœāĻŋāĻ¨āĻŋāĻ¸ āĻ•āĻ°ā§āĻ¨ */
%}
āĻŦāĻŋāĻ°āĻ¤āĻŋ;
āĻ•ā§‡āĻ¸ ASCII:
āĻĨā§āĻ°ā§‡āĻĄāĻ˛ā§āĻĒ %{
/* ASCII āĻ¸ā§āĻŸāĻžāĻĢ āĻ•āĻ°ā§āĻ¨ */
%}
āĻŦāĻŋāĻ°āĻ¤āĻŋ;
āĻĄāĻŋāĻĢāĻ˛ā§āĻŸ:
croak("āĻ…āĻœāĻžāĻ¨āĻž āĻŽā§‹āĻĄ");
}'
);

āĻ§āĻ°āĻ¨ā§‡āĻ°
āĻĒā§āĻ°āĻ•āĻžāĻ° āĻĢāĻžāĻ‚āĻļāĻ¨ $T āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹āĻ° āĻ…āĻ¨ā§āĻ°ā§‚āĻĒ āĻ•āĻžāĻœ āĻ•āĻ°ā§‡āĨ¤ āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, "āĻŸāĻžāĻ‡āĻĒāĻ¸" āĻĢāĻžāĻ‚āĻļāĻ¨ āĻĻāĻŋāĻ¯āĻŧā§‡
āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻ–āĻŋāĻ¤ āĻŦā§āĻ˛āĻ•ā§‡āĻ° āĻ•ā§‹āĻĄ (āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ­āĻžāĻŦā§‡ "%{" āĻāĻŦāĻ‚ "%}" āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¸ā§€āĻŽāĻžāĻŦāĻĻā§āĻ§) āĻ¸āĻ•āĻ˛ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻ•āĻžāĻ°ā§āĻ¯āĻ•āĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡
āĻ¯ā§‡ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ āĻĄā§‡āĻŸāĻžāĻŸāĻžāĻ‡āĻĒ āĻšāĻ¯āĻŧ āĻ•ā§‹āĻ¨ of āĻĻā§āĻŦāĻžāĻ°āĻž āĻ‰āĻĒāĻ¸ā§āĻĨāĻžāĻĒāĻŋāĻ¤ āĻ§āĻ°āĻ¨ā§‡āĻ°
āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻ° āĻ…āĻ•ā§āĻˇāĻ° "āĻŸāĻžāĻ‡āĻĒ", āĻ¯ā§‡āĻŽāĻ¨

āĻ•ā§‹āĻĄ => '...

āĻĒā§āĻ°āĻ•āĻžāĻ° (BSUL) %{
/* āĻ‡āĻ¨ā§āĻŸāĻŋāĻœāĻžāĻ° āĻŸāĻžāĻ‡āĻĒ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ āĻ•āĻ°ā§āĻ¨ */
%}
āĻĒā§āĻ°āĻ•āĻžāĻ° (FD) %{
/* āĻĢā§āĻ˛ā§‹āĻŸāĻŋāĻ‚ āĻĒāĻ¯āĻŧā§‡āĻ¨ā§āĻŸ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ āĻ•āĻ°ā§āĻ¨ */
%}
...'

āĻ¸āĻžāĻ°ā§āĻœāĻžāĻ°āĻŋāĻ° āĻ°āĻŋāĻĄā§‹āĻĄāĻŋāĻŽāĻ¸āĻ•ā§‹āĻĄ āĻ…āĻ§ā§āĻ¯āĻžāĻ¯āĻŧ
"RedoDimsCode" āĻ•ā§€ āĻāĻ•āĻŸāĻŋ āĻāĻšā§āĻ›āĻŋāĻ• āĻ•ā§€ āĻ¯āĻž āĻĒāĻŋāĻĄāĻ˛ā§‡āĻ° āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ—āĻŖāĻ¨āĻž āĻ•āĻ°āĻ¤ā§‡ āĻŦā§āĻ¯āĻŦāĻšā§ƒāĻ¤ āĻšāĻ¯āĻŧ
āĻ°āĻžāĻ¨āĻŸāĻžāĻ‡āĻŽ āĻ¯āĻĻāĻŋ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° āĻĨā§‡āĻ•ā§‡ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ—āĻŖāĻ¨āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ†āĻĻāĻ°ā§āĻļ āĻ¨āĻŋāĻ¯āĻŧāĻŽ āĻ¨āĻž āĻšāĻ¯āĻŧ
āĻ¯āĻĨā§‡āĻˇā§āĻŸ "RedoDimsCode" āĻāĻ¨ā§āĻŸā§āĻ°āĻŋāĻ° āĻŦāĻŋāĻˇāĻ¯āĻŧāĻŦāĻ¸ā§āĻ¤ā§ āĻāĻ•āĻ‡āĻ­āĻžāĻŦā§‡ āĻŦā§āĻ¯āĻžāĻ–ā§āĻ¯āĻž āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡
āĻ•ā§‹āĻĄ āĻŦāĻŋāĻ­āĻžāĻ—āĻŸāĻŋ āĻŦā§āĻ¯āĻžāĻ–ā§āĻ¯āĻž āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡-- āĻ…āĻ°ā§āĻĨāĻžāĻ¤, PP āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻĒā§āĻ°āĻ¸āĻžāĻ°āĻŋāĻ¤ āĻšāĻ¯āĻŧ āĻāĻŦāĻ‚ āĻĢāĻ˛āĻžāĻĢāĻ˛ āĻšāĻ¯āĻŧ
āĻ¸āĻŋ āĻ•ā§‹āĻĄ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻŦā§āĻ¯āĻžāĻ–ā§āĻ¯āĻž āĻ•āĻ°āĻž āĻšāĻ¯āĻŧāĨ¤ āĻ•ā§‹āĻĄā§‡āĻ° āĻ‰āĻĻā§āĻĻā§‡āĻļā§āĻ¯ āĻšāĻ˛ āĻ•āĻŋāĻ›ā§ āĻŽāĻžāĻ¤ā§āĻ°āĻžāĻ° āĻ†āĻ•āĻžāĻ° āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻ•āĻ°āĻž
āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°ā§‡ āĻ‰āĻĒāĻ¸ā§āĻĨāĻŋāĻ¤ āĻšāĻ¯āĻŧāĨ¤ āĻ¸ā§āĻŸā§‹āĻ°ā§‡āĻœ āĻŦāĻ°āĻžāĻĻā§āĻĻ āĻāĻŦāĻ‚ āĻĨā§āĻ°ā§‡āĻĄāĻ˛ā§āĻĒ āĻ‡āĻ¤ā§āĻ¯āĻžāĻĻāĻŋ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻ¸ā§‡āĻŸ āĻ†āĻĒ āĻ•āĻ°āĻž āĻšāĻŦā§‡
āĻ¯āĻĻāĻŋ āĻ—āĻŖāĻ¨āĻž āĻ•āĻ°āĻž āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°ā§‡ āĻ‰āĻĒāĻ¸ā§āĻĨāĻŋāĻ¤ āĻšāĻ¤āĨ¤ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ•ā§‹āĻĄ, āĻ†āĻĒāĻ¨āĻŋ āĻĒā§āĻ°āĻĨāĻŽ āĻ—āĻŖāĻ¨āĻž
āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ āĻ…āĻ¨ā§āĻ¸āĻžāĻ°ā§‡ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°ā§‡ āĻāĻ•āĻŸāĻŋ āĻ¨āĻžāĻŽāĻ¯ā§āĻ•ā§āĻ¤ āĻŽāĻžāĻ¤ā§āĻ°āĻžāĻ° āĻĒāĻ›āĻ¨ā§āĻĻāĻ¸āĻ‡ āĻ†āĻ•āĻžāĻ° āĻāĻŦāĻ‚ āĻ¤āĻžāĻ°āĻĒāĻ°
$ āĻāĻ° āĻŽāĻžāĻ§ā§āĻ¯āĻŽā§‡ āĻāĻŸāĻŋāĻ¤ā§‡ āĻ¸ā§‡āĻ‡ āĻŽāĻžāĻ¨āĻŸāĻŋ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻ•āĻ°ā§āĻ¨SIZE() āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹

āĻāĻ•āĻŸāĻŋ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻšāĻŋāĻ¸āĻžāĻŦā§‡, āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻ–āĻŋāĻ¤ āĻĒāĻ°āĻŋāĻ¸ā§āĻĨāĻŋāĻ¤āĻŋ āĻŦāĻŋāĻŦā§‡āĻšāĻ¨āĻž āĻ•āĻ°ā§āĻ¨āĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸāĻŋ āĻŦāĻšāĻŋāĻ°āĻžāĻ—āĻ¤ āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋ āĻ‡āĻ¨ā§āĻŸāĻžāĻ°āĻĢā§‡āĻ¸ āĻ•āĻ°āĻ›ā§‡āĻ¨
āĻ°ā§āĻŸāĻŋāĻ¨ āĻ¯ā§‡āĻŸāĻŋ āĻāĻ•āĻŸāĻŋ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻĒāĻžāĻ¸ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ“āĻ¯āĻŧāĻžāĻ°ā§āĻ•āĻ¸ā§āĻĒā§‡āĻ¸ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻāĻ•āĻŸāĻŋ āĻ…āĻ¸ā§āĻĨāĻžāĻ¯āĻŧā§€ āĻ…ā§āĻ¯āĻžāĻ°ā§‡ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨āĨ¤ āĻĻā§āĻ‡
āĻĒāĻžāĻ¸ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ āĻ¯ā§‡ āĻ‡āĻ¨āĻĒā§āĻŸ āĻĄā§‡āĻŸāĻž āĻ…ā§āĻ¯āĻžāĻ°ā§‡ āĻšāĻ¯āĻŧ p(m) āĻāĻŦāĻ‚ x(n)āĨ¤ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻĄā§‡āĻŸāĻž āĻ…ā§āĻ¯āĻžāĻ°ā§‡ āĻšāĻ˛ y(n)āĨ¤ āĻĻā§āĻ¯
āĻ°ā§āĻŸāĻŋāĻ¨ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ n+m*m āĻĻā§ˆāĻ°ā§āĻ˜ā§āĻ¯ āĻ¸āĻš āĻāĻ•āĻŸāĻŋ āĻ“āĻ¯āĻŧāĻžāĻ°ā§āĻ•āĻ¸ā§āĻĒā§‡āĻ¸ āĻ…ā§āĻ¯āĻžāĻ°ā§‡ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ āĻāĻŦāĻ‚ āĻ†āĻĒāĻ¨āĻŋ āĻ¸ā§āĻŸā§‹āĻ°ā§‡āĻœ āĻšāĻžāĻ¨
āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ āĻ¤ā§ˆāĻ°āĻŋ āĻšāĻ¯āĻŧā§‡āĻ›ā§‡ āĻ āĻŋāĻ• āĻ¯ā§‡āĻŽāĻ¨ āĻāĻŸāĻŋ [t] āĻŦāĻž [o] āĻĻāĻŋāĻ¯āĻŧā§‡ āĻĒāĻ¤āĻžāĻ•āĻžāĻ™ā§āĻ•āĻŋāĻ¤ āĻ¯ā§‡āĻ•ā§‹āĻ¨ā§‹ āĻĒāĻŋāĻĄāĻ˛ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻšāĻŦā§‡āĨ¤ āĻ•āĻŋ
āĻ†āĻĒāĻ¨āĻŋ āĻ•āĻŋāĻ›ā§ āĻŦāĻ˛āĻ¤ā§‡ āĻšāĻžāĻ¨

pp_def( "myexternalfunc",
āĻĒāĻžāĻ°ā§āĻ¸ => " p(āĻŽāĻŋ); x(n); [o] y; [t] āĻ•āĻžāĻœ (n+m*m); ",...

āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻāĻŸāĻŋ āĻ•āĻžāĻœ āĻ•āĻ°āĻŦā§‡ āĻ¨āĻž, āĻ•āĻžāĻ°āĻŖ PP āĻĒāĻžāĻŸāĻŋāĻ—āĻŖāĻŋāĻ¤ā§‡āĻ° āĻ¸āĻžāĻĨā§‡ āĻ…āĻ­āĻŋāĻŦā§āĻ¯āĻ•ā§āĻ¤āĻŋāĻ•ā§‡ āĻŦā§āĻ¯āĻžāĻ–ā§āĻ¯āĻž āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡ āĻ¨āĻž
āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° āĻŦāĻ°āĻ‚ āĻ†āĻĒāĻ¨āĻŋ āĻ˛āĻŋāĻ–ā§āĻ¨

pp_def( "myexternalfunc",
āĻĒāĻžāĻ°ā§āĻ¸ => " p(āĻŽāĻŋ); x(n); [o] y; [t] āĻ•āĻžāĻœ(wn); ",
RedoDimsCode => "
int im = $PDL(p)->dims[0];
int in = $PDL(x)->dims[0];
int min = in + im * im;
int inw = $PDL(work)->dims[0];
$SIZE(wn) = inw >= āĻŽāĻŋāĻ¨āĻŋāĻŸ? inw: āĻŽāĻŋāĻ¨āĻŋāĻŸ; ",
āĻ•ā§‹āĻĄ => "
externalfunc($P(p),$P(x),$āĻ†āĻ•āĻžāĻ°(m),$SIZE(n),$P(āĻ•āĻžāĻœ));
";)

āĻāĻ‡ āĻ•ā§‹āĻĄāĻŸāĻŋ āĻ¨āĻŋāĻŽā§āĻ¨āĻ°ā§‚āĻĒ āĻ•āĻžāĻœ āĻ•āĻ°ā§‡: āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ $PDL(p) āĻāĻ° āĻœāĻ¨ā§āĻ¯ pdl struct-āĻāĻ° āĻāĻ•āĻŸāĻŋ āĻĒāĻ¯āĻŧā§‡āĻ¨ā§āĻŸāĻžāĻ°ā§‡ āĻĒā§āĻ°āĻ¸āĻžāĻ°āĻŋāĻ¤ āĻšāĻ¯āĻŧ
āĻĒāĻŋāĻĄāĻ˛ āĻĒāĻŋ. āĻ†āĻĒāĻ¨āĻŋ āĻāĻ‡ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻĄā§‡āĻŸāĻžāĻ° (āĻ¯ā§‡āĻŽāĻ¨ $P ) āĻāĻ•āĻŸāĻŋ āĻĒāĻ¯āĻŧā§‡āĻ¨ā§āĻŸāĻžāĻ° āĻšāĻžāĻ¨ āĻ¨āĻž, āĻ•āĻžāĻ°āĻŖ āĻ†āĻĒāĻ¨āĻŋ
āĻ¸āĻŋ āĻ¸ā§āĻ¤āĻ°ā§‡ āĻĒāĻŋāĻĄāĻ˛ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻĒāĻĻā§āĻ§āĻ¤āĻŋāĻ—ā§āĻ˛āĻŋ āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨āĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻĒā§āĻ°āĻĨāĻŽ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻĒā§‡āĻ¤ā§‡
āĻĒā§āĻ°āĻ¤āĻŋāĻŸāĻŋ piddles āĻāĻŦāĻ‚ āĻĒā§‚āĻ°ā§āĻŖāĻ¸āĻ‚āĻ–ā§āĻ¯āĻž āĻ¤āĻžāĻĻā§‡āĻ° āĻ¸āĻ‚āĻ°āĻ•ā§āĻˇāĻŖ āĻ•āĻ°ā§āĻ¨. āĻ¤āĻžāĻ°āĻĒāĻ° āĻ†āĻĒāĻ¨āĻŋ āĻ¸āĻ°ā§āĻŦāĻ¨āĻŋāĻŽā§āĻ¨ āĻĻā§ˆāĻ°ā§āĻ˜ā§āĻ¯ āĻ—āĻŖāĻ¨āĻž
āĻ•āĻžāĻœā§‡āĻ° āĻ…ā§āĻ¯āĻžāĻ°ā§‡ āĻšāĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĨ¤ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°āĻ•āĻžāĻ°ā§€ āĻĒāĻ°ā§āĻ¯āĻžāĻĒā§āĻ¤ āĻ¸āĻžā§āĻšāĻ¯āĻŧāĻ¸ā§āĻĨāĻžāĻ¨ āĻ¸āĻš āĻāĻ•āĻŸāĻŋ āĻĒāĻŋāĻĄāĻ˛ "āĻ•āĻžāĻœ" āĻĒāĻžāĻ āĻžāĻ˛ā§‡, āĻ¤āĻžāĻ°āĻĒāĻ° āĻāĻŸāĻŋ āĻ›ā§‡āĻĄāĻŧā§‡ āĻĻāĻŋāĻ¨
āĻāĻ•āĻž āĻ¯āĻĻāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°āĻ•āĻžāĻ°ā§€ āĻĒāĻžāĻ āĻžāĻ¨, āĻāĻ•āĻŸāĻŋ āĻ¨āĻžāĻ˛ pdl āĻŦāĻ˛ā§āĻ¨, āĻŦāĻž āĻ†āĻĻā§Œ āĻ•ā§‹āĻ¨ā§‹ pdl āĻ¨āĻž āĻŦāĻ˛ā§āĻ¨, āĻ¤āĻžāĻšāĻ˛ā§‡ wn āĻāĻ° āĻ†āĻ•āĻžāĻ° āĻšāĻŦā§‡
āĻļā§‚āĻ¨ā§āĻ¯ āĻāĻŦāĻ‚ āĻ†āĻĒāĻ¨āĻŋ āĻ¸āĻ°ā§āĻŦāĻ¨āĻŋāĻŽā§āĻ¨ āĻŽāĻžāĻ¨ āĻāĻŸāĻŋ āĻĒā§āĻ¨āĻ°āĻžāĻ¯āĻŧ āĻ¸ā§‡āĻŸ. āĻ•ā§‹āĻĄā§‡āĻ° āĻ†āĻ—ā§‡ āĻ•ā§‹āĻĄ āĻ¸ā§‡āĻ•āĻļāĻ¨ā§‡ āĻĨāĻžāĻ•ā§‡
āĻ•āĻžāĻ°ā§āĻ¯āĻ•āĻ°ā§€ āĻĒāĻŋāĻĒāĻŋ "āĻ•āĻžāĻœā§‡āĻ°" āĻœāĻ¨ā§āĻ¯ āĻ¸āĻ āĻŋāĻ• āĻ¸ā§āĻŸā§‹āĻ°ā§‡āĻœ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻŦā§‡ āĻ¯āĻĻāĻŋ āĻāĻŸāĻŋ āĻŦāĻŋāĻĻā§āĻ¯āĻŽāĻžāĻ¨ āĻ¨āĻž āĻĨāĻžāĻ•ā§‡āĨ¤ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ–ā§āĻ¯ āĻ¯ā§‡ āĻ†āĻĒāĻ¨āĻŋ
āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° "p" āĻāĻŦāĻ‚ "x" āĻāĻ° āĻĒā§āĻ°āĻĨāĻŽ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ¨āĻŋāĻ¯āĻŧā§‡āĻ›ā§‡ āĻ•āĻžāĻ°āĻŖ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°āĻ•āĻžāĻ°ā§€ āĻšāĻ¯āĻŧāĻ¤ā§‹ āĻāĻ° āĻ¸āĻžāĻĨā§‡ āĻĒāĻŋāĻĄāĻ˛ āĻĒāĻžāĻ āĻŋāĻ¯āĻŧā§‡āĻ›ā§‡āĻ¨
āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤ āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ āĻŽāĻžāĻ¤ā§āĻ°āĻžāĨ¤ āĻ…āĻŦāĻļā§āĻ¯āĻ‡, āĻ…āĻ¸ā§āĻĨāĻžāĻ¯āĻŧā§€ āĻĒāĻŋāĻĄāĻ˛ "āĻ•āĻžāĻœ" (āĻĻā§āĻ°āĻˇā§āĻŸāĻŦā§āĻ¯ [āĻŸāĻŋ] āĻĒāĻ¤āĻžāĻ•āĻž)
āĻ¯āĻžāĻ‡āĻšā§‹āĻ• āĻ•ā§‹āĻ¨ āĻĨā§āĻ°ā§‡āĻĄ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻĻā§‡āĻ“āĻ¯āĻŧāĻž āĻ‰āĻšāĻŋāĻ¤ āĻ¨āĻ¯āĻŧ.

āĻāĻ›āĻžāĻĄāĻŧāĻžāĻ“ āĻ†āĻĒāĻ¨āĻŋ [o] āĻĻāĻŋāĻ¯āĻŧā§‡ āĻĒāĻ¤āĻžāĻ•āĻžāĻ™ā§āĻ•āĻŋāĻ¤ āĻāĻ•āĻŸāĻŋ āĻĒāĻŋāĻĄāĻ˛ā§‡āĻ° āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ¸ā§‡āĻŸ āĻ•āĻ°āĻ¤ā§‡ "RedoDimsCode" āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨āĨ¤ āĻāĻ‡
āĻ¯āĻĻāĻŋ āĻ†āĻĒāĻ¨āĻŋ $ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°ā§‡ āĻ¨āĻžāĻŽāĻ¯ā§āĻ•ā§āĻ¤ āĻŽāĻžāĻ¤ā§āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ¸ā§‡āĻŸ āĻ•āĻ°ā§‡āĻ¨SIZE() āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻšāĻŋāĻ¸āĻžāĻŦā§‡
āĻĒā§‚āĻ°ā§āĻŦāĻŦāĻ°ā§āĻ¤ā§€ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĨ¤ āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻ¯ā§‡āĻšā§‡āĻ¤ā§ āĻĒāĻŋāĻĄāĻ˛āĻŸāĻŋ [t] āĻāĻ° āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤ā§‡ [o] āĻĻāĻŋāĻ¯āĻŧā§‡ āĻĒāĻ¤āĻžāĻ•āĻžāĻ™ā§āĻ•āĻŋāĻ¤,
āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ āĻšāĻ˛ā§‡ āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ¯ā§‹āĻ— āĻ•āĻ°āĻž āĻšāĻŦā§‡ āĻ āĻŋāĻ• āĻ¯ā§‡āĻŽāĻ¨ āĻŽāĻžāĻ¤ā§āĻ°āĻžāĻ° āĻ†āĻ•āĻžāĻ° āĻ›āĻŋāĻ˛
āĻ¸ā§āĻŦāĻžāĻ­āĻžāĻŦāĻŋāĻ• āĻ¨āĻŋāĻ¯āĻŧāĻŽ āĻ…āĻ¨ā§āĻ¯āĻžāĻ¯āĻŧā§€ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° āĻĨā§‡āĻ•ā§‡ āĻ—āĻŖāĻ¨āĻž āĻ•āĻ°āĻž āĻšāĻ¯āĻŧāĨ¤ āĻāĻ–āĻžāĻ¨ā§‡ āĻĨā§‡āĻ•ā§‡ āĻāĻ•āĻŸāĻŋ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ
PDL::āĻ—āĻŖāĻŋāĻ¤

pp_def("āĻĒāĻ˛āĻŋāĻ°ā§āĻŸ",
Pars => 'cr(n); ci(n); [āĻ“]rr(āĻŽāĻŋ); [āĻ“]ri(āĻŽāĻŋ);',
RedoDimsCode => 'int sn = $PDL(cr)->dims[0]; $āĻ†āĻ•āĻžāĻ°(m) = sn-1;',

āĻ‡āĻ¨āĻĒā§āĻŸ āĻĒāĻŋāĻĄāĻ˛ āĻšāĻ˛ a āĻāĻ° āĻœāĻŸāĻŋāĻ˛ āĻ¸āĻšāĻ—āĻ—ā§āĻ˛āĻŋāĻ° āĻŦāĻžāĻ¸ā§āĻ¤āĻŦ āĻāĻŦāĻ‚ āĻ•āĻžāĻ˛ā§āĻĒāĻ¨āĻŋāĻ• āĻ…āĻ‚āĻļ
āĻŦāĻšā§āĻĒāĻĻ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻĒāĻŋāĻĄāĻ˛āĻ—ā§āĻ˛āĻŋ āĻŽā§‚āĻ˛ā§‡āĻ° āĻŦāĻžāĻ¸ā§āĻ¤āĻŦ āĻāĻŦāĻ‚ āĻ•āĻžāĻ˛ā§āĻĒāĻ¨āĻŋāĻ• āĻ…āĻ‚āĻļāĨ¤ āĻ¸ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ¨āĻžāĻ‡"
āĻāĻ•āĻŸāĻŋ "n"āĻŽ āĻ•ā§āĻ°āĻŽ āĻŦāĻšā§āĻĒāĻĻā§€āĻ° āĻļāĻŋāĻ•āĻĄāĻŧ āĻāĻŦāĻ‚ āĻāĻ‡ āĻœāĻžāĻ¤ā§€āĻ¯āĻŧ āĻŦāĻšā§āĻĒāĻĻā§€āĻ¤ā§‡ "n+1" āĻ¸āĻšāĻ— āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡ (
"n"th āĻŽāĻžāĻ§ā§āĻ¯āĻŽā§‡ zeoreth)āĨ¤ āĻāĻ‡ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖā§‡, āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ āĻ¸āĻ āĻŋāĻ•āĻ­āĻžāĻŦā§‡ āĻ•āĻžāĻœ āĻ•āĻ°āĻŦā§‡āĨ¤ āĻ…āĻ°ā§āĻĨāĻžā§Ž, āĻĻ
āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻĒāĻŋāĻĄāĻ˛ āĻāĻ° ​​āĻĒā§āĻ°āĻĨāĻŽ āĻĄāĻžāĻ‡āĻŽā§‡āĻ¨āĻļāĻ¨ āĻāĻ° āĻĄāĻžāĻ‡āĻŽā§‡āĻ¨āĻļāĻ¨ āĻ…ā§āĻ¯āĻžāĻĄāĻœāĻžāĻ¸ā§āĻŸ āĻ•āĻ°āĻž āĻ†āĻ›ā§‡ āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻ…āĻ¨ā§āĻ¯ āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚
āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ āĻŋāĻ• āĻāĻŽāĻ¨āĻ­āĻžāĻŦā§‡ āĻŦāĻ°āĻžāĻĻā§āĻĻ āĻ•āĻ°āĻž āĻšāĻŦā§‡ āĻ¯ā§‡āĻ¨ āĻ•ā§‹āĻ¨ā§‹ "RedoDimsCode" āĻ¨āĻž āĻĨāĻžāĻ•ā§‡āĨ¤

āĻŸāĻžāĻ‡āĻĒāĻŽā§āĻ¯āĻžāĻĒ āĻšā§āĻ¯āĻžāĻ¨ā§āĻĄāĻ˛āĻŋāĻ‚ in āĻĻā§āĻ¯ "āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻĒāĻžāĻ°ā§āĻ¸" āĻ…āĻ§ā§āĻ¯āĻžāĻ¯āĻŧ
āĻ‰āĻĒāĻ°ā§‡ āĻ†āĻ˛ā§‹āĻšāĻŋāĻ¤ "āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯āĻĒāĻžāĻ°āĻ¸" āĻŦāĻŋāĻ­āĻžāĻ—āĻŸāĻŋ āĻĒā§āĻ°āĻžāĻ¯āĻŧāĻļāĻ‡ āĻāĻ•ā§‡āĻŦāĻžāĻ°ā§‡ āĻ—ā§āĻ°ā§āĻ¤ā§āĻŦāĻĒā§‚āĻ°ā§āĻŖ āĻ¯āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ
PDL āĻāĻ° āĻ¸āĻžāĻĨā§‡ āĻŦāĻžāĻšā§āĻ¯āĻŋāĻ• āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋ āĻ‡āĻ¨ā§āĻŸāĻžāĻ°āĻĢā§‡āĻ¸āĨ¤ āĻ¤āĻŦā§‡ āĻ…āĻ¨ā§‡āĻ• āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻŦāĻšāĻŋāĻ°āĻžāĻ—āĻ¤ āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋ āĻšāĻ¯āĻŧ
āĻĒā§āĻ°āĻžāĻĒā§āĻ¤ āĻ§āĻ°āĻ¨ā§‡āĻ° āĻŦāĻž āĻŦāĻŋāĻ­āĻŋāĻ¨ā§āĻ¨ āĻ§āĻ°āĻ¨ā§‡āĻ° āĻĒāĻ¯āĻŧā§‡āĻ¨ā§āĻŸāĻžāĻ° āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨āĨ¤

āĻĒāĻžāĻ°ā§āĻ˛ā§‡ āĻāĻŸāĻŋ āĻĒāĻ°āĻŋāĻšāĻžāĻ˛āĻ¨āĻž āĻ•āĻ°āĻžāĻ° āĻ†āĻĻāĻ°ā§āĻļ āĻ‰āĻĒāĻžāĻ¯āĻŧ āĻšāĻ˛ āĻāĻ•āĻŸāĻŋ "āĻŸāĻžāĻ‡āĻĒāĻŽā§āĻ¯āĻžāĻĒ" āĻĢāĻžāĻ‡āĻ˛ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻžāĨ¤ āĻ āĻ¨āĻŋāĻ¯āĻŧā§‡ āĻ†āĻ˛ā§‹āĻšāĻ¨āĻž āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡
āĻ¸ā§āĻŸā§āĻ¯āĻžāĻ¨ā§āĻĄāĻžāĻ°ā§āĻĄ āĻĒāĻžāĻ°ā§āĻ˛ āĻĄāĻ•ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻļāĻ¨ā§‡ perlxs-āĻ āĻ•āĻŋāĻ›ā§ āĻŦāĻŋāĻļāĻĻ āĻŦāĻŋāĻŦāĻ°āĻŖāĨ¤ āĻĒāĻŋāĻĒāĻŋ-āĻ¤ā§‡ āĻ•āĻžāĻ°ā§āĻ¯āĻ•āĻžāĻ°āĻŋāĻ¤āĻž āĻ–ā§āĻŦ āĻŦā§‡āĻļāĻŋ
āĻ…āĻ¨ā§āĻ°ā§‚āĻĒ, āĻ¯āĻžāĻ¤ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒāĻŋāĻĒāĻŋ āĻĢāĻžāĻ‡āĻ˛āĻŸāĻŋ āĻ¯ā§‡ āĻĄāĻŋāĻ°ā§‡āĻ•ā§āĻŸāĻ°āĻŋāĻ¤ā§‡ āĻĨāĻžāĻ•ā§‡ āĻ¸ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸāĻŋ "āĻŸāĻžāĻ‡āĻĒāĻŽā§āĻ¯āĻžāĻĒ" āĻĢāĻžāĻ‡āĻ˛ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
āĻāĻŦāĻ‚ āĻ¯āĻ–āĻ¨ āĻāĻŸāĻŋ āĻ¨āĻŋāĻ°ā§āĻŽāĻŋāĻ¤ āĻšāĻ¯āĻŧ āĻ¤āĻ–āĻ¨ āĻ‰āĻĒāĻ¯ā§āĻ•ā§āĻ¤ āĻ…āĻ¨ā§āĻŦāĻžāĻĻ āĻŦā§‡āĻ° āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻāĻŸāĻŋ āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ āĻĒāĻĄāĻŧāĻž āĻšāĻ¯āĻŧ
āĻ¸āĻŋ āĻŸāĻžāĻ‡āĻĒ āĻāĻŦāĻ‚ āĻĒāĻžāĻ°ā§āĻ˛ā§‡āĻ° āĻŦāĻŋāĻ˛ā§āĻŸ-āĻ‡āĻ¨ āĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻŽāĻ§ā§āĻ¯ā§‡āĨ¤

āĻāĻŸāĻŋ āĻŦāĻ˛ā§‡āĻ›ā§‡, āĻĒā§āĻ°āĻ•āĻžāĻ°ā§‡āĻ° āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ āĻĒāĻ°āĻŋāĻšāĻžāĻ˛āĻ¨āĻž āĻĨā§‡āĻ•ā§‡ āĻ•āĻ¯āĻŧā§‡āĻ•āĻŸāĻŋ āĻ—ā§āĻ°ā§āĻ¤ā§āĻŦāĻĒā§‚āĻ°ā§āĻŖ āĻĒāĻžāĻ°ā§āĻĨāĻ•ā§āĻ¯ āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡
XS-āĻāĨ¤ āĻĒā§āĻ°āĻĨāĻŽ, āĻāĻŦāĻ‚ āĻ¸āĻŽā§āĻ­āĻŦāĻ¤ āĻ¸āĻŦāĻšā§‡āĻ¯āĻŧā§‡ āĻ—ā§āĻ°ā§āĻ¤ā§āĻŦāĻĒā§‚āĻ°ā§āĻŖ, āĻāĻ‡ āĻŽā§āĻšā§āĻ°ā§āĻ¤ā§‡ āĻ§āĻ°āĻ¨ āĻ¨āĻŋāĻ°ā§āĻĻā§‡āĻļāĻ• āĻšāĻ¯āĻŧ
"āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯āĻĒāĻžāĻ°āĻ¸" āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ āĻ…āĻ¨ā§āĻŽā§‹āĻĻāĻŋāĻ¤ āĻ¨āĻ¯āĻŧāĨ¤ āĻāĻ‡ āĻ¸ā§€āĻŽāĻžāĻŦāĻĻā§āĻ§āĻ¤āĻžāĻ° āĻ•āĻžāĻ›āĻžāĻ•āĻžāĻ›āĻŋ āĻĒā§‡āĻ¤ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻ…āĻŦāĻļā§āĻ¯āĻ‡ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡
"IV" āĻŸāĻžāĻ‡āĻĒ (āĻāĻŸāĻŋ āĻŦāĻšāĻ¨āĻ¯ā§‹āĻ—ā§āĻ¯āĻ¤āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§€āĻ¯āĻŧ āĻ¤āĻž āĻ¨āĻŋāĻ°ā§āĻĻā§‡āĻļ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻœā§āĻĄ āĻŸā§‡āĻ˛āĻ°āĻ•ā§‡ āĻ§āĻ¨ā§āĻ¯āĻŦāĻžāĻĻ)āĨ¤

āĻāĻŸāĻŋ āĻ¸āĻŽā§āĻ­āĻŦāĻ¤ āĻ•āĻ¯āĻŧā§‡āĻ•āĻŸāĻŋ āĻ•ā§‹āĻĄ-āĻ¸ā§āĻ¨āĻŋāĻĒā§‡āĻŸ āĻĻāĻŋāĻ¯āĻŧā§‡ āĻšāĻŋāĻ¤ā§āĻ°āĻŋāĻ¤ āĻ•āĻ°āĻž āĻ­āĻžāĻ˛:

āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻ¸ā§āĻŦāĻ°ā§‚āĻĒ "gsl_spline_init" āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡ āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻ–āĻŋāĻ¤ C āĻ˜ā§‹āĻˇāĻŖāĻž āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡:

int gsl_spline_init(gsl_spline * spline,
const double xa[], const double ya[], size_t size);

āĻ¸ā§āĻĒāĻˇā§āĻŸāĻ¤āĻ‡ "xa" āĻāĻŦāĻ‚ "ya" āĻ…ā§āĻ¯āĻžāĻ°ā§‡āĻ—ā§āĻ˛āĻŋ piddles āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻĒāĻžāĻ¸ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻĒā§āĻ°āĻžāĻ°ā§āĻĨā§€ āĻāĻŦāĻ‚
"āĻ†āĻ•āĻžāĻ°" āĻ¯ā§āĻ•ā§āĻ¤āĻŋ āĻšāĻ˛ āĻāĻ‡ āĻĒāĻŋāĻĄāĻ˛ā§‡āĻ° āĻĻā§ˆāĻ°ā§āĻ˜ā§āĻ¯ āĻ¯āĻžāĻ¤ā§‡ āĻāĻŸāĻŋ āĻĻā§āĻŦāĻžāĻ°āĻž āĻĒāĻ°āĻŋāĻšāĻžāĻ˛āĻ¨āĻž āĻ•āĻ°āĻž āĻ¯āĻžāĻ¯āĻŧ
āĻĒāĻŋāĻĒāĻŋāĻ¤ā§‡ "$SIZE()" āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹āĨ¤ āĻ¸āĻŽāĻ¸ā§āĻ¯āĻž āĻšāĻ˛ "gsl_spline" āĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻĒāĻ¯āĻŧā§‡āĻ¨ā§āĻŸāĻžāĻ°āĨ¤ āĻĒā§āĻ°āĻžāĻ•ā§ƒāĻ¤āĻŋāĻ•
āĻ¸āĻŽāĻžāĻ§āĻžāĻ¨ āĻšāĻ˛ āĻĢāĻ°ā§āĻŽā§‡āĻ° āĻāĻ•āĻŸāĻŋ "āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯āĻĒāĻžāĻ°āĻ¸" āĻ˜ā§‹āĻˇāĻŖāĻž āĻ˛āĻŋāĻ–āĻ¤ā§‡ āĻšāĻŦā§‡

āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻĒāĻžāĻ°ā§āĻ¸ => 'gsl_spline *spl'

āĻāĻŦāĻ‚ āĻāĻ•āĻŸāĻŋ āĻ›ā§‹āĻŸ "āĻŸāĻžāĻ‡āĻĒāĻŽā§āĻ¯āĻžāĻĒ" āĻĢāĻžāĻ‡āĻ˛ āĻ˛āĻŋāĻ–ā§āĻ¨ āĻ¯āĻž āĻāĻ‡ āĻ§āĻ°āĻ¨ā§‡āĻ° āĻĒāĻ°āĻŋāĻšāĻžāĻ˛āĻ¨āĻž āĻ•āĻ°ā§‡āĨ¤ āĻāĻŸāĻŋ āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ā§‡ āĻ•āĻžāĻœ āĻ•āĻ°ā§‡ āĻ¨āĻž
āĻ¯āĻžāĻšā§‹āĻ•! āĻ¤āĻžāĻ‡ āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻ¯āĻž āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡ āĻ¤āĻž āĻšāĻ˛ āĻ¸āĻŽāĻ¸ā§āĻ¯āĻžāĻŸāĻŋ āĻ¸āĻžāĻŽāĻžāĻ¨ā§āĻ¯ (āĻāĻŦāĻ‚ āĻ•āĻŋāĻ›ā§ āĻ‰āĻĒāĻžāĻ¯āĻŧā§‡) āĻ•āĻžāĻ›āĻžāĻ•āĻžāĻ›āĻŋ āĻ¯ā§‡āĻ¤ā§‡ āĻšāĻŦā§‡
āĻāĻŸāĻŋāĻ“ āĻ¸āĻšāĻœ!):

āĻ¸āĻŽāĻžāĻ§āĻžāĻ¨ āĻšāĻ˛ "Integer Value" āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ "OtherPars" āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ "spline" āĻ˜ā§‹āĻˇāĻŖāĻž āĻ•āĻ°āĻžāĨ¤
"IV"āĨ¤ āĻāĻŸāĻŋ PP āĻĨā§‡āĻ•ā§‡ āĻ­ā§‡āĻ°āĻŋāĻ¯āĻŧā§‡āĻŦāĻ˛ā§‡āĻ° āĻĒā§āĻ°āĻ•ā§ƒāĻ¤āĻŋ āĻ˛ā§āĻ•āĻŋāĻ¯āĻŧā§‡ āĻ°āĻžāĻ–ā§‡ āĻāĻŦāĻ‚ āĻ¤āĻžāĻ°āĻĒāĻ°ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ (āĻāĻĄāĻŧāĻžāĻ¤ā§‡ āĻ­āĻžāĻ˛
āĻ•āĻŽā§āĻĒāĻžāĻ‡āĻ˛āĻžāĻ° āĻ¸āĻ¤āĻ°ā§āĻ•āĻ¤āĻž āĻ•āĻŽāĻĒāĻ•ā§āĻˇā§‡!) āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ•ā§‹āĻĄā§‡ āĻ­ā§‡āĻ°āĻŋāĻ¯āĻŧā§‡āĻŦāĻ˛ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡āĻ¨ āĻ¤āĻ–āĻ¨ āĻāĻ•āĻŸāĻŋ āĻŸāĻžāĻ‡āĻĒ āĻ•āĻžāĻ¸ā§āĻŸ āĻ•āĻ°ā§āĻ¨āĨ¤
āĻāĻ‡āĻ­āĻžāĻŦā§‡ "āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯āĻĒāĻžāĻ°āĻ¸" āĻĢāĻ°ā§āĻŽāĻŸāĻŋ āĻ—ā§āĻ°āĻšāĻŖ āĻ•āĻ°āĻž āĻ‰āĻšāĻŋāĻ¤:

āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻĒāĻžāĻ°ā§āĻ¸ => 'IV spl'

āĻāĻŦāĻ‚ āĻ¯āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻāĻŸāĻŋ āĻ•ā§‹āĻĄā§‡ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻŦā§‡āĻ¨ āĻ¤āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻ˛āĻŋāĻ–āĻŦā§‡āĻ¨

INT2PTR(gsl_spline *, $COMP(spl))

āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻĒāĻžāĻ°ā§āĻ˛ āĻāĻĒāĻŋāĻ†āĻ‡ āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ "INT2PTR" āĻāĻĄāĻŧāĻžāĻ¨ā§‹āĻ° āĻœāĻ¨ā§āĻ¯ āĻĒāĻ¯āĻŧā§‡āĻ¨ā§āĻŸāĻžāĻ° āĻ•āĻžāĻ¸ā§āĻŸ āĻĒāĻ°āĻŋāĻšāĻžāĻ˛āĻ¨āĻž āĻ•āĻ°āĻ¤ā§‡ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡
āĻŽāĻŋāĻļā§āĻ° 32 āĻŦāĻŋāĻŸ āĻāĻŦāĻ‚ 64 āĻŦāĻŋāĻŸ āĻĒāĻžāĻ°ā§āĻ˛ āĻ¸āĻš āĻŽā§‡āĻļāĻŋāĻ¨āĻ—ā§āĻ˛āĻŋāĻ° āĻœāĻ¨ā§āĻ¯ āĻ•āĻŽā§āĻĒāĻžāĻ‡āĻ˛āĻžāĻ° āĻ¸āĻ¤āĻ°ā§āĻ•āĻ¤āĻž āĻāĻŦāĻ‚ āĻ¸āĻŽāĻ¸ā§āĻ¯āĻž
āĻ•āĻ¨āĻĢāĻŋāĻ—āĻžāĻ°ā§‡āĻļāĻ¨ āĻ†āĻ¨ā§āĻĻā§āĻ°ā§‡āĻ¸ āĻœāĻ°ā§āĻĄāĻžāĻ¨ āĻ¯ā§‡āĻ­āĻžāĻŦā§‡ āĻ•āĻ°ā§‡āĻ›ā§‡āĻ¨ (āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨ āĻ¸āĻš
āĻœā§āĻĄ āĻŸā§‡āĻ˛āĻ°ā§‡āĻ° "IV" āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡) "gsl_interp.pd"-āĻ āĻ†āĻĒāĻ¨āĻŋ āĻ¯ā§‡ āĻŦāĻŋāĻ¤āĻ°āĻŖ āĻ‰āĻ¤ā§āĻ¸āĻŸāĻŋ āĻĒāĻžāĻ¨:

pp_def('init_meat',
āĻĒāĻžāĻ°ā§āĻ¸ => 'āĻĄāĻžāĻŦāĻ˛ x(n); āĻĄāĻŦāĻ˛ y(n);',
āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻĒāĻžāĻ°ā§āĻ¸ => 'IV spl',
āĻ•ā§‹āĻĄ =>'
gsl_spline_init,( INT2PTR(gsl_spline *, $COMP(spl)), $P(x),$P(y),$SIZE(n)));'
);

āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ†āĻŽāĻŋ āĻāĻ•āĻŸāĻŋ āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻ°ā§āĻ¯āĻžāĻĒāĻžāĻ° āĻ•āĻ˛ āĻŽā§āĻ›ā§‡ āĻĢā§‡āĻ˛ā§‡āĻ›āĻŋ, āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻāĻŸāĻŋ āĻ†āĻ˛ā§‹āĻšāĻ¨āĻžāĻ•ā§‡ āĻ…āĻ¸ā§āĻĒāĻˇā§āĻŸ āĻ•āĻ°āĻŦā§‡āĨ¤

āĻĒāĻžāĻ°ā§āĻ˛ā§‡ āĻ¸ā§āĻŸā§āĻ¯āĻžāĻ¨ā§āĻĄāĻžāĻ°ā§āĻĄ āĻŸāĻžāĻ‡āĻĒāĻŽā§āĻ¯āĻžāĻĒ āĻĒāĻ°āĻŋāĻšāĻžāĻ˛āĻ¨āĻžāĻ° āĻ¤ā§āĻ˛āĻ¨āĻžāĻ¯āĻŧ āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻ›ā§‹āĻŸāĻ–āĻžāĻŸā§‹ āĻĒāĻžāĻ°ā§āĻĨāĻ•ā§āĻ¯ āĻšāĻ˛
āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°āĻ•āĻžāĻ°ā§€ āĻ…-āĻŽāĻžāĻ¨āĻ• āĻŸāĻžāĻ‡āĻĒāĻŽā§āĻ¯āĻžāĻĒ āĻ…āĻŦāĻ¸ā§āĻĨāĻžāĻ¨ āĻŦāĻž āĻŸāĻžāĻ‡āĻĒāĻŽā§āĻ¯āĻžāĻĒ āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻ¨āĻžāĻŽ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡ āĻ¨āĻž
MakeMaker-āĻ "TYPEMAPS" āĻŦāĻŋāĻ•āĻ˛ā§āĻĒ... āĻāĻ‡āĻ­āĻžāĻŦā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° "āĻŸāĻžāĻ‡āĻĒāĻŽā§āĻ¯āĻžāĻĒ" āĻ¨āĻžāĻŽā§‡ āĻāĻ•āĻŸāĻŋ āĻĢāĻžāĻ‡āĻ˛ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨ āĻāĻŦāĻ‚/āĻ…āĻĨāĻŦāĻž
āĻ‰āĻĒāĻ°ā§‡ "IV" āĻ•ā§ŒāĻļāĻ˛āĨ¤

āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻĻāĻ°āĻ•āĻžāĻ°ā§€ PP āĻ•ā§€ in āĻ‰āĻĒāĻžāĻ¤ā§āĻ¤ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ āĻ¸āĻ‚āĻœā§āĻžāĻž
āĻ†āĻĒāĻ¨āĻŋ āĻ‡āĻ¤āĻŋāĻŽāĻ§ā§āĻ¯ā§‡ "OtherPars" āĻ•ā§€ āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•ā§‡ āĻļā§āĻ¨ā§‡āĻ›ā§‡āĻ¨āĨ¤ āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ā§‡, āĻ…āĻ¨ā§āĻ¯ āĻ…āĻ¨ā§‡āĻ• āĻ•ā§€ āĻ¨ā§‡āĻ‡
āĻāĻ•āĻŸāĻŋ āĻĄā§‡āĻŸāĻž āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻ¯āĻž āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ (āĻ¯āĻžāĻ‡ āĻšā§‹āĻ• āĻ¨āĻž āĻ•ā§‡āĻ¨) āĻĒāĻŋāĻĒāĻŋ āĻĒā§āĻ°ā§‹āĻ—ā§āĻ°āĻžāĻŽāĻŋāĻ‚-āĻ āĻ•āĻžāĻ°ā§āĻ¯āĻ•āĻ° āĻšāĻŦā§‡āĨ¤ āĻ­āĻŋāĻ¤āĻ°ā§‡
āĻ†āĻ¸āĻ˛ā§‡, āĻāĻŽāĻ¨ āĻāĻ•āĻŸāĻŋ āĻ•ā§‡āĻ¸ āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•ā§‡ āĻļā§āĻ¨āĻ¤ā§‡ āĻ†āĻ•āĻ°ā§āĻˇāĻŖā§€āĻ¯āĻŧ āĻšāĻŦā§‡ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻŽāĻ¨ā§‡ āĻ•āĻ°ā§‡āĻ¨ āĻ¯ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ•āĻŋāĻ¸ā§‡āĻ° āĻšā§‡āĻ¯āĻŧā§‡ āĻŦā§‡āĻļāĻŋ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨
āĻāĻ‡ āĻŽā§āĻšā§‚āĻ°ā§āĻ¤ā§‡ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ. āĻ…āĻ¨ā§āĻ—ā§āĻ°āĻš āĻ•āĻ°ā§‡ PDL āĻŽā§‡āĻ˛āĻŋāĻ‚ āĻ¤āĻžāĻ˛āĻŋāĻ•āĻžāĻ° āĻāĻ•āĻŸāĻŋāĻ¤ā§‡ āĻ•āĻĨāĻž āĻŦāĻ˛ā§āĻ¨āĨ¤ āĻ…āĻ§āĻŋāĻ•āĻžāĻ‚āĻļ āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯
"pp_def" āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¸ā§āĻŦā§€āĻ•ā§ƒāĻ¤ āĻ•ā§€āĻ—ā§āĻ˛āĻŋ āĻ•ā§‡āĻŦāĻ˛āĻŽāĻžāĻ¤ā§āĻ° āĻ†āĻŽāĻ°āĻž āĻ¯āĻžāĻ•ā§‡ āĻ•āĻ˛ āĻ•āĻ°āĻŋ āĻ¤āĻžāĻ° āĻœāĻ¨ā§āĻ¯āĻ‡ āĻ•āĻžāĻ°ā§āĻ¯āĻ•āĻ° āĻĢāĻžāĻ˛āĻŋ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ (āĻĻā§‡āĻ–ā§āĻ¨
āĻāĻ›āĻžāĻĄāĻŧāĻžāĻ“ āĻ‰āĻĒāĻ°ā§‡)āĨ¤

āĻāĻ•āĻŸāĻŋ āĻœāĻŋāĻ¨āĻŋāĻ¸ āĻ¯āĻž āĻĻā§ƒāĻĸāĻŧāĻ­āĻžāĻŦā§‡ āĻĒāĻ°āĻŋāĻ•āĻ˛ā§āĻĒāĻ¨āĻž āĻ•āĻ°āĻž āĻšāĻšā§āĻ›ā§‡ āĻ¤āĻž āĻšāĻ˛ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨āĻļā§€āĻ˛ āĻ¸āĻ‚āĻ–ā§āĻ¯āĻžāĻ° āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ, āĻ¯āĻž āĻšāĻŦā§‡ āĻāĻ•āĻŸāĻŋ
āĻ¸āĻžāĻŽāĻžāĻ¨ā§āĻ¯ āĻšāĻ¤ā§āĻ°

āĻ‰āĻĒāĻ˛āĻŦā§āĻ§ āĻ•ā§€āĻ—ā§āĻ˛āĻŋāĻ° āĻāĻ•āĻŸāĻŋ āĻ…āĻ¸āĻŽā§āĻĒā§‚āĻ°ā§āĻŖ āĻ¤āĻžāĻ˛āĻŋāĻ•āĻž:

āĻœāĻžāĻ¯āĻŧāĻ—āĻžāĻ¯āĻŧ
āĻāĻ‡ āĻ•ā§€ āĻ¸ā§‡āĻŸ āĻ•āĻ°āĻž āĻ°ā§āĻŸāĻŋāĻ¨āĻ•ā§‡ āĻ•āĻžāĻœā§‡āĻ° āĻ‡āĻ¨āĻĒā§āĻ˛ā§‡āĻ¸ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻšāĻŋāĻšā§āĻ¨āĻŋāĻ¤ āĻ•āĻ°ā§‡ - āĻ¯ā§‡āĻŽāĻ¨ āĻ‡āĻ¨āĻĒā§āĻŸ āĻāĻŦāĻ‚ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ
piddles āĻāĻ•āĻ‡. āĻāĻ•āĻŸāĻŋ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻšāĻ˛ "$a->inplace->sqrt()" (āĻŦāĻž "sqrt(inplace($a))")āĨ¤

āĻ‡āĻ¨āĻĒā§āĻ˛ā§‡āĻ¸ => ā§§
āĻ¯āĻ–āĻ¨ āĻ°ā§āĻŸāĻŋāĻ¨ āĻāĻ•āĻŸāĻŋ unary āĻĢāĻžāĻ‚āĻļāĻ¨ āĻšāĻ¯āĻŧ, āĻ¯ā§‡āĻŽāĻ¨ "sqrt" āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨āĨ¤

āĻ‡āĻ¨āĻĒā§āĻ˛ā§‡āĻ¸ => ['a']
āĻ¯āĻĻāĻŋ āĻāĻ•āĻžāĻ§āĻŋāĻ• āĻ‡āĻ¨āĻĒā§āĻŸ āĻĒāĻŋāĻĄāĻ˛ āĻĨāĻžāĻ•ā§‡ āĻ¤āĻŦā§‡ āĻ¯ā§‡āĻŸāĻŋ āĻšāĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡ āĻ¤āĻžāĻ° āĻ¨āĻžāĻŽ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°ā§āĻ¨
āĻāĻ•āĻŸāĻŋ āĻ…ā§āĻ¯āĻžāĻ°ā§‡ āĻ°ā§‡āĻĢāĻžāĻ°ā§‡āĻ¨ā§āĻ¸ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻ‡āĻ¨āĻĒā§āĻ˛ā§‡āĻ¸ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡āĨ¤

āĻ‡āĻ¨āĻĒā§āĻ˛ā§‡āĻ¸ => ['a', 'b']
āĻ¯āĻĻāĻŋ āĻāĻ•āĻžāĻ§āĻŋāĻ• āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻĒāĻŋāĻĄāĻ˛ āĻĨāĻžāĻ•ā§‡, āĻ¤āĻžāĻšāĻ˛ā§‡ āĻ‡āĻ¨āĻĒā§āĻŸ āĻĒāĻŋāĻĄāĻ˛ā§‡āĻ° āĻ¨āĻžāĻŽ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°ā§āĻ¨ āĻāĻŦāĻ‚
āĻāĻ•āĻŸāĻŋ 2-āĻāĻ˛āĻŋāĻŽā§‡āĻ¨ā§āĻŸ āĻ…ā§āĻ¯āĻžāĻ°ā§‡ āĻ°ā§‡āĻĢāĻžāĻ°ā§‡āĻ¨ā§āĻ¸ā§‡ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻĒāĻŋāĻĄāĻ˛āĨ¤ āĻāĻŸāĻŋ āĻ¸āĻŽā§āĻ­āĻŦāĻ¤ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ āĻ¨ā§‡āĻ‡, āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻŦāĻžāĻ•āĻŋ
āĻ¸āĻŽā§āĻĒā§‚āĻ°ā§āĻŖāĻ¤āĻžāĻ° āĻœāĻ¨ā§āĻ¯

āĻ¯āĻĻāĻŋ āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ, āĻ¤āĻŦā§‡ āĻāĻ° āĻĒā§āĻ°āĻšāĻžāĻ° āĻ¨āĻŋāĻļā§āĻšāĻŋāĻ¤ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ¯āĻ¤ā§āĻ¨ āĻ¨ā§‡āĻ“āĻ¯āĻŧāĻž āĻ†āĻŦāĻļā§āĻ¯āĻ•
āĻ¯āĻ–āĻ¨ āĻ‡āĻ¨āĻĒā§āĻ˛ā§‡āĻ¸ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻšā§āĻ›ā§‡ āĻ¤āĻ–āĻ¨ āĻŦā§āĻ¯āĻžāĻĄāĻĢā§āĻ˛ā§āĻ¯āĻžāĻ—; āĻĨā§‡āĻ•ā§‡ āĻāĻ‡ āĻ‰āĻĻā§āĻ§ā§ƒāĻ¤āĻŋ āĻŦāĻŋāĻŦā§‡āĻšāĻ¨āĻž āĻ•āĻ°ā§āĻ¨ āĻŽā§ŒāĻ˛āĻŋāĻ•/āĻ–āĻžāĻ°āĻžāĻĒ/āĻ–āĻžāĻ°āĻžāĻĒ.pd:

pp_def('replacebad',HandleBad => 1,
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(); [āĻ“]āĻŦāĻŋ();',
OtherPars => 'āĻĄāĻžāĻŦāĻ˛ āĻ¨āĻŋāĻ‰āĻ­āĻžāĻ˛',
āĻ‡āĻ¨āĻĒā§āĻ˛ā§‡āĻ¸ => 1,
CopyBadStatusCode =>
'/* āĻ¸ā§āĻĨāĻžāĻ¨āĻžāĻ¨ā§āĻ¤āĻ°āĻŋāĻ¤ āĻšāĻ˛ā§‡ āĻŦā§āĻ¯āĻžāĻĄāĻĢā§āĻ˛ā§āĻ¯āĻžāĻ— āĻĒā§āĻ°āĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨ āĻāĻŦāĻ‚ āĻāĻŸāĻŋ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻŋāĻ¤ āĻšāĻ¯āĻŧā§‡āĻ›ā§‡ */
āĻ¯āĻĻāĻŋ ( a == b && $ISPDLSTATEBAD(a) )
PDL->propogate_badflag( b, 0);

/* āĻ¸āĻ°ā§āĻŦāĻĻāĻž āĻ¨āĻŋāĻļā§āĻšāĻŋāĻ¤ āĻ•āĻ°ā§āĻ¨ āĻ¯ā§‡ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ "āĻ­āĻžāĻ˛" */
$SETPDLSTATEGOOD(b);
',
...

āĻ¯ā§‡āĻšā§‡āĻ¤ā§ āĻāĻ‡ āĻ°ā§āĻŸāĻŋāĻ¨āĻŸāĻŋ āĻ¸āĻŽāĻ¸ā§āĻ¤ āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨āĻ—ā§āĻ˛āĻŋāĻ•ā§‡ āĻ¸āĻ°āĻŋāĻ¯āĻŧā§‡ āĻĻā§‡āĻ¯āĻŧ, āĻ¤āĻžāĻ‡ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻĒāĻŋāĻĄāĻ˛ā§‡āĻ° āĻ–āĻžāĻ°āĻžāĻĒ āĻĒāĻ¤āĻžāĻ•āĻž āĻ›āĻŋāĻ˛
āĻ¸āĻžāĻĢ āĻ¯āĻĻāĻŋ āĻ…āĻ­ā§āĻ¯āĻ¨ā§āĻ¤āĻ°ā§‡ āĻšāĻžāĻ˛āĻžāĻ¨ā§‹ āĻšāĻ¯āĻŧ (āĻ¤āĻžāĻ‡ "a == b"), āĻ¤āĻžāĻšāĻ˛ā§‡ āĻ†āĻŽāĻžāĻĻā§‡āĻ° "a" āĻāĻ° āĻ¸āĻŽāĻ¸ā§āĻ¤ āĻŦāĻžāĻšā§āĻšāĻžāĻĻā§‡āĻ° āĻŦāĻ˛āĻ¤ā§‡ āĻšāĻŦā§‡
āĻ¯ā§‡ āĻ–āĻžāĻ°āĻžāĻĒ āĻĒāĻ¤āĻžāĻ•āĻž āĻ¸āĻžāĻĢ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡ (āĻ¸āĻŽāĻ¯āĻŧ āĻŦāĻžāĻāĻšāĻžāĻ¤ā§‡ āĻ†āĻŽāĻ°āĻž āĻ¨āĻŋāĻļā§āĻšāĻŋāĻ¤ āĻ•āĻ°āĻŋ āĻ¯ā§‡ āĻ†āĻŽāĻ°āĻž āĻ•āĻ˛ āĻ•āĻ°āĻŋ
"PDL->propogate_badgflag" āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻ¯āĻĻāĻŋ āĻ‡āĻ¨āĻĒā§āĻŸ āĻĒāĻŋāĻĄāĻ˛ āĻāĻ° ​​āĻ–āĻžāĻ°āĻžāĻĒ āĻĒāĻ¤āĻžāĻ•āĻž āĻ¸ā§‡āĻŸ āĻĨāĻžāĻ•ā§‡)āĨ¤

āĻĻā§āĻ°āĻˇā§āĻŸāĻŦā§āĻ¯: āĻāĻ•āĻŸāĻŋ āĻ§āĻžāĻ°āĻŖāĻž āĻšāĻ˛ āĻ¯ā§‡ āĻ°ā§āĻŸāĻŋāĻ¨ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻĄāĻ•ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻļāĻ¨ āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ āĻšāĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡
āĻĒāĻ¤āĻžāĻ•āĻžāĻ™ā§āĻ•āĻŋāĻ¤ āĻ¨āĻŋāĻ°ā§āĻĻā§‡āĻļāĻŋāĻ¤ āĻ¯ā§‡ āĻāĻŸāĻŋ āĻ‡āĻ¨āĻĒā§āĻ˛ā§‡āĻ¸ āĻ•āĻžāĻ°ā§āĻ¯āĻ•āĻ° āĻ•āĻ°āĻž āĻ¯ā§‡āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡, āĻ¯ā§‡āĻŽāĻ¨ āĻ•āĻŋāĻ›ā§ āĻ…āĻ¨ā§āĻ°ā§‚āĻĒ āĻ•āĻŋāĻ­āĻžāĻŦā§‡
"HandleBad" "BadDoc" āĻ¸ā§‡āĻŸ āĻ•āĻ°ā§‡ āĻ¯āĻĻāĻŋ āĻāĻŸāĻŋ āĻ¸āĻ°āĻŦāĻ°āĻžāĻš āĻ¨āĻž āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ (āĻāĻŸāĻŋ āĻāĻ•āĻŸāĻŋ āĻ†āĻĻāĻ°ā§āĻļ āĻ¸āĻŽāĻžāĻ§āĻžāĻ¨ āĻ¨āĻ¯āĻŧ)āĨ¤

āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛::āĻĒāĻŋāĻĒāĻŋ āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻžāĻ•āĻ˛āĻžāĻĒ āĻĨā§‡āĻ•ā§‡ āĻ¸āĻŽāĻ°ā§āĻĨāĻ¨ āĻ¸āĻ‚āĻ•ā§āĻˇāĻŋāĻĒā§āĻ¤ āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœ āĻ¸āĻ‚āĻœā§āĻžāĻž
āĻāĻ–āĻ¨ āĻĒāĻ°ā§āĻ¯āĻ¨ā§āĻ¤, āĻ†āĻŽāĻ°āĻž "pp_def" āĻāĻŦāĻ‚ "pp_done" āĻĢāĻžāĻ‚āĻļāĻ¨ āĻŦāĻ°ā§āĻŖāĻ¨āĻž āĻ•āĻ°ā§‡āĻ›āĻŋāĨ¤ PDL::PP āĻ•āĻŋāĻ›ā§ āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋ āĻ•āĻ°ā§‡
āĻ¸āĻ‚āĻ•ā§āĻˇāĻŋāĻĒā§āĻ¤ PDL āĻāĻ•ā§āĻ¸āĻŸā§‡āĻ¨āĻļāĻ¨ āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœ āĻ¸āĻ‚āĻœā§āĻžāĻž āĻ˛āĻŋāĻ–āĻ¤ā§‡ āĻ¸āĻžāĻšāĻžāĻ¯ā§āĻ¯ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻĢāĻžāĻ‚āĻļāĻ¨āĨ¤

pp_addhdr

āĻĒā§āĻ°āĻžāĻ¯āĻŧāĻļāĻ‡ āĻ¯āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻ‰āĻĒāĻ°ā§‡āĻ° āĻ‰āĻĻāĻžāĻšāĻ°āĻŖā§‡āĻ° āĻŽāĻ¤ā§‹ āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ‡āĻ¨ā§āĻŸāĻžāĻ°āĻĢā§‡āĻ¸ āĻ•āĻ°ā§‡āĻ¨ āĻ¤āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻ…āĻ¨ā§āĻ¤āĻ°ā§āĻ­ā§āĻ•ā§āĻ¤ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡
āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤ āĻ¸āĻŋ āĻĢāĻžāĻ‡āĻ˛ āĻ…āĻ¨ā§āĻ¤āĻ°ā§āĻ­ā§āĻ•ā§āĻ¤. āĻ¯ā§‡āĻšā§‡āĻ¤ā§ XS āĻĢāĻžāĻ‡āĻ˛āĻŸāĻŋ PP āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡ āĻ†āĻŽāĻžāĻĻā§‡āĻ° āĻ•āĻŋāĻ›ā§ āĻ‰āĻĒāĻžāĻ¯āĻŧ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨
āĻ‰āĻ¤ā§āĻĒāĻ¨ā§āĻ¨ XS-āĻ āĻ¸āĻ āĻŋāĻ• āĻ¸ā§āĻĨāĻžāĻ¨ā§‡ āĻ¯āĻĨāĻžāĻ¯āĻĨ āĻ¨āĻŋāĻ°ā§āĻĻā§‡āĻļāĻžāĻŦāĻ˛ā§€ āĻ…āĻ¨ā§āĻ¤āĻ°ā§āĻ­ā§āĻ•ā§āĻ¤ āĻ•āĻ°ā§‡ PP āĻ¸āĻ¨ā§āĻ¨āĻŋāĻŦā§‡āĻļ āĻ•āĻ°āĻžāĻ¨
āĻĢāĻžāĻ‡āĻ˛ āĻāĻ‡ āĻ˛āĻ•ā§āĻˇā§āĻ¯ā§‡ "pp_addhdr" āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ†āĻ›ā§‡āĨ¤ āĻāĻŸāĻŋāĻ“ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻžāĻ° āĻĢāĻžāĻ‚āĻļāĻ¨
āĻ¯āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻ•āĻŋāĻ›ā§ XS āĻĢāĻžāĻ‚āĻļāĻ¨ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ…āĻ­ā§āĻ¯āĻ¨ā§āĻ¤āĻ°ā§€āĻŖ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻ•āĻŋāĻ›ā§ C āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨
(āĻ¯āĻž āĻŦā§‡āĻļāĻŋāĻ°āĻ­āĻžāĻ— āĻĢāĻžāĻ‚āĻļāĻ¨ "pp_def" āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤)āĨ¤ āĻāĻ–āĻžāĻ¨ā§‡ āĻāĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ…āĻ¨ā§āĻ¤āĻ°ā§āĻ­ā§āĻ•ā§āĻ¤ āĻ•āĻ°ā§‡ āĻ†āĻĒāĻ¨āĻŋ
āĻ¨āĻŋāĻļā§āĻšāĻŋāĻ¤ āĻ•āĻ°ā§āĻ¨ āĻ¯ā§‡ PDL::PP āĻĒā§āĻ°āĻ•ā§ƒāĻ¤ XS āĻŽāĻĄāĻŋāĻ‰āĻ˛ā§‡āĻ° āĻŦāĻŋāĻ¨ā§āĻĻā§āĻ° āĻ†āĻ—ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ•ā§‹āĻĄ āĻ¸āĻ¨ā§āĻ¨āĻŋāĻŦā§‡āĻļ āĻ•āĻ°āĻžāĻšā§āĻ›ā§‡
āĻŦāĻŋāĻ­āĻžāĻ— āĻļā§āĻ°ā§ āĻšāĻ¯āĻŧ āĻāĻŦāĻ‚ āĻ¤āĻžāĻ‡ xsubpp (cf. perlxs āĻāĻŦāĻ‚ perlxstut
āĻŽā§āĻ¯āĻžāĻ¨ āĻĒā§‡āĻœ)āĨ¤

āĻāĻ•āĻŸāĻŋ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ āĻ•āĻ˛ āĻšāĻŦā§‡

pp_addhdr('
#āĻ…āĻ¨ā§āĻ¤āĻ°ā§āĻ­ā§āĻ•ā§āĻ¤ /* āĻ†āĻŽāĻžāĻĻā§‡āĻ° XXXX āĻāĻ° āĻĄāĻŋāĻĢ āĻĻāĻ°āĻ•āĻžāĻ° */
#include "libprotos.h" /* āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡āĻ° āĻĒā§āĻ°ā§‹āĻŸā§‹āĻŸāĻžāĻ‡āĻĒ */
#āĻ‡āĻ¨āĻ•ā§āĻ˛ā§āĻĄ "mylocaldecs.h" /* Local decs */

āĻ¸ā§āĻŸā§āĻ¯āĻžāĻŸāĻŋāĻ• āĻ­ā§āĻ¯āĻžāĻ‡āĻĄ āĻĄā§_āĻĻā§āĻ¯ āĻ°āĻŋāĻ¯āĻŧā§‡āĻ˛_āĻ“āĻ¯āĻŧāĻžāĻ°ā§āĻ•(PDL_Byte * in, PDL_Byte * āĻ†āĻ‰āĻŸ, int n)
{
/* āĻĄā§‡āĻŸāĻž āĻĻāĻŋāĻ¯āĻŧā§‡ āĻ•āĻŋāĻ›ā§ āĻ—āĻŖāĻ¨āĻž āĻ•āĻ°ā§āĻ¨ */
}
');

āĻāĻŸāĻŋ āĻ¨āĻŋāĻļā§āĻšāĻŋāĻ¤ āĻ•āĻ°ā§‡ āĻ¯ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§€āĻ¯āĻŧ āĻ¸āĻŽāĻ¸ā§āĻ¤ āĻ§ā§āĻ°ā§āĻŦāĻ• āĻāĻŦāĻ‚ āĻĒā§āĻ°ā§‹āĻŸā§‹āĻŸāĻžāĻ‡āĻĒāĻ—ā§āĻ˛āĻŋ āĻ¸āĻ āĻŋāĻ•āĻ­āĻžāĻŦā§‡ āĻ…āĻ¨ā§āĻ¤āĻ°ā§āĻ­ā§āĻ•ā§āĻ¤ āĻ•āĻ°āĻž āĻšāĻŦā§‡ āĻāĻŦāĻ‚
āĻ¯ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ–āĻžāĻ¨ā§‡ "pp_def" āĻ¤ā§‡ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ…āĻ­ā§āĻ¯āĻ¨ā§āĻ¤āĻ°ā§€āĻŖ āĻĢāĻžāĻ‚āĻļāĻ¨āĻ—ā§āĻ˛āĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨, āĻ¯ā§‡āĻŽāĻ¨:

pp_def('āĻŦāĻžāĻ°āĻĢā§',
āĻĒāĻžāĻ°ā§āĻ¸ => 'a(n); [o] b(n)',
āĻœā§‡āĻ¨ā§‡āĻ°āĻŋāĻ• āĻŸāĻžāĻ‡āĻĒāĻ¸ => ['āĻŦāĻŋ'],
āĻ•ā§‹āĻĄ => 'int ns = $SIZE(n);
do_the_real_work($P(a),$P(b),ns);
',
);

pp_addpm

āĻ…āĻ¨ā§‡āĻ• āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻĒā§āĻ°āĻ•ā§ƒāĻ¤ PP āĻ•ā§‹āĻĄ (āĻ…āĻ°ā§āĻĨāĻžā§Ž "pp_def" āĻ•āĻ˛ā§‡āĻ° āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ) āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻāĻ° āĻ…āĻ‚āĻļ
āĻ†āĻĒāĻ¨āĻŋ āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ā§‡ āĻ¯ā§‡ āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœāĻŸāĻŋ āĻŦāĻžāĻ¸ā§āĻ¤āĻŦāĻžāĻ¯āĻŧāĻ¨ āĻ•āĻ°āĻ›ā§‡āĻ¨āĨ¤ āĻĒā§āĻ°āĻžāĻ¯āĻŧāĻ‡ āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤ āĻĒāĻžāĻ°ā§āĻ˛ āĻ•ā§‹āĻĄ āĻāĻŦāĻ‚ XS āĻ†āĻ›ā§‡
āĻ•ā§‹āĻĄāĻŸāĻŋ āĻ†āĻĒāĻ¨āĻŋ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ pm āĻāĻŦāĻ‚ XS āĻĢāĻžāĻ‡āĻ˛āĻ—ā§āĻ˛āĻŋāĻ¤ā§‡ āĻ˛āĻŋāĻ–āĻ¤ā§‡āĻ¨ āĻ¯āĻž āĻāĻ–āĻ¨ āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ āĻšāĻ¯āĻŧ
āĻĒāĻŋāĻĒāĻŋ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ‰āĻ¤ā§āĻĒāĻ¨ā§āĻ¨āĨ¤ āĻ¤āĻžāĻ‡ āĻ•āĻŋāĻ­āĻžāĻŦā§‡ āĻ¯āĻžāĻ°āĻž āĻ—āĻ¤āĻŋāĻļā§€āĻ˛āĻ­āĻžāĻŦā§‡ āĻ‰āĻ¤ā§āĻĒāĻ¨ā§āĻ¨ āĻĢāĻžāĻ‡āĻ˛ āĻŽāĻ§ā§āĻ¯ā§‡ āĻāĻ‡ āĻœāĻŋāĻ¨āĻŋāĻ¸ āĻĒā§‡āĻ¤ā§‡?
āĻ¸ā§ŒāĻ­āĻžāĻ—ā§āĻ¯āĻŦāĻļāĻ¤, āĻ•āĻŋāĻ›ā§ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ†āĻ›ā§‡, āĻ¯āĻžāĻ•ā§‡ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ "pp_addXXX" āĻŦāĻ˛āĻž āĻšāĻ¯āĻŧ āĻ¯āĻž āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻ¸āĻšāĻžāĻ¯āĻŧāĻ¤āĻž āĻ•āĻ°ā§‡
āĻāĻŸāĻž āĻ•āĻ°āĻžāĻ° āĻŽāĻ§ā§āĻ¯ā§‡

āĻ§āĻ°ā§āĻ¨ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ•āĻžāĻ›ā§‡ āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤ āĻĒāĻžāĻ°ā§āĻ˛ āĻ•ā§‹āĻĄ āĻ†āĻ›ā§‡ āĻ¯āĻž āĻœā§‡āĻ¨āĻžāĻ°ā§‡āĻŸ āĻšāĻ“āĻ¯āĻŧāĻž āĻ‰āĻšāĻŋāĻ¤ pm- āĻĢāĻžāĻ‡āĻ˛āĨ¤ āĻāĻ‡
"pp_addpm" āĻ•āĻŽāĻžāĻ¨ā§āĻĄ āĻĻāĻŋāĻ¯āĻŧā§‡ āĻ¸āĻšāĻœā§‡āĻ‡ āĻ…āĻ°ā§āĻœāĻ¨ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ:

pp_addpm(<<'EOD');

= head1 NAME

PDL::Lib::Mylib -- Mylib āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋāĻ° āĻāĻ•āĻŸāĻŋ PDL āĻ‡āĻ¨ā§āĻŸāĻžāĻ°āĻĢā§‡āĻ¸

=head1 āĻŦāĻ°ā§āĻŖāĻ¨āĻž

āĻāĻ‡ āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœāĻŸāĻŋ āĻ¸āĻŽā§āĻĒā§‚āĻ°ā§āĻŖ āĻ¸āĻš Mylib āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœā§‡āĻ° āĻāĻ•āĻŸāĻŋ āĻ‡āĻ¨ā§āĻŸāĻžāĻ°āĻĢā§‡āĻ¸ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻ— āĻ•āĻ°ā§‡
āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ āĻāĻŦāĻ‚ āĻ‡āĻ¨ā§āĻĄā§‡āĻ•ā§āĻ¸āĻŋāĻ‚ āĻ¸āĻŽāĻ°ā§āĻĨāĻ¨ (āĻāĻ˛ )

= āĻ•āĻžāĻŸāĻž

PGPLOT āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨;

=head2 use_myfunc
āĻāĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻ¸āĻŽāĻ¸ā§āĻ¤ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ myfunc āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ āĻĒā§āĻ°āĻ¯ā§‹āĻœā§āĻ¯
āĻ‡āĻ¨āĻĒā§āĻŸ pdl-āĻāĻ° āĻ‰āĻĒāĻžāĻĻāĻžāĻ¨āĻ—ā§āĻ˛āĻŋ āĻŽāĻžāĻ¤ā§āĻ°āĻž āĻ¨āĻŋāĻ°ā§āĻŦāĻŋāĻļā§‡āĻˇā§‡
āĻāĻŦāĻ‚ āĻĢāĻ˛āĻžāĻĢāĻ˛ā§‡āĻ° āĻ¯ā§‹āĻ—āĻĢāĻ˛ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°ā§‡
= āĻ•āĻžāĻŸāĻž

āĻ¸āĻžāĻŦ use_myfunc {
āĻ†āĻŽāĻžāĻ° $pdl = āĻļāĻŋāĻĢāĻŸ;

myfunc($pdl->āĻ•ā§āĻ˛āĻžāĻŽā§āĻĒ(-1),($res=null));

$res->āĻ¸āĻŽāĻˇā§āĻŸāĻŋ āĻĢā§‡āĻ°āĻ¤ āĻĻāĻŋāĻ¨;
}

āĻ‡āĻ“āĻĄāĻŋ

pp_add_exported

āĻ†āĻĒāĻ¨āĻŋ āĻ¸āĻŽā§āĻ­āĻŦāĻ¤ āĻ§āĻžāĻ°āĻŖāĻž āĻĒā§‡āĻ¯āĻŧā§‡āĻ›ā§‡āĻ¨. āĻ•āĻŋāĻ›ā§ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤ āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨
āĻĢāĻžāĻ‚āĻļāĻ¨ PP āĻāĻ° āĻ¸āĻžāĻĨā§‡ āĻāĻžāĻŽā§‡āĻ˛āĻž āĻāĻĄāĻŧāĻžāĻ¤ā§‡ āĻ¯āĻž @EXPORT āĻāĻ° āĻ¸āĻžāĻĨā§‡āĻ“ āĻ—ā§‹āĻ˛āĻŽāĻžāĻ˛ āĻ•āĻ°ā§‡
āĻ…ā§āĻ¯āĻžāĻ°ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻļā§āĻ§ā§ PP āĻ•ā§‡ āĻŦāĻ˛āĻŦā§‡āĻ¨ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĢāĻžāĻ‚āĻļāĻ¨ āĻāĻ•ā§āĻ¸āĻĒā§‹āĻ°ā§āĻŸ āĻ•āĻ°āĻž āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡āĻ° āĻ¤āĻžāĻ˛āĻŋāĻ•āĻžāĻ¯āĻŧ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻ¤ā§‡:

pp_add_exported('use_myfunc gethynx');

pp_add_isa

"pp_add_isa" āĻ•āĻŽāĻžāĻ¨ā§āĻĄāĻŸāĻŋ "pp_add_exported" āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡āĻ° āĻŽāĻ¤ā§‹ āĻ•āĻžāĻœ āĻ•āĻ°ā§‡āĨ¤ āĻ¯ā§āĻ•ā§āĻ¤āĻŋ
@ISA āĻ¤āĻžāĻ˛āĻŋāĻ•āĻžāĻ¯āĻŧ "pp_add_isa" āĻ¯ā§‹āĻ— āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡, āĻ¯ā§‡āĻŽāĻ¨

pp_add_isa('āĻ•āĻŋāĻ›ā§::āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯::āĻļā§āĻ°ā§‡āĻŖā§€');

pp_bless

āĻ¯āĻĻāĻŋ āĻ†āĻĒāĻ¨āĻžāĻ° pp_def āĻ°ā§āĻŸāĻŋāĻ¨āĻ—ā§āĻ˛āĻŋ āĻ…āĻŦāĻœā§‡āĻ•ā§āĻŸ āĻĒāĻĻā§āĻ§āĻ¤āĻŋ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ āĻ¤āĻŦā§‡ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻ¤ā§‡ "pp_bless" āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨
āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœ (āĻ…āĻ°ā§āĻĨāĻžā§Ž āĻ•ā§āĻ˛āĻžāĻ¸) āĻ¯āĻž āĻ†āĻĒāĻ¨āĻžāĻ° pp_defed āĻĒāĻĻā§āĻ§āĻ¤āĻŋ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻž āĻšāĻŦā§‡āĨ¤ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻ¸ā§āĻŦāĻ°ā§‚āĻĒ,
"pp_bless('PDL::MyClass')"āĨ¤ āĻāĻŸāĻŋ āĻŦāĻžāĻĻ āĻĻāĻŋāĻ˛ā§‡ āĻĄāĻŋāĻĢāĻ˛ā§āĻŸ "PDL" āĻšāĻ¯āĻŧāĨ¤

pp_addxs

āĻ•āĻ–āĻ¨āĻ“ āĻ•āĻ–āĻ¨āĻ“ āĻ†āĻĒāĻ¨āĻŋ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¨āĻŋāĻœā§‡āĻ° āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤ XS āĻ•ā§‹āĻĄ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨ (āĻ¯āĻž āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ āĻāĻ° āĻ¸āĻžāĻĨā§‡ āĻœāĻĄāĻŧāĻŋāĻ¤ āĻ¨āĻ¯āĻŧ
āĻ•ā§‹āĻ¨ā§‹ āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚/āĻ‡āĻ¨āĻĄā§‡āĻ•ā§āĻ¸āĻŋāĻ‚ āĻ¸āĻŽāĻ¸ā§āĻ¯āĻž āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻ†āĻĒāĻ¨āĻŋ āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨ āĻāĻŽāĻ¨ āĻ•āĻŋāĻ›ā§ āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻ•āĻžāĻ°ā§āĻ¯āĻ•āĻžāĻ°āĻŋāĻ¤āĻž āĻ¸āĻ°āĻŦāĻ°āĻžāĻš āĻ•āĻ°ā§‡
āĻĒāĻžāĻ°ā§āĻ˛ āĻĒāĻžāĻļ āĻĨā§‡āĻ•ā§‡) āĻœā§‡āĻ¨āĻžāĻ°ā§‡āĻŸ āĻ•āĻ°āĻž XS āĻĢāĻžāĻ‡āĻ˛ā§‡, āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻ¸ā§āĻŦāĻ°ā§‚āĻĒ

pp_addxs('','

# āĻŽā§‡āĻļāĻŋāĻ¨ā§‡āĻ° āĻ…āĻ¨ā§āĻ¤āĻŋāĻŽāĻ¤āĻž āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻ•āĻ°ā§āĻ¨

āĻ•ā§‹āĻ¨ int
āĻ‡āĻ¸āĻŦāĻŋāĻœā§‡āĻ¨ā§āĻĄāĻŋāĻ¯āĻŧāĻžāĻ¨()
āĻ•ā§‹āĻĄ:
āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°āĻŦāĻŋāĻšā§€āĻ¨ āĻ¸āĻ‚āĻ•ā§āĻˇāĻŋāĻĒā§āĻ¤ i;
PDL_Byte *b;

i = 42; b = (PDL_Byte*) (void*) &i;

āĻ¯āĻĻāĻŋ (*b == 42)
RETVAL = 0;
āĻ…āĻ¨ā§āĻ¯āĻĨāĻžāĻ¯āĻŧ āĻ¯āĻĻāĻŋ (*(b+1) == 42)
RETVAL = 1;
āĻ†āĻ°
croak("āĻ…āĻ¸āĻŽā§āĻ­āĻŦ - āĻŽā§‡āĻļāĻŋāĻ¨āĻŸāĻŋ āĻŦāĻĄāĻŧ āĻŦāĻž āĻ›ā§‹āĻŸ āĻāĻ¨ā§āĻĄāĻŋāĻ¯āĻŧāĻžāĻ¨ āĻ¨āĻ¯āĻŧ!!\n");
āĻ†āĻ‰āĻŸāĻĒā§āĻŸ:
RETVAL
');

āĻŦāĻŋāĻļā§‡āĻˇ āĻ•āĻ°ā§‡ "pp_add_exported" āĻāĻŦāĻ‚ "pp_addxs" āĻ¯āĻ¤ā§āĻ¨ āĻ¸āĻšāĻ•āĻžāĻ°ā§‡ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻ‰āĻšāĻŋāĻ¤āĨ¤ āĻĒāĻŋāĻĒāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡
PDL:: āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋāĻ•āĻžāĻ°āĻ•, āĻ¤āĻžāĻ‡ āĻĒāĻŋāĻĒāĻŋāĻ•ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻĻā§‡āĻ“āĻ¯āĻŧāĻžāĻ° āĻ…āĻ°ā§āĻĨ āĻšāĻ˛ āĻ¯ā§‡ āĻ¤āĻžāĻ°āĻž āĻāĻ¤ā§‡ āĻ¯ā§āĻ•ā§āĻ¤ āĻšāĻŦā§‡
āĻĄāĻŋāĻĢāĻ˛ā§āĻŸāĻ­āĻžāĻŦā§‡ āĻāĻ•ā§āĻ¸āĻĒā§‹āĻ°ā§āĻŸ āĻ•āĻ°āĻž āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡āĻ° āĻ¸ā§āĻŸā§āĻ¯āĻžāĻ¨ā§āĻĄāĻžāĻ°ā§āĻĄ āĻ¤āĻžāĻ˛āĻŋāĻ•āĻž (āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋ āĻŸā§āĻ¯āĻžāĻ— āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ¤āĻžāĻ˛āĻŋāĻ•āĻž
``:āĻĢāĻžāĻ™ā§āĻ•'')āĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ "pp_addxs" āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡āĻ¨ āĻ¤āĻŦā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ āĻœāĻĄāĻŧāĻŋāĻ¤ āĻāĻŽāĻ¨ āĻ•āĻŋāĻ›ā§ āĻ•āĻ°āĻžāĻ° āĻšā§‡āĻˇā§āĻŸāĻž āĻ•āĻ°āĻž āĻ‰āĻšāĻŋāĻ¤ āĻ¨āĻ¯āĻŧ
āĻ…āĻĨāĻŦāĻž āĻ¸āĻ°āĻžāĻ¸āĻ°āĻŋ āĻ‡āĻ¨ā§āĻĄā§‡āĻ•ā§āĻ¸āĻŋāĻ‚āĨ¤ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĨā§‡āĻ•ā§‡ āĻ‰āĻĒāĻ¯ā§āĻ•ā§āĻ¤ āĻ•ā§‹āĻĄ āĻœā§‡āĻ¨āĻžāĻ°ā§‡āĻŸ āĻ•āĻ°āĻžāĻ° āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻĒāĻŋāĻĒāĻŋ āĻ…āĻ¨ā§‡āĻ• āĻ­āĻžāĻ˛ā§‹
āĻ¸āĻ‚āĻœā§āĻžāĻž

pp_add_boot

āĻ…āĻŦāĻļā§‡āĻˇā§‡, āĻ†āĻĒāĻ¨āĻŋ XS āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻŦā§āĻŸ āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ āĻ•āĻŋāĻ›ā§ āĻ•ā§‹āĻĄ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ‡āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨ (āĻ¯āĻĻāĻŋ āĻ†āĻĒāĻ¨āĻŋ āĻ¨āĻž āĻ•āĻ°ā§‡āĻ¨
āĻšā§‡āĻ• āĻ•āĻŋ āĻœāĻžāĻ¨āĻŋ perlxs) āĻāĻŸāĻŋ "pp_add_boot" āĻ•āĻŽāĻžāĻ¨ā§āĻĄ āĻĻāĻŋāĻ¯āĻŧā§‡ āĻ¸āĻšāĻœā§‡āĻ‡ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ:

pp_add_boot(<
descrip = mylib_initialize(KEEP_OPEN);

āĻ¯āĻĻāĻŋ (āĻŦāĻ°ā§āĻŖāĻ¨āĻž == NULL)
croak("āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋ āĻ†āĻ°āĻŽā§āĻ­ āĻ•āĻ°āĻž āĻ¯āĻžāĻŦā§‡ āĻ¨āĻž");

GlobalStruc->descrip = descrip;
GlobalStruc->maxfiles = 200;
āĻ‡āĻ“āĻŦāĻŋ

pp_export_nothing

āĻĄāĻŋāĻĢāĻ˛ā§āĻŸāĻ°ā§‚āĻĒā§‡, PP.pm āĻ†āĻ‰āĻŸāĻĒā§āĻŸ .pm-āĻ pp_def āĻĢāĻžāĻ‚āĻļāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ¸āĻŽāĻ¸ā§āĻ¤ āĻ¸āĻžāĻŦāĻ¸ āĻ°āĻžāĻ–ā§‡
āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋ āĻ¤āĻžāĻ˛āĻŋāĻ•āĻžāĨ¤ āĻ¯āĻĻāĻŋ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸāĻŋ āĻ¸āĻžāĻŦāĻ•ā§āĻ˛āĻžāĻ¸āĻĄ āĻ…āĻŦāĻœā§‡āĻ•ā§āĻŸ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§‡āĻ¨ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻāĻŸāĻŋ āĻ¸āĻŽāĻ¸ā§āĻ¯āĻž āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡
āĻ†āĻĒāĻ¨āĻŋ āĻ•ā§‹āĻ¨ āĻĒāĻĻā§āĻ§āĻ¤āĻŋ āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨ āĻ¨āĻž. (āĻ…āĻ°ā§āĻĨāĻžā§Ž āĻĒāĻĻā§āĻ§āĻ¤āĻŋ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻŦāĻ˛āĻž āĻšāĻŦā§‡
$object->āĻĒāĻĻā§āĻ§āĻ¤āĻŋ āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸)āĨ¤

āĻāĻ‡ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ•āĻ˛ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨ pp_export_nothing() āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋ āĻ¤āĻžāĻ˛āĻŋāĻ•āĻž āĻĒāĻ°āĻŋāĻˇā§āĻ•āĻžāĻ° āĻ•āĻ°āĻ¤ā§‡āĨ¤ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ (āĻ
.pd āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻļā§‡āĻˇā§‡):

pp_export_nothing();
pp_done();

pp_core_importList

āĻĄāĻŋāĻĢāĻ˛ā§āĻŸāĻ°ā§‚āĻĒā§‡, PP.pm 'āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•ā§‹āĻ°' āĻ°āĻžāĻ–ā§‡; āĻ†āĻ‰āĻŸāĻĒā§āĻŸ .pm āĻĢāĻžāĻ‡āĻ˛ā§‡ āĻ˛āĻžāĻ‡āĻ¨ āĻ•āĻ°ā§āĻ¨āĨ¤ āĻāĻŸāĻŋ āĻ•ā§‹āĻ° āĻ†āĻŽāĻĻāĻžāĻ¨āĻŋ āĻ•āĻ°ā§‡
āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ āĻ¨āĻžāĻŽāĻ¸ā§āĻĨāĻžāĻ¨ā§‡ āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋ āĻ•āĻ°āĻž āĻ¨āĻžāĻŽ, āĻ¯āĻž āĻ¸āĻŽāĻ¸ā§āĻ¯āĻž āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡ āĻ¯āĻĻāĻŋ āĻ†āĻĒāĻ¨āĻŋ āĻŦā§‡āĻļāĻŋ āĻšāĻ¨-
āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ āĻĢāĻžāĻ‡āĻ˛ā§‡ āĻ•ā§‹āĻ°ā§‡āĻ° āĻāĻ•āĻŸāĻŋ āĻĒāĻĻā§āĻ§āĻ¤āĻŋāĻ¤ā§‡ āĻ°āĻžāĻ‡āĻĄ āĻ•āĻ°āĻžāĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻŽāĻ¤ āĻŦāĻžāĻ°ā§āĻ¤āĻž āĻĒā§‡āĻ¯āĻŧā§‡ āĻļā§‡āĻˇ
"āĻ¸āĻ¤āĻ°ā§āĻ•āĻ¤āĻž: āĻ¸āĻžāĻŦ sumover āĻĢāĻžāĻ‡āĻ˛ subclass.pm-āĻ āĻĒā§āĻ¨āĻ°āĻžāĻ¯āĻŧ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡" āĻ¯āĻ–āĻ¨ āĻĒā§āĻ°ā§‹āĻ—ā§āĻ°āĻžāĻŽ āĻšāĻžāĻ˛āĻžāĻ¨ā§‹ āĻšāĻ¯āĻŧāĨ¤

āĻāĻ‡ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ pp_core_importList āĻ¯āĻž āĻĨā§‡āĻ•ā§‡ āĻ†āĻŽāĻĻāĻžāĻ¨āĻŋ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡ āĻ¤āĻž āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨ āĻ•āĻ°āĻ¤ā§‡ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻ¯ā§‡āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡
āĻ•ā§‹āĻ°.pm. āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻ¸ā§āĻŦāĻ°ā§‚āĻĒ:

pp_core_importList('()')

āĻāĻ° āĻĢāĻ˛ā§‡ āĻšāĻŦā§‡

Core();

āĻ†āĻ‰āĻŸāĻĒā§āĻŸ .pm āĻĢāĻžāĻ‡āĻ˛ā§‡ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž āĻšāĻšā§āĻ›ā§‡āĨ¤ āĻāĻ° āĻĢāĻ˛ā§‡ āĻ•ā§‹āĻ¨ā§‹ āĻ¨āĻžāĻŽ āĻ†āĻŽāĻĻāĻžāĻ¨āĻŋ āĻ•āĻ°āĻž āĻšāĻŦā§‡ āĻ¨āĻž
āĻ•ā§‹āĻ°.pm. āĻāĻ•āĻ‡āĻ­āĻžāĻŦā§‡, āĻ•āĻ˛āĻŋāĻ‚

pp_core_importList('qw/ barf/')

āĻĢāĻ˛āĻžāĻĢāĻ˛ āĻšāĻŦā§‡

Core qw/ barf/ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨;

āĻ†āĻ‰āĻŸāĻĒā§āĻŸ .pm āĻĢāĻžāĻ‡āĻ˛ā§‡ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž āĻšāĻšā§āĻ›ā§‡āĨ¤ āĻāĻ° āĻĢāĻ˛ā§‡ āĻļā§āĻ§ā§ 'āĻŦāĻžāĻ°āĻĢ' āĻ†āĻŽāĻĻāĻžāĻ¨āĻŋ āĻ•āĻ°āĻž āĻšāĻŦā§‡
Core.pm āĻĨā§‡āĻ•ā§‡āĨ¤

pp_setversion

āĻ†āĻŽāĻŋ āĻ¨āĻŋāĻļā§āĻšāĻŋāĻ¤ āĻ¯ā§‡ āĻāĻŸāĻŋ āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻāĻ•āĻ‡ āĻ¸āĻžāĻĨā§‡ .pm āĻāĻŦāĻ‚ .xs āĻĢāĻžāĻ‡āĻ˛ āĻ¸ā§‡āĻŸ āĻ•āĻ°āĻ¤ā§‡ āĻĻā§‡āĻ¯āĻŧ
āĻ¸āĻ‚āĻ¸ā§āĻ•āĻ°āĻŖ, āĻāĻ‡āĻ­āĻžāĻŦā§‡ āĻ‰āĻ­āĻ¯āĻŧā§‡āĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻ…āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§€āĻ¯āĻŧ āĻ¸āĻ‚āĻ¸ā§āĻ•āĻ°āĻŖ-āĻ¤āĻŋāĻ°āĻ¸ā§āĻ•āĻžāĻ° āĻāĻĄāĻŧāĻžāĻ¨ā§‹āĨ¤ āĻāĻŸāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯, āĻ¸āĻšāĻœāĻ­āĻžāĻŦā§‡ āĻ†āĻ›ā§‡
āĻ†āĻĒāĻ¨āĻžāĻ° .pd āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻāĻ• āĻĒāĻ°ā§āĻ¯āĻžāĻ¯āĻŧā§‡ āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻ–āĻŋāĻ¤ āĻ˛āĻžāĻ‡āĻ¨āĻŸāĻŋ:

pp_setversion('0.0.3');

āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻŽāĻĄāĻŋāĻ‰āĻ˛::āĻŦāĻŋāĻ˛ā§āĻĄ::āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡āĻ¨ āĻ¤āĻŦā§‡ āĻāĻŸāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻŦā§‡āĻ¨ āĻ¨āĻžāĨ¤ āĻœāĻ¨ā§āĻ¯ āĻ¯ā§‡ āĻŽāĻĄāĻŋāĻ‰āĻ˛ āĻāĻ° āĻĄāĻ•ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻļāĻ¨ āĻĻā§‡āĻ–ā§āĻ¨
āĻŦāĻŋāĻŦāĻ°āĻŖāĨ¤

pp_deprecate_module

āĻ¯āĻĻāĻŋ āĻāĻ•āĻŸāĻŋ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻŽāĻĄāĻŋāĻ‰āĻ˛ āĻ…āĻĒā§āĻ°āĻšāĻ˛āĻŋāĻ¤ āĻŦāĻ˛ā§‡ āĻŽāĻ¨ā§‡ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ, āĻāĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻāĻŸāĻŋ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻšāĻŋāĻšā§āĻ¨āĻŋāĻ¤ āĻ•āĻ°āĻ¤ā§‡ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻ¯ā§‡āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡
āĻ…āĻŦāĻŽā§‚āĻ˛ā§āĻ¯āĻžāĻ¯āĻŧāĻ¨ āĻāĻŸāĻŋ āĻāĻ•āĻŸāĻŋ āĻ¸āĻ¤āĻ°ā§āĻ•āĻ¤āĻž āĻ¨āĻŋāĻ°ā§āĻ—āĻ¤ āĻ•āĻ°āĻžāĻ° āĻĒā§āĻ°āĻ­āĻžāĻŦ āĻ†āĻ›ā§‡ āĻ¯āĻ–āĻ¨ āĻāĻ•āĻœāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°āĻ•āĻžāĻ°ā§€ "āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°" āĻ•āĻ°āĻžāĻ° āĻšā§‡āĻˇā§āĻŸāĻž āĻ•āĻ°ā§‡
āĻŽāĻĄāĻŋāĻ‰āĻ˛ āĻāĻ‡ āĻŽāĻĄāĻŋāĻ‰āĻ˛ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž POD āĻāĻ•āĻŸāĻŋ āĻ…āĻŦāĻšāĻ¯āĻŧ āĻŦāĻŋāĻœā§āĻžāĻĒā§āĻ¤āĻŋāĻ“ āĻŦāĻšāĻ¨ āĻ•āĻ°ā§‡āĨ¤ āĻĻā§āĻ¯
āĻĒā§āĻ°āĻ¤āĻŋāĻ¸ā§āĻĨāĻžāĻĒāĻ¨ āĻŽāĻĄāĻŋāĻ‰āĻ˛ āĻāĻ‡ āĻŽāĻ¤ āĻāĻ•āĻŸāĻŋ āĻ¯ā§āĻ•ā§āĻ¤āĻŋ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻĒāĻžāĻ¸ āĻ•āĻ°āĻž āĻ¯ā§‡āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡:

pp_deprecate_module( infavor => "PDL::NewNonDeprecatedModule");

āĻ˛āĻ•ā§āĻˇā§āĻ¯ āĻ•āĻ°ā§āĻ¨ āĻ¯ā§‡ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻĒā§āĻ°āĻ­āĻžāĻŦāĻŋāĻ¤ āĻ•āĻ°ā§‡ āĻ•ā§‡āĻŦāĻ˛ āĻ°āĻžāĻ¨āĻŸāĻžāĻ‡āĻŽ āĻ¸āĻ¤āĻ°ā§āĻ•āĻ¤āĻž āĻāĻŦāĻ‚ POD.

āĻŽā§‡āĻ•āĻŋāĻ‚ āĻ¤ā§‹āĻŽāĻžāĻ° PP āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻž "āĻŦā§āĻ¯āĻ•ā§āĻ¤āĻŋāĻ—āĻ¤"


āĻ§āĻ°āĻž āĻ¯āĻžāĻ• āĻ†āĻĒāĻ¨āĻžāĻ° āĻŽāĻĄāĻŋāĻ‰āĻ˛ā§‡ PDL::foo āĻ¨āĻžāĻŽāĻ• āĻāĻ•āĻŸāĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ†āĻ›ā§‡ āĻ¯āĻž āĻĒāĻŋāĻĒāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡
āĻ­āĻžāĻ°ā§€ āĻ‰āĻ¤ā§āĻ¤ā§‹āĻ˛āĻ¨ āĻ•āĻ°āĻ¤ā§‡ "bar_pp" āĻĢāĻžāĻ‚āĻļāĻ¨āĨ¤ āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻ†āĻĒāĻ¨āĻŋ "bar_pp" āĻāĻ° āĻŦāĻŋāĻœā§āĻžāĻžāĻĒāĻ¨ āĻĻāĻŋāĻ¤ā§‡ āĻšāĻžāĻ¨ āĻ¨āĻž
āĻŦāĻŋāĻĻā§āĻ¯āĻŽāĻžāĻ¨ āĻāĻŸāĻŋ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯, āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻ…āĻŦāĻļā§āĻ¯āĻ‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒāĻŋāĻĒāĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻ†āĻĒāĻ¨āĻžāĻ° āĻŽāĻĄāĻŋāĻ‰āĻ˛ āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻļā§€āĻ°ā§āĻˇā§‡ āĻ¨āĻŋāĻ¯āĻŧā§‡ āĻ¯ā§‡āĻ¤ā§‡ āĻšāĻŦā§‡
āĻ•āĻ˛

pp_export_nothing()

"āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋ" āĻ¤āĻžāĻ˛āĻŋāĻ•āĻž āĻ¸āĻžāĻĢ āĻ•āĻ°āĻ¤ā§‡āĨ¤ āĻ•ā§‹āĻ¨ āĻĄāĻ•ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻļāĻ¨ (āĻāĻŽāĻ¨āĻ•āĻŋ āĻĄāĻŋāĻĢāĻ˛ā§āĻŸ āĻĒāĻŋāĻĒāĻŋ āĻĄāĻ•ā§āĻ¸) āĻ¤āĻž āĻ¨āĻŋāĻļā§āĻšāĻŋāĻ¤ āĻ•āĻ°āĻ¤ā§‡
āĻ‰ā§ŽāĻĒāĻ¨ā§āĻ¨, āĻ¸ā§‡āĻŸ

āĻĄāĻ• => undef

āĻāĻŦāĻ‚ āĻĒā§āĻ°āĻ¤ā§€āĻ• āĻŸā§‡āĻŦāĻŋāĻ˛ā§‡ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻž āĻĨā§‡āĻ•ā§‡ āĻĒā§āĻ°āĻ¤āĻŋāĻ°ā§‹āĻ§ āĻ•āĻ°āĻ¤ā§‡, āĻ¸ā§‡āĻŸ āĻ•āĻ°ā§āĻ¨

PMFunc => ''

āĻ†āĻĒāĻ¨āĻžāĻ° pp_def āĻ˜ā§‹āĻˇāĻŖāĻžāĻ¯āĻŧ (āĻāĻ•āĻŸāĻŋ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖā§‡āĻ° āĻœāĻ¨ā§āĻ¯ Image2D.pd āĻĻā§‡āĻ–ā§āĻ¨)āĨ¤ āĻāĻŸāĻŋ āĻ•āĻžāĻ°ā§āĻ¯āĻ•āĻ°āĻ­āĻžāĻŦā§‡ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻŦā§‡
āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒāĻŋāĻĒāĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨ "āĻŦā§āĻ¯āĻ•ā§āĻ¤āĻŋāĻ—āĻ¤āĨ¤" āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻāĻŸāĻž āĻšāĻ¯āĻŧ āĻ¸āĻ°ā§āĻŦāĻĻāĻž āĻĒāĻžāĻ°ā§āĻ˛ā§‡āĻ° āĻ•āĻžāĻ°āĻŖā§‡ PDL::bar_pp āĻāĻ° āĻŽāĻžāĻ§ā§āĻ¯āĻŽā§‡ āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸āĻ¯ā§‹āĻ—ā§āĻ¯
āĻŽāĻĄāĻŋāĻ‰āĻ˛ āĻ¨āĻ•āĻļāĻžāĨ¤ āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻāĻŸāĻŋāĻ•ā§‡ āĻŦā§āĻ¯āĻ•ā§āĻ¤āĻŋāĻ—āĻ¤ āĻ•āĻ°āĻ˛ā§‡ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°āĻ•āĻžāĻ°ā§€ āĻ¤āĻžāĻ° āĻĨā§‡āĻ•ā§‡ āĻ…āĻ¨ā§‡āĻ• āĻĻā§‚āĻ°ā§‡ āĻšāĻ˛ā§‡ āĻ¯āĻžāĻŦā§‡
āĻāĻŸāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻžāĻ° āĻ‰āĻĒāĻžāĻ¯āĻŧ, āĻ¤āĻžāĻ‡ āĻ¤āĻžāĻ° āĻ•āĻžāĻāĻ§ā§‡ āĻĒāĻ°āĻŋāĻŖāĻ¤āĻŋ!

āĻĢāĻžāĻ˛āĻŋ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨


āĻāĻ‡ āĻŽā§āĻ¯āĻžāĻ¨ā§āĻ¯āĻŧāĻžāĻ˛āĻŸāĻŋāĻ° āĻ¸ā§āĻ˛āĻžāĻ‡āĻ¸ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ āĻŦāĻŋāĻ­āĻžāĻ—āĻŸāĻŋ āĻĄā§‡āĻŸāĻžāĻĢā§āĻ˛ā§‹ āĻāĻŦāĻ‚ āĻ…āĻ˛āĻ¸ āĻŽā§‚āĻ˛ā§āĻ¯āĻžāĻ¯āĻŧāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻ¸āĻ°āĻŦāĻ°āĻžāĻš āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡:
āĻ¯āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ āĻšāĻ¯āĻŧ, Tjl āĻ•ā§‡ āĻāĻŸāĻŋ āĻ˛āĻŋāĻ–āĻ¤ā§‡ āĻŦāĻ˛ā§āĻ¨āĨ¤ āĻ†āĻŽāĻŋ āĻ‡āĻŽā§‡āĻ˛ āĻĒāĻžāĻ“āĻ¯āĻŧāĻžāĻ° āĻĒāĻ° āĻĨā§‡āĻ•ā§‡ āĻāĻ• āĻ¸āĻĒā§āĻ¤āĻžāĻšā§‡āĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻāĻ•āĻŸāĻŋ āĻĄā§‡āĻ˛āĻŋāĻ­āĻžāĻ°āĻŋ
95% āĻ¸āĻŽā§āĻ­āĻžāĻŦā§āĻ¯ āĻāĻŦāĻ‚ āĻĻā§āĻ‡ āĻ¸āĻĒā§āĻ¤āĻžāĻšā§‡āĻ° āĻĄā§‡āĻ˛āĻŋāĻ­āĻžāĻ°āĻŋ 99% āĻ¸āĻŽā§āĻ­āĻžāĻŦā§āĻ¯āĨ¤

āĻāĻŦāĻ‚ āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻ¸ā§āĻ˛āĻžāĻ‡āĻ¸ āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻžāĻ•āĻ˛āĻžāĻĒāĻ—ā§āĻ˛āĻŋāĻ° āĻœāĻ¨ā§āĻ¯ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ āĻ…āĻ­ā§āĻ¯āĻ¨ā§āĻ¤āĻ°ā§€āĻŖ āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•ā§‡ āĻ…āĻ¨ā§‡āĻ• āĻŦā§‡āĻļāĻŋ āĻ˜āĻ¨āĻŋāĻˇā§āĻ  āĻœā§āĻžāĻžāĻ¨ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨
āĻĄā§‡āĻŸāĻž āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ā§‡āĻ° āĻšā§‡āĻ¯āĻŧā§‡āĨ¤ āĻ¤āĻĻā§āĻĒāĻ°āĻŋ, āĻœāĻŸāĻŋāĻ˛āĻ¤āĻž āĻœāĻĄāĻŧāĻŋāĻ¤ āĻ¸āĻŽāĻ¸ā§āĻ¯āĻž
āĻ—āĻĄāĻŧ āĻĄā§‡āĻŸāĻž āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ā§‡āĻ° āĻ¤ā§āĻ˛āĻ¨āĻžāĻ¯āĻŧ āĻ¯āĻĨā§‡āĻˇā§āĻŸ āĻŦā§‡āĻļāĻŋāĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻŦā§‹āĻāĻžāĻ¤ā§‡ āĻšāĻžāĻ¨
āĻ¨āĻŋāĻœā§‡āĻ•ā§‡ āĻāĻ‡ āĻŦāĻžāĻ¸ā§āĻ¤āĻŦāĻ¤āĻž āĻ•āĻŸāĻžāĻ•ā§āĻˇāĻĒāĻžāĻ¤ āĻŽā§ŒāĻ˛āĻŋāĻ•/Slices/slices.pd āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ā§‡ āĻĢāĻžāĻ‡āĻ˛ āĻ•āĻ°ā§āĻ¨
āĻŦāĻŋāĻ¤āĻ°āĻŖ :-) āĻ¤āĻŦā§āĻ“, āĻ¸ā§āĻ˛āĻžāĻ‡āĻ¸ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻ‰āĻ¤ā§āĻĒāĻ¨ā§āĻ¨ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ†āĻ›ā§‡
PDL-āĻāĻ° āĻ¸ā§‚āĻšāĻ• āĻŽā§āĻ¯āĻžāĻ¨āĻŋāĻĒā§āĻ˛ā§‡āĻļāĻ¨ āĻāĻŦāĻ‚ āĻĄā§‡āĻŸāĻžāĻĢā§āĻ˛ā§‹ āĻ•ā§āĻˇāĻŽāĻ¤āĻžāĻ° āĻšā§ƒāĻĻāĻ¯āĻŧāĨ¤

āĻāĻ›āĻžāĻĄāĻŧāĻžāĻ“, āĻ­āĻžāĻ°ā§āĻšā§āĻ¯āĻŧāĻžāĻ˛ āĻĒāĻŋāĻĄāĻ˛āĻ¸ āĻāĻŦāĻ‚ āĻ­ā§āĻ¯āĻžāĻĢāĻŋāĻ¨āĻ—ā§āĻ˛āĻŋāĻ° āĻ¸āĻžāĻĨā§‡ āĻ…āĻ¨ā§‡āĻ• āĻ¨ā§‹āĻ‚āĻ°āĻž āĻ¸āĻŽāĻ¸ā§āĻ¯āĻž āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡ āĻ¯āĻž āĻ†āĻŽāĻ°āĻž āĻ•āĻ°āĻŦ
āĻ¸āĻŽā§āĻĒā§‚āĻ°ā§āĻŖāĻ­āĻžāĻŦā§‡ āĻāĻ–āĻžāĻ¨ā§‡ āĻāĻĄāĻŧāĻŋāĻ¯āĻŧā§‡ āĻ¯āĻžāĻ¨āĨ¤

āĻ¸ā§āĻ˛āĻžāĻ‡āĻ¸ āĻāĻŦāĻ‚ āĻĒāĻžāĻ¯āĻŧāĻ–āĻžāĻ¨āĻž āĻŽā§‚āĻ˛ā§āĻ¯āĻŦā§‹āĻ§
āĻ¸ā§āĻ˛āĻžāĻ‡āĻ¸ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨āĻ—ā§āĻ˛āĻŋ āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨āĻ—ā§āĻ˛āĻŋ āĻĒāĻ°āĻŋāĻšāĻžāĻ˛āĻ¨āĻž āĻ•āĻ°āĻ¤ā§‡ āĻ¸āĻ•ā§āĻˇāĻŽ āĻšāĻ“āĻ¯āĻŧāĻž āĻĻāĻ°āĻ•āĻžāĻ° (āĻ¯āĻĻāĻŋ āĻ¸āĻŽāĻ°ā§āĻĨāĻ¨ PDL āĻ āĻ•āĻŽā§āĻĒāĻžāĻ‡āĻ˛ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ)āĨ¤
āĻ¸āĻŦāĻšā§‡āĻ¯āĻŧā§‡ āĻ¸āĻšāĻœ āĻ•āĻžāĻœ āĻšāĻ˛ āĻ¤āĻžāĻ•āĻžāĻ¨ āĻŽā§ŒāĻ˛āĻŋāĻ•/Slices/slices.pd āĻāĻ‡ āĻ•āĻžāĻœ āĻ•āĻŋāĻ­āĻžāĻŦā§‡ āĻĻā§‡āĻ–āĻ¤ā§‡.

"BadCode" āĻāĻ° āĻĒāĻžāĻļāĻžāĻĒāĻžāĻļāĻŋ "BadBackCode" āĻāĻŦāĻ‚ "BadRedoDimsCode" āĻ•ā§€ āĻ†āĻ›ā§‡
"pp_def"āĨ¤ āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻ¯ā§‡āĻ•ā§‹āĻ¨ā§‹ "EquivCPOffsCode" āĻ‰āĻšāĻŋāĻ¤ āĻ¨āĻž āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨, āĻ¯ā§‡āĻšā§‡āĻ¤ā§ āĻ•ā§‹āĻ¨ā§‹ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨ āĻšāĻ¯āĻŧ
"$EQUIVCPOFFS()" āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹āĻ° āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻļā§‹āĻˇāĻŋāĻ¤ (āĻ…āĻ°ā§āĻĨāĻžā§Ž āĻāĻŸāĻŋ āĻĒāĻ°āĻŋāĻšāĻžāĻ˛āĻ¨āĻž āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ
āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ PDL::PP> āĻĻā§āĻŦāĻžāĻ°āĻžāĨ¤

A āĻ•āĻ¯āĻŧā§‡āĻ• āĻ¨ā§‹āĻŸ on āĻ˛ā§‡āĻ–āĻž a slicing āĻ°ā§āĻŸāĻŋāĻ¨...
āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻ–āĻŋāĻ¤ āĻ•āĻ¯āĻŧā§‡āĻ•āĻŸāĻŋ āĻ…āĻ¨ā§āĻšā§āĻ›ā§‡āĻĻ āĻāĻ•āĻŸāĻŋ āĻ¨āĻ¤ā§āĻ¨ āĻ¸ā§āĻ˛āĻžāĻ‡āĻ¸āĻŋāĻ‚ āĻ°ā§āĻŸāĻŋāĻ¨ ('āĻ°ā§‡āĻžā§āĻœ') āĻ˛ā§‡āĻ–āĻžāĻ° āĻŦāĻ°ā§āĻŖāĻ¨āĻž āĻĻā§‡āĻ¯āĻŧ; āĻ¯ā§‡āĻ•ā§‹āĻ¨ā§‹
āĻ¤ā§āĻ°ā§āĻŸāĻŋāĻ—ā§āĻ˛āĻŋ CED āĻāĻ°āĨ¤ (--CED 26-Aug-2002)

āĻšā§āĻ¯āĻžāĻ¨ā§āĻĄāĻ˛āĻŋāĻ‚ of "āĻ¸āĻ¤āĻ°ā§āĻ•" āĻāĻŦāĻ‚ "āĻŦāĻžāĻ°āĻĢ" in PP āĻ•ā§‹āĻĄ


āĻ¸āĻ¤āĻ°ā§āĻ•āĻ¤āĻžāĻŽā§‚āĻ˛āĻ• āĻŦāĻžāĻ°ā§āĻ¤āĻž āĻĒā§āĻ°āĻŋāĻ¨ā§āĻŸ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻŦāĻž āĻŦāĻžāĻ¤āĻŋāĻ˛/āĻŽā§ƒāĻ¤ā§āĻ¯ā§āĻ° āĻœāĻ¨ā§āĻ¯, āĻ†āĻĒāĻ¨āĻŋ āĻĒāĻŋāĻĒāĻŋ āĻĨā§‡āĻ•ā§‡ "āĻ¸āĻ¤āĻ°ā§āĻ•" āĻŦāĻž "āĻŦāĻžāĻ°āĻĢ" āĻ•āĻ˛ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
āĻ•ā§‹āĻĄ āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¸āĻšā§‡āĻ¤āĻ¨ āĻšāĻ“āĻ¯āĻŧāĻž āĻ‰āĻšāĻŋāĻ¤ āĻ¯ā§‡ āĻāĻ‡ āĻ•āĻ˛āĻ—ā§āĻ˛āĻŋ āĻ¸āĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻĒā§āĻ¨āĻ°āĻžāĻ¯āĻŧ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡
āĻĒā§āĻ°āĻŋāĻĒā§āĻ°āĻ¸ā§‡āĻ¸āĻ° āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻĨā§‡āĻ•ā§‡ "PDL->barf" āĻāĻŦāĻ‚ "PDL->āĻ¸āĻ¤āĻ°ā§āĻ•"āĨ¤ āĻāĻ‡ āĻĒā§āĻ¨āĻƒāĻ¸āĻ‚āĻœā§āĻžāĻž āĻœāĻžāĻ¯āĻŧāĻ—āĻžāĻ¯āĻŧ āĻ†āĻ›ā§‡
āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻ…āĻ¸āĻžāĻŦāĻ§āĻžāĻ¨āĻ¤āĻžāĻŦāĻļāĻ¤ āĻĒāĻžāĻ°ā§āĻ˛ā§‡āĻ° "āĻ¸āĻ¤āĻ°ā§āĻ•āĻ¤āĻž" āĻŦāĻž "āĻŦāĻžāĻ°āĻĢ" āĻ•ā§‡ āĻ¸āĻ°āĻžāĻ¸āĻ°āĻŋ āĻ•āĻ˛ āĻ•āĻ°āĻž āĻĨā§‡āĻ•ā§‡ āĻŦāĻŋāĻ°āĻ¤ āĻ°āĻžāĻ–ā§‡, āĻ¯āĻž āĻšāĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡
pthreading āĻāĻ° āĻ¸āĻŽāĻ¯āĻŧ segfaults (āĻ¯ā§‡āĻŽāĻ¨ āĻĒā§āĻ°āĻ¸ā§‡āĻ¸āĻ° āĻŽāĻžāĻ˛ā§āĻŸāĻŋ-āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚)āĨ¤

āĻĒāĻŋāĻĄāĻŋāĻāĻ˛-āĻāĻ° āĻ¨āĻŋāĻœāĻ¸ā§āĻŦ āĻ¸āĻ‚āĻ¸ā§āĻ•āĻ°āĻŖ "āĻŦāĻžāĻ°āĻĢ" āĻāĻŦāĻ‚ "āĻ¸āĻ¤āĻ°ā§āĻ•āĻ¤āĻž" āĻāĻ° āĻĒāĻ° āĻĒāĻ°ā§āĻ¯āĻ¨ā§āĻ¤ āĻ¸āĻ¤āĻ°ā§āĻ•āĻ¤āĻž āĻŦāĻž āĻŦāĻžāĻ°āĻĢ āĻŦāĻžāĻ°ā§āĻ¤āĻžāĻ—ā§āĻ˛āĻŋ āĻ¸āĻžāĻ°āĻŋāĻŦāĻĻā§āĻ§ āĻ•āĻ°āĻŦā§‡
pthreading āĻ¸āĻŽā§āĻĒāĻ¨ā§āĻ¨ āĻšāĻ¯āĻŧā§‡āĻ›ā§‡, āĻāĻŦāĻ‚ āĻ¤āĻžāĻ°āĻĒāĻ° āĻāĻ‡ āĻ°ā§āĻŸāĻŋāĻ¨āĻ—ā§āĻ˛āĻŋāĻ° āĻĒāĻžāĻ°ā§āĻ˛ āĻ¸āĻ‚āĻ¸ā§āĻ•āĻ°āĻŖāĻ—ā§āĻ˛āĻŋāĻ•ā§‡ āĻ•āĻ˛ āĻ•āĻ°ā§āĻ¨āĨ¤

pthreading āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•ā§‡ āĻ†āĻ°āĻ“ āĻ¤āĻĨā§āĻ¯ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ PDL::ParallelCPU āĻĻā§‡āĻ–ā§āĻ¨āĨ¤

āĻĻāĻ°āĻ•āĻžāĻ°ā§€ āĻ°ā§āĻŸāĻŋāĻ¨


āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ "āĻ•ā§‹āĻ°" āĻ—āĻ āĻ¨, āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡ āĻŦā§‡āĻ¸āĻŋāĻ•/āĻ•ā§‹āĻ°/pdlcore.h.PL, āĻāĻ•āĻŸāĻŋ āĻĒāĻ¯āĻŧā§‡āĻ¨ā§āĻŸāĻžāĻ° āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡
āĻ†āĻĒāĻ¨āĻžāĻ° āĻ•āĻžāĻœā§‡ āĻ˛āĻžāĻ—āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡ āĻāĻŽāĻ¨ āĻ°ā§āĻŸāĻŋāĻ¨ā§‡āĻ° āĻ¸āĻ‚āĻ–ā§āĻ¯āĻžāĨ¤ āĻāĻ‡ āĻ°ā§āĻŸāĻŋāĻ¨ āĻ¸āĻ‚āĻ–ā§āĻ¯āĻžāĻ—āĻ°āĻŋāĻˇā§āĻ  āĻ¸āĻ™ā§āĻ—ā§‡ āĻŽā§‹āĻ•āĻžāĻŦāĻŋāĻ˛āĻž
āĻĒāĻŋāĻĄāĻ˛āĻ—ā§āĻ˛āĻŋāĻ•ā§‡ āĻšā§‡āĻ°āĻĢā§‡āĻ° āĻ•āĻ°āĻž, āĻ¤āĻŦā§‡ āĻ•āĻŋāĻ›ā§ āĻ†āĻ°āĻ“ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ:

PDL->qsort_B( PDL_Byte *xx, int a, int b)
"āĻ" āĻāĻŦāĻ‚ "āĻŦāĻŋ" āĻ¸ā§‚āĻšāĻ•āĻ—ā§āĻ˛āĻŋāĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻ…ā§āĻ¯āĻžāĻ°ā§‡ "xx" āĻ¸āĻžāĻœāĻžāĻ¨āĨ¤ āĻāĻ° āĻœāĻ¨ā§āĻ¯ āĻ¸āĻ‚āĻ¸ā§āĻ•āĻ°āĻŖāĻ“ āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡
āĻĒā§‹āĻ¸ā§āĻŸāĻĢāĻŋāĻ•ā§āĻ¸ "_S", "_U", "_L", "_F", āĻāĻŦāĻ‚ "_D" āĻ¸āĻš āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ PDL āĻĄā§‡āĻŸāĻžāĻŸāĻžāĻ‡āĻĒāĨ¤ āĻ•ā§‹āĻ¨ āĻŽāĻĄāĻŋāĻ‰āĻ˛ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡
āĻāĻŸāĻŋ āĻ¨āĻŋāĻļā§āĻšāĻŋāĻ¤ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡ āĻ¯ā§‡ "PDL::Ufunc" āĻ˛ā§‹āĻĄ āĻšāĻ¯āĻŧā§‡āĻ›ā§‡āĨ¤

PDL->qsort_ind_B( PDL_Byte *xx, int *ix, int a, int b)
"PDL->qsort_B" āĻāĻ° āĻœāĻ¨ā§āĻ¯, āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻāĻŦāĻžāĻ° āĻĄā§‡āĻŸāĻžāĻ° āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤ā§‡ āĻ¸ā§‚āĻšāĻ•āĻ—ā§āĻ˛āĻŋ āĻ¸āĻžāĻœāĻžāĻ¨ā§‹ āĻšāĻšā§āĻ›ā§‡āĨ¤

āĻ°ā§āĻŸāĻŋāĻ¨ "med2d" āĻ‡āĻ¨ Lib/Image2D/image2d.pd āĻĻā§‡āĻ–āĻžāĻ¯āĻŧ āĻ•āĻŋāĻ­āĻžāĻŦā§‡ āĻāĻ‡ āĻ§āĻ°āĻ¨ā§‡āĻ° āĻ°ā§āĻŸāĻŋāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧāĨ¤

āĻŽā§‡āĻ•āĻĢāĻžāĻ‡āĻ˛āĻ¸ āĻœāĻ¨ā§āĻ¯ PP āĻ¨āĻĨāĻŋ āĻĒāĻ¤ā§āĻ°


āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒāĻŋāĻĒāĻŋ āĻĢāĻžāĻ‡āĻ˛ āĻĨā§‡āĻ•ā§‡ āĻāĻ•āĻŸāĻŋ āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻ¯āĻžāĻšā§āĻ›ā§‡āĻ¨ (āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ āĻĢāĻžāĻ‡āĻ˛ āĻāĻ•ā§āĻ¸āĻŸā§‡āĻ¨āĻļāĻ¨āĻ—ā§āĻ˛āĻŋ āĻšāĻ˛
āĻĒāĻŋāĻĒāĻŋ āĻ•ā§‹āĻĄ āĻ§āĻžāĻ°āĻŖāĻ•āĻžāĻ°ā§€ āĻĢāĻžāĻ‡āĻ˛āĻ—ā§āĻ˛āĻŋāĻ° āĻœāĻ¨ā§āĻ¯ ".pd" āĻŦāĻž ".pp") āĻāĻŸāĻŋ āĻ›ā§‡āĻĄāĻŧā§‡ āĻ¯āĻžāĻ“āĻ¯āĻŧāĻž āĻ¸āĻŦāĻšā§‡āĻ¯āĻŧā§‡ āĻ¸āĻšāĻœ āĻāĻŦāĻ‚ āĻ¨āĻŋāĻ°āĻžāĻĒāĻĻ
āĻŽā§‡āĻ•āĻĢāĻžāĻ‡āĻ˛ā§‡ āĻ¯āĻĨāĻžāĻ¯āĻĨ āĻ•āĻŽāĻžāĻ¨ā§āĻĄ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻžāĨ¤ āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻ–āĻŋāĻ¤ āĻ†āĻŽāĻ°āĻž āĻ°ā§‚āĻĒāĻ°ā§‡āĻ–āĻž āĻšāĻŦā§‡
āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœ āĻ¤ā§ˆāĻ°āĻŋ āĻāĻŦāĻ‚ āĻ‡āĻ¨āĻ¸ā§āĻŸāĻ˛ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻāĻ•āĻŸāĻŋ āĻĒāĻžāĻ°ā§āĻ˛ āĻŽā§‡āĻ•āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ āĻŦāĻŋāĻ¨ā§āĻ¯āĻžāĻ¸
āĻāĻ•āĻŸāĻŋ āĻĒāĻŋāĻĒāĻŋ āĻĢāĻžāĻ‡āĻ˛ā§‡ āĻāĻ•āĻŸāĻŋ āĻŦāĻŋāĻŦāĻ°āĻŖāĨ¤ āĻŦā§‡āĻļāĻŋāĻ° āĻ­āĻžāĻ— āĻ¨āĻŋāĻ¯āĻŧāĻŽā§‡ xs, pm āĻāĻŦāĻ‚ āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§€āĻ¯āĻŧ āĻĢāĻžāĻ‡āĻ˛ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻ¯āĻŧ
PP āĻĢāĻžāĻ‡āĻ˛ āĻĨā§‡āĻ•ā§‡ PDL::Core::Dev āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœā§‡ āĻ‡āĻ¤āĻŋāĻŽāĻ§ā§āĻ¯ā§‡āĻ‡ āĻĒā§‚āĻ°ā§āĻŦāĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŋāĻ¤āĨ¤ āĻ†āĻŽāĻ°āĻž āĻļā§āĻ§ā§ āĻ†āĻ›ā§‡
āĻŽā§‡āĻ•āĻŽā§‡āĻ•āĻžāĻ°āĻ•ā§‡ āĻāĻŸāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻŦāĻ˛ā§āĻ¨āĨ¤

āĻŦā§‡āĻļāĻŋāĻ°āĻ­āĻžāĻ— āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ†āĻĒāĻ¨āĻžāĻ° Makefile āĻāĻ° āĻŽāĻ¤ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨

# Makefile.PL PP āĻ•ā§‹āĻĄ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻāĻ•āĻŸāĻŋ āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœā§‡āĻ° āĻœāĻ¨ā§āĻ¯āĨ¤

PDL::Core::Dev āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨; # āĻĄā§‡āĻ­ā§‡āĻ˛āĻĒāĻŽā§‡āĻ¨ā§āĻŸ āĻ‡āĻ‰āĻŸāĻŋāĻ˛āĻŋāĻŸāĻŋ āĻ¤ā§āĻ˛ā§‡ āĻ¨āĻŋāĻ¨
ExtUtils::MakeMaker āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨;

$package = ["mylib.pd", Mylib,PDL::Lib::Mylib];
%āĻšā§āĻ¯āĻžāĻļ = pdlpp_stdargs($package);
$āĻšā§āĻ¯āĻžāĻļ{OBJECT} .= 'āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤_Ccode$(OBJ_EXT)';
$hash{clean}->{FILES} .= 'todelete_Ccode$(OBJ_EXT)';
$hash{'VERSION_FROM'} = 'mylib.pd';
WriteMakefile(% āĻšā§āĻ¯āĻžāĻļ);

sub MY::postamble { pdlpp_postamble($package); }

āĻāĻ–āĻžāĻ¨ā§‡, $package-āĻāĻ° āĻ¤āĻžāĻ˛āĻŋāĻ•āĻž āĻšāĻ˛: āĻĒā§āĻ°āĻĨāĻŽā§‡: PP āĻ¸ā§‹āĻ°ā§āĻ¸ āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻ¨āĻžāĻŽ, āĻ¤āĻžāĻ°āĻĒāĻ° āĻāĻ° āĻ‰āĻĒāĻ¸āĻ°ā§āĻ—
āĻ‰āĻ¤ā§āĻĒāĻžāĻĻāĻŋāĻ¤ āĻĢāĻžāĻ‡āĻ˛ āĻāĻŦāĻ‚ āĻ…āĻŦāĻļā§‡āĻˇā§‡ āĻĒā§āĻ°ā§‹ āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœā§‡āĻ° āĻ¨āĻžāĻŽāĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻžāĻ‡ āĻšā§‹āĻ• āĻ¨āĻž āĻ•ā§‡āĻ¨ āĻšā§āĻ¯āĻžāĻļ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒāĻ›āĻ¨ā§āĻĻ āĻŽāĻ¤ā§‹ āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻ•āĻŋāĻ›ā§ āĻ¸ā§€āĻŽāĻžāĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻĨāĻžāĻ•āĻž āĻ¯ā§āĻ•ā§āĻ¤āĻŋāĻ¸āĻ™ā§āĻ—āĻ¤ āĻšāĻŦā§‡ āĻ¯āĻžāĻ¤ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœ
PDL āĻāĻ° āĻĒāĻ°āĻŦāĻ°ā§āĻ¤ā§€ āĻ¸āĻ‚āĻ¸ā§āĻ•āĻ°āĻŖāĻ—ā§āĻ˛āĻŋāĻ° āĻ¸āĻžāĻĨā§‡ āĻ•āĻžāĻœ āĻ•āĻ°āĻž āĻšāĻžāĻ˛āĻŋāĻ¯āĻŧā§‡ āĻ¯āĻžāĻŦā§‡āĨ¤

āĻ†āĻĒāĻ¨āĻŋ āĻĒā§āĻ°āĻŋāĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœāĻĄ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻ¨āĻž āĻšāĻžāĻ‡āĻ˛ā§‡, āĻāĻ–āĻžāĻ¨ā§‡ āĻāĻ•āĻŸāĻŋ āĻœā§‡āĻ¨ā§‡āĻ°āĻŋāĻ• āĻ†āĻ›ā§‡ Makefile.PL āĻ¯ā§‡āĻŸāĻž āĻ¤ā§āĻŽāĻŋ āĻĒāĻžāĻ°ā§‹
āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¨āĻŋāĻœā§‡āĻ° āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻŽāĻžāĻ¨āĻŋāĻ¯āĻŧā§‡ āĻ¨āĻŋāĻ¨:

# Makefile.PL PP āĻ•ā§‹āĻĄ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻāĻ•āĻŸāĻŋ āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœā§‡āĻ° āĻœāĻ¨ā§āĻ¯āĨ¤

PDL::Core::Dev āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨; # āĻĄā§‡āĻ­ā§‡āĻ˛āĻĒāĻŽā§‡āĻ¨ā§āĻŸ āĻ‡āĻ‰āĻŸāĻŋāĻ˛āĻŋāĻŸāĻŋ āĻ¤ā§āĻ˛ā§‡ āĻ¨āĻŋāĻ¨
ExtUtils::MakeMaker āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨;

āĻ˛āĻŋāĻ–ā§āĻ¨ āĻŽā§‡āĻ•āĻĢāĻžāĻ‡āĻ˛(
'NAME' => 'PDL::Lib::Mylib',
'VERSION_FROM' => 'mylib.pd',
'TYPEMAPS' => [&PDL_TYPEMAP()],
'OBJECT' => 'mylib$(OBJ_EXT) āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤_Ccode$(OBJ_EXT)',
'PM' => { 'Mylib.pm' => '$(INST_LIBDIR)/Mylib.pm'},
'INC' => &PDL_INCLUDE(), # āĻ†āĻĒāĻ¨āĻžāĻ° lib āĻĻā§āĻŦāĻžāĻ°āĻž āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ āĻ…āĻ¨ā§āĻ¯āĻžāĻ¯āĻŧā§€ dirs āĻ¯ā§‹āĻ— āĻ•āĻ°ā§āĻ¨
'LIBS' => [''], # āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§‡ āĻ˛āĻŋāĻ™ā§āĻ• āĻ¨āĻŋāĻ°ā§āĻĻā§‡āĻļāĻŋāĻ•āĻž āĻ¯ā§‹āĻ— āĻ•āĻ°ā§āĻ¨
'āĻ•ā§āĻ˛āĻŋāĻ¨' => {'āĻĢāĻžāĻ‡āĻ˛' =>
'Mylib.pm Mylib.xs Mylib$(OBJ_EXT)
āĻ…āĻ¤āĻŋāĻ°āĻŋāĻ•ā§āĻ¤_Ccode$(OBJ_EXT)'},
);

# genpp āĻ¨āĻŋāĻ¯āĻŧāĻŽ āĻ¯ā§‹āĻ— āĻ•āĻ°ā§āĻ¨; āĻāĻŸāĻŋ āĻ†āĻŽāĻžāĻĻā§‡āĻ° āĻĒāĻŋāĻĒāĻŋ āĻĢāĻžāĻ‡āĻ˛ā§‡ PDL::PP āĻ†āĻšā§āĻŦāĻžāĻ¨ āĻ•āĻ°āĻŦā§‡
# āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻšāĻ˛ āĻāĻ•āĻŸāĻŋ āĻ…ā§āĻ¯āĻžāĻ°ā§‡āĻ° āĻ°ā§‡āĻĢāĻžāĻ°ā§‡āĻ¨ā§āĻ¸ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ…ā§āĻ¯āĻžāĻ°ā§‡āĻ° āĻ¤āĻŋāĻ¨āĻŸāĻŋ āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚ āĻ‰āĻĒāĻžāĻĻāĻžāĻ¨ āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡:
# arg1: āĻ¸ā§‹āĻ°ā§āĻ¸ āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻ¨āĻžāĻŽ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻĒāĻŋāĻĒāĻŋ āĻ•ā§‹āĻĄ āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡
# arg2: xs āĻāĻŦāĻ‚ pm āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻŦā§‡āĻ¸āĻ¨ā§‡āĻŽ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž āĻšāĻŦā§‡
# arg3: āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœā§‡āĻ° āĻ¨āĻžāĻŽ āĻ¯āĻž āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž āĻšāĻŦā§‡
sub MY::postamble { pdlpp_postamble(["mylib.pd",Mylib,PDL::Lib::Mylib]); }

āĻœā§€āĻŦāĻ¨āĻ•ā§‡ āĻ†āĻ°āĻ“ āĻ¸āĻšāĻœ āĻ•āĻ°āĻ¤ā§‡ PDL::Core::Dev āĻĢāĻžāĻ‚āĻļāĻ¨ "pdlpp_stdargs" āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°ā§‡ āĻ¯āĻž āĻ°āĻŋāĻŸāĻžāĻ°ā§āĻ¨ āĻ•āĻ°ā§‡
āĻĄāĻŋāĻĢāĻ˛ā§āĻŸ āĻŽāĻžāĻ¨ āĻ¸āĻš āĻāĻ•āĻŸāĻŋ āĻšā§āĻ¯āĻžāĻļ āĻ¯āĻž āĻĒāĻžāĻ¸ āĻ•āĻ°āĻž āĻ¯ā§‡āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡ (āĻšāĻ¯āĻŧ āĻ¸āĻ°āĻžāĻ¸āĻ°āĻŋ āĻŦāĻž āĻ‰āĻĒāĻ¯ā§āĻ•ā§āĻ¤ āĻĒāĻ°ā§‡
āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨) WriteMakefile-āĻ āĻāĻ•āĻŸāĻŋ āĻ•āĻ˛ āĻ•āĻ°āĻ¤ā§‡āĨ¤ āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ā§‡, "pdlpp_stdargs" āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻāĻ•āĻŸāĻŋ āĻšā§āĻ¯āĻžāĻļ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°ā§‡
āĻ•ā§€āĻ—ā§āĻ˛āĻŋ āĻ¨āĻŋāĻŽā§āĻ¨āĻ°ā§‚āĻĒ āĻĒā§‚āĻ°āĻŖ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ:

(
'NAME' => $mod,
'TYPEMAPS' => [&PDL_TYPEMAP()],
'OBJECT' => "$pref\$(OBJ_EXT)",
PM => {"$pref.pm" => "\$(INST_LIBDIR)/$pref.pm"},
MAN3PODS => {"$src" => "\$(INST_MAN3DIR)/$mod.\$(MAN3EXT)"},
'INC' => &PDL_INCLUDE(),
'LIBS' => [''],
'clean' => {'FILES' => "$pref.xs $pref.pm $pref\$(OBJ_EXT)"},
)

āĻāĻ–āĻžāĻ¨ā§‡, $src āĻšāĻ˛ āĻĒāĻŋāĻĒāĻŋ āĻ•ā§‹āĻĄ āĻ¸āĻš āĻ¸ā§‹āĻ°ā§āĻ¸ āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻ¨āĻžāĻŽ, $pref āĻ‰ā§ŽāĻĒāĻ¨ā§āĻ¨ā§‡āĻ° āĻ‰āĻĒāĻ¸āĻ°ā§āĻ—
.pm āĻāĻŦāĻ‚ .xs āĻĢāĻžāĻ‡āĻ˛ āĻāĻŦāĻ‚ $mod āĻ‰ā§ŽāĻĒāĻ¨ā§āĻ¨ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻāĻ•ā§āĻ¸āĻŸā§‡āĻ¨āĻļāĻ¨ āĻŽāĻĄāĻŋāĻ‰āĻ˛ā§‡āĻ° āĻ¨āĻžāĻŽāĨ¤

āĻ…āĻ­ā§āĻ¯āĻ¨ā§āĻ¤āĻ°ā§€āĻŖ


āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ āĻ¸āĻ‚āĻ¸ā§āĻ•āĻ°āĻŖā§‡āĻ° āĻ…āĻ­ā§āĻ¯āĻ¨ā§āĻ¤āĻ°ā§€āĻŖāĻ—ā§āĻ˛āĻŋ āĻāĻ•āĻŸāĻŋ āĻŦāĻĄāĻŧ āĻŸā§‡āĻŦāĻŋāĻ˛ āĻ¨āĻŋāĻ¯āĻŧā§‡ āĻ—āĻ āĻŋāĻ¤ āĻ¯āĻž āĻ¨āĻŋāĻ¯āĻŧāĻŽāĻ—ā§āĻ˛āĻŋ āĻĻā§‡āĻ¯āĻŧā§ˇ
āĻ¯āĻž āĻ…āĻ¨ā§āĻ¸āĻžāĻ°ā§‡ āĻœāĻŋāĻ¨āĻŋāĻ¸āĻ—ā§āĻ˛āĻŋ āĻ…āĻ¨ā§āĻŦāĻžāĻĻ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ āĻāĻŦāĻ‚ āĻ¸āĻžāĻŦāĻ—ā§āĻ˛āĻŋ āĻ¯āĻž āĻāĻ‡ āĻ¨āĻŋāĻ¯āĻŧāĻŽāĻ—ā§āĻ˛āĻŋ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻ— āĻ•āĻ°ā§‡ā§ˇ

āĻĒāĻ°āĻŦāĻ°ā§āĻ¤ā§€āĻ¤ā§‡, āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°āĻ•āĻžāĻ°ā§€āĻ° āĻĻā§āĻŦāĻžāĻ°āĻž āĻŸā§‡āĻŦāĻŋāĻ˛āĻŸāĻŋāĻ•ā§‡ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨āĻ¯ā§‹āĻ—ā§āĻ¯ āĻ•āĻ°ā§‡ āĻ¤ā§‹āĻ˛āĻž āĻ­āĻžāĻ˛ā§‹ āĻšāĻŦā§‡ āĻ¯āĻžāĻ¤ā§‡ āĻ­āĻŋāĻ¨ā§āĻ¨ āĻšāĻ¯āĻŧ
āĻœāĻŋāĻ¨āĻŋāĻ¸ āĻšā§‡āĻˇā§āĻŸāĻž āĻ•āĻ°āĻž āĻ¯ā§‡āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡.

[āĻŽā§‡āĻŸāĻž āĻŽāĻ¨ā§āĻ¤āĻŦā§āĻ¯: āĻāĻ–āĻžāĻ¨ā§‡ āĻ†āĻļāĻž āĻ•āĻ°āĻŋ āĻ­āĻŦāĻŋāĻˇā§āĻ¯āĻ¤ā§‡ āĻ†āĻ°ā§‹ āĻšāĻŦā§‡; āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ā§‡, āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¸ā§‡āĻ°āĻž āĻŦāĻžāĻœāĻŋ āĻšāĻŦā§‡
āĻ¸ā§‹āĻ°ā§āĻ¸ āĻ•ā§‹āĻĄ āĻĒāĻĄāĻŧāĻ¤ā§‡ :-( āĻ…āĻĨāĻŦāĻž āĻ¤āĻžāĻ˛āĻŋāĻ•āĻžāĻ¯āĻŧ āĻœāĻŋāĻœā§āĻžāĻžāĻ¸āĻž āĻ•āĻ°ā§āĻ¨ (āĻĒāĻ°ā§‡āĻ°āĻŸāĻŋ āĻĒā§āĻ°āĻĨāĻŽā§‡ āĻšā§‡āĻˇā§āĻŸāĻž āĻ•āĻ°ā§āĻ¨) ]

āĻ‰āĻĒāĻžāĻ™ā§āĻ— A: āĻ•āĻŋāĻ›ā§ āĻ•ā§€ āĻ¸ā§āĻŦā§€āĻ•ā§ƒāĻ¤ by āĻĒāĻŋāĻĄāĻŋāĻāĻ˛::āĻĒāĻŋāĻĒāĻŋ


āĻ…āĻ¨ā§āĻ¯āĻĨāĻžāĻ¯āĻŧ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻž āĻ¨āĻž āĻĨāĻžāĻ•āĻ˛ā§‡, āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸāĻ—ā§āĻ˛āĻŋ āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚āĨ¤ (āĻ–āĻžāĻ°āĻžāĻĒ) āĻĻāĻŋāĻ¯āĻŧā§‡ āĻšāĻŋāĻšā§āĻ¨āĻŋāĻ¤ āĻ•ā§€āĻ—ā§āĻ˛āĻŋ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ°
āĻŦā§āĻ¯āĻžāĻĄ-āĻ­ā§āĻ¯āĻžāĻ˛ā§ āĻ¸āĻŽāĻ°ā§āĻĨāĻ¨ PDL āĻ āĻ•āĻŽā§āĻĒāĻžāĻ‡āĻ˛ āĻ•āĻ°āĻž āĻšāĻ˛ā§‡ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧāĨ¤

āĻ…āĻ‚āĻļ
āĻ†āĻĒāĻ¨āĻžāĻ° āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡āĻ° āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°ā§āĻ¨

āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻĒāĻžāĻ°ā§āĻ¸
āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻ¯āĻž pdls āĻ¨āĻ¯āĻŧāĨ¤ āĻĄāĻŋāĻĢāĻ˛ā§āĻŸ: āĻ•āĻŋāĻ›ā§āĻ‡ āĻ¨āĻžāĨ¤ āĻāĻŸāĻŋ āĻāĻ•āĻŸāĻŋ āĻ¸ā§‡āĻŽāĻŋ-āĻ•ā§‹āĻ˛āĻ¨ āĻ†āĻ˛āĻžāĻĻāĻž āĻ•āĻ°āĻž āĻ¤āĻžāĻ˛āĻŋāĻ•āĻž
āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ, āĻ¯ā§‡āĻŽāĻ¨, "OtherPars=>'int k; āĻĻā§āĻŦāĻŋāĻ—ā§āĻŖ āĻŽāĻžāĻ¨; char* fd'"āĨ¤ $COMP(x) āĻāĻŦāĻ‚ āĻāĻ›āĻžāĻĄāĻŧāĻžāĻ“ āĻĻā§‡āĻ–ā§āĻ¨
āĻĒāĻ°āĻŋāĻļāĻŋāĻˇā§āĻŸ āĻŦāĻŋ-āĻ¤ā§‡ āĻāĻ•āĻ‡ āĻāĻ¨ā§āĻŸā§āĻ°āĻŋāĨ¤

āĻ•ā§‹āĻĄ
āĻ•āĻžāĻ°ā§āĻ¯āĻ•āĻžāĻ°āĻŋāĻ¤āĻž āĻŦāĻžāĻ¸ā§āĻ¤āĻŦāĻžāĻ¯āĻŧāĻ¨āĻ•āĻžāĻ°ā§€ āĻĒā§āĻ°āĻ•ā§ƒāĻ¤ āĻ•ā§‹āĻĄ; āĻŦā§‡āĻļ āĻ•āĻŋāĻ›ā§ āĻĒāĻŋāĻĒāĻŋ āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻāĻŦāĻ‚ āĻĒāĻŋāĻĒāĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨
āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚ āĻŽāĻžāĻ¨ āĻ¸ā§āĻŦā§€āĻ•ā§ƒāĻ¤ āĻšāĻ¯āĻŧ

āĻšā§āĻ¯āĻžāĻ¨ā§āĻĄā§‡āĻ˛āĻŦā§āĻ¯āĻžāĻĄ (āĻ–āĻžāĻ°āĻžāĻĒ)
āĻ¯āĻĻāĻŋ 1 āĻ¤ā§‡ āĻ¸ā§‡āĻŸ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ, āĻ°ā§āĻŸāĻŋāĻ¨āĻŸāĻŋ āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨ āĻāĻŦāĻ‚ āĻŦā§āĻ¯āĻžāĻĄāĻ•ā§‹āĻĄā§‡āĻ° āĻ•ā§‹āĻĄ āĻ¸āĻŽāĻ°ā§āĻĨāĻ¨ āĻ•āĻ°ā§‡ āĻŦāĻ˛ā§‡ āĻ§āĻ°ā§‡ āĻ¨ā§‡āĻ“āĻ¯āĻŧāĻž āĻšāĻ¯āĻŧ
āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨ āĻ‰āĻĒāĻ¸ā§āĻĨāĻŋāĻ¤ āĻĨāĻžāĻ•āĻ˛ā§‡ āĻ•ā§€ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ; āĻāĻŸāĻŋ āĻœāĻŋāĻ¨āĻŋāĻ¸āĻ—ā§āĻ˛āĻŋāĻ“ āĻ¸ā§‡āĻŸ āĻ†āĻĒ āĻ•āĻ°ā§‡ āĻ¯āĻžāĻ¤ā§‡ "$ISBAD()"
āĻ‡āĻ¤ā§āĻ¯āĻžāĻĻāĻŋ āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻ¯ā§‡āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĨ¤ āĻ¯āĻĻāĻŋ 0 āĻ¤ā§‡ āĻ¸ā§‡āĻŸ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ, āĻ¤āĻžāĻšāĻ˛ā§‡ āĻ°ā§āĻŸāĻŋāĻ¨āĻ•ā§‡ āĻāĻ•āĻŸāĻŋ āĻ¸āĻ¤āĻ°ā§āĻ•āĻ¤āĻž āĻĒā§āĻ°āĻŋāĻ¨ā§āĻŸ āĻ•āĻ°āĻ¤ā§‡ āĻĻāĻŋāĻ¨
āĻ‡āĻ¨āĻĒā§āĻŸ piddles āĻ¤āĻžāĻĻā§‡āĻ° āĻ–āĻžāĻ°āĻžāĻĒ āĻĒāĻ¤āĻžāĻ•āĻž āĻ¸ā§‡āĻŸ āĻ†āĻ›ā§‡.

āĻŦā§āĻ¯āĻžāĻĄāĻ•ā§‹āĻĄ (āĻ–āĻžāĻ°āĻžāĻĒ)
āĻ‡āĻ¨āĻĒā§āĻŸ āĻĒāĻŋāĻĄāĻ˛ā§‡ āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨ āĻ‰āĻĒāĻ¸ā§āĻĨāĻŋāĻ¤ āĻĨāĻžāĻ•āĻ˛ā§‡ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ•ā§‹āĻĄāĻŸāĻŋ āĻĻāĻŋāĻ¨āĨ¤ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ
āĻ¯āĻĻāĻŋ "HandleBad => 1"āĨ¤

āĻœā§‡āĻ¨ā§‡āĻ°āĻŋāĻ• āĻĒā§āĻ°āĻ•āĻžāĻ°
āĻāĻ•āĻŸāĻŋ āĻ…ā§āĻ¯āĻžāĻ°ā§‡ āĻ°ā§‡āĻĢāĻžāĻ°ā§‡āĻ¨ā§āĻ¸āĨ¤ āĻ…ā§āĻ¯āĻžāĻ°ā§‡āĻ¤ā§‡ āĻāĻ•-āĻ…āĻ•ā§āĻˇāĻ° āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚ `B' āĻāĻ° āĻ¯ā§‡āĻ•ā§‹āĻ¨ā§‹ āĻ‰āĻĒāĻ¸ā§‡āĻŸ āĻĨāĻžāĻ•āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡,
`S', `U', `L', `Q', `F' āĻāĻŦāĻ‚ `D', āĻ¯āĻž āĻ†āĻĒāĻ¨āĻžāĻ° āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ āĻ•ā§‹āĻ¨ āĻ§āĻ°āĻ¨ā§‡āĻ° āĻ—ā§āĻ°āĻšāĻŖ āĻ•āĻ°āĻŦā§‡ āĻ¤āĻž āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°ā§‡āĨ¤
āĻĒā§āĻ°āĻ¤āĻŋāĻŸāĻŋ āĻĒā§āĻ°āĻ•āĻžāĻ°ā§‡āĻ° āĻ…āĻ°ā§āĻĨ āĻšāĻ˛:

B - āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°āĻŋāĻ¤ āĻŦāĻžāĻ‡āĻŸ (āĻ…āĻ°ā§āĻĨāĻžā§Ž āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°āĻŋāĻ¤ āĻšāĻ°)
S - āĻ¸āĻ‚āĻ•ā§āĻˇāĻŋāĻĒā§āĻ¤ āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° (āĻĻā§āĻ‡-āĻŦāĻžāĻ‡āĻŸ āĻĒā§‚āĻ°ā§āĻŖāĻ¸āĻ‚āĻ–ā§āĻ¯āĻž)
U - āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°āĻŦāĻŋāĻšā§€āĻ¨ āĻ›ā§‹āĻŸ
L - āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°āĻŋāĻ¤ āĻĻā§€āĻ°ā§āĻ˜ (āĻšāĻžāĻ°-āĻŦāĻžāĻ‡āĻŸ āĻĒā§‚āĻ°ā§āĻŖāĻ¸āĻ‚āĻ–ā§āĻ¯āĻž, 32 āĻŦāĻŋāĻŸ āĻ¸āĻŋāĻ¸ā§āĻŸā§‡āĻŽā§‡ int)
Q - āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°āĻŋāĻ¤ āĻ˛āĻŽā§āĻŦāĻž āĻ˛āĻŽā§āĻŦāĻž (āĻ†āĻŸ āĻŦāĻžāĻ‡āĻŸ āĻĒā§‚āĻ°ā§āĻŖāĻ¸āĻ‚āĻ–ā§āĻ¯āĻž)
F - float
āĻĄāĻŋ - āĻĄāĻŦāĻ˛

āĻāĻ•āĻŸāĻŋ āĻŦāĻšāĻŋāĻ°āĻžāĻ—āĻ¤ āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋ āĻ‡āĻ¨ā§āĻŸāĻžāĻ°āĻĢā§‡āĻ¸ āĻ•āĻ°āĻžāĻ° āĻ¸āĻŽāĻ¯āĻŧ āĻāĻŸāĻŋ āĻ–ā§āĻŦ āĻĻāĻ°āĻ•āĻžāĻ°ā§€ (āĻāĻŦāĻ‚ āĻ—ā§āĻ°ā§āĻ¤ā§āĻŦāĻĒā§‚āĻ°ā§āĻŖ!) āĻĄāĻŋāĻĢāĻ˛ā§āĻŸ:
[qw/BSULQFD/]

āĻœāĻžāĻ¯āĻŧāĻ—āĻžāĻ¯āĻŧ
āĻ‡āĻ¨āĻĒā§āĻ˛ā§‡āĻ¸ā§‡ āĻ•āĻžāĻœ āĻ•āĻ°āĻ¤ā§‡ āĻ¸āĻ•ā§āĻˇāĻŽ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻāĻ•āĻŸāĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻšāĻŋāĻšā§āĻ¨āĻŋāĻ¤ āĻ•āĻ°ā§āĻ¨āĨ¤

āĻ‡āĻ¨āĻĒā§āĻ˛ā§‡āĻ¸ => 1 āĻ¯āĻĻāĻŋ Pars => 'a(); [o]b();'
āĻ‡āĻ¨āĻĒā§āĻ˛ā§‡āĻ¸ => ['a'] āĻ¯āĻĻāĻŋ Pars => 'a(); b(); [o]c();'
āĻ‡āĻ¨āĻĒā§āĻ˛ā§‡āĻ¸ => ['a', 'b'] āĻ¯āĻĻāĻŋ Pars => 'a(); b(); [āĻ“] āĻ—(); [o]d();'

āĻ¯āĻĻāĻŋ āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ, āĻ¤āĻŦā§‡ āĻāĻ° āĻĒā§āĻ°āĻšāĻžāĻ° āĻ¨āĻŋāĻļā§āĻšāĻŋāĻ¤ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ¯āĻ¤ā§āĻ¨ āĻ¨ā§‡āĻ“āĻ¯āĻŧāĻž āĻ†āĻŦāĻļā§āĻ¯āĻ•
āĻ¯āĻ–āĻ¨ āĻ‡āĻ¨āĻĒā§āĻ˛ā§‡āĻ¸ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻšā§āĻ›ā§‡ āĻ¤āĻ–āĻ¨ āĻŦā§āĻ¯āĻžāĻĄāĻĢā§āĻ˛ā§āĻ¯āĻžāĻ—; āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻ¸ā§āĻŦāĻ°ā§‚āĻĒ "āĻ°āĻŋāĻĒā§āĻ˛ā§‡āĻ¸āĻŦā§āĻ¯āĻžāĻĄ" āĻāĻ° āĻ•ā§‹āĻĄāĻŸāĻŋ āĻĻā§‡āĻ–ā§āĻ¨
āĻŽā§ŒāĻ˛āĻŋāĻ•/āĻ–āĻžāĻ°āĻžāĻĒ/āĻ–āĻžāĻ°āĻžāĻĒ.pd.

āĻĄāĻ• āĻĒāĻĄ āĻĢāĻ°āĻŽā§āĻ¯āĻžāĻŸā§‡ āĻāĻ•āĻŸāĻŋ āĻĄāĻ•ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻļāĻ¨ āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻ¤ā§‡ āĻŦā§āĻ¯āĻŦāĻšā§ƒāĻ¤ āĻšāĻ¯āĻŧāĨ¤ āĻ¤āĻĨā§āĻ¯ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ PDL::Doc āĻĻā§‡āĻ–ā§āĻ¨
āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ āĻĄāĻ•ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻļāĻ¨ āĻ•āĻ¨āĻ­ā§‡āĻ¨āĻļāĻ¨āĨ¤ āĻĻā§āĻ°āĻˇā§āĻŸāĻŦā§āĻ¯: āĻŦāĻŋāĻļā§‡āĻˇ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ PP 'Doc' āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚ āĻ†āĻ›ā§‡
āĻāĻ•āĻŸāĻŋ āĻ˛āĻžāĻ‡āĻ¨ āĻāĻŸāĻŋ āĻĻā§āĻ°ā§āĻ¤ āĻ°ā§‡āĻĢāĻžāĻ°ā§‡āĻ¨ā§āĻ¸ āĻāĻŦāĻ‚ āĻĄāĻ•ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻļāĻ¨ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻ…āĻ¨ā§āĻ¤āĻ°ā§āĻ¨āĻŋāĻšāĻŋāĻ¤āĻ­āĻžāĻŦā§‡ āĻŦā§āĻ¯āĻŦāĻšā§ƒāĻ¤ āĻšāĻ¯āĻŧ!

āĻ¯āĻĻāĻŋ āĻĄāĻ• āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°āĻŸāĻŋ āĻŦāĻžāĻĻ āĻĻā§‡āĻ“āĻ¯āĻŧāĻž āĻšāĻ¯āĻŧ āĻ¤āĻŦā§‡ āĻĒāĻŋāĻĒāĻŋ āĻĄāĻŋāĻĢāĻ˛ā§āĻŸ āĻĄāĻ•ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻļāĻ¨ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻŦā§‡ (āĻ¸āĻŦāĻ•āĻŋāĻ›ā§āĻ° āĻĒāĻ°ā§‡ āĻāĻŸāĻŋ āĻœāĻžāĻ¨ā§‡
āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ° āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•ā§‡)āĨ¤

āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻ¸āĻ¤ā§āĻ¯āĻŋāĻ‡ āĻšāĻžāĻ¨ āĻ¯ā§‡ āĻāĻ‡ āĻ¸āĻŽāĻ¯āĻŧā§‡ āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻ•ā§‹āĻ¨ā§‹āĻ­āĻžāĻŦā§‡āĻ‡ āĻ¨āĻĨāĻŋāĻ­ā§āĻ•ā§āĻ¤ āĻ•āĻ°āĻž āĻšāĻŦā§‡ āĻ¨āĻž (āĻ¯ā§‡āĻŽāĻ¨
āĻāĻ•āĻŸāĻŋ āĻ…āĻ­ā§āĻ¯āĻ¨ā§āĻ¤āĻ°ā§€āĻŖ āĻ°ā§āĻŸāĻŋāĻ¨ā§‡āĻ° āĻœāĻ¨ā§āĻ¯, āĻ…āĻĨāĻŦāĻž āĻ†āĻĒāĻ¨āĻŋ āĻ•ā§‹āĻĄā§‡āĻ° āĻ…āĻ¨ā§āĻ¯ āĻ•ā§‹āĻĨāĻžāĻ“ āĻāĻŸāĻŋ āĻ•āĻ°āĻ›ā§‡āĻ¨ āĻŦāĻ˛ā§‡ āĻ¸ā§āĻĒāĻˇā§āĻŸāĻ­āĻžāĻŦā§‡
"Doc=>undef" āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°ā§āĻ¨āĨ¤

BadDoc (āĻ–āĻžāĻ°āĻžāĻĒ)
"badinfo" āĻ•āĻŽāĻžāĻ¨ā§āĻĄ ("perldl"-āĻ) āĻŦāĻž "-b" āĻ¸ā§āĻ‡āĻš āĻĻā§āĻŦāĻžāĻ°āĻž āĻĒā§āĻ°āĻ¤ā§āĻ¯āĻžāĻŦāĻ°ā§āĻ¤āĻŋāĻ¤ āĻĒāĻžāĻ ā§āĻ¯ āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡
"pdldoc" āĻļā§‡āĻ˛ āĻ¸ā§āĻ•ā§āĻ°āĻŋāĻĒā§āĻŸā§‡āĨ¤ āĻ…āĻ¨ā§‡āĻ• āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡, āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻāĻŸāĻŋ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡ āĻ¨āĻž, āĻ¯ā§‡āĻšā§‡āĻ¤ā§
āĻ¤āĻĨā§āĻ¯ āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ PDL::PP āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž āĻ¯ā§‡āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĨ¤ āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻ•āĻŽā§āĻĒāĻŋāĻ‰āĻŸāĻžāĻ°ā§‡āĻ° āĻ¸ā§āĻŦāĻŋāĻ§āĻž āĻšāĻŋāĻ¸āĻžāĻŦā§‡-
āĻ‰āĻ¤ā§āĻĒāĻ¨ā§āĻ¨ āĻŸā§‡āĻ•ā§āĻ¸āĻŸ, āĻāĻŸāĻž āĻŦāĻ°āĻ‚ stilted āĻāĻ°; āĻāĻŸāĻž āĻ¨āĻŋāĻœā§‡ āĻ•āĻ°āĻž āĻ…āĻ¨ā§‡āĻ• āĻ­āĻžāĻ˛ā§‹ āĻšāĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡!

NoPthread
PDL āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¨āĻŋāĻ°ā§āĻĻā§‡āĻļ āĻ•āĻ°āĻ¤ā§‡ āĻāĻšā§āĻ›āĻŋāĻ• āĻĒāĻ¤āĻžāĻ•āĻž āĻ‰āĻšāĻŋāĻ¤ āĻ¨āĻž āĻĒā§āĻ°āĻ¸ā§‡āĻ¸āĻ° āĻĨā§āĻ°ā§‡āĻĄ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨ (āĻ¯ā§‡āĻŽāĻ¨
pthreads āĻŦāĻž POSIX āĻĨā§āĻ°ā§‡āĻĄ) āĻŦāĻšā§āĻŦāĻŋāĻ§ CPU āĻ•ā§‹āĻ° āĻœā§āĻĄāĻŧā§‡ āĻ•āĻžāĻœ āĻŦāĻŋāĻ­āĻ•ā§āĻ¤ āĻ•āĻ°āĻ¤ā§‡āĨ¤ āĻāĻ‡ āĻŦāĻŋāĻ•āĻ˛ā§āĻĒ āĻšāĻ¯āĻŧ
āĻ…āĻ¨ā§āĻ¤āĻ°ā§āĻ¨āĻŋāĻšāĻŋāĻ¤ PDL āĻĢāĻžāĻ‚āĻļāĻ¨ āĻĨā§āĻ°ā§‡āĻĄāĻ¸ā§‡āĻĢ āĻ¨āĻž āĻšāĻ˛ā§‡ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ 1 āĻ āĻ¸ā§‡āĻŸ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧāĨ¤ āĻ¯āĻĻāĻŋ āĻāĻ‡ āĻŦāĻŋāĻ•āĻ˛ā§āĻĒ
āĻ‰āĻĒāĻ¸ā§āĻĨāĻŋāĻ¤ āĻ¨ā§‡āĻ‡, āĻ¤āĻžāĻšāĻ˛ā§‡ āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻĨā§āĻ°ā§‡āĻĄāĻ¸ā§‡āĻĢ āĻŦāĻ˛ā§‡ āĻ§āĻ°ā§‡ āĻ¨ā§‡āĻ“āĻ¯āĻŧāĻž āĻšāĻ¯āĻŧāĨ¤ āĻāĻ‡ āĻŦāĻŋāĻ•āĻ˛ā§āĻĒ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻĒā§āĻ°āĻ¯ā§‹āĻœā§āĻ¯
āĻ¯āĻĻāĻŋ PDL POSIX āĻĨā§āĻ°ā§‡āĻĄ āĻ¸āĻ•ā§āĻˇāĻŽ āĻ•āĻ°ā§‡ āĻ•āĻŽā§āĻĒāĻžāĻ‡āĻ˛ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧāĨ¤

āĻĒāĻŋāĻāĻŽāĻ•ā§‹āĻĄ
PDL āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻāĻ•āĻŸāĻŋ āĻĒāĻŋāĻĄāĻ˛ā§‡ āĻĒāĻžāĻ¸ āĻ•āĻ°āĻ¤ā§‡ āĻĻā§‡āĻ¯āĻŧ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻ¸āĻ‚āĻ°āĻ•ā§āĻˇāĻŖ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨āĨ¤ āĻāĻ‡
āĻ¸ā§āĻŦāĻŋāĻ§āĻžāĻœāĻ¨āĻ• āĻ•āĻžāĻ°āĻŖ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸāĻŋ āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻĒāĻŋāĻĄāĻ˛ āĻāĻ•āĻŦāĻžāĻ° āĻŦāĻ°āĻžāĻĻā§āĻĻ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨ āĻāĻŦāĻ‚ āĻāĻŸāĻŋ āĻŦāĻšā§āĻŦāĻžāĻ° āĻĒā§āĻ¨āĻ°āĻžāĻ¯āĻŧ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨; āĻĻā§āĻ¯
PDL āĻāĻ° āĻœāĻ¨ā§āĻ¯ āĻĒā§āĻ°āĻ¤āĻŋāĻŦāĻžāĻ° āĻāĻ•āĻŸāĻŋ āĻ¨āĻ¤ā§āĻ¨ āĻĒāĻŋāĻĄāĻ˛ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻžāĻ° āĻŦāĻŋāĻ•āĻ˛ā§āĻĒ āĻšāĻŦā§‡, āĻ¯āĻž āĻ—āĻŖāĻ¨āĻž āĻ¨āĻˇā§āĻŸ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡
āĻšāĻ•ā§āĻ° āĻŦāĻž, āĻ¸āĻŽā§āĻ­āĻŦāĻ¤, RAM. āĻāĻ‡ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻž āĻ¨āĻŽāĻ¨ā§€āĻ¯āĻŧāĻ¤āĻž āĻ†āĻ°ā§‹ āĻ–āĻ°āĻšā§‡ āĻ†āĻ¸ā§‡
āĻœāĻŸāĻŋāĻ˛āĻ¤āĻž: PDL::PP-āĻ•ā§‡ āĻāĻŽāĻ¨ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ˛āĻŋāĻ–āĻ¤ā§‡ āĻšāĻŦā§‡ āĻ¯āĻž āĻ—āĻŖāĻ¨āĻž āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ¯āĻĨā§‡āĻˇā§āĻŸ āĻ¸ā§āĻŽāĻžāĻ°ā§āĻŸ
āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻāĻŸāĻŋ āĻĒāĻžāĻ¸ āĻāĻŦāĻ‚ āĻ‰āĻĄāĻŧā§‡ āĻ¨āĻ¤ā§āĻ¨ piddles āĻ¤ā§ˆāĻ°āĻŋ, āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻ¯āĻĻāĻŋ āĻ†āĻĒāĻ¨āĻŋ āĻ¤āĻžāĻĻā§‡āĻ° āĻšāĻžāĻ¨.

PDL::PP āĻāĻŸāĻž āĻ•āĻ°āĻ¤ā§‡ āĻ¯āĻĨā§‡āĻˇā§āĻŸ āĻ¸ā§āĻŽāĻžāĻ°ā§āĻŸ, āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻ…āĻ°ā§āĻĄāĻžāĻ°ā§‡ āĻ¸ā§€āĻŽāĻžāĻŦāĻĻā§āĻ§āĻ¤āĻž āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡ āĻāĻŦāĻ‚
āĻŽāĻ¤. āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻ†āĻ°āĻ“ āĻ¨āĻŽāĻ¨ā§€āĻ¯āĻŧ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻšāĻžāĻ¨ āĻ¤āĻŦā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ¨āĻŋāĻœā§‡āĻ° āĻĒāĻžāĻ°ā§āĻ˛-āĻ¸āĻžāĻ‡āĻĄ āĻ˛āĻŋāĻ–āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
wrapper āĻāĻŦāĻ‚ PMCode āĻ•ā§€āĻ¤ā§‡ āĻāĻŸāĻŋ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°ā§āĻ¨āĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻ¯ā§‡ āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚āĻŸāĻŋ āĻ¸āĻ°āĻŦāĻ°āĻžāĻš āĻ•āĻ°āĻŦā§‡āĻ¨ āĻ¤āĻž āĻ…āĻŦāĻļā§āĻ¯āĻ‡ (āĻ‰āĻšāĻŋāĻ¤)
āĻāĻ•āĻŸāĻŋ āĻ¨āĻžāĻŽ āĻĻāĻŋāĻ¯āĻŧā§‡ āĻāĻ•āĻŸāĻŋ āĻĒāĻžāĻ°ā§āĻ˛ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°ā§āĻ¨ āĻ¯āĻž āĻ†āĻĒāĻ¨āĻŋ āĻĒā§āĻ°āĻĨāĻŽā§‡ pp_def āĻ•ā§‡ āĻ¯āĻž āĻĻāĻŋāĻ¯āĻŧā§‡āĻ›āĻŋāĻ˛ā§‡āĻ¨ āĻ¤āĻžāĻ° āĻ¸āĻžāĻĨā§‡ āĻŽāĻŋāĻ˛ā§‡ āĻ¯āĻžāĻ¯āĻŧ
āĻ¸ā§āĻĨāĻžāĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻ–āĻ¨ āĻļā§‡āĻˇ āĻĒāĻ°ā§āĻ¯āĻ¨ā§āĻ¤ āĻĒāĻŋāĻĒāĻŋ-āĻœā§‡āĻ¨āĻžāĻ°ā§‡āĻŸā§‡āĻĄ āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻšāĻžāĻ˛ā§ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨, āĻ¤āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ āĻšāĻŦā§‡
āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°ā§‡ āĻ‰āĻ˛ā§āĻ˛āĻŋāĻ–āĻŋāĻ¤ āĻ¸āĻ āĻŋāĻ• āĻ•ā§āĻ°āĻŽā§‡ āĻ¸āĻŽāĻ¸ā§āĻ¤ āĻĒāĻŋāĻĄāĻ˛ āĻ¸āĻ°āĻŦāĻ°āĻžāĻš āĻ•āĻ°ā§āĻ¨: āĻ†āĻ‰āĻŸāĻĒā§āĻŸ āĻĒāĻŋāĻĄāĻ˛āĻ—ā§āĻ˛āĻŋ
āĻāĻšā§āĻ›āĻŋāĻ• āĻ¨āĻ¯āĻŧ, āĻāĻŦāĻ‚ PP-āĻ‰āĻ¤ā§āĻĒāĻ¨ā§āĻ¨ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ•āĻŋāĻ›ā§āĻ‡ āĻĢā§‡āĻ°āĻ¤ āĻĻā§‡āĻŦā§‡ āĻ¨āĻžāĨ¤ āĻ…āĻ¸ā§āĻĒāĻˇā§āĻŸ
āĻ†āĻĒāĻ¨āĻŋ āĻ¯ā§‡ āĻ¨āĻžāĻŽā§‡ āĻĄāĻžāĻ•āĻŦā§‡āĻ¨ āĻ¤āĻž āĻšāĻ˛ _ _int.

āĻ†āĻŽāĻŋ āĻŦāĻŋāĻļā§āĻŦāĻžāĻ¸ āĻ•āĻ°āĻŋ āĻāĻ‡ āĻĄāĻ•ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻļāĻ¨ā§‡āĻ° āĻ†āĻ°āĻ“ āĻ¸ā§āĻĒāĻˇā§āĻŸā§€āĻ•āĻ°āĻŖ āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨, āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻāĻŸāĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡āĨ¤
:-(

PMFunc
āĻ¯āĻ–āĻ¨ pp_def āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§‡, āĻāĻŸāĻŋ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ PDL āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœā§‡ āĻ¸ā§‡āĻ—ā§āĻ˛āĻŋāĻ•ā§‡ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°ā§‡āĨ¤ āĻ¤āĻžāĻ°āĻĒāĻ°,
.pm āĻĢāĻžāĻ‡āĻ˛ā§‡ āĻāĻŸāĻŋ āĻ†āĻĒāĻ¨āĻžāĻ° āĻŽāĻĄāĻŋāĻ‰āĻ˛ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§‡, āĻāĻŸāĻŋ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ āĻāĻ•āĻŸāĻŋ āĻ˛āĻžāĻ‡āĻ¨ āĻ¯ā§‹āĻ— āĻ•āĻ°ā§‡ āĻ¯āĻž
āĻŽā§‚āĻ˛āĻ¤ āĻ•ā§‹āĻĄ āĻ¸āĻš āĻ†āĻĒāĻ¨āĻžāĻ° āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœā§‡āĻ° āĻĒā§āĻ°āĻ¤ā§€āĻ• āĻŸā§‡āĻŦāĻŋāĻ˛ā§‡ āĻ¸ā§‡āĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻ…āĻ¨ā§āĻ˛āĻŋāĻĒāĻŋ āĻ•āĻ°ā§‡
āĻāĻŸāĻŋ āĻĻā§‡āĻ–āĻ¤ā§‡ āĻāĻ°āĻ•āĻŽ āĻĻā§‡āĻ–āĻžāĻšā§āĻ›ā§‡:

*func_name = \&PDL::func_name;

āĻāĻŸāĻŋ āĻ¤āĻžāĻ° āĻšā§‡āĻ¯āĻŧā§‡ āĻ•āĻŋāĻ›ā§āĻŸāĻž āĻ¸ā§āĻŽāĻžāĻ°ā§āĻŸ (āĻāĻŸāĻŋ āĻœāĻžāĻ¨ā§‡ āĻ¯ā§‡ āĻ•āĻ–āĻ¨ āĻāĻ‡ āĻ§āĻ°āĻŖā§‡āĻ° āĻœāĻŋāĻ¨āĻŋāĻ¸āĻŸāĻŋ āĻŽā§‹āĻĄāĻŧāĻžāĻ¨ā§‹ āĻšāĻŦā§‡
BEGIN āĻŦā§āĻ˛āĻ•, āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻ¸ā§āĻŦāĻ°ā§‚āĻĒ, āĻāĻŦāĻ‚ āĻ¯āĻĻāĻŋ āĻ†āĻĒāĻ¨āĻŋ pp_bless āĻāĻ° āĻœāĻ¨ā§āĻ¯ āĻ†āĻ˛āĻžāĻĻāĻž āĻ•āĻŋāĻ›ā§ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°ā§‡āĻ¨), āĻ•āĻŋāĻ¨ā§āĻ¤ā§
āĻ¯ā§‡ āĻāĻŸāĻž āĻ¸āĻžāĻ°āĻžāĻ‚āĻļ. āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻ†āĻĒāĻ¨āĻžāĻ° āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ āĻŽāĻ§ā§āĻ¯ā§‡ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ†āĻŽāĻĻāĻžāĻ¨āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻ¯āĻ¤ā§āĻ¨ āĻ¨āĻž
āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœā§‡āĻ° āĻĒā§āĻ°āĻ¤ā§€āĻ• āĻŸā§‡āĻŦāĻŋāĻ˛, āĻ†āĻĒāĻ¨āĻŋ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨

PMFunc => '',

PMFunc āĻāĻ° āĻ…āĻ¨ā§āĻ¯ āĻ•ā§‹āĻ¨ āĻĒāĻžāĻ°ā§āĻļā§āĻŦ-āĻĒā§āĻ°āĻ¤āĻŋāĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻž āĻ¨ā§‡āĻ‡, āĻ¤āĻžāĻ‡ āĻ†āĻĒāĻ¨āĻŋ āĻ¨āĻŋāĻ°ā§āĻŦāĻŋāĻšāĻžāĻ°ā§‡ āĻĒāĻžāĻ°ā§āĻ˛ āĻ•ā§‹āĻĄ āĻ¸āĻ¨ā§āĻ¨āĻŋāĻŦā§‡āĻļ āĻ•āĻ°āĻ¤ā§‡ āĻāĻŸāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻšāĻžāĻ¨ āĻ†āĻĒāĻ¨āĻžāĻ° āĻŽāĻĄāĻŋāĻ‰āĻ˛ āĻŽāĻ§ā§āĻ¯ā§‡. āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻĒāĻžāĻ°ā§āĻ˛ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨ āĻ¤āĻŦā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° pp_addpm āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻ‰āĻšāĻŋāĻ¤
āĻ†āĻĒāĻ¨āĻžāĻ° āĻŽāĻĄāĻŋāĻ‰āĻ˛ āĻ•ā§‹āĻĄ.

āĻ‰āĻĒāĻžāĻ™ā§āĻ— B: PP āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻāĻŦāĻ‚ āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻžāĻ•āĻ˛āĻžāĻĒ


āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹
(āĻ–āĻžāĻ°āĻžāĻĒ) āĻĻā§āĻŦāĻžāĻ°āĻž āĻ˛ā§‡āĻŦā§‡āĻ˛āĻ¯ā§āĻ•ā§āĻ¤ āĻŽā§āĻ¯āĻžāĻ•ā§āĻ°ā§‹ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻ¤āĻ–āĻ¨āĻ‡ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ āĻ¯āĻ–āĻ¨ āĻ–āĻžāĻ°āĻžāĻĒ-āĻŽāĻžāĻ¨ āĻ¸āĻŽāĻ°ā§āĻĨāĻ¨ PDL-āĻ āĻ•āĻŽā§āĻĒāĻžāĻ‡āĻ˛ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧāĨ¤

$variablename_from_sig()
āĻāĻ•āĻŸāĻŋ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ (āĻāĻ° āĻ¨āĻžāĻŽ āĻĻā§āĻŦāĻžāĻ°āĻž) āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸ āĻ•āĻ°ā§āĻ¨ āĻ¯āĻž āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°ā§‡ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›āĻŋāĻ˛

$COMP(x)
āĻāĻ‡ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ°ā§‡āĻ° āĻŦā§āĻ¯āĻ•ā§āĻ¤āĻŋāĻ—āĻ¤ āĻĄā§‡āĻŸāĻž āĻ•āĻžāĻ āĻžāĻŽā§‹āĻ¤ā§‡ āĻāĻ•āĻŸāĻŋ āĻŽāĻžāĻ¨ āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸ āĻ•āĻ°ā§āĻ¨ (āĻĒā§āĻ°āĻ§āĻžāĻ¨āĻ¤ āĻŦā§āĻ¯āĻŦāĻšā§ƒāĻ¤ āĻšāĻ¯āĻŧ
"āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯āĻĒāĻžāĻ°āĻ¸" āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻž āĻāĻ•āĻŸāĻŋ āĻ¯ā§āĻ•ā§āĻ¤āĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨)

$SIZE(n)
āĻ°āĻžāĻ¨āĻŸāĻžāĻ‡āĻŽā§‡ āĻāĻ•āĻŸāĻŋ āĻĒā§āĻ°āĻ•ā§ƒāĻ¤ āĻ†āĻ•āĻžāĻ° āĻĻā§āĻŦāĻžāĻ°āĻž āĻĒā§āĻ°āĻ¤āĻŋāĻ¸ā§āĻĨāĻžāĻĒāĻŋāĻ¤ āĻ¨āĻžāĻŽā§‡ āĻŽāĻžāĻ¤ā§āĻ°āĻž (āĻ¯ā§‡āĻŽāĻ¨ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡
āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°)

$āĻœā§‡āĻ¨ā§‡āĻ°āĻŋāĻ•()
C āĻŸāĻžāĻ‡āĻĒ āĻĻā§āĻŦāĻžāĻ°āĻž āĻĒā§āĻ°āĻ¤āĻŋāĻ¸ā§āĻĨāĻžāĻĒāĻŋāĻ¤ āĻšāĻ¯āĻŧ āĻ¯āĻž āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ā§‡āĻ° āĻ°āĻžāĻ¨āĻŸāĻžāĻ‡āĻŽ āĻŸāĻžāĻ‡āĻĒā§‡āĻ° āĻ¸āĻŽāĻžāĻ¨

$P(a) āĻ¸ā§āĻŦāĻžāĻ•ā§āĻˇāĻ°ā§‡ "a" āĻ¨āĻžāĻŽāĻ• PDL-āĻ āĻāĻ•āĻŸāĻŋ āĻĒāĻ¯āĻŧā§‡āĻ¨ā§āĻŸāĻžāĻ° āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸āĨ¤ C-āĻ¤ā§‡ āĻ‡āĻ¨ā§āĻŸāĻžāĻ°āĻĢā§‡āĻ¸ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻĻāĻ°āĻ•āĻžāĻ°ā§€
āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻžāĻ•āĻ˛āĻžāĻĒ

$PP(a) pdl "a" āĻ āĻāĻ•āĻŸāĻŋ āĻĢāĻŋāĻœāĻŋāĻ•ā§āĻ¯āĻžāĻ˛ āĻĒāĻ¯āĻŧā§‡āĻ¨ā§āĻŸāĻžāĻ° āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸; āĻĒā§āĻ°āĻ§āĻžāĻ¨āĻ¤ āĻ…āĻ­ā§āĻ¯āĻ¨ā§āĻ¤āĻ°ā§€āĻŖ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°ā§‡āĻ° āĻœāĻ¨ā§āĻ¯

$TXXX(āĻŦāĻŋāĻ•āĻ˛ā§āĻĒ, āĻŦāĻŋāĻ•āĻ˛ā§āĻĒ)
āĻ°āĻžāĻ¨āĻŸāĻžāĻ‡āĻŽ āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ā§‡āĻ° āĻ§āĻ°āĻ¨ āĻ…āĻ¨ā§āĻ¯āĻžāĻ¯āĻŧā§€ āĻ¸āĻŽā§āĻĒā§āĻ°āĻ¸āĻžāĻ°āĻŖā§‡āĻ° āĻŦāĻŋāĻ•āĻ˛ā§āĻĒ, āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ XXX āĻ•āĻŋāĻ›ā§
āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚ āĻ¯āĻž "/[BSULFD+]/" āĻĻā§āĻŦāĻžāĻ°āĻž āĻŽā§‡āĻ˛ā§‡āĨ¤

$PDL(a)
āĻĒāĻŋāĻĄāĻ˛ "a" āĻāĻ° pdl āĻĄā§‡āĻŸāĻž āĻ¸ā§āĻŸā§āĻ°āĻžāĻ•āĻšāĻžāĻ°ā§‡ (pdl *) āĻāĻ•āĻŸāĻŋ āĻĒāĻ¯āĻŧā§‡āĻ¨ā§āĻŸāĻžāĻ° āĻĢā§‡āĻ°āĻ¤ āĻĻāĻŋāĻ¨

$ISBAD(a()) (āĻ–āĻžāĻ°āĻžāĻĒ)
"a()" āĻ¤ā§‡ āĻ¸āĻ‚āĻ°āĻ•ā§āĻˇāĻŋāĻ¤ āĻŽāĻžāĻ¨ āĻ¯āĻĻāĻŋ āĻāĻ‡ āĻĒāĻŋāĻĄāĻ˛ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨ā§‡āĻ° āĻ¸āĻŽāĻžāĻ¨ āĻšāĻ¯āĻŧ āĻ¤āĻŦā§‡ āĻ¸āĻ¤ā§āĻ¯ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°ā§‡āĨ¤
"HandleBad" 1 āĻ āĻ¸ā§‡āĻŸ āĻ•āĻ°āĻž āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§ˇ

$ISGOOD(a()) (āĻ–āĻžāĻ°āĻžāĻĒ)
"a()" āĻ¤ā§‡ āĻ¸āĻ‚āĻ°āĻ•ā§āĻˇāĻŋāĻ¤ āĻŽāĻžāĻ¨ āĻ¯āĻĻāĻŋ āĻāĻ° āĻœāĻ¨ā§āĻ¯ āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨ā§‡āĻ° āĻ¸āĻŽāĻžāĻ¨ āĻ¨āĻž āĻšāĻ¯āĻŧ āĻ¤āĻŦā§‡ āĻ¸āĻ¤ā§āĻ¯ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°ā§‡
āĻĒāĻŋāĻĄāĻ˛ "HandleBad" 1 āĻ āĻ¸ā§‡āĻŸ āĻ•āĻ°āĻž āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§ˇ

$SETBAD(a()) (āĻ–āĻžāĻ°āĻžāĻĒ)
āĻāĻ‡ āĻĒāĻŋāĻĄāĻ˛ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻ–āĻžāĻ°āĻžāĻĒ āĻŽāĻžāĻ¨ āĻ¸āĻŽāĻžāĻ¨ āĻ•āĻ°āĻ¤ā§‡ "a()" āĻ¸ā§‡āĻŸ āĻ•āĻ°ā§‡āĨ¤ "HandleBad" āĻ¸ā§‡āĻŸ āĻ•āĻ°āĻž āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨
1 āĻ¤ā§‡

āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻžāĻ•āĻ˛āĻžāĻĒ
"āĻ˛ā§āĻĒ(DIMS) %{ ... %}"
āĻ¨āĻžāĻŽāĻ•ā§ƒāĻ¤ āĻŽāĻžāĻ¤ā§āĻ°āĻžāĻ° āĻ‰āĻĒāĻ° āĻ˛ā§āĻĒ; āĻ¸ā§€āĻŽāĻž āĻĒāĻŋāĻĒāĻŋ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ āĻ‰āĻ¤ā§āĻĒāĻ¨ā§āĻ¨ āĻšāĻ¯āĻŧ

"āĻĨā§āĻ°ā§‡āĻĄāĻ˛ā§āĻĒ %{ ... %}"
āĻāĻ•āĻŸāĻŋ āĻĨā§āĻ°ā§‡āĻĄ āĻ˛ā§āĻĒā§‡ āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻ–āĻŋāĻ¤ āĻ•ā§‹āĻĄ āĻ†āĻŦāĻĻā§āĻ§ āĻ•āĻ°ā§āĻ¨

"āĻŸāĻžāĻ‡āĻĒāĻ¸(āĻŸāĻžāĻ‡āĻĒāĻ¸) %{ ... %}"
āĻ…āĻĒāĻžāĻ°ā§‡āĻļāĻ¨ā§‡āĻ° āĻ§āĻ°āĻ¨ āĻ¯āĻĻāĻŋ "TYPES" āĻāĻ° āĻ¯ā§‡āĻ•ā§‹āĻ¨ā§‹ āĻāĻ•āĻŸāĻŋ āĻšāĻ¯āĻŧ āĻ¤āĻžāĻšāĻ˛ā§‡ āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻ–āĻŋāĻ¤ āĻ•ā§‹āĻĄāĻŸāĻŋ āĻšāĻžāĻ˛āĻžāĻ¨

āĻ‰āĻĒāĻžāĻ™ā§āĻ— C: āĻ•āĻžāĻ°ā§āĻ¯āĻžāĻŦāĻ˛ā§€ āĻ†āĻŽāĻĻāĻžāĻ¨āĻŋāĻ•ā§ƒāĻ¤ by āĻĒāĻŋāĻĄāĻŋāĻāĻ˛::āĻĒāĻŋāĻĒāĻŋ


āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻ–āĻ¨ "PDL::PP āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡āĻ¨" āĻ¤āĻ–āĻ¨ āĻ…āĻ¨ā§‡āĻ•āĻ—ā§āĻ˛āĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ†āĻŽāĻĻāĻžāĻ¨āĻŋ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧāĨ¤ āĻāĻ‡ āĻ¯ā§‡ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ…āĻ¨ā§āĻ¤āĻ°ā§āĻ­ā§āĻ•ā§āĻ¤
āĻœā§‡āĻ¨āĻžāĻ°ā§‡āĻŸ āĻ•āĻ°āĻž C āĻŦāĻž XS āĻ•ā§‹āĻĄ āĻ¨āĻŋāĻ¯āĻŧāĻ¨ā§āĻ¤ā§āĻ°āĻŖ āĻ•āĻ°ā§āĻ¨, āĻ¯ā§‡ āĻĢāĻžāĻ‚āĻļāĻ¨āĻ—ā§āĻ˛āĻŋ āĻœā§‡āĻ¨āĻžāĻ°ā§‡āĻŸ āĻ•āĻ°āĻž āĻĒāĻžāĻ°ā§āĻ˛ āĻ•ā§‹āĻĄ āĻ¨āĻŋāĻ¯āĻŧāĻ¨ā§āĻ¤ā§āĻ°āĻŖ āĻ•āĻ°ā§‡, āĻāĻŦāĻ‚
āĻ¯ā§‡ āĻĢāĻžāĻ‚āĻļāĻ¨āĻ—ā§āĻ˛āĻŋ āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœ āĻāĻŦāĻ‚ āĻĒā§āĻ°āĻ¤ā§€āĻ• āĻŸā§‡āĻŦāĻŋāĻ˛āĻ—ā§āĻ˛āĻŋāĻ•ā§‡ āĻŽā§āĻ¯āĻžāĻ¨āĻŋāĻĒā§āĻ˛ā§‡āĻŸ āĻ•āĻ°ā§‡ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ•ā§‹āĻĄ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧāĨ¤

āĻ‰ā§ŽāĻĒāĻžāĻĻāĻ• C āĻāĻŦāĻ‚ XS āĻ•ā§‹āĻĄ
PDL::PP āĻāĻ° āĻŽā§‚āĻ˛ āĻ‰āĻĻā§āĻĻā§‡āĻļā§āĻ¯ āĻšāĻ˛ āĻ†āĻĒāĻ¨āĻžāĻ° āĻšāĻžāĻ°āĻĒāĻžāĻļā§‡ āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ āĻ‡āĻžā§āĻœāĻŋāĻ¨ āĻŽā§‹āĻĄāĻŧāĻžāĻ¨ā§‹ āĻ†āĻĒāĻ¨āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ¸āĻšāĻœ āĻ•āĻ°āĻžāĨ¤
āĻ¨āĻŋāĻœā§‡āĻ° āĻ¸āĻŋ āĻ•ā§‹āĻĄ, āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻ†āĻĒāĻ¨āĻŋ āĻ•āĻŋāĻ›ā§ āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻœāĻŋāĻ¨āĻŋāĻ¸āĻ“ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨āĨ¤

pp_def
āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¸āĻŋ āĻ•ā§‹āĻĄā§‡āĻ° āĻšāĻžāĻ°āĻĒāĻžāĻļā§‡ āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ āĻ‡āĻžā§āĻœāĻŋāĻ¨ āĻŽā§‹āĻĄāĻŧāĻžāĻ¨ā§‹āĻ° āĻœāĻ¨ā§āĻ¯ āĻŦā§āĻ¯āĻŦāĻšā§ƒāĻ¤ āĻšāĻ¯āĻŧāĨ¤ āĻ•āĻžāĻ°ā§āĻ¯āĻ¤ āĻāĻ‡ āĻ¨āĻĨāĻŋāĻ° āĻ¸āĻŦ
pp_def āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ¨āĻŋāĻ¯āĻŧā§‡ āĻ†āĻ˛ā§‹āĻšāĻ¨āĻž āĻ•āĻ°ā§‡āĨ¤

pp_done
āĻ‡āĻ™ā§āĻ—āĻŋāĻ¤ āĻ•āĻ°ā§‡ āĻ¯ā§‡ āĻ†āĻĒāĻ¨āĻŋ PDL::PP āĻĻāĻŋāĻ¯āĻŧā§‡ āĻ¸āĻŽā§āĻĒāĻ¨ā§āĻ¨ āĻ•āĻ°ā§‡āĻ›ā§‡āĻ¨ āĻāĻŦāĻ‚ āĻāĻŸāĻŋāĻ° .xs āĻāĻŦāĻ‚ .pm āĻĢāĻžāĻ‡āĻ˛āĻ—ā§āĻ˛āĻŋ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž āĻ‰āĻšāĻŋāĻ¤
āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ pp_* āĻĢāĻžāĻ‚āĻļāĻ¨ā§‡āĻ° āĻ‰āĻĒāĻ° āĻ­āĻŋāĻ¤ā§āĻ¤āĻŋ āĻ•āĻ°ā§‡ āĻ¯āĻž āĻ†āĻĒāĻ¨āĻŋ āĻ•āĻ˛ āĻ•āĻ°ā§‡āĻ›ā§‡āĻ¨āĨ¤ āĻāĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ•ā§‹āĻ¨ āĻ˛āĻžāĻ—ā§‡
āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸāĨ¤

pp_addxs
āĻāĻŸāĻŋ āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° .xs āĻĢāĻžāĻ‡āĻ˛ā§‡ XS āĻ•ā§‹āĻĄ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻ¤ā§‡ āĻĻā§‡āĻ¯āĻŧā§ˇ āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻĒāĻžāĻ°ā§āĻ˛ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨ āĻ¤āĻŦā§‡ āĻāĻŸāĻŋ āĻ•āĻžāĻ°ā§āĻ¯āĻ•āĻ°-
āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸āĻ¯ā§‹āĻ—ā§āĻ¯ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¯āĻž C āĻ•ā§‹āĻĄ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻĨā§āĻ°ā§‡āĻĄāĻŋāĻ‚ āĻšāĻžāĻ˛ā§ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡ āĻ¨āĻž āĻŦāĻž āĻ•āĻ°āĻž āĻ‰āĻšāĻŋāĻ¤ āĻ¨āĻ¯āĻŧ
āĻ‡āĻžā§āĻœāĻŋāĻ¨ XS āĻšāĻ˛ āĻ¸ā§āĻŸā§āĻ¯āĻžāĻ¨ā§āĻĄāĻžāĻ°ā§āĻĄ āĻŽāĻžāĻ§ā§āĻ¯āĻŽ āĻ¯āĻžāĻ° āĻŽāĻžāĻ§ā§āĻ¯āĻŽā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻĒāĻžāĻ°ā§āĻ˛-āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸āĻ¯ā§‹āĻ—ā§āĻ¯ āĻ¸āĻŋ āĻ•ā§‹āĻĄ āĻŽā§‹āĻĄāĻŧāĻžāĻ¨ā§‹āĨ¤ āĻ¤ā§āĻŽāĻŋ āĻĒāĻžāĻ°āĻŦā§‡
perlxs āĻ āĻ†āĻ°āĻ“ āĻœāĻžāĻ¨ā§āĻ¨āĨ¤

pp_add_boot
āĻāĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ XS BOOT āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ¯ā§‡ āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚ āĻĒāĻžāĻ¸ āĻ•āĻ°ā§‡āĻ¨ āĻ¤āĻž āĻ¯ā§‹āĻ— āĻ•āĻ°ā§‡āĨ¤ āĻŦā§āĻŸ āĻŦāĻŋāĻ­āĻžāĻ—
āĻ¸āĻŋ āĻ•ā§‹āĻĄ āĻ¯āĻž āĻ†āĻĒāĻ¨āĻžāĻ° āĻŽāĻĄāĻŋāĻ‰āĻ˛ āĻ˛ā§‹āĻĄ āĻšāĻ“āĻ¯āĻŧāĻžāĻ° āĻ¸āĻŽāĻ¯āĻŧ āĻĒāĻžāĻ°ā§āĻ˛ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ•āĻ˛ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ āĻāĻŦāĻ‚ āĻāĻŸāĻŋāĻ° āĻœāĻ¨ā§āĻ¯ āĻĻāĻ°āĻ•āĻžāĻ°ā§€
āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧ āĻ¸ā§‚āĻšāĻ¨āĻžāĨ¤ āĻ†āĻĒāĻ¨āĻŋ perlxs-āĻ XS āĻāĻŦāĻ‚ BOOT āĻŦāĻŋāĻ­āĻžāĻ— āĻ¸āĻŽā§āĻĒāĻ°ā§āĻ•ā§‡ āĻ†āĻ°āĻ“ āĻœāĻžāĻ¨āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨āĨ¤

pp_addhdr
āĻ†āĻĒāĻ¨āĻžāĻ° XS āĻĢāĻžāĻ‡āĻ˛ā§‡ āĻŦāĻŋāĻļā§āĻĻā§āĻ§-āĻ¸āĻŋ āĻ•ā§‹āĻĄ āĻ¯ā§‹āĻ— āĻ•āĻ°ā§‡āĨ¤ XS āĻĢāĻžāĻ‡āĻ˛āĻ—ā§āĻ˛āĻŋ āĻāĻŽāĻ¨āĻ­āĻžāĻŦā§‡ āĻ—āĻ āĻ¨ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ āĻ¯ā§‡ āĻŦāĻŋāĻļā§āĻĻā§āĻ§ āĻ¸āĻŋ āĻ•ā§‹āĻĄ āĻ†āĻŦāĻļā§āĻ¯āĻ•
āĻāĻ•ā§āĻ¸āĻāĻ¸ āĻ¸ā§āĻĒā§‡āĻ¸āĻŋāĻĢāĻŋāĻ•ā§‡āĻļāĻ¨ā§‡āĻ° āĻ†āĻ—ā§‡ āĻ†āĻ¸āĻžāĨ¤ āĻāĻŸāĻŋ āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻāĻ‡ āĻ§āĻ°āĻ¨ā§‡āĻ° āĻ¸āĻŋ āĻ•ā§‹āĻĄ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻ¤ā§‡ āĻĻā§‡āĻ¯āĻŧāĨ¤

pp_boundscheck
PDL āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ āĻ¸ā§‡āĻ—ā§āĻ˛āĻŋ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻžāĻ° āĻ†āĻ—ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ…ā§āĻ¯āĻžāĻ•ā§āĻ¸ā§‡āĻ¸ā§‡āĻ° āĻ¸ā§€āĻŽāĻžāĻ¨āĻž āĻĒāĻ°ā§€āĻ•ā§āĻˇāĻž āĻ•āĻ°ā§‡āĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻāĻŸāĻŋ āĻšāĻžāĻ˛ā§ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
MyPackage::set_boundscheck āĻ¸ā§‡āĻŸ āĻ•āĻ°ā§‡ āĻ°āĻžāĻ¨āĻŸāĻžāĻ‡āĻŽā§‡ āĻšāĻžāĻ˛ā§ āĻŦāĻž āĻŦāĻ¨ā§āĻ§ āĻ•āĻ°ā§āĻ¨āĨ¤ āĻāĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻ…āĻ¨ā§āĻŽāĻ¤āĻŋ āĻĻā§‡āĻ¯āĻŧ
āĻ¯ā§‡ āĻ°āĻžāĻ¨āĻŸāĻžāĻ‡āĻŽ āĻ¨āĻŽāĻ¨ā§€āĻ¯āĻŧāĻ¤āĻž āĻ…āĻĒāĻ¸āĻžāĻ°āĻŖ āĻāĻŦāĻ‚ āĻ¨āĻž āĻ¸ā§€āĻŽāĻžāĻ¨āĻž āĻĒāĻ°ā§€āĻ•ā§āĻˇāĻž āĻ•āĻ°āĻž. āĻāĻŸāĻŋāĻ“ āĻĢā§‡āĻ°āĻ¤ āĻĻā§‡āĻ¯āĻŧ
āĻ•ā§‹āĻ¨ā§‹ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ āĻ›āĻžāĻĄāĻŧāĻž āĻ•āĻ˛ āĻ•āĻ°āĻž āĻšāĻ˛ā§‡ āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ āĻŦāĻžāĻ‰āĻ¨ā§āĻĄāĻšā§‡āĻ•āĻŋāĻ‚ āĻ¸ā§āĻŸā§āĻ¯āĻžāĻŸāĻžāĻ¸āĨ¤

āĻĻā§āĻ°āĻˇā§āĻŸāĻŦā§āĻ¯: āĻ†āĻŽāĻŋ āĻ…āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻĄāĻ•ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻļāĻ¨ā§‡ āĻ¸ā§€āĻŽāĻžāĻ¨āĻž āĻĒāĻ°ā§€āĻ•ā§āĻˇāĻž āĻ•āĻ°āĻžāĻ° āĻŦāĻŋāĻˇāĻ¯āĻŧā§‡ āĻ•āĻŋāĻ›ā§āĻ‡ āĻ–ā§āĻāĻœā§‡ āĻĒāĻžāĻ‡āĻ¨āĻŋāĨ¤ āĻ¯ā§‡
āĻ¸āĻŽā§āĻŦā§‹āĻ§āĻ¨ āĻ•āĻ°āĻž āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨āĨ¤

āĻ‰ā§ŽāĻĒāĻžāĻĻāĻ• āĻĒāĻžāĻ°ā§āĻ˛ āĻ•ā§‹āĻĄ
āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻ–āĻ¨ PDL::PP āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡āĻ¨ āĻ¤āĻ–āĻ¨ āĻ…āĻ¨ā§‡āĻ• āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ†āĻŽāĻĻāĻžāĻ¨āĻŋ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧ āĻ¯āĻž āĻ†āĻĒāĻ¨āĻžāĻ•ā§‡ āĻāĻ° āĻŦāĻŋāĻˇāĻ¯āĻŧāĻŦāĻ¸ā§āĻ¤ā§ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨ āĻ•āĻ°āĻ¤ā§‡ āĻĻā§‡āĻ¯āĻŧ
.pm āĻĢāĻžāĻ‡āĻ˛ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡āĨ¤ pp_def āĻāĻŦāĻ‚ pp_done āĻ›āĻžāĻĄāĻŧāĻžāĻ“ āĻāĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨āĻ—ā§āĻ˛āĻŋāĻ° āĻ­ā§‚āĻŽāĻŋāĻ•āĻž āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡
āĻĒā§āĻ°āĻžāĻĨāĻŽāĻŋāĻ•āĻ­āĻžāĻŦā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻœā§‡āĻ¨āĻžāĻ°ā§‡āĻŸ āĻ•āĻ°āĻž .pm āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻŦāĻŋāĻ­āĻŋāĻ¨ā§āĻ¨ āĻ…āĻ‚āĻļā§‡ āĻ•ā§‹āĻĄ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯āĨ¤

pp_addpm
āĻœā§‡āĻ¨āĻžāĻ°ā§‡āĻŸ āĻ•āĻ°āĻž .pm āĻĢāĻžāĻ‡āĻ˛ā§‡ āĻĒāĻžāĻ°ā§āĻ˛ āĻ•ā§‹āĻĄ āĻ¯ā§‹āĻ— āĻ•āĻ°ā§‡āĨ¤ PDL::PP āĻ†āĻ¸āĻ˛ā§‡ āĻ¤āĻŋāĻ¨āĻŸāĻŋāĻ° āĻŸā§āĻ°ā§āĻ¯āĻžāĻ• āĻ°āĻžāĻ–ā§‡
āĻ‰āĻ¤ā§āĻĒāĻ¨ā§āĻ¨ āĻ•ā§‹āĻĄā§‡āĻ° āĻŦāĻŋāĻ­āĻŋāĻ¨ā§āĻ¨ āĻŦāĻŋāĻ­āĻžāĻ—: āĻļā§€āĻ°ā§āĻˇ, āĻŽāĻ§ā§āĻ¯ āĻāĻŦāĻ‚ āĻ¨ā§€āĻšā§‡āĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
āĻāĻ•-āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻĢāĻ°ā§āĻŽ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻŽāĻ§ā§āĻ¯ āĻŦāĻŋāĻ­āĻžāĻ—ā§‡ āĻĒāĻžāĻ°ā§āĻ˛ āĻ•ā§‹āĻĄ, āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻšāĻ˛
āĻĒāĻžāĻ°ā§āĻ˛ āĻ•ā§‹āĻĄ āĻ†āĻĒāĻ¨āĻŋ āĻ¸āĻ°āĻŦāĻ°āĻžāĻš āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨āĨ¤ āĻĻā§āĻŦāĻŋ-āĻ¯ā§āĻ•ā§āĻ¤āĻŋ āĻ†āĻ•āĻžāĻ°ā§‡, āĻĒā§āĻ°āĻĨāĻŽ āĻ¯ā§āĻ•ā§āĻ¤āĻŋāĻŸāĻŋ āĻšāĻ˛ āĻāĻ•āĻŸāĻŋ
āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻāĻ•āĻŸāĻŋ āĻ•ā§€ āĻ¸āĻš āĻŦā§‡āĻ¨āĻžāĻŽā§€ āĻšā§āĻ¯āĻžāĻļ āĻ¯āĻž āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°ā§‡ āĻ¯ā§‡ āĻĻā§āĻŦāĻŋāĻ¤ā§€āĻ¯āĻŧ āĻ†āĻ°ā§āĻ—ā§āĻŽā§‡āĻ¨ā§āĻŸ āĻ•ā§‹āĻĨāĻžāĻ¯āĻŧ āĻ°āĻžāĻ–āĻ¤ā§‡ āĻšāĻŦā§‡,
āĻ¯āĻž āĻ†āĻĒāĻ¨āĻŋ .pm āĻĢāĻžāĻ‡āĻ˛ā§‡ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨ āĻ¯ā§‡ āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚. āĻšā§āĻ¯āĻžāĻļ āĻāĻ‡ āĻāĻ•āĻŸāĻŋ
āĻ¤āĻŋāĻ¨:

{āĻ => 'āĻļā§€āĻ°ā§āĻˇ'}
{āĻ => 'āĻŽāĻžāĻāĻ–āĻžāĻ¨ā§‡'}
{āĻ => 'āĻŦāĻŸ'}

āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻ¸ā§āĻŦāĻ°ā§‚āĻĒ:

pp_addpm({At => 'āĻŦāĻŸ'}, <

=head1 āĻ•āĻŋāĻ›ā§ āĻĄāĻ•ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻļāĻ¨

āĻ†āĻŽāĻŋ āĻœāĻžāĻ¨āĻŋ āĻ†āĻŽāĻŋ āĻ†āĻŽāĻžāĻ° āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻŽāĻžāĻāĻ–āĻžāĻ¨ā§‡ āĻāĻ‡ āĻŸāĻžāĻ‡āĻĒ āĻ•āĻ°āĻ›āĻŋ, āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻāĻŸāĻž āĻ¯ā§‡āĻ¤ā§‡ āĻšāĻŦā§‡
āĻ¨āĻŋāĻšā§‡.

= āĻ•āĻžāĻŸāĻž

POD

āĻ¸āĻ¤āĻ°ā§āĻ•āĻ¤āĻž: āĻ¯āĻĻāĻŋ, āĻ†āĻĒāĻ¨āĻžāĻ° .pd āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻŽāĻžāĻāĻ–āĻžāĻ¨ā§‡, āĻ†āĻĒāĻ¨āĻŋ āĻāĻ° āĻœāĻ¨ā§āĻ¯ āĻĄāĻ•ā§āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻļāĻ¨ āĻ°āĻžāĻ–ā§‡āĻ¨
āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒāĻĄā§‡āĻ° āĻ¨ā§€āĻšā§‡, āĻ†āĻĒāĻ¨āĻŋ āĻĒā§āĻ™ā§āĻ–āĻžāĻ¨ā§āĻĒā§āĻ™ā§āĻ–āĻ­āĻžāĻŦā§‡ CPAN āĻŦāĻŋāĻ­ā§āĻ°āĻžāĻ¨ā§āĻ¤ āĻ•āĻ°āĻŦā§‡āĻ¨āĨ¤ āĻ…āĻ¨ā§āĻ¯āĻĻāĻŋāĻ•ā§‡, āĻ¯āĻĻāĻŋ
āĻ†āĻĒāĻ¨āĻžāĻ° .pd āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻŽāĻžāĻāĻ–āĻžāĻ¨ā§‡, āĻ†āĻĒāĻ¨āĻŋ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¨ā§€āĻšā§‡ āĻŦāĻž āĻ‰āĻĒāĻ°ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŋāĻ¤ āĻ•āĻŋāĻ›ā§ āĻĒāĻžāĻ°ā§āĻ˛ āĻ•ā§‹āĻĄ āĻ¯ā§‹āĻ— āĻ•āĻ°ā§āĻ¨
.pm āĻĢāĻžāĻ‡āĻ˛, āĻ†āĻĒāĻ¨āĻŋ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻ¨āĻŋāĻœā§‡āĻ•ā§‡ āĻŦāĻŋāĻ­ā§āĻ°āĻžāĻ¨ā§āĻ¤ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡. :-)

pp_beginwrap
BEGIN-āĻŦā§āĻ˛āĻ• āĻŽā§‹āĻĄāĻŧāĻžāĻ¨ā§‹ āĻ¯ā§‹āĻ— āĻ•āĻ°ā§‡āĨ¤ āĻ¯āĻĻāĻŋāĻ“ āĻ•āĻŋāĻ›ā§ āĻ˜ā§‹āĻˇāĻŖāĻž BEGIN āĻŦā§āĻ˛āĻ•ā§‡ āĻŽā§‹āĻĄāĻŧāĻžāĻ¨ā§‹ āĻ¯ā§‡āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡
āĻĄāĻŋāĻĢāĻ˛ā§āĻŸ āĻ†āĻšāĻ°āĻŖ āĻāĻ‡ āĻ§āĻ°āĻ¨ā§‡āĻ° āĻ•ā§‹āĻ¨ āĻŽā§‹āĻĄāĻŧāĻžāĻ¨ā§‹ āĻ†āĻ›ā§‡.

pp_addbegin
āĻ†āĻĒāĻ¨āĻžāĻ° .pm āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻ‰āĻĒāĻ°ā§‡ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ•ā§‹āĻĄ āĻ¸ā§‡āĻŸ āĻ•āĻ°ā§‡, āĻāĻŽāĻ¨āĻ•āĻŋ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°āĻž āĻ•ā§‹āĻĄā§‡āĻ° āĻ‰āĻĒāĻ°ā§‡āĻ“
āĻ¸āĻ™ā§āĻ—ā§‡ "pp_addpm({At => 'Top'}, ...)"āĨ¤ pp_addpm āĻāĻ° āĻŦāĻŋāĻĒāĻ°ā§€āĻ¤ā§‡, āĻāĻŸāĻŋāĻ•ā§‡ āĻ•āĻ˛ āĻ•āĻ°āĻž āĻ¯āĻžāĻ‡ āĻšā§‹āĻ• āĻ¨āĻž āĻ•ā§‡āĻ¨ āĻ“āĻ­āĻžāĻ°āĻ°āĻžāĻ‡āĻŸ āĻ•āĻ°ā§‡
āĻ†āĻ—ā§‡ āĻ›āĻŋāĻ˛. āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤, āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¸āĻŽā§āĻ­āĻŦāĻ¤ āĻāĻŸāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻž āĻ‰āĻšāĻŋāĻ¤ āĻ¨āĻ¯āĻŧāĨ¤

āĻ…āĻ¨ā§āĻ¸āĻ°āĻŖāĻ•āĻ°āĻŖ āĻ˛āĻžāĻ‡āĻ¨ āĻ¨āĻžāĻŽā§āĻŦāĻžāĻ°
āĻ¯āĻ–āĻ¨ āĻ†āĻĒāĻ¨āĻŋ āĻ•āĻŽā§āĻĒāĻžāĻ‡āĻ˛ āĻ¤ā§āĻ°ā§āĻŸāĻŋ āĻĒāĻžāĻ¨, āĻšāĻ¯āĻŧ āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¸āĻŋ-āĻāĻ° āĻŽāĻ¤ā§‹ āĻ•ā§‹āĻĄ āĻŦāĻž āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒāĻžāĻ°ā§āĻ˛ āĻ•ā§‹āĻĄ āĻĨā§‡āĻ•ā§‡, āĻāĻŸāĻŋ āĻ¸āĻžāĻšāĻžāĻ¯ā§āĻ¯ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡
āĻ¸ā§‡āĻ‡ āĻ¤ā§āĻ°ā§āĻŸāĻŋāĻ—ā§āĻ˛āĻŋāĻ•ā§‡ āĻ¸ā§‹āĻ°ā§āĻ¸ āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻ˛āĻžāĻ‡āĻ¨ āĻ¨āĻŽā§āĻŦāĻ°āĻ—ā§āĻ˛āĻŋāĻ¤ā§‡ āĻĢāĻŋāĻ°āĻŋāĻ¯āĻŧā§‡ āĻ†āĻ¨āĻ¤ā§‡ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ¤ā§āĻ°ā§āĻŸāĻŋāĻŸāĻŋ āĻšāĻ¯āĻŧā§‡āĻ›ā§‡ā§ˇ
āĻ˜āĻŸā§‡āĻ›ā§‡āĨ¤

pp_āĻ˛āĻžāĻ‡āĻ¨_āĻ¸āĻ‚āĻ–ā§āĻ¯āĻž
āĻāĻ•āĻŸāĻŋ āĻ˛āĻžāĻ‡āĻ¨ āĻ¨āĻŽā§āĻŦāĻ° āĻāĻŦāĻ‚ āĻ•ā§‹āĻĄā§‡āĻ° āĻāĻ•āĻŸāĻŋ (āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ āĻĻā§€āĻ°ā§āĻ˜) āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚ āĻ¨ā§‡āĻ¯āĻŧāĨ¤ āĻ˛āĻžāĻ‡āĻ¨ āĻ¨āĻŽā§āĻŦāĻ° āĻ‰āĻšāĻŋāĻ¤
āĻ¯ā§‡ āĻ˛āĻžāĻ‡āĻ¨ā§‡ āĻ‰āĻĻā§āĻ§ā§ƒāĻ¤āĻŋ āĻļā§āĻ°ā§ āĻšāĻ¯āĻŧ āĻ¸ā§‡āĻŸāĻŋ āĻ¨āĻŋāĻ°ā§āĻĻā§‡āĻļ āĻ•āĻ°ā§āĻ¨āĨ¤ āĻāĻŸāĻŋ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ āĻĒāĻžāĻ°ā§āĻ˛ā§‡āĻ° "__LINE__"
āĻ†āĻ•ā§āĻˇāĻ°āĻŋāĻ•, āĻ¯āĻĻāĻŋ āĻ¨āĻž āĻ†āĻĒāĻ¨āĻŋ herdocs āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ›ā§‡āĻ¨, āĻāĻ‡ āĻ•ā§āĻˇā§‡āĻ¤ā§āĻ°ā§‡ āĻāĻŸāĻŋ "__LINE__ + 1"āĨ¤ āĻĻā§āĻ¯
āĻĒā§āĻ°āĻ¤ā§āĻ¯āĻžāĻŦāĻ°ā§āĻ¤āĻŋāĻ¤ āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚-āĻ āĻ•āĻŽā§āĻĒāĻžāĻ‡āĻ˛āĻžāĻ° āĻ°āĻŋāĻĒā§‹āĻ°ā§āĻŸ āĻ¤ā§āĻ°ā§āĻŸāĻŋāĻ—ā§āĻ˛āĻŋāĻ•ā§‡ āĻ¸āĻžāĻšāĻžāĻ¯ā§āĻ¯ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ # āĻ˛āĻžāĻ‡āĻ¨ā§‡āĻ° āĻ¨āĻŋāĻ°ā§āĻĻā§‡āĻļāĻžāĻŦāĻ˛ā§€ āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡
āĻ¸āĻ āĻŋāĻ• āĻ˛āĻžāĻ‡āĻ¨ā§‡āĨ¤

āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨ āĻĻā§āĻ¯ āĻĒā§āĻ°āĻ¤ā§€āĻ• āĻŸā§‡āĻŦāĻŋāĻ˛ āĻāĻŦāĻ‚ āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋ āĻ†āĻšāĻ°āĻŖ
PDL::PP āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ pp_def āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻ‰āĻ¤ā§āĻĒāĻ¨ā§āĻ¨ āĻ¸āĻŽāĻ¸ā§āĻ¤ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋ āĻ•āĻ°ā§‡ āĻāĻŦāĻ‚ āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ āĻ¸ā§‡āĻ—ā§āĻ˛āĻŋ āĻ‡āĻ¨āĻ¸ā§āĻŸāĻ˛ āĻ•āĻ°ā§‡
PDL āĻĒā§āĻ°āĻ¤ā§€āĻ• āĻŸā§‡āĻŦāĻŋāĻ˛ā§‡āĨ¤ āĻ¯āĻžāĻ‡āĻšā§‹āĻ•, āĻ†āĻĒāĻ¨āĻŋ āĻāĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨āĻ—ā§āĻ˛āĻŋāĻ° āĻ¸āĻžāĻĨā§‡ āĻāĻ‡ āĻ†āĻšāĻ°āĻŖāĻŸāĻŋ āĻ¸āĻ‚āĻļā§‹āĻ§āĻ¨ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨āĨ¤

pp_bless
āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœ (āĻĒā§āĻ°āĻ¤ā§€āĻ• āĻŸā§‡āĻŦāĻŋāĻ˛) āĻ¸ā§‡āĻŸ āĻ•āĻ°ā§‡ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ XS āĻ•ā§‹āĻĄ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡āĨ¤ āĻĄāĻŋāĻĢāĻ˛ā§āĻŸ āĻšāĻ˛ PDL,
āĻ¯āĻž āĻ¸āĻžāĻ§āĻžāĻ°āĻŖāĻ¤ āĻ†āĻĒāĻ¨āĻŋ āĻšāĻžāĻ¨ āĻ•āĻŋ. āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻĒā§‚āĻ°ā§āĻŦāĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŋāĻ¤ āĻĻā§‹āĻ¯āĻŧāĻž āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡āĻ¨ āĻāĻŦāĻ‚ āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸāĻŋ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°ā§‡āĻ¨
āĻĢāĻžāĻ‚āĻļāĻ¨ myfunc, āĻ¤āĻžāĻ°āĻĒāĻ° āĻ†āĻĒāĻ¨āĻŋ āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻ–āĻŋāĻ¤ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨:

$piddle->myfunc( );
PDL::myfunc($piddle, );

āĻ…āĻ¨ā§āĻ¯āĻĻāĻŋāĻ•ā§‡, āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĢāĻžāĻ‚āĻļāĻ¨āĻ—ā§āĻ˛āĻŋāĻ•ā§‡ āĻ…āĻ¨ā§āĻ¯ āĻĒā§āĻ¯āĻžāĻ•ā§‡āĻœā§‡ āĻ†āĻļā§€āĻ°ā§āĻŦāĻžāĻĻ āĻ•āĻ°ā§‡āĻ¨ āĻ¤āĻŦā§‡ āĻ†āĻĒāĻ¨āĻŋ āĻ†āĻšā§āĻŦāĻžāĻ¨ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°āĻŦā§‡āĻ¨ āĻ¨āĻž
āĻāĻ—ā§āĻ˛āĻŋāĻ•ā§‡ āĻĒāĻŋāĻĄāĻŋāĻāĻ˛ āĻĒāĻĻā§āĻ§āĻ¤āĻŋ āĻšāĻŋāĻ¸āĻžāĻŦā§‡, āĻāĻŦāĻ‚ āĻ¸ā§‡āĻ—ā§āĻ˛āĻŋāĻ•ā§‡ āĻāĻ‡āĻ­āĻžāĻŦā§‡ āĻ†āĻšā§āĻŦāĻžāĻ¨ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻŦā§‡:

MyPackage::myfunc($piddle, );

āĻ…āĻŦāĻļā§āĻ¯āĻ‡, āĻ†āĻĒāĻ¨āĻŋ PDL āĻĒā§āĻ°āĻ¤ā§€āĻ•ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻ¤ā§‡ PMFunc āĻ•ā§€ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
āĻŸā§‡āĻŦāĻŋāĻ˛, āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻ•ā§‡āĻ¨ āĻ¯ā§‡?

pp_add_isa
āĻŽāĻĄāĻŋāĻ‰āĻ˛ā§‡āĻ° āĻ¤āĻžāĻ˛āĻŋāĻ•āĻžāĻ¯āĻŧ āĻ¯ā§‹āĻ— āĻ•āĻ°ā§‡ āĻ¯āĻž āĻĨā§‡āĻ•ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻŽāĻĄāĻŋāĻ‰āĻ˛ āĻ‰āĻ¤ā§āĻ¤āĻ°āĻžāĻ§āĻŋāĻ•āĻžāĻ°āĻ¸ā§‚āĻ¤ā§āĻ°ā§‡ āĻĄāĻŋāĻĢāĻ˛ā§āĻŸ āĻ¤āĻžāĻ˛āĻŋāĻ•āĻž āĻšāĻ¯āĻŧ

qw(PDL::āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋāĻ•āĻžāĻ°āĻ• āĻĄāĻžāĻ¯āĻŧāĻ¨āĻžāĻ˛ā§‹āĻĄāĻžāĻ°)

pp_core_importlist
āĻ†āĻĒāĻ¨āĻžāĻ° āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž .pm āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻļā§€āĻ°ā§āĻˇā§‡ āĻāĻ•āĻŸāĻŋ āĻ˛āĻžāĻ‡āĻ¨ āĻ°āĻ¯āĻŧā§‡āĻ›ā§‡ āĻ¯āĻž āĻĻā§‡āĻ–āĻ¤ā§‡ āĻāĻ‡āĻ°āĻ•āĻŽ:

PDL::Core āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨;

āĻ†āĻĒāĻ¨āĻŋ pp_core_importlist-āĻ āĻāĻ•āĻŸāĻŋ āĻ¸ā§āĻŸā§āĻ°āĻŋāĻ‚ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ•āĻ°ā§‡ āĻāĻŸāĻŋ āĻ¸āĻ‚āĻļā§‹āĻ§āĻ¨ āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨āĨ¤ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ āĻ¸ā§āĻŦāĻ°ā§‚āĻĒ,

pp_core_importlist('::Blarg');

āĻĢāĻ˛āĻžāĻĢāĻ˛ āĻšāĻŦā§‡

PDL::Core::Blarg āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨;

āĻ†āĻĒāĻ¨āĻŋ āĻāĻŸāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨, āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻ¸ā§āĻŦāĻ°ā§‚āĻĒ, PDL::Core āĻĨā§‡āĻ•ā§‡ āĻ†āĻŽāĻĻāĻžāĻ¨āĻŋ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻĒā§āĻ°āĻ¤ā§€āĻ•āĻ—ā§āĻ˛āĻŋāĻ° āĻāĻ•āĻŸāĻŋ āĻ¤āĻžāĻ˛āĻŋāĻ•āĻž āĻ¯ā§‹āĻ— āĻ•āĻ°āĻ¤ā§‡āĨ¤ āĻœāĻ¨ā§āĻ¯
āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻ¸ā§āĻŦāĻ°ā§‚āĻĒ:

pp_core_importlist("':āĻ…āĻ­ā§āĻ¯āĻ¨ā§āĻ¤āĻ°ā§€āĻŖ'");

āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻ–āĻŋāĻ¤ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°ā§‡āĻ° āĻŦāĻŋāĻŦā§ƒāĻ¤āĻŋāĻ¤ā§‡ āĻ¨ā§‡āĻ¤ā§ƒāĻ¤ā§āĻŦ āĻĻā§‡āĻŦā§‡:

PDL::Core ':Internal' āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨;

pp_setversion
āĻ†āĻĒāĻ¨āĻžāĻ° āĻŽāĻĄāĻŋāĻ‰āĻ˛ āĻāĻ° āĻ¸āĻ‚āĻ¸ā§āĻ•āĻ°āĻŖ āĻ¸ā§‡āĻŸ āĻ•āĻ°ā§‡āĨ¤ āĻ¸āĻ‚āĻ¸ā§āĻ•āĻ°āĻŖāĻŸāĻŋ .xs āĻāĻŦāĻ‚ .pm-āĻāĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻ¸āĻžāĻŽāĻžā§āĻœāĻ¸ā§āĻ¯āĻĒā§‚āĻ°ā§āĻŖ āĻšāĻ¤ā§‡ āĻšāĻŦā§‡ā§ˇ
āĻĢāĻžāĻ‡āĻ˛, āĻāĻŦāĻ‚ āĻāĻŸāĻŋ āĻ¨āĻŋāĻļā§āĻšāĻŋāĻ¤ āĻ•āĻ°āĻ¤ā§‡ āĻŦā§āĻ¯āĻŦāĻšā§ƒāĻ¤ āĻšāĻ¯āĻŧ āĻ¯ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ° āĻĒāĻžāĻ°ā§āĻ˛ā§‡āĻ° āĻ˛āĻžāĻ‡āĻŦā§āĻ°ā§‡āĻ°āĻŋāĻ—ā§āĻ˛āĻŋ āĻ¸āĻ‚āĻ¸ā§āĻ•āĻ°āĻŖā§‡ āĻ­ā§‹āĻ—ā§‡ āĻ¨āĻž
āĻ¤āĻŋāĻ°ā§āĻ¯āĻ•

pp_add_exported
āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋ āĻ¤āĻžāĻ˛āĻŋāĻ•āĻžāĻ¯āĻŧ āĻ†āĻĒāĻ¨āĻŋ āĻ¯ā§‡ āĻ¨āĻžāĻŽāĻ‡ āĻĻā§‡āĻ¨ āĻ¤āĻžāĻ¤ā§‡ āĻ¯ā§‹āĻ— āĻ•āĻ°ā§‡āĨ¤ pp_def āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¤ā§ˆāĻ°āĻŋ āĻ•āĻ°āĻž āĻšāĻ¯āĻŧā§‡āĻ›ā§‡
āĻ¤āĻžāĻ˛āĻŋāĻ•āĻžāĻ¯āĻŧ āĻ¸ā§āĻŦāĻ¯āĻŧāĻ‚āĻ•ā§āĻ°āĻŋāĻ¯āĻŧāĻ­āĻžāĻŦā§‡ āĻ¯ā§āĻ•ā§āĻ¤ āĻšāĻ¯āĻŧāĨ¤ āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻ•ā§‹āĻ¨ āĻĒāĻžāĻ°ā§āĻ˛ āĻ¸āĻ‚āĻœā§āĻžāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻ•āĻ°ā§‡āĻ¨ āĻ¤āĻŦā§‡ āĻāĻ‡ āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻ•āĻžāĻ°ā§āĻ¯āĻ•āĻ°
pp_addpm āĻŦāĻž pp_addxs āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¯āĻž āĻ†āĻĒāĻ¨āĻŋ āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋ āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨āĨ¤

pp_export_nothing
āĻāĻŸāĻŋ āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋāĻ•ā§ƒāĻ¤ āĻšāĻŋāĻšā§āĻ¨ā§‡āĻ° āĻ¤āĻžāĻ˛āĻŋāĻ•āĻžāĻ•ā§‡ āĻ°āĻŋāĻ¸ā§‡āĻŸ āĻ•āĻ°ā§‡ āĻ¨āĻžāĨ¤ āĻāĻŸāĻŋ āĻ¸āĻŽā§āĻ­āĻŦāĻ¤ āĻ­āĻžāĻ˛ āĻŦāĻ˛āĻž āĻšāĻ¯āĻŧ
"pp_export_clear", āĻ¯ā§‡āĻšā§‡āĻ¤ā§ āĻ†āĻĒāĻ¨āĻŋ āĻ•āĻ˛ āĻ•āĻ°āĻžāĻ° āĻĒāĻ°ā§‡ āĻāĻ•ā§āĻ¸āĻĒā§‹āĻ°ā§āĻŸ āĻ•āĻ°āĻž āĻšāĻŋāĻšā§āĻ¨ āĻ¯ā§‹āĻ— āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°ā§‡āĻ¨
"pp_export_nothing"āĨ¤ pp_done āĻ•āĻ˛ āĻ•āĻ°āĻžāĻ° āĻ āĻŋāĻ• āĻ†āĻ—ā§‡ āĻ•āĻ˛ āĻ•āĻ°āĻž āĻšāĻ˛ā§‡, āĻāĻŸāĻŋ āĻ¨āĻŋāĻļā§āĻšāĻŋāĻ¤ āĻ•āĻ°ā§‡ āĻ¯ā§‡ āĻ†āĻĒāĻ¨āĻžāĻ°
āĻŽāĻĄāĻŋāĻ‰āĻ˛ āĻ•āĻŋāĻ›ā§ āĻ°āĻĒā§āĻ¤āĻžāĻ¨āĻŋ āĻ•āĻ°ā§‡ āĻ¨āĻž, āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻ¸ā§āĻŦāĻ°ā§‚āĻĒ, āĻ¯āĻĻāĻŋ āĻ†āĻĒāĻ¨āĻŋ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° āĻĒā§āĻ°ā§‹āĻ—ā§āĻ°āĻžāĻŽāĻžāĻ°āĻĻā§‡āĻ° āĻ†āĻĒāĻ¨āĻžāĻ° āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨
āĻĒāĻĻā§āĻ§āĻ¤āĻŋ āĻšāĻŋāĻ¸āĻžāĻŦā§‡ āĻ•āĻžāĻœ āĻ•āĻ°ā§‡āĨ¤

onworks.net āĻĒāĻ°āĻŋāĻˇā§‡āĻŦāĻž āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ PDL::PPp āĻ…āĻ¨āĻ˛āĻžāĻ‡āĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨


āĻŦāĻŋāĻ¨āĻžāĻŽā§‚āĻ˛ā§āĻ¯ā§‡ āĻ¸āĻžāĻ°ā§āĻ­āĻžāĻ° āĻāĻŦāĻ‚ āĻ“āĻ¯āĻŧāĻžāĻ°ā§āĻ•āĻ¸ā§āĻŸā§‡āĻļāĻ¨

āĻ‰āĻ‡āĻ¨ā§āĻĄā§‹āĻœ āĻāĻŦāĻ‚ āĻ˛āĻŋāĻ¨āĻžāĻ•ā§āĻ¸ āĻ…ā§āĻ¯āĻžāĻĒ āĻĄāĻžāĻ‰āĻ¨āĻ˛ā§‹āĻĄ āĻ•āĻ°ā§āĻ¨

āĻ˛āĻŋāĻ¨āĻžāĻ•ā§āĻ¸ āĻ•āĻŽāĻžāĻ¨ā§āĻĄāĻ—ā§āĻ˛āĻŋ

  • 1
    a2jmidid
    a2jmidid
    a2jmidid - ALSA-āĻāĻ° āĻœāĻ¨ā§āĻ¯ āĻœā§āĻ¯āĻžāĻ• āĻŽāĻŋāĻĄāĻŋ āĻĄā§‡āĻŽāĻ¨
    MIDI...
    a2jmidid āĻšāĻžāĻ˛āĻžāĻ¨
  • 2
    a2jmidi_bridge
    a2jmidi_bridge
    a2jmidi_bridge - āĻāĻ•āĻŸāĻŋ āĻ¸āĻš āĻ¸ā§āĻŸā§āĻ¯āĻžāĻŸāĻŋāĻ• āĻŦā§āĻ°āĻŋāĻœ
    ALSA āĻĒā§āĻ˛ā§‡āĻŦā§āĻ¯āĻžāĻ• āĻĒā§‹āĻ°ā§āĻŸ āĻāĻŦāĻ‚ āĻāĻ•āĻŸāĻŋ āĻœā§āĻ¯āĻžāĻ• āĻŽāĻŋāĻĄāĻŋ
    āĻ‡āĻ¨āĻĒā§āĻŸ āĻĒā§‹āĻ°ā§āĻŸ...
    a2jmidi_bridge āĻšāĻžāĻ˛āĻžāĻ¨
  • 3
    cpmcp
    cpmcp
    cpmcp - CP/M āĻĨā§‡āĻ•ā§‡ āĻāĻŦāĻ‚ āĻĨā§‡āĻ•ā§‡ āĻĢāĻžāĻ‡āĻ˛ āĻ•āĻĒāĻŋ āĻ•āĻ°ā§āĻ¨
    āĻĄāĻŋāĻ¸ā§āĻ•...
    cpmcp āĻšāĻžāĻ˛āĻžāĻ¨
  • 4
    cpmls
    cpmls
    cpmls - āĻ¤āĻžāĻ˛āĻŋāĻ•āĻž āĻ¸āĻžāĻœāĻžāĻ¨ā§‹ āĻŦāĻŋāĻˇāĻ¯āĻŧāĻŦāĻ¸ā§āĻ¤ā§
    āĻĄāĻŋāĻ°ā§‡āĻ•ā§āĻŸāĻ°āĻŋ...
    cpmls āĻšāĻžāĻ˛āĻžāĻ¨
  • 5
    FvwmWindowMenu
    FvwmWindowMenu
    FvwmWindowMenu - āĻ•āĻ¨āĻĢāĻŋāĻ—āĻžāĻ°āĻ¯ā§‹āĻ—ā§āĻ¯ fvwm āĻ–ā§āĻ˛ā§āĻ¨
    āĻŽā§‡āĻ¨ā§ āĻ¤āĻžāĻ˛āĻŋāĻ•āĻž āĻŦāĻ°ā§āĻ¤āĻŽāĻžāĻ¨ āĻ‰āĻ‡āĻ¨ā§āĻĄā§‹...
    FvwmWindowMenu āĻšāĻžāĻ˛āĻžāĻ¨
  • 6
    FvwmWinList
    FvwmWinList
    FvwmWinList - fvwm āĻ‰āĻ‡āĻ¨ā§āĻĄā§‹ āĻ¤āĻžāĻ˛āĻŋāĻ•āĻž
    āĻŽāĻĄāĻŋāĻ‰āĻ˛...
    FvwmWinList āĻšāĻžāĻ˛āĻžāĻ¨
  • āĻ†āĻ°āĻ“ Âģ

Ad